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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
 
(6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 63: Zeile 63:
</syntaxhighlight>
</syntaxhighlight>
==Methoden==
==Methoden==
Übersicht:
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
         constructor  Create (oxDB: TxDB); overload; virtual;
         constructor  Create(const cUid: string; oxDB: TxDB);
         constructor  Create (oxDB: TxDB; cAuftNr: String; lPos: boolean=false); overload; virtual;
         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 78:
         function  SaveRecord(cUid: string = '';lAlleAnzeigen : Boolean = true): Boolean; override;
         function  SaveRecord(cUid: string = '';lAlleAnzeigen : Boolean = true): Boolean; override;
</syntaxhighlight>
</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">
<syntaxhighlight lang="Delphi">
Zeile 89: Zeile 138:
==Methoden==
==Methoden==
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
        constructor  Create (oxRepAuftrag:TRepAuftrag);  virtual;
constructor  Create (oxRepAuftrag:TRepAuftrag);  virtual;


        procedure FillKopie(Query: TxFQuery);
procedure FillKopie(Query: TxFQuery);
        procedure GetAutoRepText();
procedure GetAutoRepText();
</syntaxhighlight>
</syntaxhighlight>


=Allgemeine Konstanten=
<syntaxhighlight lang="Delphi">
</syntaxhighlight>
=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>

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;