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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „The fact they many choose another wage advance is evidence that we offer a strong alternative to the other services. The only limits here are the ones you wear…“)
 
 
(9 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
The fact they many choose another wage advance is evidence that we offer a strong alternative to the other services. The only limits here are the ones you wear yourselves, so please never make mistake to put your goals too low, the sky could be the limit. This is nice in that you is going to be the someone to choose the institution that gives you probably the most economical rates. You also can avail this deal for other purposes as they don't have problem with everything you would do along with your money. Before taking a no teletrack or telecheck payday loan, it is also better to first check perhaps the loan company is registered beneath the local BBB or otherwise not.<br><br>My webpage :: [http://www.tagliate.it/UserProfile/tabid/429/UserID/20060/Default.aspx jojo concerts july 2015]
{{Makros und Scripting}}
'''TRechnung''' leitet sich von [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Basis_TVorgang|TVorgang]] ab. Die in [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Basis_TVorgang|TVorgang]] beschriebenen [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Methoden|Methoden]], [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Variablen|Variabeln]] und [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Properties|Properties]] können hier ebenfalls verwendet werden.
=Basis TRechnung=
==Variablen==
<syntaxhighlight lang="Delphi">
        oMaterRechUID    : TStringList;                    //ma_rechuid setzen
        dErstDatum        : TDateTime;                      //
        lUmkehrRech      : Boolean;                        //Umkehrrechnungen
        lMerkLiefPos2Rech : Boolean;                        //Merken, dass LSPos auf Rech übernommen wurde
        nSicherheit      : Double;                        // Sicherheitsbetrag
        cEdiFact          : String;                        //
        cVorgang          : String;                        // Vorgang (Vxxxxxx)  Vertragsnummer
        cRechNr2          : String;                        //
        cUrNr            : String;                        // Umkehrrechnungsnummer
        cFestMWST        : String;                        //
        cAufUID          : String;
 
        nAbsNr            : Integer;
        cBuchJahr        : String;
        cBuchPeriode      : String;
        dFacDatum        : TDate;
        cMemofeldAnsi    : String;
        cMRN              : String;
        cNoBuchung        : String;
        cPara13          : String;
        cRepSort          : String;
        cSepaText        : String;
        cStdKto          : String;
        cTeilKennz        : String;
</syntaxhighlight>
 
==Methoden==
<syntaxhighlight lang="Delphi">
        constructor  Create (oxDB:TxDB);  virtual;
 
        procedure FillPerson(cKdNr:String);
        function  NeuePosition(): TRechnungPos;
        procedure SammelRechLangtext(cPsNr : String);
        function  SaveRecord(cUID: String = ''; lAlleSpeichern:Boolean = false): Boolean; override;
        procedure SetBrutto(cAuftrag : String);
        procedure QueryToPos(oPos:TRechnungPos; qTmp:TxFQuery; cPosTable: string; lVerpack:Boolean);
 
        procedure Auft2Rech(cAufNr:String);
        procedure Auft2RechNeueRech(cAufNr:String);
        procedure AuftKopf2RechKopfOhnePos(cAufNr:String);
        function  AuftPos2RechPos(cUID:String):TRechnungPos;
 
        procedure Auft2RechLogistik(cAufNr:String);
 
        procedure RepAuft2Rech(cAufNr:String);
        procedure RepAuft2RechOhnePos(cAufNr:String);
        procedure RepAuftPos2RechPos(cUID:String);
 
        procedure Rech2RechNeg(cOrgRechNr:String);
        procedure RechKopf2RechKopfOhnePos(cOrgRechNr:String);
        procedure RechPos2RechPosNeg(cUID:String);
 
        procedure Lief2Rech(cLiefNr : String; cAuftraggeber:String; lNeuNum:Boolean=True);
 
        procedure Auft2SammelRech(cKdNr:String;cAufNr:String;cTB:string);
        function  CheckMWStAnz(cSQL, cVergleichFeld, cVergleichWert :String; nRabPr : Double):Boolean;
        function  LieferscheinAuftragPositionenVerbucht(cLiefNr : String):Boolean;
        function  AlleAuftragPositionenVerbucht():Boolean;
        function  LSAuftragPositionenVerbucht():Boolean;
