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

Aus OBS Wiki
Version vom 15. April 2019, 09:34 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


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;