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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „Even a 50-point increase in your credit history can save tens of thousands over the course of an 30-year home mortgage. Once we can notice that when we avail t…“)
 
 
(5 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
Even a 50-point increase in your credit history can save tens of thousands over the course of an 30-year home mortgage. Once we can notice that when we avail these loans in order to meet our financial requirements they have been suitable for, people not be any issue. The banknote accustomed canbe acclimated for acclimation your adaptable buzz bills, annual bills,traveling for holidays, power bills, as well as any added outstanding bill expenditure. A variety of documentation will probably be required from you. This year, qualifying taxpayers who get a home before Dec.<br><br>Analysis could be the crucial in obtaining dollars rapidly plus a great deal. No appear your money issues are credit card payment, overdrafts, medical bills, unexpected social events, or bills generally speaking a pay day loan can get you out of nearly every financial emergency. While the federal direct loans programme, the department of education is the financial institution. Others could possibly have the adoration for boat while most consider boat being a luxury. The asset can be anything from your own home, a car, jewelry etc [http://dualitymediagroup.com/UserProfile/tabid/62/userId/21310/Default.aspx amy schumer tour des moines iowa] also be sure to browse the terms and conditions of your respective agreement before agreeing to the terms and conditions. The cause for the fund's existence is always to foster financial revitalization and area advancement.<br><br>You may even compare fees and subscription charged by different instant cash advance loans providers. But it is often a wonderful means to produce some extra cash on a tight budget. The cosigner must be aware which should each student default on the borrowed funds for virtually any reason, or without notice, even years later, the cosigner is legally certain to step in and assume responsibility for the borrowed funds. Most of my job prospects are lining up around 100 K per year. With low credit score, your credit score improvement program will help to create an about face by it. I unattached the sleeves, hemmed across the arm holes and took inside sides by 1 " each to take some in the bulkiness out of this blouse.
{{Makros und Scripting}}
=Basis TEinkauf=
==Variablen==
<syntaxhighlight lang="Delphi">
        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;
</syntaxhighlight>
==Methoden==
<syntaxhighlight lang="Delphi">
        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);
</syntaxhighlight>
 
=Basis TEinkaufPos=
==Variablen==
<syntaxhighlight lang="Delphi">
        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;
</syntaxhighlight>
==Methoden==
<syntaxhighlight lang="Delphi">
        constructor  Create (oxEinkauf:TEinkauf);  virtual;
 
        procedure PositionsVorbelegung();
        function FillArtikel(cArtNr:String):Boolean;
</syntaxhighlight>
 
=Allgemeine Funktionen=
<syntaxhighlight lang="Delphi">
function  GenerateVerbandsEinkauf(cKopfNr:String; cPsNr:String):Boolean;
function  GenerateUmkehrEinkausEink(cOrgEinkNr : String;var cNeueNr:String):String;
function  GenerateEKLiefEinkauf(oMyDB:TxDB; cEKLiefNr:String):String;
procedure GeneratePartienEK();
</syntaxhighlight>

Aktuelle Version vom 15. April 2019, 10:43 Uhr


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();
Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge/Einkauf&oldid=55434“