OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Produktionsauftrag: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Nimz (Diskussion | Beiträge) |
Nimz (Diskussion | Beiträge) |
||
Zeile 14: | Zeile 14: | ||
==Variablen== | ==Variablen== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
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; | |||
</syntaxhighlight> | </syntaxhighlight> | ||
==Methoden== | ==Methoden== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
constructor Create (oxProdAuftrag:TProdAuftrag); virtual; | |||
procedure PositionsVorbelegung(); | |||
procedure FillArtikel(cArtNr:String); | |||
procedure FillKopie(Query: TxFQuery); | |||
</syntaxhighlight> | </syntaxhighlight> | ||
=Allgemeine Funktionen= | =Allgemeine Funktionen= | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> |
Version vom 15. April 2019, 10:31 Uhr
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