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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen


Basis TProdAuftrag

Variablen

Methoden

Properties

Basis TProdAuftragPos

Variablen

        aPositionen   : Array [1..POS_MAX_Positions] of TProdAuftragPos; // Auftragspositionen
        cProdAufNr           : String;
        dProdAufDat          : TDateTime;
        cStatus              : String;
        cProduzent           : String;     // Auftrags-Status (0-22)
        cSachbearbeiter      : String;
        cProjekt             : String;

        cNr           : String;    //Auftragsnummer
        cKundNr       : String;    //Kundennummer
        cAuftragsNr   : String;    //Auftragsnummer
        cBestellNr    : String;    //Bestellnummer
        cLieferNr     : String;    //Versandnummer
        cVersandNr    : String;    //Versandnummer
        cPosNr        : String;    //Positionsnummer
        cPosKas       : String;    //Positionsnummer
        cPosLaufend   : String;    //laufende Positionsnummer
        cTyp          : String;    //Typ
        cArtikelNr    : String;    //Artikel-Nummer
        cLeistungsNr  : String;    //Leistungs-Nummer
        cBezeichnung1 : String;    //Bezeichnung 1
        cBezeichnung2 : String;    //Bezeichnung 2
        nMenge        : Double;    //Menge
        cEinheit      : String;    //Einheit
        cMengeIn      : String;    //MengeIn
        nMengeG       : Integer;   //MengeG
        nKolli        : Integer;   //Kolli
        cVerpackung   : String;    //Verpackung
        nInhalt       : Double;    //Inhalt
        nEPreis       : Double;    //EPreis
        nOBPreis      : Double;    //EPreis
        nUrPreis      : Double;    //UrPreis
        nGPreis       : Double;    //GPreis
        nEKPreis      : Double;    //EKPreis
        nEKSPreis     : Double;    //EKPreis
        cManPreis     : String;    //Manueller Preis Varianten
        nRabatt       : Double;    //Rabatt
        cMWSTSch      : String;    //Mehrwertsteuer-Schlüßel
        cKonto        : String;    //Konto
        cVerkaufer    : String;    //Sachbearbeiter
        //cStatus       : String;    //Positionskennzeichen
        cAngebotsNr   : String;    //AuftragsNr
        cUID          : String;    //UID
        cSpNr         : String;    //SpNr
        cBestellUID   : String;    //BestellUID
        cMaterialUID  : String;    //MaterialUID
        cEiliUID      : String;    //EiliUID
        cXUID1        : String;    //XUID1
        cXUID2        : String;    //XUID2
        cXUID3        : String;    //XUID3
        cXUID4        : String;    //XUID4
        cMemofeld     : String;    //Memofeld
        nProvision    : Double;    //Provision
        cLiefKz       : String;    //LiefKz
        cProdGr       : String;    //ProdGr
        nFrachtV      : Double;    //FrachtV
        cLSNr         : String;    //Lieferschein-Nummer
        dLSDatum      : TDateTime; //Lieferschein-Datum
        cPosArt       : String;    //Positionsart
        cEKHerkunft   : String;
        cLiefNr       : String;
        cLagStreck    : String;
        cAufschlag    : String;
        nStaffelPreis : integer;
        nStaffelmenge : Double;
        lAktionspreis : Boolean;

        oProdAuftrag      : TProdAuftrag;

Methoden

        constructor  Create (oxProdAuftrag:TProdAuftrag);   virtual;

        procedure PositionsVorbelegung();
        procedure FillArtikel(cArtNr:String);
        procedure FillKopie(Query: TxFQuery);

Allgemeine Funktionen

procedure UebernahmeMaterial(cAuftNr: String; lDatum: Boolean = True);
procedure UebernahmeMaterialDB(oMyDB:TxDB;cAuftNr: String; lDatum: Boolean = True);

procedure MateSave(cMaterUnr:String;lNew:Boolean;lRead:Boolean=False);
procedure MateSaveDB(oMyDB:TxDB;cMaterUnr:String;lNew:Boolean;lRead:Boolean=False);

procedure MateArtiGet(cKnr:String;qArtiQuery:TxFQuery;var qMaterData:TqSQL);
procedure MateArtiGetDB(oMyDB:TxDB;cKuNr:String;qArtiQuery:TxFQuery;var qMaterData:TqSQL);

function  MakeNewAuftPos(cAuftNr : String) : String;                //Erstellen der neuen Auftragspositionen
function  MakeNewAuftPosDB(oMyDB:TxDB;cAuftNr : String) : String;

function  MakeNewRaufPos(cRaufNr : String) : String;               //Erstellen der neuen Rechnungspositionen
function  MakeNewRaufPosDB(oMyDB:TxDB;cRaufNr : String) : String;

procedure AutragAusFiliale(oFiliDB:TxDB;cBestNr:String;cKuNr:String);
function  Auftrag_MaterMD5(oDB:TxDB;Const cAuftNr:String;nMode:TVB_MaterMode;var cUIDs:String;var cAuftNrs:String):Boolean;

function  Auftrag_Rohertrag(oMyDB:TxDB; cAuftNr:String;nNettoBetrag:Double):String;
function  CreateNewProdAuftrNr(oMyDB:TxDB): String;      //Erzeugt eine neue Produktionsauftragsnummer
function  CreateProdAuftMater(oMyDB:TxDB; cAuftNr:String): String;

zu Auftrag_MaterMD5 siehe TVB_MaterMode