OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Lieferschein: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Böhrer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „Virtually something that's account or billing specific needs to be carried out over the telephone, and the individuals who entry Sky over the e-mail want to fi…“) |
Nimz (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
(4 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
{{Makros und Scripting}} | |||
'''TLieferschein''' leitet sich von [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Basis_TVorgang|TVorgang]] ab. Die in [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Basis_TVorgang|TVorgang]] beschriebenen [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Methoden|Methoden]], [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Variablen|Variabeln]] und [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Properties|Properties]] können hier ebenfalls verwendet werden. | |||
=Basis TLieferschein= | |||
==Variablen== | |||
<syntaxhighlight lang="Delphi"> | |||
nBPorto : Double; | |||
nBVerpack : Double; | |||
cDMSNr : String; | |||
nEKBetrag : Double; | |||
cFreigabe : String; | |||
cLieferLiefNR : String; | |||
nLiefGew : Integer; | |||
cLiefKenz : String; | |||
cLiefLKW : String; | |||
cLiefStat : String; | |||
nLiefTage : Integer; | |||
cNagelexport : String; | |||
cSamRech : String; | |||
dVLiefDat : TDate; | |||
</syntaxhighlight> | |||
==Methoden== | |||
<syntaxhighlight lang="Delphi"> | |||
constructor Create (oxDB:TxDB); overload; virtual; | |||
constructor Create (oxDB:TxDB; cLiefNr: String); overload; virtual; | |||
procedure FillPerson(cKdNr:String); | |||
function NeuePosition():TLieferscheinPos; | |||
function LiefNeuNum():String; | |||
function SaveRecord(cUID:String=''; lAlleAnzeigen: Boolean = true):Boolean; override; | |||
function UpdateRecord(cUid : string): Boolean; | |||
procedure Auft2Lief(cAufNr:String); | |||
function Auft2SamLief(cKdNr:String) : Boolean; | |||
procedure Auft2LiefOhnePos(cAufNr:String); | |||
function AuftPos2LiefPos( cUID : String; | |||
out nCurPos : integer; | |||
cLieferMenge : String=''; | |||
lAlleNNGeliefert : Boolean=False; | |||
lMitPosText : Boolean=True): Boolean; | |||
procedure Auft2SammelLS(cKdNr:String;cAufNr:String;cTB:string); | |||
procedure Auft2LiefLogistik(cAufNr:String); | |||
procedure CreateLangtext(cAufNr:String); | |||
procedure GetEKLieferNrXML(cFile,cBestNr,cLiefNr,cUID : String); | |||
procedure LieferscheinPosText(oPos:TVorgangPos;cUID:String;nMenge:Double;nSchonGeliefert:Double=0); | |||
</syntaxhighlight> | |||
=Basis TLieferscheinPos= | |||
==Variablen== | |||
<syntaxhighlight lang="Delphi"> | |||
oLieferschein : TLieferschein; | |||
</syntaxhighlight> | |||
==Methoden== | |||
<syntaxhighlight lang="Delphi"> | |||
constructor Create (oxLieferschein:TLieferschein); virtual; | |||
</syntaxhighlight> | |||
=Allgemeine Funktionen= | |||
<syntaxhighlight lang="Delphi"> | |||
procedure ProdAuf_MergeMaterial(const cProduktionsauftrag:String); | |||
procedure AddBildPositionLIEF(oMyDB: TxDB; cRaufNr: String; cBildPfad: String; cUID4: String); | |||
</syntaxhighlight> |
Aktuelle Version vom 15. April 2019, 09:28 Uhr
TLieferschein leitet sich von TVorgang ab. Die in TVorgang beschriebenen Methoden, Variabeln und Properties können hier ebenfalls verwendet werden.
Basis TLieferschein
Variablen
nBPorto : Double;
nBVerpack : Double;
cDMSNr : String;
nEKBetrag : Double;
cFreigabe : String;
cLieferLiefNR : String;
nLiefGew : Integer;
cLiefKenz : String;
cLiefLKW : String;
cLiefStat : String;
nLiefTage : Integer;
cNagelexport : String;
cSamRech : String;
dVLiefDat : TDate;
Methoden
constructor Create (oxDB:TxDB); overload; virtual;
constructor Create (oxDB:TxDB; cLiefNr: String); overload; virtual;
procedure FillPerson(cKdNr:String);
function NeuePosition():TLieferscheinPos;
function LiefNeuNum():String;
function SaveRecord(cUID:String=''; lAlleAnzeigen: Boolean = true):Boolean; override;
function UpdateRecord(cUid : string): Boolean;
procedure Auft2Lief(cAufNr:String);
function Auft2SamLief(cKdNr:String) : Boolean;
procedure Auft2LiefOhnePos(cAufNr:String);
function AuftPos2LiefPos( cUID : String;
out nCurPos : integer;
cLieferMenge : String='';
lAlleNNGeliefert : Boolean=False;
lMitPosText : Boolean=True): Boolean;
procedure Auft2SammelLS(cKdNr:String;cAufNr:String;cTB:string);
procedure Auft2LiefLogistik(cAufNr:String);
procedure CreateLangtext(cAufNr:String);
procedure GetEKLieferNrXML(cFile,cBestNr,cLiefNr,cUID : String);
procedure LieferscheinPosText(oPos:TVorgangPos;cUID:String;nMenge:Double;nSchonGeliefert:Double=0);
Basis TLieferscheinPos
Variablen
oLieferschein : TLieferschein;
Methoden
constructor Create (oxLieferschein:TLieferschein); virtual;
Allgemeine Funktionen
procedure ProdAuf_MergeMaterial(const cProduktionsauftrag:String);
procedure AddBildPositionLIEF(oMyDB: TxDB; cRaufNr: String; cBildPfad: String; cUID4: String);