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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
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">
</syntaxhighlight>
        constructor  Create (oxDB:TxDB); overload; virtual;
==Properties==
        constructor  Create (oxDB:TxDB; cBestellung: String); overload; virtual;
<syntaxhighlight lang="Delphi">
 
        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>



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 Konstanten

Allgemeine Funktionen