OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Lieferschein: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
 
Zeile 4: Zeile 4:
==Variablen==
==Variablen==
<syntaxhighlight lang="Delphi">
<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>
</syntaxhighlight>
==Methoden==
==Methoden==
<syntaxhighlight lang="Delphi">
<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>
</syntaxhighlight>
==Properties==
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
=Basis TLieferscheinPos=
=Basis TLieferscheinPos=
==Variablen==
==Variablen==
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
        oLieferschein : TLieferschein;
</syntaxhighlight>
</syntaxhighlight>
==Methoden==
==Methoden==
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
        constructor  Create (oxLieferschein:TLieferschein);  virtual;
==Properties==
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
=Allgemeine Konstanten=
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
</syntaxhighlight>
=Allgemeine Funktionen=
=Allgemeine Funktionen=
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
procedure ProdAuf_MergeMaterial(const cProduktionsauftrag:String);
procedure AddBildPositionLIEF(oMyDB: TxDB; cRaufNr: String; cBildPfad: String; cUID4: String);
</syntaxhighlight>
</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);