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

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


Basis TEinkauf

Variablen

        aPositionen   : Array [1..POS_MAX_Positions] of TEinkaufPos; // Einkaufspositionen
        nPosCnt       : Integer;                        // Anzahl der Positionen
        cEkNr         : String;                         // Einkaufsnummer
        cProjNr       : String;                         // Projektnummer
        cTyp          : String;                         // Einkaufstyp
        cStatus       : String;                         // Einkaufs-Status (0-22)
        cStatM        : String;                         // 1-stellig
        cStatS        : String;                         // 1-stellig
        cStatL        : String;                         // 2-stellig
        cStatR        : String;                         // 2-stellig
        dRgDat        : TDateTime;                      // Einkaufsdatum
        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
        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 Einkauf
        nBBetrag      : Double;                         // Bruttobetrag der Einkauf
        nEKBetrag     : Double;                         // Einkaufsbetrag der Einkauf
        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 Rg-Empfängers
        cVertreter    : String;                         // Vertreter (000-9999)
        cVerbucht     : String;                         //
        cLager        : String;                         //
        cRgArt        : String;                         // Einkauf/Abschlags-/SchlußEinkauf
        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;                         //
        cPosFormat    : String;                         // Format der Positionsnummerierung
        nAbsNr        : Integer;                        //
        nSicherheit   : Double;                         // Sicherheitsbetrag
        cEdiFact      : String;                         //
        cPara13       : String;                         //
        dErstDatum    : TDateTime;                      //
        cFestMWST     : String;                         //
        cFiliale      : String;                         //
        cSysUid       : String;                         //
        cErfasser     : String;
        cMemoDruck    : String;                         //Positionslangtext drucken? Ja, Nein oder Voreinstellung
        oMyDB         : TxDB;

Methoden

        constructor  Create ();   virtual;

        procedure FillPerson(cKdNr:String);
        function  NeuePosition():TEinkaufPos;
        procedure SaveRecord(lLangtext:Boolean=False);

        function  IsPosBerechnung(cPosArt:String):Boolean;
        procedure KalkAll();

        procedure Eink2EinkNeg(cOrgEinkNr:String);
        procedure Eink2EinkOhnePos(cOrgEinkNr:String);
        procedure EinkPos2EinkPosNeg(cUID:String);
        procedure EKLS2EinkOhnePos(cEKLSNr:String);

Basis TEinkaufPos

Variablen

        cNr           : String;    //Einkaufssnummer
        cKundNr       : String;    //Kundennummer
        cAuftragsNr   : String;    //Auftragsnummer
        cBestellNr    : String;    //Bestellnummer
        cPosText      : String;
        cLProjNR      : String;
        cLieferNr     : String;    //Liefernummer
        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
        cMemofeld     : String;    //Memofeld
        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

        oEinkauf      : TEinkauf;

Methoden

        constructor  Create (oxEinkauf:TEinkauf);   virtual;

        procedure PositionsVorbelegung();
        function  FillArtikel(cArtNr:String):Boolean;

Allgemeine Funktionen

function  GenerateVerbandsEinkauf(cKopfNr:String; cPsNr:String):Boolean;
function  GenerateUmkehrEinkausEink(cOrgEinkNr : String;var cNeueNr:String):String;
function  GenerateEKLiefEinkauf(oMyDB:TxDB; cEKLiefNr:String):String;
procedure GeneratePartienEK();