OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Nimz (Diskussion | Beiträge) |
Nimz (Diskussion | Beiträge) |
||
Zeile 64: | Zeile 64: | ||
==Methoden== | ==Methoden== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
constructor Create (oxDB: TxDB) | constructor Create(const cUid: string; oxDB: TxDB); | ||
constructor | constructor Read(const cUid: string; oxDB: TxDB; cRepaNr: String; lPos: boolean=false); | ||
procedure FillPerson(cKdNr: String; lShop: Boolean=False); | procedure FillPerson(cKdNr: String; lShop: Boolean=False); | ||
procedure FillVersand(cVaNrueber:String); | procedure FillVersand(cVaNrueber:String); | ||
procedure FillKopie(Query: TxQuery;cTable:String=''); | procedure FillKopie(Query: TxQuery;cTable:String=''); | ||
function NeuePosition():TRepAuftragPos; | function NeuePosition(cUid: string):TRepAuftragPos; | ||
function AuftNeuNum():String; | function AuftNeuNum():String; | ||
Zeile 77: | Zeile 77: | ||
function SaveRecord(cUid: string = '';lAlleAnzeigen : Boolean = true): Boolean; override; | function SaveRecord(cUid: string = '';lAlleAnzeigen : Boolean = true): Boolean; override; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
==Properties== | ==Properties== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> |
Version vom 20. Juli 2023, 09:09 Uhr
TRepAuftrag leitet sich von TVorgang ab. Die in TVorgang beschriebenen Methoden, Variabeln und Properties können hier ebenfalls verwendet werden.
Basis TRepAuftrag
Variablen
cTechniker : string;
cFMPro : string;
cLagNr : String; // Lagernummer
dTermin : TDateTime; // Termin
cGeraet : String; // Gerät
cSeriennummer : String; // Seriennummer
cModell : String; // Geräte Modell
cLeihSerNr : String; // Leihgerät Serienummer
cLeihgeraet : String; // Leihgerät
cStandort : String; // Standort
cStandort2 : String; // Standort 2
cZaehler : String; // Zählerstand
cZubehoer : String; // Zubehör
cStoer1 : String; // Störung 1
cStoer2 : String; // Störung 2
cStoer3 : String; // Störung 3
cColstatus : string;
cZeit : string;
cAzeit : string;
cTel1 : string;
cTel2 : string;
cAnspr : string;
cAnspzah : string;
cAnrufer : string;
cAufnrku : string;
cRepaus : string;
cLagerver : string;
dVdat : TDateTime;
dRdat : TDateTime;
dFertdat : TDateTime;
dAusdat : TDateTime;
dAbdat : TDateTime;
cMrech : string;
cMbar : string;
cMgar : string;
cMkulanz : string;
cMabh : string;
cMnrep : string;
cMwart : string;
cManruf : string;
cMkv : string;
nMkvdm : double;
cMint : string;
cZBText : string;
cKText1 : string;
cKText2 : string;
cKText3 : string;
cKText4 : string;
cAbKto : string;
cTerminstr : string;
cGerBemerk : string;
cStdSteuer : string;
cArbanweisung : string;
cArbanweisungANSI : string;
cMaterMD5 : string;
cDMSnr : string;
cAbteilung : string;
Methoden
constructor Create(const cUid: string; oxDB: TxDB);
constructor Read(const cUid: string; oxDB: TxDB; cRepaNr: String; lPos: boolean=false);
procedure FillPerson(cKdNr: String; lShop: Boolean=False);
procedure FillVersand(cVaNrueber:String);
procedure FillKopie(Query: TxQuery;cTable:String='');
function NeuePosition(cUid: string):TRepAuftragPos;
function AuftNeuNum():String;
procedure Assign(var oSrc: TRepAuftrag); reintroduce;
function SaveRecord(cUid: string = '';lAlleAnzeigen : Boolean = true): Boolean; override;
Properties
property GeraeteNr : string read cGeraeteNr write SetGeraeteNr;
Basis TRepAuftragPos
Variablen
oRepAuftrag : TRepAuftrag;
Methoden
constructor Create (oxRepAuftrag:TRepAuftrag); virtual;
procedure FillKopie(Query: TxFQuery);
procedure GetAutoRepText();
Allgemeine Funktionen
procedure UebernahmeRepMaterial(cAuftNr: String; lDatum: Boolean = True);
procedure RepMateArtiGet(cKuNr:String;qArtiQuery:TxQuery;var qMaterData:TqSQL);
procedure MateSetREPAUStat(cAuft:String);
procedure AddBildPositionRepa(oMyDB: TxDB; cRaufNr: String; cBildPfad: String; cUID4: String);
procedure Repa_AddStdPosText(oMyDB: TxDB; const cRaufNr: String);
function Generate_StdReparaturAuftrag(oMyDB: TxDB; const cStdNr: String; const cGNr: string): String;