OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
 
(10 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
{{Makros und Scripting}}
{{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=
=Basis TRepAuftrag=
==Variablen==
==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==
==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==
==Properties==
<syntaxhighlight lang="Delphi">
        property GeraeteNr : string read cGeraeteNr write SetGeraeteNr;
</syntaxhighlight>


=Basis TRepAuftragPos=
=Basis TRepAuftragPos=
==Variablen==
==Variablen==
<syntaxhighlight lang="Delphi">
        oRepAuftrag  : TRepAuftrag;
</syntaxhighlight>
==Methoden==
==Methoden==
==Properties==
<syntaxhighlight lang="Delphi">
=Allgemeine Konstanten=
constructor  Create (oxRepAuftrag:TRepAuftrag);  virtual;
 
procedure FillKopie(Query: TxFQuery);
procedure GetAutoRepText();
</syntaxhighlight>
 
=Allgemeine Funktionen=
=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;