OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Produktionsauftrag
Zur Navigation springen
Zur Suche springen
Basis TProdAuftrag
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;
nPosCnt : Integer; // Anzahl der Positionen
cAufNr : String; // Auftragsnummer
cProjNr : String; // Projektnummer
cTyp : String; // Auftragstyp
//cStatus : String; // Auftrags-Status (0-22)
cStatM : String; // 1-stellig
cStatS : String; // 1-stellig
cStatL : String; // 2-stellig
cStatR : String; // 2-stellig
dAufDat : TDateTime; // Auftragsdatum
dFaelligDat : TDateTime; // Fälligkeitsdatum
dBuchDat : TDateTime; // Buchungsdatum
cKdNr : String; // Kundennummer
cAnrede : String; // Kunde Anrede
cName : String; // Kunde Nachname
cVorname : String; // Kunde Vorname
cZusatz1 : String; // Kunde Zusatz1
cZusatz2 : String; // Kunde Zusatz2
cStrasse : String; // Kunde Straße
cPostfach : String; // Kunde Postfach
cLK : String; // Kunde Land
cPLZ : String; // Kunde PLZ
cOrt : String; // Kunde Ort
cAngebNr : String; // Auftragsnummer
cLSNr : String; // Lieferscheinnummer
cRechNr : String; //
cAuftNr : String; // Auftragsnummer
cRepaNr : String; // Reparaturauftragsnummer
cEinkaufsNr : String; // Einkaufsnummer
cBestellNr : String; // Bestellnummer
cKopfNr : String; // Kopftext-Nummer (00-999)
cKopftext : String; // Freier Kopftext
cFusstext : String; // Freier Fusstext
cFussNr : String; // Fusstext-Nummer (00-999)
nNBetrag : Double; // Nettobetrag der Auftrag
nBBetrag : Double; // Bruttobetrag der Auftrag
nEKBetrag : Double; // Einkaufsbetrag der Auftrag
nRabattBetrag : Double; // Rabatt Betrag
nRabattProz : Double; // Rabatt Prozentual
nPorto : Double; // Portobetrag
nVerpackung : Double; // Verpackungskosten
cVersand : String; // Versand über (0-99)
cZahlBed : String; // Zahlungsbedingung (0-99)
cWaehr : String; // Währung (0-99)
cFormul : String; //
cVAnr : String; // Kostenstelle
cVKdNr : String; // Versand Kundennummer
cVName1 : String; // Versand Name
cVName2 : String; // Versand Name
cVZusatz : String; // Versand Zusatz
cVStrasse : String; // Versand Straße
cVLK : String; // Versand Land
cVPLZ : String; // Versand PLZ
cVOrt : String; // Versand Ort
cVUID : String; // Versand UID
cAuftNrKd : String; // Auftragsnummer des Kunden
cBesteller : String; //
cSachb : String; // Sachbearbeiter (0-99)
cRabPosJN : String; // J oder N
cMWSTJN : String; // J oder N
cSText1 : String; //
cSText2 : String; //
cSText3 : String; //
cSText4 : String; //
cSText5 : String; //
cSText6 : String; //
cSText7 : String; //
cPreisJN : String; // J oder N
nNet1 : Double; //
nNet2 : Double; //
nNet3 : Double; //
nMwSt1 : Double; //
nMwSt2 : Double; //
nMwSt3 : Double; //
cMwStSchl1 : String; //
cMwStSchl2 : String; //
cMwStSchl3 : String; //
cMwStAbs : String; //
dLiefDat : TDateTime; // Lieferdatum
cDeleted : String; //
dLDat2 : TDateTime; // Lieferdatum
cSprache : String; //
cReEmpf : String; // Kundennummer des Rg-Empfängers
cVertreter : String; // Vertreter (000-9999)
cVerbucht : String; //
cLager : String; //
cRgArt : String; //
cBonusJN : String; // J oder N
cWLiefNr : String; //
cRechFrei : String; //
cBonNr : String; //
cMandant : String; // Mandant (00-999)
nMwStDM : Double; //
nKursDM : Double; //
nAbschlag : Double; //
nZBetrag : Double; //
nZSkonto : Double; //
dZDatum : TDateTime; //
cMemo : String; // Memofeld
nValuta : Integer; // Valuta in Tagen (max. 4 Stellen)
cKostenst : String; // Kostenstelle
cKalkGr : String; //
cKalkRet : String; //
nOFBetrag : Double; //
cWKNr : String; //
cFrachtV : String; //
nFrachtK : Double; //
nFrachtG : Integer; //
cGruppe : String; //
cPosFormat : String; // Format der Positionsnummerierung
cFiliale : String; //
cRabText : String;
cSamRech : String;
cPara13 : String;
nAnzAbs : Integer;
cErfasser : String;
nSKFBetrag : Double;
nMBWert : Double;
nBPorto : Double;
nBVerpack : Double;
cOnline : String;
cLiefStrecke : String;
cFreigabe : String;
cMindbest : String;
cBetreff : String; //Betreff
oMyDB : TxDB;
Methoden
constructor Create (oxDB:TxDB); overload; virtual;
constructor Create (oxDB:TxDB;cAuftNr: String); overload; virtual;
Destructor Destroy (); override;
procedure FillKopie(Query: TxFQuery;cTable:String='');
function NeuePosition():TProdAuftragPos;
procedure SaveRecord();
function IsPosBerechnung(cPosArt:String):Boolean;
procedure KalkAll();
procedure Assign(var oSrc: TProdAuftrag); reintroduce;
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