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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
 
(6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
{{Makros und Scripting}}
{{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=
=Basis TRechnung=
==Variablen==
==Variablen==
<syntaxhighlight lang="Delphi">
<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>
</syntaxhighlight>
==Methoden==
==Methoden==
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
        constructor  Create (oxDB:TxDB);  virtual;
==Properties==
 
<syntaxhighlight lang="Delphi">
        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>
</syntaxhighlight>


Zeile 14: Zeile 68:
==Variablen==
==Variablen==
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
        oRechnung : TRechnung;
</syntaxhighlight>
</syntaxhighlight>
==Methoden==
==Methoden==
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
        constructor  Create (oxRechnung:TRechnung);  virtual;
</syntaxhighlight>
</syntaxhighlight>
==Properties==
 
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
=Allgemeine Konstanten=
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
=Allgemeine Funktionen=
=Allgemeine Funktionen=
<syntaxhighlight lang="Delphi">
<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>
</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;