Die Ansicht der Ereignisse schalten Sie über das Menü „Ansicht | Ereignisse“ ein.
Bei Ansicht der Ereignisse werden in den verschiedenen Bereichen der Registerkarte die folgenden Informationen dargestellt:
|
1)
|
Zugriff auf die Felder der verwendeten Datenquellen
|
|
2)
|
Zugriff auf die einzelnen Berichts-Elemente mit möglichen Eigenschaften
|
|
3)
|
Pascal-Befehle
Bei Auswahl des Tools „Funktion“ über die Toolbox können Sie auf spezielle X/TIME- und X/TIME- SELECT-Befehle zugreifen, mit denen bestimmte Funktionen ausgelöst werden können (z.B. Umwand- lung eines Orpheus-Datums in ein normales Datum – s. „So wandeln Sie ein Orpheus-Datum in ein „echtes“ Datum um“ auf Seite 55). Die in dem Pascal-Befehl vorhandenen Variablen müssen an- schließend über „Daten“ oder „Elemente“ gefüllt werden.
|
|
Weitere Informationen finden Sie unter „X/TIME-Funktionen“ und „X/TIME-SELECT- Funktionen“ auf den folgenden Seiten.
|
|
X/TIME Funktionen
|
function XTAktUnixTime :Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert die aktuelle UNIXZeit zurück
Parameter / Eingabe:
Keine
Ausgabe:
UNIXZeit als Integer
Beispiel:
iUnix := XTAktUnixTime;
|
|
function XTDateToStr(aDate:Integer) :String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung von Orpheus zu Tag.Monat.Jahr
Parameter / Eingabe:
Datum als Integer
Ausgabe:
Datum im Format Tag.Monat.Jahr als String
Beispiel:
Lapel1.Caption := XTDateToStr(148200);
|
|
function XTDateToStrF(LDATE:Integer; fFormat:String) :String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung von Orpheus zum angegebenen Format
Parameter / Eingabe:
Datum als Integer, Datumsformat als String
Ausgabe:
Datum im angegebenen Format als String
Beispiel:
Label1.Caption := XTDateToStrF(148200, ShortDateFormat);
|
|
function XTDBGetText(aControl:TppDBText) :String;
|
|
Typ:
Interne Funktion
Beschreibung:
Ruft die im Quelltext eines gfos Programmes hinterlegte OnGetText Funktion auf
Parameter / Eingabe:
DBText Komponente des ReportBuilders
Ausgabe:
Ergebnis der Funktion als String
Beispiel:
Label1.Caption := XTDBGetText(DBText1);
|
|
function XTFloatToStrF(aValue:Double) :String;
|
|
Typ:
Umwandlung
Beschreibung:
Konvertiert eine Gleitkommazahl in einen String
Parameter / Eingabe:
Gleitkommazahl
Ausgabe:
Zahl als String
Beispiel:
Label1.Caption := XTFloatToStrF(1,999);
|
|
function XTGetFontColor(sColor:String) :Integer;
|
|
Typ:
Farbfunktion
Beschreibung:
Ermittelt eine auf der übergebenen Farbe gut lesbare Schriftfarbe
Parameter / Eingabe:
Farbe als String
Ausgabe:
Farbe als Integer
Beispiel:
Label1.Font.Color := XTGetFontColor(‚clRed‘);
|
|
function XTGetTimeSecFeldMES(lTime:Integer; bPointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Wandelt die Zeitangabe (Zeitpunkt oder Zeitspanne) in einen String um, entsprechend des BDEVorgabezeitFormats
Parameter / Eingabe:
Zeit als Integer, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String
Beispiel:
Label1.Caption := XTGetTimeSecFeldMES(48000, True);
|
|
function XTGetUnixSecFeldMES(lTime:Integer) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Wandelt die Unixzeitangabe in einen String um, entsprechend des BDEVorgabezeitFormats
Parameter / Eingabe:
Zeit als Integer
Ausgabe:
Zeit als String
Beispiel:
Label1.Caption := XTGetUnixSecFeldMES(1480000000);
|
|
function XTGetVorgabeBDE(lTime:Integer; bPointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Wandelt die Zeitangabe (Zeitpunkt oder Zeitspanne) in einen String um, entsprechend des BDEVorgabezeitFormats
Parameter / Eingabe:
Zeit als Integer, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String
Beispiel:
Label1.Caption := XTGetVorgabeBDE(48000, True);
|
|
function XTGetVorgabeSekunden(lTime:Integer) :Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Wandelt die Zeitangabe in Sekunden um, entsprechend des BDEVorgabezeitFormats
Parameter / Eingabe:
Zeit als Integer
Ausgabe:
Zeit in Sekunden als Integer
Beispiel:
iZeit := XTGetVorgabeSekunden(‚48000‘);
|
|
procedure XTLogStr(astr:String);
|
|
Typ:
Logfunktion
Beschreibung:
Fügt eine Zeile in das Log des aktuellen Programms ein (LogLevel 0)
Parameter / Eingabe:
Logeintrag als String
Ausgabe:
Keine
Beispiel:
XTLogStr(Label1.Caption);
|
|
function XTStrToColor(sColor:String) :Integer;
|
|
Typ:
Farbfunktion
Beschreibung:
Wandelt eine Farbangabe von String zu Integer
Parameter / Eingabe:
Farbe als String
Ausgabe:
Farbe als Integer
Beispiel:
Label1.Color := XTStrToColor(‚clRed‘);
|
|
function XTTimeToStr(aTime:Double; bPointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Konvertiert die Zeitdarstellung von Orpheuszeit zu Normalzeit
Parameter / Eingabe:
Zeit als Double, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String
Beispiel:
Label1.Caption := XTTimeToStr(15,45, True);
|
|
function XTUnixToStrF(LUNIXTIME:Integer; fFormat:String) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Konvertiert die Zeitdarstellung von UNIXZeit zum angegebenen Format
Parameter / Eingabe:
Zeit als Integer, Zeitformat als String
Ausgabe:
Zeit im angegebenen Format als String
Beispiel:
Label1.Caption := XTUnixToStrF(1480000000, ShortTimeFormat);
|
X/TIME-SELECT Funktionen
|
function XTAddGroup(sParam: String; sPrgName: String): Boolean;
|
|
Typ:
Parametrierung
Beschreibung:
Macht eine Gruppe von Parametern (GST80) dem Programm bekannt.
Parameter / Eingabe:
Parameter und Programmname als String
Ausgabe:
Boolean
Beispiel:
XTAddGroup(‚AAU21‘, ‚AAU21‘);
|
|
function XTAddParam(sParam: String; sPrgName: String; ILfdNr: Integer) : Boolean;
|
|
Typ:
Parametrierung
Beschreibung:
Macht eine Gruppe von Parametern (GST80) dem Programm bekannt.
Parameter / Eingabe:
Parameter und Programmname als String, Nummer als Integer
Ausgabe:
Boolean
Beispiel:
XTAddGroup(‚VORGZEIT‘,‘XTIME‘, 0);
|
|
function XTConvertDatetoOrpheusDate(sDate : String) :String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung von Tag.Monat.Jahr zu Orpheus
Parameter / Eingabe:
Datum als String (17.10.2005)
Ausgabe:
Datum als String
Beispiel:
Label1.Caption := XTConvertDatetoOrpheusDate(‚17.10.2005‘);
|
|
function XTConvertDDMMYYYYtoYYYYMMDD(sDate:String; bDay:Boolean): String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung von Tag Monat Jahr zu Jahr Monat Tag
Parameter / Eingabe:
Datum als String (20051017), True oder False ob Tag bei der Ausgabe enthalten sein soll
Ausgabe:
Datum als String (20051017 oder 200510)
Beispiel:
Label1.Caption := XTConvertDDMMYYYYtoYYYYMMDD(‚17102005‘, true);
|
|
function XTConvertIndustrialTimetoOrpheusTime(sTime:String;
PointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Konvertiert die Zeitdarstellung von Industriezeit in Orpheuszeit
Parameter / Eingabe:
Zeit als String, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String
Beispiel:
Label1.Caption := XTConvertIndustrialTimetoOrpheusTime(‚15:75‘, True);
|
|
function XTConvertMMYYYYtoYYYYMM(sDate:String): String
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung mit Monat Jahr zu Jahr Monat
Parameter / Eingabe:
Datum im Format Monat Jahr als String (102005)
Ausgabe:
Datum im Format Jahr Monat als String (200510)
Beispiel:
Label1.Caption := XTConvertMMYYYYtoYYYYMM(‚102005‘);
|
|
function XTConvertNormalTimetoOrpheusTime(sTime:String; PointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Konvertiert die Zeitdarstellung von Normalzeit zu Orpheuszeit
Parameter / Eingabe:
Zeit als String, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String
Beispiel:
Label1.Caption := XTConvertNormalTimetoOrpheusTime(‚12:00‘, True);
|
|
function XTConvertOrpheusDatetoDate(sDate:String) :String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung von Orpheus zu Tag.Monat.Jahr
Parameter / Eingabe:
Datum als String
Ausgabe:
Datum im Format Tag.Monat.Jahr als String
Beispiel:
Lapel1.Caption := XTConvertOrpheusDatetoDate(‚148200‘);
|
|
function XTConvertOrpheusTimetoIndustrialTime(sTime:String; PointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Konvertiert die Zeitdarstellung unabhängig von der gfos Parametrierung von Orpheus in Industriezeit
Parameter / Eingabe:
Zeit als String, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String (15:75 oder 5.75), unabhängig von gfos Parametrierung immer als Industriezeit
Beispiel:
Label1.Caption := XTConvertOrpheusTimetoIndustrialTime(‚48000‘, True);
|
|
function XTConvertOrpheusTimetoNormalTime(sTime:String; PointInTime:Boolean) :String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Konvertiert die Zeitdarstellung unabhängig von der gfos Parametrierung von Orpheus in Normalzeit
Parameter / Eingabe:
Zeit als String, True oder False ob Zeit ein Zeitpunkt oder eine Zeitspanne ist
Ausgabe:
Zeit als String (15:45 oder 5.75), unabhängig von gfos Parametrierung immer als Normalzeit
Beispiel:
Label1.Caption := XTConvertOrpheusTimetoNormalTime(‚48000‘, True);
|
|
function XTConvertYYYYMMDDtoDDMMYYYY(sDate:String; bDay:Boolean): String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung von Jahr Monat Tag zu Tag Monat Jahr
Parameter / Eingabe:
Datum als String (20051017), True oder False ob Tag bei der Ausgabe enthalten sein soll
Ausgabe:
Datum als String (17102005 oder 102005)
Beispiel:
Label1.Caption := XTConvertYYYYMMDDtoDDMMYYYY(‚20051017‘, true);
|
|
function XTConvertYYYYMMtoMMYYYY(sDate:String): String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Konvertiert die Datumsdarstellung mit Jahr Monat zu Monat Jahr
Parameter / Eingabe:
Datum im Format Jahr Monat als String (200510)
Ausgabe:
Datum im Format Monat Jahr als String (102005)
Beispiel:
Label1.Caption := XTConvertMMYYYYtoYYYYMM(‚200510‘);
|
|
function XTGetCurrentDate: Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert das aktuelle Orpheus Datum zurück
Parameter / Eingabe:
Keine
Ausgabe:
Orpheus Datum als Integer
Beispiel:
Label1.Caption := IntToStr(XTGetCurrentDate);
|
|
function XTGetFirstDayOfMonth(sDate:Integer): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert den ersten Tag des übergebenen Monats als Orpheus Datum zurück
Parameter / Eingabe:
Orpheusdatum als Integer
Ausgabe:
Orpheus Datum als Integer
Beispiel:
Label1.Caption := IntToStr(XTGetFirstDayOfMonth(XTGetCurrentDate));
|
|
function XTGetLastDayOfMonth(sDate:Integer): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert den letzten Tag des übergebenen Monats als Orpheus Datum zurück
Parameter / Eingabe:
Orpheusdatum als Integer
Ausgabe:
Orpheus Datum als Integer
Beispiel:
Label1.Caption := IntToStr(XTGetLastDayOfMonth(XTGetCurrentDate));
|
|
function XTGetLeaveAccount(sMand,sWerk,sPers : String; iUrlKonto, lDatum :Integer) :string
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert Urlaubskontenstand einer Person zu angegebenem Datum
Parameter / Eingabe:
Mandant, OrgEinheit und Person als String, Urlaubskonto als Integer, Datum im Orpheusformat als Integer
Ausgabe:
Urlaubskontenstand als String
Beispiel:
Label1.Caption := XTGetLeaveAccount(‚1‘,‘1‘,‘007‘, 1, 148210);
|
|
function XTGetMonth(stDate:Integer): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert den Monat des übergebenen Orpheus Datum zurück
Parameter / Eingabe:
Orpheusdatum als Integer
Ausgabe:
Monat als Integer
Beispiel:
Label1.Caption := IntToStr(XTGetMonth(XTGetCurrentDate));
|
|
function XTGetSaldoGLEITforDay(sMand, sWerk, sPers, sDate:String; fSaldo:Double) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert den Gleitzeitsaldo einer Person zu einem bestimmten Tag
Parameter / Eingabe:
Mandant, OrgEinheit, Person und Datum (Orpheusformat) als String, Gleitzeitkonto als Double
Ausgabe:
Gleitzeitkontenstand als String
Beispiel:
Label1.Caption := XTGetSaldoGLEITforDay(‚1‘, ‚1‘, ‚007‘, ‚148210‘, fSaldo);
|
|
function XTGetSaldoGLEITforMonth(sMand, sWerk, sPers, sDate:String; fSaldo:Double) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert den Gleitzeitsaldo einer Person zu einem bestimmten Monat
Parameter / Eingabe:
Mandant, OrgEinheit, Person und Datum (Orpheusformat) als String, Gleitzeitkonto als Double
Ausgabe:
Gleitzeitkontenstand als String
Beispiel:
Label1.Caption := XTGetSaldoGLEITforMonth(‚1‘, ‚1‘, ‚007‘, ‚148210‘, fSaldo);
|
|
function XTGetSaldoGLEITforYear(sMand, sWerk, sPers, sDate:String; fSaldo:Double) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert den Gleitzeitsaldo einer Person zu einem bestimmten Jahr
Parameter / Eingabe:
Mandant, OrgEinheit, Person und Datum (Orpheusformat) als String, Gleitzeitkonto als Double
Ausgabe:
Gleitzeitkontenstand als String
Beispiel:
Label1.Caption := XTGetSaldoGLEITforYear(‚1‘, ‚1‘, ‚007‘, ‚148210‘, fSaldo);
|
|
function XTGetSaldoGLEITfromDatetoDate(sMand, sWerk, sPers, sDateFrom, SDateTo:String; fSaldo:Double) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert den Gleitzeitsaldo einer Person in einer bestimmten Zeitspanne
Parameter / Eingabe:
Mandant, OrgEinheit, Person,DatumVon und DatumBis (Orpheusformat) als String, Gleitzeitkonto als Double
Ausgabe:
Gleitzeitkontenstand als String
Beispiel:
Label1.Caption := XTGetSaldoGLEITfromDateToDate(‚1‘, ‚1‘, ‚007‘, ‚148200‘, ‚148210‘, fSal- do);
|
|
function XTGetSOLLforDatetoDate(sMand, sWerk, sPers, sDate, sDate2:String) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert die Sollzeit einer Person in einer bestimmten Zeitspanne
Parameter / Eingabe:
Mandant, OrgEinheit, Person,DatumVon und DatumBis (Orpheusformat) als String
Ausgabe:
Sollzeit als String
Beispiel:
Label1.Caption := XTGetSOLLforDatetoDate(‚1‘, ‚1‘, ‚007‘, ‚148200‘, ‚148210‘);
|
|
function XTGetSOLLforMonth(sMand, sWerk, sPers, sDate:String) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert die Sollzeit einer Person zu einem bestimmten Monat
Parameter / Eingabe:
Mandant, OrgEinheit, Person und Datum (Orpheusformat) als String
Ausgabe:
Sollzeit als String
Beispiel:
Label1.Caption := XTGetSOLLforMonth(‚1‘, ‚1‘, ‚007‘, ‚148210‘);
|
|
function XTGetSOLLforYear(sMand, sWerk, sPers, sDate:String) :String;
|
|
Typ:
Kontenberechnung
Beschreibung:
Liefert die Sollzeit einer Person zu einem bestimmten Jahr
Parameter / Eingabe:
Mandant, OrgEinheit, Person und Datum (Orpheusformat) als String
Ausgabe:
Sollzeit als String
Beispiel:
Label1.Caption := XTGetSOLLforYear(‚1‘, ‚1‘, ‚007‘, ‚148210‘);
|
|
function XTGetWeekOfYear(stDate:Integer): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert die Kalenderwoche des übergebenen Orpheus Datum zurück
Parameter / Eingabe:
Orpheusdatum als Integer
Ausgabe:
Kalenderwoche als Integer
Beispiel:
Label1.Caption := IntToStr(XTGetWeekOfYear(XTGetCurrentDate));
|
|
function XTGetYear(stDate:Integer): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Liefert das Jahr des übergebenen Orpheus Datum zurück
Parameter / Eingabe:
Orpheusdatum als Integer
Ausgabe:
Jahr als Integer
Beispiel:
Label1.Caption := IntToStr(XTGetYear(XTGetCurrentDate));
|
|
function XTMandWerkParamAsBoolean(sMand, sWerk, sParam: String; sPrgName:String): Boolean;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Boolean/Checkbox
Parameter / Eingabe:
Mandant, OrgEinheit, Parameter und Programmname als String
Ausgabe:
Wert des Parameters als Boolean
Beispiel:
if XTMandWerkParamAsBoolean(‚GFOS‘,‘GFOS‘,‘VISCOLSPERS‘,‘XTIME‘) then
Text := ‚True‘
else
Text := ‚False‘;
|
|
function XTMandWerkParamAsFloat(sMand, sWerk, sParam: String; sPrgName:String): Double;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Double
Parameter / Eingabe:
Mandant, OrgEinheit, Parameter und Programmname als String
Ausgabe:
Wert des Parameters als Float/Double
Beispiel:
Label1.Caption := FloatToStr(XTMandWerkParamAs Float(‚GFOS‘,‘GFOS‘,‘ShortANS‘,‘ANS‘));
|
|
function XTMandWerkParamAsInteger(sMand, sWerk, sParam: String; sPrgName:String): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Integer/Short/Datum
Parameter / Eingabe:
Mandant, OrgEinheit, Parameter und Programmname als String
Ausgabe:
Wert des Parameters als Integer
Beispiel:
Label1.Caption := IntToStr(XTMandWerkParamAs Integer(‚GFOS‘,‘GFOS‘,‘TIMEOUT‘,‘GAU04‘));
|
|
function XTMandWerkParamAsString(sMand, sWerk, sParam: String; sPrgName:String): String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ String
Parameter / Eingabe:
Mandant, OrgEinheit, Parameter und Programmname als String
Ausgabe:
Wert des Parameters als String
Beispiel:
Label1.Caption := XTMandWerkParamAsString(‚GFOS‘,‘GFOS‘,‚BILDER‘,‘GST29‘);
|
|
function XTParamAsBoolean(sParam: String; sPrgName: String): Boolean;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Boolean/Checkbox
Parameter / Eingabe:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Boolean/Checkbox
Ausgabe:
Wert des Parameters als Boolean
Beispiel:
if XTParamAsBoolean(‚VISCOLSPERS‘,‘XTIME‘) then
Text := ‚True‘
else
Text := ‚False‘;
|
|
function XTParamAsFloat(sParam: String; sPrgName: String): Double;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Double
Parameter / Eingabe:
Parameter und Programmname als String
Ausgabe:
Wert des Parameters als Float/Double
Beispiel:
Label1.Caption := FloatToStr(XTParamAsFloat(‚ShortANS‘,‘ANS‘));
|
|
function XTParamAsInteger(sParam: String; sPrgName: String): Integer;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ Integer/Short/Datum
Parameter / Eingabe:
Parameter und Programmname als String
Ausgabe:
Wert des Parameters als Integer
Beispiel:
Label1.Caption := IntToStr(XTParamAsInteger(‚TIMEOUT‘,‘GAU04‘));
|
|
function XTParamAsString(sParam: String; sPrgName: String): String;
|
|
Typ:
Zeitfunktion
Beschreibung:
Ermittelt den Wert eines bekannt gemachten Parameters vom Typ String
Parameter / Eingabe:
Parameter und Programmname als String
Ausgabe:
Wert des Parameters als String
Beispiel:
Label1.Caption := XTParamAsString(‚BILDER‘,‘GST29‘);
|
|
function XTPReadKontoStd(sMand, sWerk, sPers: String; IDatum: Integer; sKonto:String): Integer;
|
|
Typ:
Kontoberechnung
Beschreibung:
Liefert den Kontowert einer Person zum Stichtag in Stunden zurück.
Parameter / Eingabe:
Mandant, OrgEinheit, Personalnummer als String, Orpheusdatum als Integer und das Konto als String
Ausgabe:
Stunden in Orpheuszeit als Integer
Beispiel:
Label1.Caption := XTTimeToStr(XTPReadKonto Std(‚GFOS‘, ‚GFOS‘, ‚GFOS‘, 149354, ‚SOLL‘), false);
|
|
function XTPReadKontoTage(sMand, sWerk, sPers: String; IDatum: Integer; sKonto:String): Double;
|
|
Typ:
Kontoberechnung
Beschreibung:
Liefert den Kontowert einer Person zum Stichtag in Tagen zurück.
Parameter / Eingabe:
Mandant, OrgEinheit, Personalnummer als String, Orpheusdatum als Integer und das Konto als String
Ausgabe:
Tage als Double
Beispiel:
Label1.Caption := FloatToStr(XTPReadKontoTage(‚GFOS‘, ‚GFOS‘,‚GFOS‘, 149354, ‚KTOU1‘));
|
|
function XTReadText(aPrgName : String; iTextNr, iTextKz : Integer): String;
|
|
Typ:
Parametrierung
Beschreibung:
Liest einen Text aus dem Programm „Texte“
Parameter / Eingabe:
Prgname als String, Textnr. als Integer, Textkz. als Integer
Ausgabe:
Text der unter den angegebenen Argumenten gespeichert ist als String
Beispiel:
Label1.Caption := XTReadText(‚WEB‘, 10, 5);
|
|
function XTSeparateDateDDMMYYYY(sDate, sDay, sMonth, sYear:String) :String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Funktion zerlegt ein Datum in einzelne Argumente (Tag, Monat, Jahr)
Parameter / Eingabe:
Datum (17102005) als String, 3 leere String Variablen
Ausgabe:
Tag, Monat, Jahr getrennt in jeweils einer der übergebenen String Variablen
Beispiel:
XTSeparateDateDDMMYYYY(‚17102005‘, sDay, sMonth, sYear); Label1.Caption := sYear;
|
|
function XTSeparateDateYYYYMMDD(sDate, sDay, sMonth, sYear:String) :String;
|
|
Typ:
Datumsfunktion
Beschreibung:
Funktion zerlegt ein Datum in einzelne Argumente (Tag, Monat, Jahr)
Parameter / Eingabe:
Datum (17102005) als String, 3 leere String Variablen
Ausgabe:
Tag, Monat, Jahr getrennt in jeweils einer der übergebenen String Variablen
Beispiel:
XTSeparateDateDDMMYYYY(‚17102005‘, sDay, sMonth, sYear); Label1.Caption := sYear;
|
|
function XTSepWithComma(aString, bString : String): string;
|
|
Typ:
Stringfunktion
Beschreibung:
Funktion trennt 2 “Wörter” mit Komma
Parameter / Eingabe:
Wort1 als string, Wort2 als String
Ausgabe:
1 String bestehend aus den zwei Eingaben getrennt durch Komma
Beispiel:
Label1.Caption := XTSepWithComma(‚Name‘, ‚Vorname‘);
|