OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Nimz (Diskussion | Beiträge) (→Read) |
Nimz (Diskussion | Beiträge) |
||
| (Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt) | |||
| Zeile 89: | Zeile 89: | ||
|- | |- | ||
! Name!! Beschreibung | ! Name!! Beschreibung | ||
|- | |- valign="top" | ||
| cUid|| 10-stellige alphanummerische ID für den Aufruf. | | 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. | | 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. | ||
|} | |} | ||
| Zeile 99: | Zeile 99: | ||
oRepa := TRepAuftrag.Create('PMAC000001', oDB); | oRepa := TRepAuftrag.Create('PMAC000001', oDB); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
===Read=== | ===Read=== | ||
Definition: | Definition: | ||
| Zeile 137: | Zeile 138: | ||
==Methoden== | ==Methoden== | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
constructor Create (oxRepAuftrag:TRepAuftrag); virtual; | |||
procedure FillKopie(Query: TxFQuery); | |||
procedure GetAutoRepText(); | |||
</syntaxhighlight> | </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;