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

Aus OBS Wiki
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;