</syntaxhighlight>
 
=Basis TRechnungPos=
==Variablen==
<syntaxhighlight lang="Delphi">
        oRechnung : TRechnung;
</syntaxhighlight>
==Methoden==
<syntaxhighlight lang="Delphi">
        constructor  Create (oxRechnung:TRechnung);  virtual;
</syntaxhighlight>
 
=Allgemeine Funktionen=
<syntaxhighlight lang="Delphi">
function  GenerateAuftrag(oMyDB:TxDB; cLSNr : String): String;
procedure GenerateSammelRechausFreiLiefAlt(oMyDB:TxDB);
procedure GenerateRechausFreiLiefAlt(oMyDB:TxDB);
 
procedure GenerateSammelRechausFreiLief(oMyDB        : TxDB;
                                        cVon          : String;
                                        cBis          : String;
                                        nWert        : Double;
                                        nAufschlag    : Double;
                                        cAufArtNr    : String;
                                        cRechKreis    : String;
                                        dLiefDate    : TDateTime;
                                        lFreigabe    : Boolean;
                                        lDruck        : Boolean;
                                        lKostenstelle : Boolean;
                                        frm          : TForm);
 
procedure GenerateSammelRechausRepaAuft(oMyDB        : TxDB;
                                        cVon          : String;
                                        cBis          : String;
                                        nWert        : Double;
                                        cRechKreis    : String;
                                        dFertigDatum  : TDateTime;
                                        lDruck        : Boolean;
                                        frm          : TForm);
 
procedure GenerateRechausTankstelle(oMyDB        : TxDB;
                                    cVon          : String;
                                    cBis          : String;
                                    dVonTankDatum : TDateTime;
                                    dBisTankDatum : TDateTime;
                                    lDruck        : Boolean;
                                    cZahlBed      : String;
                                    frm          : TForm);
 
procedure GenerateUmkehrRechausRech(oMyDB:TxDB;cOrgRechNr : String;cSchlussRechNr : String;lManuell:Boolean=False);
procedure UmkehrRechAbschlag(oMyDB:TxDB;cRechNr : String);
function  RabattSumme(oMyDB:TxDB; cSQL, cVergleichFeld, cVergleichWert :String; var nRabatt : Double):Boolean;
</syntaxhighlight>

Aktuelle Version vom 15. April 2019, 09:34 Uhr


TRechnung leitet sich von TVorgang ab. Die in TVorgang beschriebenen Methoden, Variabeln und Properties können hier ebenfalls verwendet werden.

Basis TRechnung

Variablen

        oMaterRechUID     : TStringList;                    //ma_rechuid setzen
        dErstDatum        : TDateTime;                      //
        lUmkehrRech       : Boolean;                        //Umkehrrechnungen
        lMerkLiefPos2Rech : Boolean;                        //Merken, dass LSPos auf Rech übernommen wurde
        nSicherheit       : Double;                         // Sicherheitsbetrag
        cEdiFact          : String;                         //
        cVorgang          : String;                         // Vorgang (Vxxxxxx)  Vertragsnummer
        cRechNr2          : String;                         //
        cUrNr             : String;                         // Umkehrrechnungsnummer
        cFestMWST         : String;                         //
        cAufUID           : String;

        nAbsNr            : Integer;
        cBuchJahr         : String;
        cBuchPeriode      : String;
        dFacDatum         : TDate;
        cMemofeldAnsi     : String;
        cMRN              : String;
        cNoBuchung        : String;
        cPara13           : String;
        cRepSort          : String;
        cSepaText         : String;
        cStdKto           : String;
        cTeilKennz        : String;

