Quelltext der Seite OBS/Makros und Scripting/Allgemeines/Klassen/Vorgänge/Reparaturauftrag

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