OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Böhrer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „At the moment, marketing plays an natural part in making your products likeable among the target audience and in selling them. Among the various marketing tool…“) |
Nimz (Diskussion | Beiträge) |
||
(12 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
{{Makros und Scripting}} | |||
'''TRepAuftrag''' leitet sich von [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Basis_TVorgang|TVorgang]] ab. Die in [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Basis_TVorgang|TVorgang]] beschriebenen [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Methoden|Methoden]], [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Variablen|Variabeln]] und [[OBS/Makros_und_Scripting/Allgemeines/Klassen/Vorgänge#Properties|Properties]] können hier ebenfalls verwendet werden. | |||
=Basis TRepAuftrag= | |||
==Variablen== | |||
<syntaxhighlight lang="Delphi"> | |||
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; | |||
</syntaxhighlight> | |||
==Methoden== | |||
Übersicht: | |||
<syntaxhighlight lang="Delphi"> | |||
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; | |||
</syntaxhighlight> | |||
===Create=== | |||
Definition: | |||
<syntaxhighlight lang="Delphi"> | |||
constructor Create(const cUid: string; oxDB: TxDB); | |||
</syntaxhighlight> | |||
Erklärung:<br /> | |||
Erstellt eine neue Instanz der Klasse TRepAuftrag. Sollte verwendet werden, wenn ein komplett neuer Vorgang angelegt werden soll. Für die Änderung oder Kopie eines vorhandenen Vorgangs bitte [[#Read|'''Read''']] für die Erstellung der Instanz verwenden.<br /> | |||
Parameter:<br /> | |||
{| class="wikitable" style="max-width: 720px;" | |||
|- | |||
! Name!! Beschreibung | |||
|- valign="top" | |||
| cUid|| 10-stellige alphanummerische ID für den Aufruf. | |||
|- valign="top" | |||
| oxDB|| Datenbankverbindung, auf der gearbeitet wird. Für Makros und Scripte ist hier oDB anzugeben, wenn auf der aktuellen Datenbank (i.d.R. Live-System) der Vorgang angelegt/bearbeitet werden soll. | |||
|} | |||
<br /> | |||
Beispiel: | |||
<syntaxhighlight lang="Delphi"> | |||
oRepa := TRepAuftrag.Create('PMAC000001', oDB); | |||
</syntaxhighlight> | |||
===Read=== | |||
Definition: | |||
<syntaxhighlight lang="Delphi"> | |||
constructor Read(const cUid: string; oxDB: TxDB; cRepaNr: String; lPos: boolean=false); | |||
</syntaxhighlight> | |||
Erklärung:<br /> | |||
Erstellt eine neue Instanz der Klasse TRepAuftrag. Sollte verwendet werden, wenn ein vorhandener Vorgang geändert oder kopiert werden soll. Für die Anlage eines komplett neuen Vorgangs bitte [[#Create|'''Create''']] für die Erstellung der Instanz verwenden.<br /> | |||
Parameter:<br /> | |||
{| class="wikitable" style="max-width: 720px;" | |||
|- | |||
! Name!! Beschreibung | |||
|- valign="top" | |||
| cUid|| 10-stellige alphanummerische ID für den Aufruf. | |||
|- valign="top" | |||
| oxDB|| Datenbankverbindung, auf der gearbeitet wird. Für Makros und Scripte ist hier oDB anzugeben, wenn auf der aktuellen Datenbank (i.d.R. Live-System) der Vorgang angelegt/bearbeitet werden soll. | |||
|- valign="top" | |||
| cRepaNr|| Nummer des Reparaturauftrags, dessen Daten in die Datenstruktur eingelesen werden soll. | |||
|- valign="top" | |||
| lPos|| Bestimmt, ob auch Positionen mit eingelesen werden sollen. Standardmäßig werden die Positionen nicht eingelesen (False). Geben Sie hier ''True'' an, wenn die Positionen eingelesen werden sollen. | |||
|} | |||
<br /> | |||
Beispiel: | |||
<syntaxhighlight lang="Delphi"> | |||
oRepa := TRepAuftrag.Read('PMAC000001', oDB, 'R10000', True); | |||
</syntaxhighlight> | |||
==Properties== | |||
<syntaxhighlight lang="Delphi"> | |||
property GeraeteNr : string read cGeraeteNr write SetGeraeteNr; | |||
</syntaxhighlight> | |||
=Basis TRepAuftragPos= | |||
==Variablen== | |||
<syntaxhighlight lang="Delphi"> | |||
oRepAuftrag : TRepAuftrag; | |||
</syntaxhighlight> | |||
==Methoden== | |||
<syntaxhighlight lang="Delphi"> | |||
constructor Create (oxRepAuftrag:TRepAuftrag); virtual; | |||
procedure FillKopie(Query: TxFQuery); | |||
procedure GetAutoRepText(); | |||
</syntaxhighlight> | |||
=Allgemeine Funktionen= | |||
<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> |
Aktuelle Version vom 20. Juli 2023, 10:36 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
Übersicht:
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;
Create
Definition:
constructor Create(const cUid: string; oxDB: TxDB);
Erklärung:
Erstellt eine neue Instanz der Klasse TRepAuftrag. Sollte verwendet werden, wenn ein komplett neuer Vorgang angelegt werden soll. Für die Änderung oder Kopie eines vorhandenen Vorgangs bitte Read für die Erstellung der Instanz verwenden.
Parameter:
Name | Beschreibung |
---|---|
cUid | 10-stellige alphanummerische ID für den Aufruf. |
oxDB | Datenbankverbindung, auf der gearbeitet wird. Für Makros und Scripte ist hier oDB anzugeben, wenn auf der aktuellen Datenbank (i.d.R. Live-System) der Vorgang angelegt/bearbeitet werden soll. |
Beispiel:
oRepa := TRepAuftrag.Create('PMAC000001', oDB);
Read
Definition:
constructor Read(const cUid: string; oxDB: TxDB; cRepaNr: String; lPos: boolean=false);
Erklärung:
Erstellt eine neue Instanz der Klasse TRepAuftrag. Sollte verwendet werden, wenn ein vorhandener Vorgang geändert oder kopiert werden soll. Für die Anlage eines komplett neuen Vorgangs bitte Create für die Erstellung der Instanz verwenden.
Parameter:
Name | Beschreibung |
---|---|
cUid | 10-stellige alphanummerische ID für den Aufruf. |
oxDB | Datenbankverbindung, auf der gearbeitet wird. Für Makros und Scripte ist hier oDB anzugeben, wenn auf der aktuellen Datenbank (i.d.R. Live-System) der Vorgang angelegt/bearbeitet werden soll. |
cRepaNr | Nummer des Reparaturauftrags, dessen Daten in die Datenstruktur eingelesen werden soll. |
lPos | Bestimmt, ob auch Positionen mit eingelesen werden sollen. Standardmäßig werden die Positionen nicht eingelesen (False). Geben Sie hier True an, wenn die Positionen eingelesen werden sollen. |
Beispiel:
oRepa := TRepAuftrag.Read('PMAC000001', oDB, 'R10000', True);
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;