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

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


Basis TEKLieferschein

Variablen

        aPositionen   : Array [1..POS_MAX_Positions] of TEKLieferscheinPos; // Rechnungspositionen
        nPosCnt       : Integer;                        // Anzahl der Positionen
        cLsNr         : String;                         // Rechnungsnummer
        cProjNr       : String;                         // Projektnummer
        cTyp          : String;                         // Rechnungstyp
        cStatus       : String;                         // Rechnungs-Status (0-22)
        cStatM        : String;                         // 1-stellig
        cStatS        : String;                         // 1-stellig
        cStatL        : String;                         // 2-stellig
        cStatR        : String;                         // 2-stellig
        dLsDat        : TDateTime;                      // Rechnungsdatum
        dFaelligDat   : TDateTime;                      // Fälligkeitsdatum
        dBuchDat      : TDateTime;                      // Buchungsdatum
        cKdNr         : String;                         // Kundennummer
        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
        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 Rechnung
        nBBetrag      : Double;                         // Bruttobetrag der Rechnung
        nEKBetrag     : Double;                         // Einkaufsbetrag der Rechnung
        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;                         //
        cVertreter    : String;                         // Vertreter (000-9999)
        cVerbucht     : String;                         //
        cLager        : String;                         //
        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)
        cKostenst     : String;                         // Kostenstelle
        cKalkGr       : String;                         //
        cKalkRet      : String;                         //
        nOFBetrag     : Double;                         //
        cWKNr         : String;                         //
        cFrachtV      : String;                         //
        nFrachtK      : Double;                         //
        nFrachtG      : Integer;                        //
        cGruppe       : String;                         //
        cFiliale      : String;                         //
        cPosFormat    : String;                         // Format der Positionsnummerierung
        nAbsNr        : Integer;                        //
        cErfasser     : String;
        cMemoDruck    : String;                         // Positionslangtext drucken? Ja, Nein oder Voreinstellung
        oMyDB         : TxDB;

Methoden

        constructor  Create (oxDB:TxDB); overload;  virtual;
        constructor  Create (oxDB:TxDB;cBestNr:String); overload;  virtual;

        procedure FillPerson(cKdNr:String);
        Procedure FillLieferant(cLieferNr:String);

        function  NeuePosition():TEKLieferscheinPos;
        function  LiefNeuNum():String;
        procedure SaveRecord();

        procedure Best2EKLiefKopf(cBestNr: String);
        procedure Best2EKLiefPos(cBestNr: String);

        function  IsPosBerechnung(cPosArt:String):Boolean;
        procedure KalkAll();
        function  CheckIfNotNull():Boolean;
        procedure GetEKLieferNrXML(cFile,cBestNr,cLiefNr,cUID : String);

Basis TEKLieferscheinPos

Variablen

        cNr           : String;    //Rechnungsnummer
        cKundNr       : String;    //Kundennummer
        cLieferNr     : String;    //Liefernummer
        cAuftragsNr   : String;    //Auftragsnummer
        cBestellNr    : String;    //Bestellnummer
        cPosText      : String;
        cLProjNr      : String;
        cVersandNr    : String;    //Versandnummer
        cPosNr        : String;    //Positionsnummer
        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;    //Lager-Nr
        cLagONr       : String;    //Lager-Ort
        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
        cMemofeld     : String;    //Memofeld
        nProvision    : Double;    //Provision
        cLiefKz       : String;    //LiefKz
        cProdGr       : String;    //ProdGr
        nFrachtV      : Double;    //FrachtV
        cLSNr         : String;    //EKLieferschein-Nummer
        dLSDatum      : TDateTime; //EKLieferschein-Datum
        cPosArt       : String;    //Positionsart
        cAusdruckJN   : String;    //Ausdruck Ja/Nein
        cEKHerkunft   : String;    //EK-Herkunft
        cLieNr        : String;
        cLagStreck    : String;
        cAufschlag    : String;
        cAufschUID    : String;
        cMemoDruck    : String;    //Positionslangtext drucken? Ja, Nein oder Voreinstellung

        oEKLief       : TEKLieferschein;

Methoden

        constructor  Create (oxEKLief:TEKLieferschein);   virtual;

        function  BestPos2EKLiefPos(cUID:String; nPosMenge: Double):Boolean;
        procedure PositionsVorbelegung();
        procedure FillArtikel(cArtNr:String);