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

Wiki » Makros und Scripting

Makros und Scripting

Allgemeines

• Syntax
• Übersicht Funktionen
• Übersicht Prozeduren
• Übersicht Konstanten
• Übersicht Globale Variablen

Klassen

Vorgangsgenerierung

• Angebot
• Auftrag
• Reparaturauftrag
• Produktionsauftrag
• Lieferschein
• Rechnung
• Bestellung
• Einkaufslieferschein
• Einkauf

Import-Dateien

• TxImportFile
• TxImportFileCSV

PDF-Verarbeitung

• TOBS_PDF

• Script Bibliothek

Anwendungsbereiche

• Drucke
• Interaktive PDF
• Sonstige Makrodateien

Customizing

• Übersicht
• Rechte Verwaltung
• Listen
• Edits
• Select-Listen
• Übrige Fenster (xForm)

• Preislisten
• Bildverwaltung
• Artikelpflege
• Office Unterstützung
• Positionserfassung
• Data In/Out
• Wiederkehrende Aufgaben
• OFML-Kalkulation
• Zugriff auf externe Datenquellen (ODBC)
• Allgemeine Konvertierungen
• Vorgangsbaum
• Benutzerfelder
• Listen Stable
• ZUGFERD
• OpenTRANS

Beispiele

• Beispiele Sammlung

Benutzerdefinierte Datenbanktabellen

Developer

• User-Datenbank
• User-Listen
• User-Edits
• User-Widgets

Beispiele

• Positionen
• Vorgangs-Mail Betreff

Sonstiges

• DMS Abkürzungen

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;