OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Bestellung: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Nimz (Diskussion | Beiträge) |
Nimz (Diskussion | Beiträge) |
||
(3 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 3: | Zeile 3: | ||
==Variablen== | ==Variablen== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
aPositionen : Array [1..POS_MAX_Positions] of TBestellPos; // Bestellspositionen | |||
nPosCnt : Integer; // Anzahl der Positionen | |||
cBestNr : String; // Bestellsnummer | |||
cProjNr : String; // Projektnummer | |||
cLanguage : String; // Sprache | |||
cTyp : String; // Bestellstyp | |||
cStatus : String; // Bestells-Status (0-22) | |||
cStatM : String; // 1-stellig | |||
cStatS : String; // 1-stellig | |||
cStatL : String; // 2-stellig | |||
cStatR : String; // 2-stellig | |||
dBestDat : TDateTime; // Bestellsdatum | |||
dFaelligDat : TDateTime; // Fälligkeitsdatum | |||
dBuchDat : TDateTime; // Buchungsdatum | |||
cKdNr : String; // Kundennummer | |||
cBestUeber : String; // Bestellung über (Filiale) | |||
cAnrede : String; // Kunde Anrede | |||
cName : String; // Kunde Nachname | |||
cVorname : String; // Kunde Vorname | |||
cZusatz1 : String; // Kunde Zusatz1 | |||
cZusatz2 : String; // Kunde Zusatz2 | |||
cStrasse : String; // Kunde Straße | |||
cPostfach : String; // Kunde Postfach | |||
cLK : String; // Kunde Land | |||
cPLZ : String; // Kunde PLZ | |||
cOrt : String; // Kunde Ort | |||
cAngebNr : String; // Angebotsnummer | |||
cLSNr : String; // Lieferscheinnummer | |||
cRechNr2 : String; // | |||
cAuftNr : String; // Auftragsnummer | |||
cRepaNr : String; // Reparaturauftragsnummer | |||
cEinkaufsNr : String; // Einkaufsnummer | |||
cBestellNr : String; // Bestellnummer | |||
cKopfNr : String; // Kopftext-Nummer (00-999) | |||
cKopftext : String; // Freier Kopftext | |||
cFusstext : String; // Freier Fusstext | |||
cFussNr : String; // Fusstext-Nummer (00-999) | |||
nNBetrag : Double; // Nettobetrag der Bestell | |||
nBBetrag : Double; // Bruttobetrag der Bestell | |||
nEKBetrag : Double; // Einkaufsbetrag der Bestell | |||
nRabattBetrag : Double; // Rabatt Betrag | |||
nRabattProz : Double; // Rabatt Prozentual | |||
nPorto : Double; // Portobetrag | |||
nVerpackung : Double; // Verpackungskosten | |||
cVersand : String; // Versand über (0-99) | |||
cZahlBed : String; // Zahlungsbedingung (0-99) | |||
cWaehr : String; // Währung (0-99) | |||
cFormul : String; // | |||
cVKdNr : String; // Versand Kundennummer | |||
cVName1 : String; // Versand Name | |||
cVName2 : String; // Versand Name | |||
cVZusatz : String; // Versand Zusatz | |||
cVStrasse : String; // Versand Straße | |||
cVLK : String; // Versand Land | |||
cVPLZ : String; // Versand PLZ | |||
cVOrt : String; // Versand Ort | |||
cAuftNrKd : String; // Auftragsnummer des Kunden | |||
cBesteller : String; // | |||
dAufDat : TDateTime; // Auftragsdatum | |||
cSachb : String; // Sachbearbeiter (0-99) | |||
cRabPosJN : String; // J oder N | |||
cMWSTJN : String; // J oder N | |||
cSText1 : String; // | |||
cSText2 : String; // | |||
cSText3 : String; // | |||
cSText4 : String; // | |||
cSText5 : String; // | |||
cSText6 : String; // | |||
cSText7 : String; // | |||
cPreisJN : String; // J oder N | |||
nNet1 : Double; // | |||
nNet2 : Double; // | |||
nNet3 : Double; // | |||
nMwSt1 : Double; // | |||
nMwSt2 : Double; // | |||
nMwSt3 : Double; // | |||
cMwStSchl1 : String; // | |||
cMwStSchl2 : String; // | |||
cMwStSchl3 : String; // | |||
cMwStAbs : String; // | |||
dLiefDat : TDateTime; // Lieferdatum | |||
cDeleted : String; // | |||
dLDat2 : TDateTime; // Lieferdatum | |||
cSprache : String; // | |||
cReEmpf : String; // Kundennummer des Best-Empfängers | |||
cVertreter : String; // Vertreter (000-9999) | |||
cVerbucht : String; // | |||
cLager : String; // | |||
cBestArt : String; // Bestell/Abschlags-/SchlußBestell | |||
cBonusJN : String; // J oder N | |||
cWLiefNr : String; // | |||
cRechFrei : String; // | |||
cBonNr : String; // | |||
cMandant : String; // Mandant (00-999) | |||
nMwStDM : Double; // | |||
nKursDM : Double; // | |||
nAbschlag : Double; // | |||
nZBetrag : Double; // | |||
nZSkonto : Double; // | |||
dZDatum : TDateTime; // | |||
cMemo : String; // Memofeld | |||
nValuta : Integer; // Valuta in Tagen (max. 4 Stellen) | |||
cKalkGr : String; // | |||
cKalkRet : String; // | |||
nOFBetrag : Double; // | |||
cWKNr : String; // | |||
cFrachtV : String; // | |||
nFrachtK : Double; // | |||
nFrachtG : Integer; // | |||
cGruppe : String; // | |||
cPosFormat : String; // Format der Positionsnummerierung | |||
nAbsNr : Integer; // | |||
nSicherheit : Double; // Sicherheitsbetrag | |||
cFiliale : String; // | |||
cEdiFact : String; // | |||
cErfasser : String; | |||
//l24StdLief : Boolean; // 24 Stunden Bestellung Büroring | |||
lBestStrecke : Boolean; // 24 Stunden Bestellung Büroring | |||
cFestMWST : String; // MWST-Satz aus Personenstamm | |||
cKuNrLief : String; // 20 St. Kundennummer beim Lieferant | |||
cSondLiefNr : String; // Sonderlieferantennummer | |||
cAusschreibungNr : String; // Ausschreibungsnr PBS EASY | |||
cUeberArt : String; // Übertragungsart | |||
cVaNr : String; // Versandanschrift-Nr. (Kostenstelle) | |||
cKost : String; // Kostenstelle Fibu | |||
lIsLagerAdresse : Boolean; // Falls Mehrlager benutzt wird | |||
cMemoDruck : String; //Positionslangtext drucken? Ja, Nein oder Voreinstellung | |||
cInRoomName : String; | |||
cInRoomTelf : String; | |||
cInRoomDep : String; | |||
lFillFromAuftrag : Boolean; // Wenn Retoure Bestellung, dann keine übernahme vom Auftrag | |||
oMyDB : TxDB; | |||
</syntaxhighlight> | </syntaxhighlight> | ||
==Methoden== | ==Methoden== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
constructor Create (oxDB:TxDB); overload; virtual; | |||
constructor Create (oxDB:TxDB; cBestellung: String); overload; virtual; | |||
procedure FillPerson(cLiefNr:String); | |||
procedure LagerAdresse(cLagNr:String); | |||
procedure InitSonder(cBestUeber:String); | |||
function NeuePosition():TBestellPos; | |||
function NeuerLangtext():TBestellPos; | |||
function BestNeuNum():String; | |||
procedure KalkAll(); | |||
procedure SaveRecord(); | |||
</syntaxhighlight> | </syntaxhighlight> | ||
Zeile 14: | Zeile 155: | ||
==Variablen== | ==Variablen== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
cNr : String; //Bestellsnummer | |||
cKundNr : String; //Kundennummer | |||
cAuftragsNr : String; //Auftragsnummer | |||
cBestellNr : String; //Bestellnummer | |||
cPosText : String; | |||
cLProjNr : String; | |||
cLieNr : String; //LieferUID | |||
cLiefNr : String; //Lieferantennummer Person | |||
cVersandNr : String; //Versandnummer | |||
cPosNr : String; //Positionsnummer | |||
cPosNr2 : String; //Positionsnummererweiterung | |||
cPosKas : String; //Kassenposition | |||
cPosLaufend : String; //laufende Positionsnummer | |||
cTyp : String; //Typ | |||
cArtikelNr : String; //Artikel-Nummer | |||
cLeistungsNr : String; //Leistungs-Nummer | |||
cBezeichnung1 : String; //Bezeichnung 1 | |||
cBezeichnung2 : String; //Bezeichnung 2 | |||
nMenge : Double; //Menge | |||
cEinheit : String; //Einheit | |||
nMengeIn : Double; //MengeIn | |||
nMengeInFak : Double; //MengeIn Faktor | |||
nMengeG : Integer; //MengeG | |||
nKolli : Integer; //Kolli | |||
cVerpackung : String; //Verpackung | |||
nInhalt : Double; //Inhalt | |||
nEPreis : Double; //EPreis | |||
nUrPreis : Double; //UrPreis | |||
nUrPreisEK : Double; //UrPreisEK | |||
nGPreis : Double; //GPreis | |||
nEKPreis : Double; //EKPreis | |||
nRabatt : Double; //Rabatt | |||
nRabatt1 : Double; //Rabatt | |||
cRabArt1 : String; //RabattArt | |||
nRabatt2 : Double; //Rabatt | |||
cRabArt2 : String; //RabattArt | |||
nRabatt3 : Double; //Rabatt | |||
cRabArt3 : String; //RabattArt | |||
nRabatt4 : Double; //Rabatt | |||
cRabArt4 : String; //RabattArt | |||
nRabatt5 : Double; //Rabatt | |||
cRabArt5 : String; //RabattArt | |||
cMWSTSch : String; //Mehrwertsteuer-Schlüßel | |||
cKonto : String; //Konto | |||
cLagNr : String; //LagerNr | |||
cLagONr : String; //Lagerort | |||
cVerkaufer : String; //Sachbearbeiter | |||
cStatus : String; //Positionskennzeichen | |||
cAngebotsNr : String; //AngebotsNr | |||
cUID : String; //UID | |||
cSpNr : String; //SpNr | |||
cBestellUID : String; //BestellUID | |||
cMaterialUID : String; //MaterialUID | |||
cEiliUID : String; //EiliUID | |||
cXUID1 : String; //XUID1 | |||
cXUID2 : String; //XUID2 | |||
cXUID3 : String; //XUID3 | |||
cXUID4 : String; //XUID4 | |||
cKostSt : String; //Kostenstelle | |||
nProvision : Double; //Provision | |||
cLiefKz : String; //LiefKz | |||
cProdGr : String; //ProdGr | |||
nFrachtV : Double; //FrachtV | |||
cLSNr : String; //Lieferschein-Nummer | |||
dLSDatum : TDateTime; //Lieferschein-Datum | |||
cPosArt : String; //Positionsart | |||
cAusdruckJN : String; //Ausdruck Ja/Nein | |||
cEKHerkunft : String; //EK-Herkunft | |||
cKommentar : String; //PosKommentar | |||
cMemoDruck : String; //Positionslangtext drucken? Ja, Nein oder Voreinstellung | |||
oBestell : TBestell; | |||
</syntaxhighlight> | </syntaxhighlight> | ||
==Methoden== | ==Methoden== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
constructor Create (oxBestell:TBestell); virtual; | |||
procedure PositionsVorbelegung(); | |||
procedure FillMater(qMater:TxFQuery); | |||
procedure FillLangtext(cMaNr:String; cUID:String; lStrecke:Boolean); | |||
function LagerOrtAdr(cLagNr:String; cLagONr:String):String; | |||
function ReadBestellKommentar(cAufNr: String; cPosNr: String): String; | |||
function GetAufNr(cMaNr: String; cUID:String): String; | |||
procedure AddToMemo(const cText: string); | |||
</syntaxhighlight> | </syntaxhighlight> | ||
==Properties== | ==Properties== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
property PcMemofeld : string read cMemofeld write SetcMemofeld; | |||
property PcMemofeldAnsi : string read cMemofeldAnsi write SetcMemofeldAnsi; | |||
</syntaxhighlight> | </syntaxhighlight> | ||
=Allgemeine Funktionen= | =Allgemeine Funktionen= | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
function BestellMateGen(cMaterUIDs : String;cAuftNr:String=''):Boolean; | |||
function BestellMateGenDB(oMyDB : TxDB; | |||
cMaterUIDs : String; | |||
cBestUeber : String=''; | |||
oBestList : TSTringList=NIL; | |||
lAuto : Boolean=False; | |||
lZusammenfassen : Boolean=True; | |||
cAuftNr : String='' | |||
):Boolean; | |||
function IsMaterLieferbar(oMyDB : TxDB; | |||
cMaterUIDSQL : String; | |||
lAuto : Boolean=False):Boolean; | |||
function Fill_Versandanschrift_Bestellungen(cAuftNr:String;cBestellNr:String;lInfo:Boolean):Boolean; | |||
</syntaxhighlight> | </syntaxhighlight> |
Aktuelle Version vom 15. April 2019, 10:37 Uhr
Basis TBestell
Variablen
aPositionen : Array [1..POS_MAX_Positions] of TBestellPos; // Bestellspositionen
nPosCnt : Integer; // Anzahl der Positionen
cBestNr : String; // Bestellsnummer
cProjNr : String; // Projektnummer
cLanguage : String; // Sprache
cTyp : String; // Bestellstyp
cStatus : String; // Bestells-Status (0-22)
cStatM : String; // 1-stellig
cStatS : String; // 1-stellig
cStatL : String; // 2-stellig
cStatR : String; // 2-stellig
dBestDat : TDateTime; // Bestellsdatum
dFaelligDat : TDateTime; // Fälligkeitsdatum
dBuchDat : TDateTime; // Buchungsdatum
cKdNr : String; // Kundennummer
cBestUeber : String; // Bestellung über (Filiale)
cAnrede : String; // Kunde Anrede
cName : String; // Kunde Nachname
cVorname : String; // Kunde Vorname
cZusatz1 : String; // Kunde Zusatz1
cZusatz2 : String; // Kunde Zusatz2
cStrasse : String; // Kunde Straße
cPostfach : String; // Kunde Postfach
cLK : String; // Kunde Land
cPLZ : String; // Kunde PLZ
cOrt : String; // Kunde Ort
cAngebNr : String; // Angebotsnummer
cLSNr : String; // Lieferscheinnummer
cRechNr2 : String; //
cAuftNr : String; // Auftragsnummer
cRepaNr : String; // Reparaturauftragsnummer
cEinkaufsNr : String; // Einkaufsnummer
cBestellNr : String; // Bestellnummer
cKopfNr : String; // Kopftext-Nummer (00-999)
cKopftext : String; // Freier Kopftext
cFusstext : String; // Freier Fusstext
cFussNr : String; // Fusstext-Nummer (00-999)
nNBetrag : Double; // Nettobetrag der Bestell
nBBetrag : Double; // Bruttobetrag der Bestell
nEKBetrag : Double; // Einkaufsbetrag der Bestell
nRabattBetrag : Double; // Rabatt Betrag
nRabattProz : Double; // Rabatt Prozentual
nPorto : Double; // Portobetrag
nVerpackung : Double; // Verpackungskosten
cVersand : String; // Versand über (0-99)
cZahlBed : String; // Zahlungsbedingung (0-99)
cWaehr : String; // Währung (0-99)
cFormul : String; //
cVKdNr : String; // Versand Kundennummer
cVName1 : String; // Versand Name
cVName2 : String; // Versand Name
cVZusatz : String; // Versand Zusatz
cVStrasse : String; // Versand Straße
cVLK : String; // Versand Land
cVPLZ : String; // Versand PLZ
cVOrt : String; // Versand Ort
cAuftNrKd : String; // Auftragsnummer des Kunden
cBesteller : String; //
dAufDat : TDateTime; // Auftragsdatum
cSachb : String; // Sachbearbeiter (0-99)
cRabPosJN : String; // J oder N
cMWSTJN : String; // J oder N
cSText1 : String; //
cSText2 : String; //
cSText3 : String; //
cSText4 : String; //
cSText5 : String; //
cSText6 : String; //
cSText7 : String; //
cPreisJN : String; // J oder N
nNet1 : Double; //
nNet2 : Double; //
nNet3 : Double; //
nMwSt1 : Double; //
nMwSt2 : Double; //
nMwSt3 : Double; //
cMwStSchl1 : String; //
cMwStSchl2 : String; //
cMwStSchl3 : String; //
cMwStAbs : String; //
dLiefDat : TDateTime; // Lieferdatum
cDeleted : String; //
dLDat2 : TDateTime; // Lieferdatum
cSprache : String; //
cReEmpf : String; // Kundennummer des Best-Empfängers
cVertreter : String; // Vertreter (000-9999)
cVerbucht : String; //
cLager : String; //
cBestArt : String; // Bestell/Abschlags-/SchlußBestell
cBonusJN : String; // J oder N
cWLiefNr : String; //
cRechFrei : String; //
cBonNr : String; //
cMandant : String; // Mandant (00-999)
nMwStDM : Double; //
nKursDM : Double; //
nAbschlag : Double; //
nZBetrag : Double; //
nZSkonto : Double; //
dZDatum : TDateTime; //
cMemo : String; // Memofeld
nValuta : Integer; // Valuta in Tagen (max. 4 Stellen)
cKalkGr : String; //
cKalkRet : String; //
nOFBetrag : Double; //
cWKNr : String; //
cFrachtV : String; //
nFrachtK : Double; //
nFrachtG : Integer; //
cGruppe : String; //
cPosFormat : String; // Format der Positionsnummerierung
nAbsNr : Integer; //
nSicherheit : Double; // Sicherheitsbetrag
cFiliale : String; //
cEdiFact : String; //
cErfasser : String;
//l24StdLief : Boolean; // 24 Stunden Bestellung Büroring
lBestStrecke : Boolean; // 24 Stunden Bestellung Büroring
cFestMWST : String; // MWST-Satz aus Personenstamm
cKuNrLief : String; // 20 St. Kundennummer beim Lieferant
cSondLiefNr : String; // Sonderlieferantennummer
cAusschreibungNr : String; // Ausschreibungsnr PBS EASY
cUeberArt : String; // Übertragungsart
cVaNr : String; // Versandanschrift-Nr. (Kostenstelle)
cKost : String; // Kostenstelle Fibu
lIsLagerAdresse : Boolean; // Falls Mehrlager benutzt wird
cMemoDruck : String; //Positionslangtext drucken? Ja, Nein oder Voreinstellung
cInRoomName : String;
cInRoomTelf : String;
cInRoomDep : String;
lFillFromAuftrag : Boolean; // Wenn Retoure Bestellung, dann keine übernahme vom Auftrag
oMyDB : TxDB;
Methoden
constructor Create (oxDB:TxDB); overload; virtual;
constructor Create (oxDB:TxDB; cBestellung: String); overload; virtual;
procedure FillPerson(cLiefNr:String);
procedure LagerAdresse(cLagNr:String);
procedure InitSonder(cBestUeber:String);
function NeuePosition():TBestellPos;
function NeuerLangtext():TBestellPos;
function BestNeuNum():String;
procedure KalkAll();
procedure SaveRecord();
Basis TBestellPos
Variablen
cNr : String; //Bestellsnummer
cKundNr : String; //Kundennummer
cAuftragsNr : String; //Auftragsnummer
cBestellNr : String; //Bestellnummer
cPosText : String;
cLProjNr : String;
cLieNr : String; //LieferUID
cLiefNr : String; //Lieferantennummer Person
cVersandNr : String; //Versandnummer
cPosNr : String; //Positionsnummer
cPosNr2 : String; //Positionsnummererweiterung
cPosKas : String; //Kassenposition
cPosLaufend : String; //laufende Positionsnummer
cTyp : String; //Typ
cArtikelNr : String; //Artikel-Nummer
cLeistungsNr : String; //Leistungs-Nummer
cBezeichnung1 : String; //Bezeichnung 1
cBezeichnung2 : String; //Bezeichnung 2
nMenge : Double; //Menge
cEinheit : String; //Einheit
nMengeIn : Double; //MengeIn
nMengeInFak : Double; //MengeIn Faktor
nMengeG : Integer; //MengeG
nKolli : Integer; //Kolli
cVerpackung : String; //Verpackung
nInhalt : Double; //Inhalt
nEPreis : Double; //EPreis
nUrPreis : Double; //UrPreis
nUrPreisEK : Double; //UrPreisEK
nGPreis : Double; //GPreis
nEKPreis : Double; //EKPreis
nRabatt : Double; //Rabatt
nRabatt1 : Double; //Rabatt
cRabArt1 : String; //RabattArt
nRabatt2 : Double; //Rabatt
cRabArt2 : String; //RabattArt
nRabatt3 : Double; //Rabatt
cRabArt3 : String; //RabattArt
nRabatt4 : Double; //Rabatt
cRabArt4 : String; //RabattArt
nRabatt5 : Double; //Rabatt
cRabArt5 : String; //RabattArt
cMWSTSch : String; //Mehrwertsteuer-Schlüßel
cKonto : String; //Konto
cLagNr : String; //LagerNr
cLagONr : String; //Lagerort
cVerkaufer : String; //Sachbearbeiter
cStatus : String; //Positionskennzeichen
cAngebotsNr : String; //AngebotsNr
cUID : String; //UID
cSpNr : String; //SpNr
cBestellUID : String; //BestellUID
cMaterialUID : String; //MaterialUID
cEiliUID : String; //EiliUID
cXUID1 : String; //XUID1
cXUID2 : String; //XUID2
cXUID3 : String; //XUID3
cXUID4 : String; //XUID4
cKostSt : String; //Kostenstelle
nProvision : Double; //Provision
cLiefKz : String; //LiefKz
cProdGr : String; //ProdGr
nFrachtV : Double; //FrachtV
cLSNr : String; //Lieferschein-Nummer
dLSDatum : TDateTime; //Lieferschein-Datum
cPosArt : String; //Positionsart
cAusdruckJN : String; //Ausdruck Ja/Nein
cEKHerkunft : String; //EK-Herkunft
cKommentar : String; //PosKommentar
cMemoDruck : String; //Positionslangtext drucken? Ja, Nein oder Voreinstellung
oBestell : TBestell;
Methoden
constructor Create (oxBestell:TBestell); virtual;
procedure PositionsVorbelegung();
procedure FillMater(qMater:TxFQuery);
procedure FillLangtext(cMaNr:String; cUID:String; lStrecke:Boolean);
function LagerOrtAdr(cLagNr:String; cLagONr:String):String;
function ReadBestellKommentar(cAufNr: String; cPosNr: String): String;
function GetAufNr(cMaNr: String; cUID:String): String;
procedure AddToMemo(const cText: string);
Properties
property PcMemofeld : string read cMemofeld write SetcMemofeld;
property PcMemofeldAnsi : string read cMemofeldAnsi write SetcMemofeldAnsi;
Allgemeine Funktionen
function BestellMateGen(cMaterUIDs : String;cAuftNr:String=''):Boolean;
function BestellMateGenDB(oMyDB : TxDB;
cMaterUIDs : String;
cBestUeber : String='';
oBestList : TSTringList=NIL;
lAuto : Boolean=False;
lZusammenfassen : Boolean=True;
cAuftNr : String=''
):Boolean;
function IsMaterLieferbar(oMyDB : TxDB;
cMaterUIDSQL : String;
lAuto : Boolean=False):Boolean;
function Fill_Versandanschrift_Bestellungen(cAuftNr:String;cBestellNr:String;lInfo:Boolean):Boolean;