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 100: | Zeile 100: | ||
=Allgemeine Funktionen= | =Allgemeine Funktionen= | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
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; | |||
</syntaxhighlight> | </syntaxhighlight> |
Version vom 15. April 2019, 09:25 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 (oxDB: TxDB); overload; virtual;
constructor Create (oxDB: TxDB; cAuftNr: String; lPos: boolean=false); overload; virtual;
procedure FillPerson(cKdNr: String; lShop: Boolean=False);
procedure FillVersand(cVaNrueber:String);
procedure FillKopie(Query: TxQuery;cTable:String='');
function NeuePosition():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 Konstanten
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;