OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Lieferschein

Aus OBS Wiki
Version vom 15. April 2019, 09:28 Uhr von Nimz (Diskussion | Beiträge)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen


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);