Methoden

        constructor  Create (oxDB:TxDB);   virtual;

        procedure FillPerson(cKdNr:String);
        function  NeuePosition(): TRechnungPos;
        procedure SammelRechLangtext(cPsNr : String);
        function  SaveRecord(cUID: String = ''; lAlleSpeichern:Boolean = false): Boolean; override;
        procedure SetBrutto(cAuftrag : String);
        procedure QueryToPos(oPos:TRechnungPos; qTmp:TxFQuery; cPosTable: string; lVerpack:Boolean);

        procedure Auft2Rech(cAufNr:String);
        procedure Auft2RechNeueRech(cAufNr:String);
        procedure AuftKopf2RechKopfOhnePos(cAufNr:String);
        function  AuftPos2RechPos(cUID:String):TRechnungPos;

        procedure Auft2RechLogistik(cAufNr:String);

        procedure RepAuft2Rech(cAufNr:String);
        procedure RepAuft2RechOhnePos(cAufNr:String);
        procedure RepAuftPos2RechPos(cUID:String);

        procedure Rech2RechNeg(cOrgRechNr:String);
        procedure RechKopf2RechKopfOhnePos(cOrgRechNr:String);
        procedure RechPos2RechPosNeg(cUID:String);

        procedure Lief2Rech(cLiefNr : String; cAuftraggeber:String; lNeuNum:Boolean=True);

        procedure Auft2SammelRech(cKdNr:String;cAufNr:String;cTB:string);
        function  CheckMWStAnz(cSQL, cVergleichFeld, cVergleichWert :String; nRabPr : Double):Boolean;
        function  LieferscheinAuftragPositionenVerbucht(cLiefNr : String):Boolean;
        function  AlleAuftragPositionenVerbucht():Boolean;
        function  LSAuftragPositionenVerbucht():Boolean;

Basis TRechnungPos

Variablen

        oRechnung : TRechnung;

Methoden

        constructor  Create (oxRechnung:TRechnung);   virtual;

Allgemeine Funktionen

function  GenerateAuftrag(oMyDB:TxDB; cLSNr : String): String;
procedure GenerateSammelRechausFreiLiefAlt(oMyDB:TxDB);
procedure GenerateRechausFreiLiefAlt(oMyDB:TxDB);

procedure GenerateSammelRechausFreiLief(oMyDB         : TxDB;
                                        cVon          : String;
                                        cBis          : String;
                                        nWert         : Double;
                                        nAufschlag    : Double;
                                        cAufArtNr     : String;
                                        cRechKreis    : String;
                                        dLiefDate     : TDateTime;
                                        lFreigabe     : Boolean;
                                        lDruck        : Boolean;
                                        lKostenstelle : Boolean;
                                        frm           : TForm);

procedure GenerateSammelRechausRepaAuft(oMyDB         : TxDB;
                                        cVon          : String;
                                        cBis          : String;
                                        nWert         : Double;
                                        cRechKreis    : String;
                                        dFertigDatum  : TDateTime;
                                        lDruck        : Boolean;
                                        frm           : TForm);

procedure GenerateRechausTankstelle(oMyDB         : TxDB;
                                    cVon          : String;
                                    cBis          : String;
                                    dVonTankDatum : TDateTime;
                                    dBisTankDatum : TDateTime;
                                    lDruck        : Boolean;
                                    cZahlBed      : String;
                                    frm           : TForm);

procedure GenerateUmkehrRechausRech(oMyDB:TxDB;cOrgRechNr : String;cSchlussRechNr : String;lManuell:Boolean=False);
procedure UmkehrRechAbschlag(oMyDB:TxDB;cRechNr : String);
function  RabattSumme(oMyDB:TxDB; cSQL, cVergleichFeld, cVergleichWert :String; var nRabatt : Double):Boolean;
Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge/Rechnung&oldid=55415“