OBJECT Modification "CB Verwaltung"(Codeunit 5146000)
{
OBJECT-PROPERTIES
{
Date=23.01.17;
Time=10:53:41;
Modified=Yes;
Version List=CURA5.00;
}
PROPERTIES
{
Target="CB Verwaltung"(Codeunit 5146000);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
//+ Start der Anwendung: Start des Mitarbeiterfensters
IF ISSERVICETIER THEN
EXIT;
#4..22
lrecSysMeld.SETCURRENTKEY(erledigt);
lrecSysMeld.SETRANGE(erledigt, FALSE);
IF lrecSysMeld.FINDFIRST THEN
PAGE.RUN(PAGE::"AZ Systemmeldungen");
END;
IF lrecZeitb."Personen-Generalberechtigung" <> lrecZeitb."Personen-Generalberechtigung"::"Nur pers”nliche Zugriffe" THEN
EXIT;
#30..32
PAGE.RUN(lrecAZEinr."Mitarbeiter Seite");
END;
END;
END;
ModifiedCode=BEGIN
#1..25
PAGE.RUN(PAGE::"PIS Systemmeldungen");
#27..35
END;
Target=OnRun }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "AZ Initialisierung"(Codeunit 5146001)
{
OBJECT-PROPERTIES
{
Date=22.02.17;
Time=12:09:07;
Modified=Yes;
Version List=CURA1.00;
}
PROPERTIES
{
Target="AZ Initialisierung"(Codeunit 5146001);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(11) 16-06-20 produktspezifische AddIn's integrieren
//* SEKA(12) 17-02-22 Zeilen wegen DC-Renumbering auskommentiert
//* BAJO(13) 17-03-06 weitere Zeilen raus wegen DC
END;
ModifiedCode=BEGIN
//* BAJO(11) 16-06-20 produktspezifische AddIn's integrieren
//* SEKA(12) 17-02-22 Zeilen wegen DC-Renumbering auskommentiert
END;
Target=Documentation }
{ CodeModification ;OriginalCode=BEGIN
lfctInit();
//* SEKA(12)b
//* IF grecObjekt.GET(grecObjekt.Type::Codeunit, '', 5146301) THEN
//* CODEUNIT.RUN(5146301);
//* SEKA(12)e
grecAZEinr.GET('');
IF gcouSW.gfctbol(WORKDATE, '<K-SW-SCH-STARTMANDANT>') THEN BEGIN
#9..19
CODEUNIT.RUN(CODEUNIT::"AZ Tabellen Synchronisationen");
MESSAGE(INIT_OK);
END;
ModifiedCode=BEGIN
lfctInit();
//* SEKA(12)
//* IF grecObjekt.GET(grecObjekt.Type::Codeunit, '', 5146301) THEN
//* CODEUNIT.RUN(5146301);
#6..22
END;
Target=OnRun }
{ CodeModification ;OriginalCode=BEGIN
IF NOT grecCompInfo.GET('') THEN BEGIN
grecCompInfo.INIT;
grecCompInfo.INSERT(TRUE);
#4..43
gfctPfad('START', 'Zu Installationszwecken', '.\Start\');
gfctPfad('TEMP', 'fr tempor„re Dateien', '.\Start\TEMP\');
gfctPfad('START-SZ', 'Excel-Datei mit Startdaten', '.\Start\START-SZ.XLSX');
gfctSystemwert('<K-SW-PFAD-ANWENDUNG>', 'Basisverzeichnis der Anwendung', 2, 110, 2, 'ANWENDUNG');
gfctSystemwert('<K-SW-PFAD-OBJEKTE>', 'Objekte zur OÖnstallation', 2, 122, 2, 'PRG-OBJEKTE');
gfctSystemwert('<K-SW-PFAD-DATEN>', 'Universellen Datentransfer', 2, 124, 2, 'PRG-DATEN');
gfctSystemwert('<K-SW-PFAD-SCRIPT>', 'Scripte fr Systempflege', 2, 126, 2, 'PRG-SCRIPT');
gfctSystemwert('<K-SW-PFAD-START>', 'Zu Installationszwecken', 2, 120, 2, 'START');
gfctSystemwert('<K-SW-PFAD-TEMP>', 'fr tempor„re Dateien', 2, 128, 2, 'TEMP');
gfctSystemwert('<K-SW-PFAD-START-SZ>', 'Excel-Datei mit Startdaten', 2, 130, 4, 'START-SZ');
//* gfctSystemwert('<K-SW-BKTO-PLATZ>', 'Platzbelegung', 15, 110, 2, 'PLATZ'); //* BAJO(13)
gfctUTProfil('INIT-STD', 'Mandanten Standard Initialisierung', 0);
gfctUTProfil('INIT-AZ', 'Mandanten Arbeitszeit Initialisierung', 1);
gfctUTProfil('INIT-BT', 'Mandanten Betreute Initialisierung', 2);
gfctUTProfil('INIT-PW', 'Mandanten Personalwesen Initialisierung', 3);
END;
END;
ModifiedCode=BEGIN
#1..46
gfctPfad('SOCURIS-AD', 'Befehle fr AD-Operationen', '.\Start\SOCURIS-AD.CMD');
gfctPfad('SOCURIS-LOG', 'Log-Datei fr externe Procs', '.\Start\SOCURIS-LOG.TXT');
#47..54
gfctSystemwert('<K-SW-PFAD-SOCURIS-AD>', 'Befehle fr AD-Operationen', 2, 140, 4, 'SOCURIS-AD');
gfctSystemwert('<K-SW-PFAD-SOCURIS-LOG>', 'Log-Datei fr externe Procs', 2, 142, 4, 'SOCURIS-LOG');
gfctSystemwert('<K-SW-BKTO-PLATZ>', 'Platzbelegung', 15, 110, 2, 'PLATZ');
#57..62
END;
Target=lfctInit(PROCEDURE 5146400) }
{ PropertyModification;
Property=Version List;
OriginalValue=CURA5.10;
ModifiedValue=CURA1.00 }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "CB Zeitfunktionen"(Codeunit 5146009)
{
OBJECT-PROPERTIES
{
Date=18.11.16;
Time=20:25:12;
Modified=Yes;
Version List=CURA5.00;
}
PROPERTIES
{
Target="CB Zeitfunktionen"(Codeunit 5146009);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(11) 14-12-04 Fehlerhafte Anzeige von Zeiten zwischen 23v00 und 0:00
//* SEKA(12) 15-05-12 Null in CONVERTSTR fehlte: eingetragen
//* KAMI(14) 15-09-10 Korrektur: Eingaben von logischen Zeiten in 60er interpretieren
//* BAJO(15) 16-11-17 LZ und ZS formatieren rechtsbndig
//* KAMI(16) 17-02-27 Trennzeichen abh„ngig von Lokalisierung (Land)
END;
ModifiedCode=BEGIN
#1..4
END;
Target=Documentation }
{ CodeModification ;OriginalCode=BEGIN
//+ Formatierung einer logischen Zeit
//+ Beispiel: "23v30", "6n15", "15:00", .....
#4..6
EXIT(K_FT_PREC8B);
lintXL„nge := STRLEN(ptxtWert);
lintXPos := STRPOS(ptxtWert, COPYSTR(FORMAT(1.2), 2, 1)); //* KAMI(16)
IF lintXPos = 0 THEN BEGIN
IF EVALUATE(ldecStd, ptxtWert) THEN ;
lintMin := 0;
#14..57
ltxtText := FORMAT(ldecStd, 0, K_FT_SIT) + ltxtTrenner + FORMAT(lintMin, 2);
ltxtText := K_FT_PREC8 + CONVERTSTR(ltxtText, LEERZEICHEN, NULL); //* SEKA(12)
EXIT(ltxtText);
END;
ModifiedCode=BEGIN
#1..9
lintXPos := STRPOS(ptxtWert, ',');
#11..60
END;
Target=gfcttxtFormatiereLogZeit(PROCEDURE 5146408) }
{ CodeModification ;OriginalCode=BEGIN
//+ Formatierung einer Zeitsumme
//+ Beispiele: "168:45", "-8:20", .....
lintMinProStd := gfctintMinutenProStunde();
//* lintMinProStd := 60;
lintXL„nge := STRLEN(ptxtWert);
lintXPos := STRPOS(ptxtWert, COPYSTR(FORMAT(1.2), 2, 1)); //* KAMI(16)
IF lintXPos = 0 THEN BEGIN
IF EVALUATE(ldecStd, ptxtWert) THEN ;
lintMin := 0;
#11..42
ltxtText := FORMAT(ldecStd, 0, K_FT_SIT) + ltxtTrenner + FORMAT(lintMin, 2);
ltxtText := K_FT_PREC8 + ltxtZeichen + CONVERTSTR(ltxtText, LEERZEICHEN, NULL); //* SEKA(12)
EXIT(ltxtText);
END;
ModifiedCode=BEGIN
#1..6
lintXPos := STRPOS(ptxtWert, ',');
#8..45
END;
Target=gfcttxtFormatiereZeitsumme(PROCEDURE 6) }
{ Insertion ;Target=gfctintValDezimaleZeit(PROCEDURE 8);
InsertAfter=ltxtVorzeichen(Variable 5146111);
ChangedElements=VariableCollection
{
ltxtKommaPos@5146112 : Text[2];
}
}
{ CodeModification ;OriginalCode=BEGIN
//+ jedes Dezimalfeld wird berprft
//+ enth„lt es speziell Symbole, die auf Uhrzeiten schliessen lassen, wi ez.B. den Doppelpunkt,
//+ so erfolgt eine weitere Analyxse mit Ziel eine Uhrzeit oder eine Zeitsumme zu erkennen.
#4..87
IF lintStd < 0 THEN
ltxtVorzeichen := '';
vtxtWert := CONVERTSTR(ltxtVorzeichen + FORMAT(lintStd) + COPYSTR(FORMAT(1.2), 2, 1) + //* KAMI(16)
FORMAT(ldecMin, 7, K_FT_I), LEERZEICHEN, '0'); //* KAMI(16)
EXIT(0);
END;
ModifiedCode=BEGIN
#1..90
ltxtKommaPos := ',';
vtxtWert := CONVERTSTR(ltxtVorzeichen + FORMAT(lintStd) + ltxtKommaPos + FORMAT(ldecMin, 7, K_FT_I), LEERZEICHEN, '0');
EXIT(0);
END;
Target=gfctintValDezimaleZeit(PROCEDURE 8) }
{ PropertyModification;
Target="WERT_ZU_GROSS_1"(Variable 1111700003);
Property=TextConstString;
OriginalValue=DEU=Eingebener Wert "%1" ist zu gross.;
ModifiedValue=DEU=Eingebener Wert "%1" ist zu groá. }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "AZ Zugriffsberechtigungen"(Codeunit 5146015)
{
OBJECT-PROPERTIES
{
Date=20.12.12;
Time=18:01:20;
Modified=Yes;
Version List=CURA1.00;
}
PROPERTIES
{
Target="AZ Zugriffsberechtigungen"(Codeunit 5146015);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
lfctADDateiVorbereitung();
lfctADDateiNachbereitung();
gcouIE.gfctStarteScript(gtxtCmdDatei);
lfctADDateiAnalyse();
MESSAGE(gtxtErgebnis);
END;
ModifiedCode=BEGIN
lfctADDateiVorbereitung();
lfctADDateiAlle();
#2..5
END;
Target=gfctStartSystem(PROCEDURE 5146405) }
{ CodeModification ;OriginalCode=BEGIN
lfctADDateiVorbereitung();
precPers.SETRECFILTER;
lfctADDateiNachbereitung();
gcouIE.gfctStarteScript(gtxtCmdDatei);
lfctADDateiAnalyse();
END;
ModifiedCode=BEGIN
lfctADDateiVorbereitung();
precPers.SETRECFILTER;
lfctADDateiPerson(pcodFkt, precPers);
#3..5
END;
Target=gfctAD1Person(PROCEDURE 5146406) }
{ Insertion ;InsertAfter=lfctADDateiVorbereitung(PROCEDURE 5146407);
ChangedElements=PROCEDURECollection
{
LOCAL PROCEDURE lfctADDateiAlle@5146409();
VAR
lrecPers@5146401 : Record 5146060;
ltxtAnhang@5146400 : Text[30];
lbolOK@5146403 : Boolean;
BEGIN
//+ alle AD-Benutzergruppen
gdia.UPDATE(1, GRUPPEN_ANL);
grecADGruppe.RESET;
IF grecADGruppe.FINDSET THEN
REPEAT
gdia.UPDATE(2, grecADGruppe.Code + '' + grecADGruppe.Beschreibung);
gfilAD.WRITE(STRSUBSTNO(AUFRUF_GRUPPE_9, gtxtScriptPfad,
grecAllgEinr.TopLevelDom„ne + '' + grecAllgEinr.Dom„ne + '' + grecAllgEinr."Pfad fr Benutzer",
grecADGruppe.Code, grecADGruppe.Beschreibung, '', '', '', '', ''));
UNTIL grecADGruppe.NEXT = 0;
gdia.UPDATE(2, '');
//+ alle AD-Benutzer
gdia.UPDATE(1, BENUTZER_ANL);
grecPers.RESET;
grecPers.SETFILTER(Profil, '<>%1', '');
IF grecPers.FINDSET THEN
REPEAT
lbolOK := FALSE;
grecADZuordn.RESET;
grecADZuordn.SETCURRENTKEY(Profil, Reihenfolge);
grecADZuordn.SETRANGE(Profil, grecPers.Profil);
IF grecADZuordn.FINDSET THEN
REPEAT
IF grecADGruppe.GET(grecADZuordn."AD-Gruppe") THEN
IF grecADGruppe."MS Windows" THEN BEGIN
gdia.UPDATE(2, grecPers.Code + '' + grecPers.Name);
ltxtAnhang := '';
lrecPers.RESET;
lrecPers.SETFILTER(Code, '<>%1', grecPers.Code);
lrecPers.SETRANGE(Vorname, grecPers.Vorname);
lrecPers.SETRANGE(Nachname, grecPers.Nachname);
IF lrecPers.COUNT > 1 THEN
ltxtAnhang := '-' + COPYSTR(grecPers.Code, 5);
gfilAD.WRITE(STRSUBSTNO(AUFRUF_BENUTZER_9, gtxtScriptPfad,
grecAllgEinr.TopLevelDom„ne + '' + grecAllgEinr.Dom„ne + '' + grecAllgEinr."Pfad fr Benutzer",
grecPers.Code, grecPers.Vorname, grecPers.Nachname, ltxtAnhang, grecPers.Kennwort, '', ''));
lbolOK := TRUE;
//+ alle AD-Benutzer-Gruppen der Person zuordnen
grecADZuordn.RESET;
grecADZuordn.SETRANGE(Profil, grecPers.Profil);
IF grecADZuordn.FINDSET THEN
REPEAT
gfilAD.WRITE(STRSUBSTNO(AUFRUF_ZUORDNUNG_9, gtxtScriptPfad,
grecAllgEinr.TopLevelDom„ne + '' + grecAllgEinr.Dom„ne + '' + grecAllgEinr."Pfad fr Benutzer",
grecPers.Code, grecPers.Vorname, grecPers.Nachname, ltxtAnhang,
grecADZuordn.Profil, grecADZuordn."AD-Gruppe", ''));
UNTIL grecADZuordn.NEXT = 0;
END;
UNTIL (grecADZuordn.NEXT = 0) OR (lbolOK);
UNTIL grecPers.NEXT = 0;
gdia.UPDATE(2, '');
END;
LOCAL PROCEDURE lfctADDateiPerson@5146412(pcodFkt@5146400 : Code[10];precPers@5146401 : Record 5146060);
VAR
lrecPers@5146404 : Record 5146060;
ltxtAnhang@5146403 : Text[30];
lbolOK@5146402 : Boolean;
BEGIN
CASE pcodFkt OF
'I': BEGIN
lbolOK := FALSE;
grecADZuordn.RESET;
grecADZuordn.SETCURRENTKEY(Profil, Reihenfolge);
grecADZuordn.SETRANGE(Profil, grecPers.Profil);
IF grecADZuordn.FINDSET THEN
REPEAT
IF grecADGruppe.GET(grecADZuordn."AD-Gruppe") THEN
IF grecADGruppe."MS Windows" THEN BEGIN
ltxtAnhang := '';
lrecPers.RESET;
lrecPers.SETFILTER(Code, '<>%1', grecPers.Code);
lrecPers.SETRANGE(Vorname, grecPers.Vorname);
lrecPers.SETRANGE(Nachname, grecPers.Nachname);
IF lrecPers.COUNT > 1 THEN
ltxtAnhang := '-' + COPYSTR(grecPers.Code, 5);
gfilAD.WRITE(STRSUBSTNO(AUFRUF_BENUTZER_9, gtxtScriptPfad,
grecAllgEinr.TopLevelDom„ne + '' + grecAllgEinr.Dom„ne + '' + grecAllgEinr."Pfad fr Benutzer",
grecPers.Code, grecPers.Vorname, grecPers.Nachname, ltxtAnhang, grecPers.Kennwort));
lbolOK := TRUE;
END;
UNTIL (grecADZuordn.NEXT = 0) OR (lbolOK);
END;
'D': BEGIN
END;
END;
END;
}
}
{ Insertion ;InsertAfter=grecPers(Variable 5146400);
ChangedElements=VariableCollection
{
grecADZuordn@5146415 : Record 5146059;
grecADGruppe@5146411 : Record 5146026;
}
}
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "AZ Personen"(Codeunit 5146023)
{
OBJECT-PROPERTIES
{
Date=19.12.16;
Time=10:45:32;
Modified=Yes;
Version List=CURA5.00;
}
PROPERTIES
{
Target="AZ Personen"(Codeunit 5146023);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(11) 16-09-04 Benutzer auf 50 Stellen erweitert
//* BAJO(12) 16-11-05 Umbenennungen bzgl. Zertifizierungen, Verallgemeinerung der Funktionen dazu
//* BAJO(13) 16-11-15 neue Funktionen "gfctdatLetzteAkt" und "gfctL”scheDatenBis" fr L”schung einer Person
//* JOGA(14) 17-05-20 Funktion "gfcttxtZertifikationen" ge„ndert; muss Krzeln von Zertifizierungen zeigen, nicht Personen
//* JOGA(15) 17-05-20 Funkrion "gfcttxtQualifikationen"
//* JOGA(16) 17-05-22 Funktion "gfcttxtEigenschaften"
//* JOGA(17) 17-06-01 Funktion "gfctZeigeAbwArbeiten" an PrimaryKeys anpassen
END;
ModifiedCode=BEGIN
#1..3
END;
Target=Documentation }
{ PropertyModification;
Target=gfcttxtZertifikationen(PROCEDURE 1).poptTyp(Parameter 1111700000);
Property=OptionString;
OriginalValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter;
ModifiedValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter }
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(12)
lbolMitFaktor := TRUE;
CLEAR(rtxt);
#4..8
IF (rtxt <> '') AND ((STRLEN(rtxt) + 2) <= MAXSTRLEN(rtxt)) THEN
rtxt += '; ';
IF (lbolMitFaktor = TRUE) AND (lrecPersZert.Faktor <> 1.0) THEN
//* JOGA(14)b
//* IF (STRLEN(rtxt) + STRLEN(lrecPersZert.Code) + 7) <= MAXSTRLEN(rtxt) THEN
//* rtxt += lrecPersZert.Code + ' (' + FORMAT(lrecPersZert.Faktor, 0, K_FT_ID3) + ')'
IF (STRLEN(rtxt) + STRLEN(lrecPersZert.Zertifizierung) + 7) <= MAXSTRLEN(rtxt) THEN
rtxt += lrecPersZert.Zertifizierung + ' (' + FORMAT(lrecPersZert.Faktor, 0, K_FT_ID3) + ')'
//* JOGA(14)e
ELSE
rtxt += PADSTR(rtxt, MAXSTRLEN(rtxt), '.')
ELSE
//* JOGA(14)b
//* IF (STRLEN(rtxt) + STRLEN(lrecPersZert.Code)) <= MAXSTRLEN(rtxt) THEN
//* rtxt += lrecPersZert.Code}
IF (STRLEN(rtxt) + STRLEN(lrecPersZert.Zertifizierung)) <= MAXSTRLEN(rtxt) THEN
rtxt += lrecPersZert.Zertifizierung
//* JOGA(14)e
ELSE
rtxt += PADSTR(rtxt, MAXSTRLEN(rtxt), '.')
UNTIL lrecPersZert.NEXT = 0;
END;
ModifiedCode=BEGIN
#1..11
IF (STRLEN(rtxt) + STRLEN(lrecPersZert.Code) + 7) <= MAXSTRLEN(rtxt) THEN
rtxt += lrecPersZert.Code + ' (' + FORMAT(lrecPersZert.Faktor, 0, K_FT_ID3) + ')'
#18..20
IF (STRLEN(rtxt) + STRLEN(lrecPersZert.Code)) <= MAXSTRLEN(rtxt) THEN
rtxt += lrecPersZert.Code
#27..29
END;
Target=gfcttxtZertifikationen(PROCEDURE 1) }
{ PropertyModification;
Target=gfctbolIstZertifiert(PROCEDURE 4).poptTyp(Parameter 1111700000);
Property=OptionString;
OriginalValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter;
ModifiedValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter }
{ PropertyModification;
Target=gfctdecPersonFaktor(PROCEDURE 5).poptTyp(Parameter 1111700000);
Property=OptionString;
OriginalValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter;
ModifiedValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter }
{ CodeModification ;OriginalCode=BEGIN
lrecTaPo.SETRANGE(Person, precPers.Code);
lrecTaPo.SETRANGE(Datum, CALCDATE(K_DF_M1MMCM, TODAY), CALCDATE(K_DF_M1MPCM, TODAY));
lrecTaPo.SETRANGE(gel”scht, FALSE); //* JOGA(17)
PAGE.RUN(PAGE::"AZ Abweichendes Arbeiten", lrecTaPo);
END;
ModifiedCode=BEGIN
lrecTaPo.SETRANGE(Person, precPers.Code);
lrecTaPo.SETRANGE(Datum, CALCDATE(K_DF_M1MMCM, TODAY), CALCDATE(K_DF_M1MPCM, TODAY));
PAGE.RUN(PAGE::"AZ Abweichendes Arbeiten", lrecTaPo);
END;
Target=gfctZeigeAbwArbeiten(PROCEDURE 1111700004) }
{ PropertyModification;
Target="gfctL”scheDatenBis"(PROCEDURE 1111700006).poptTyp(Parameter 1111700002);
Property=OptionString;
OriginalValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter;
ModifiedValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,,,,,Betreuter }
{ Deletion ;Target=gfcttxtQualifikationen(PROCEDURE 1111700008);
ChangedElements=PROCEDURECollection
{
PROCEDURE gfcttxtQualifikationen@1111700008(poptTyp@1111700000 : 'Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter';pcodCode@1111700001 : Code[20]) rtxtText : Text[250];
VAR
lrecQualif@1111700002 : Record 5146770;
BEGIN
//* JOGA(15)
CLEAR(rtxtText);
lrecQualif.RESET;
lrecQualif.SETRANGE(Typ, poptTyp);
lrecQualif.SETRANGE(Code, pcodCode);
IF lrecQualif.FINDSET THEN
REPEAT
IF (rtxtText <> '') AND ((STRLEN(rtxtText) + 2) <= MAXSTRLEN(rtxtText)) THEN
rtxtText += '; ';
IF (STRLEN(rtxtText) + STRLEN(lrecQualif.Kategorie)) <= MAXSTRLEN(rtxtText) THEN
rtxtText += lrecQualif.Kategorie
ELSE
rtxtText += PADSTR(rtxtText, MAXSTRLEN(rtxtText), '.')
UNTIL lrecQualif.NEXT = 0;
END;
}
}
{ Deletion ;Target=gfcttxtEigenschaften(PROCEDURE 1111700010);
ChangedElements=PROCEDURECollection
{
PROCEDURE gfcttxtEigenschaften@1111700010(poptTyp@1111700000 : 'Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter';pcodCode@1111700001 : Code[20]) rtxtText : Text[250];
VAR
lrecEigenschaften@1111700002 : Record 5146727;
BEGIN
//* JOGA(16)
CLEAR(rtxtText);
lrecEigenschaften.RESET;
lrecEigenschaften.SETRANGE(Typ, poptTyp);
lrecEigenschaften.SETRANGE(Code, pcodCode);
IF lrecEigenschaften.FINDSET THEN
REPEAT
IF (rtxtText <> '') AND ((STRLEN(rtxtText) + 2) <= MAXSTRLEN(rtxtText)) THEN
rtxtText += '; ';
IF (STRLEN(rtxtText) + STRLEN(lrecEigenschaften.Eigenschaft)) <= MAXSTRLEN(rtxtText) THEN
rtxtText += lrecEigenschaften.Eigenschaft+ ' (' + FORMAT(lrecEigenschaften.Anteil, 0, K_FT_ID3) + ')'
ELSE
rtxtText += PADSTR(rtxtText, MAXSTRLEN(rtxtText), '.')
UNTIL lrecEigenschaften.NEXT = 0;
END;
}
}
{ PropertyModification;
Property=Version List;
OriginalValue=CURA5.10;
ModifiedValue=CURA5.00 }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "CB Hinweise"(Codeunit 5146024)
{
OBJECT-PROPERTIES
{
Date=24.10.16;
Time=13:49:44;
Version List=CURA5.00;
}
PROPERTIES
{
Target="CB Hinweise"(Codeunit 5146024);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(11) 15-01-07 Hinweis muss vorhanden sein
//* BAJO(12) 15-02-25 Ausschluss von Hinweisen fr Vortag
//* SEKA(13) 15-07-17 Aufruf der Funktion NewMessage (Codeunit Mail), umgeleitet auf Funktion gfctNeueNachr (Codeunit CB Mail, Log)
//* BAJO(14) 16-05-17 Antragshinweise bearbeiten
//* BAJO(15) 16-05-23 Fehler bereinigt bei HinweisTest
//* BAJO(16) 16-06-09 bei L”schung des Hinweises (wegen doppelt) "lfd. Nr." zurcksetzen
//* BAJO(17) 16-08-22 Hinweise auch fr Meldungen von Maschinen
//* BAJO(18) 16-10-24 auf "Hinweis erledigt" hin prfen
//* KAMI(19) 16-07-18 Einf±gen Personenberechtigung
END;
ModifiedCode=BEGIN
#1..6
//* KAMI(17) 16-07-18 Einf±gen Personenberechtigung
//* BAJO(18) 16-08-22 Hinweise auch fr Meldungen von Maschinen
//* BAJO(19) 16-10-24 auf "Hinweis erledigt" hin prfen
END;
Target=Documentation }
{ CodeModification ;OriginalCode=BEGIN
vrecHinw."lfd. Nr." := 0;
//* BAJO(12)b
//* IF lrecHinwArt.GET(pcodNr) THEN
#4..8
//* BAJO(11)
IF gfctbolNeu(vrecHinw, pcodNr, precBerPuffer.Datum) THEN BEGIN
//* BAJO(18)b
//+ Hinweis auf Gegenbuchungen (Hinweis erledigt) hin prfen
WITH lrecMePo DO BEGIN
RESET;
#16..24
EXIT;
END;
END;
//* BAJO(18)e
//+ Nicht erledigt, also weiter Hinweis aufbauen
gfctPerson(vrecHinw, precBerPuffer.Person);
#32..46
'',
FALSE);
END;
END;
ModifiedCode=BEGIN
#1..11
//* BAJO(19)b
#13..27
//* BAJO(19)e
#29..49
END;
Target=gfctBerPerson(PROCEDURE 3) }
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(17)
vrecHinw."lfd. Nr." := 0;
IF gfctbolNeu(vrecHinw, pcodNr, precBerPuffer.Datum) THEN BEGIN
gfctMaschine(vrecHinw, precBerPuffer.Maschine);
#5..17
'',
FALSE);
END;
END;
ModifiedCode=BEGIN
//* BAJO(18)
#2..20
END;
Target=gfctBerMaschine(PROCEDURE 1111700000) }
{ CodeModification ;OriginalCode=BEGIN
vrecHinweis.Code := pcodPerson;
IF lrecPerson.GET(pcodPerson) THEN BEGIN
vrecHinweis.Name := lrecPerson.Name;
vrecHinweis.Organisationseinheit := lrecPerson.Organisationseinheit;
vrecHinweis.Zeitbeauftragter := lrecPerson.Zeitbeauftragter;
vrecHinweis."Berechtigung Person" := lrecPerson."Berechtigung Person"; //* KAMI(19)
END;
vrecHinweis.MODIFY(FALSE);
END;
ModifiedCode=BEGIN
#1..5
vrecHinweis."Berechtigung Person" := lrecPerson."Berechtigung Person"; //* KAMI(17)
END;
vrecHinweis.MODIFY(FALSE);
END;
Target=gfctPerson(PROCEDURE 5146403) }
{ PropertyModification;
Target="UNG_HINWART"(Variable 5146408);
Property=TextConstString;
OriginalValue=DEU=Ungltige Hinweisart.\Fr direkte Bearbeitung nicht geeignet.;
ModifiedValue=DEU=Ungltige Hinweisart.\Fr dierekte Bearbeitung nicht geeignet. }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "CB Support"(Codeunit 5146028)
{
OBJECT-PROPERTIES
{
Date=15.04.16;
Time=13:17:54;
Modified=Yes;
Version List=CURA2.00;
}
PROPERTIES
{
Target="CB Support"(Codeunit 5146028);
}
CHANGES
{
{ PropertyModification;
Property=Name;
OriginalValue=CB Support;
ModifiedValue=CB Systemsupport }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "AZ Dienstplan-Prfungen"(Codeunit 5146031)
{
OBJECT-PROPERTIES
{
Date=14.02.17;
Time=13:57:58;
Modified=Yes;
Version List=CURA1.00;
}
PROPERTIES
{
Target="AZ Dienstplan-Prfungen"(Codeunit 5146031);
}
CHANGES
{
{ Deletion ;Documentation=BEGIN
//* JOGA(11) 17-06-01 lrecDPPo-Record-AZ Dienstplanposten Filter anders setzen
END;
Target=Documentation }
{ CodeModification ;OriginalCode=BEGIN
lbolWarnung := FALSE;
FOR lintDay := 1 TO gintMaxTageMitTAZ DO BEGIN
ldatDatum := CALCDATE(INSSTR(K_DF_D, FORMAT(1-lintDay), 2), grecDPPo.Datum);
IF ldatDatum >= grecDPKo.Startdatum THEN
IF NOT lrecDPPo.GET(grecDPPo.Dienstplan, grecDPPo.Person, ldatDatum) THEN
EXIT
ELSE
IF (lrecDPPo."Plan-TAZ" = '') OR
(lrecDPPo."Plan-TAZ" = grecAZEinr."Freie AZ im Dienstplan") THEN
EXIT
ELSE
lbolWarnung := TRUE
ELSE
//* JOGA(11)b
BEGIN
lrecTaPo.SETRANGE(Person, grecDPPo.Person);
lrecTaPo.SETRANGE(Datum, ldatDatum);
lrecTaPo.SETRANGE(gel”scht, FALSE);
IF NOT lrecTaPo.FINDFIRST THEN
//* JOGA(11)e
EXIT
ELSE
IF (lrecTaPo."Aktuelle Tagesarbeitszeit" = '') OR
(lrecTaPo."Aktuelle Tagesarbeitszeit" = grecAZEinr."Freie AZ im Dienstplan") THEN
EXIT
ELSE
lbolWarnung := TRUE;
END
END;
IF lbolWarnung THEN
gcouHW.gfctAZ(grecHinweis, grecDPPo, gcouSW.gfctcod(grecDPPo.Datum, '<K-SW-HWA-TAZ-GR-MAX>'), '');
END;
ModifiedCode=BEGIN
#1..13
IF NOT lrecTaPo.GET(grecDPPo.Person, ldatDatum) THEN
EXIT
ELSE
IF (lrecTaPo."Aktuelle Tagesarbeitszeit" = '') OR
(lrecTaPo."Aktuelle Tagesarbeitszeit" = grecAZEinr."Freie AZ im Dienstplan") THEN
EXIT
ELSE
lbolWarnung := TRUE;
#29..31
END;
Target="lfctAnzahlPl„ne"(PROCEDURE 3) }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "AZ Dienstplan Druckdaten"(Codeunit 5146032)
{
OBJECT-PROPERTIES
{
Date=23.09.15;
Time=09:53:57;
Modified=Yes;
Version List=CURA1.00;
}
PROPERTIES
{
Target="AZ Dienstplan Druckdaten"(Codeunit 5146032);
}
CHANGES
{
{ Deletion ;Documentation=BEGIN
//* JOGA(11) 17-05-15 grecTaPo - Tabelle 5146180 AZ Tagesposten hat 3 PrimaryKeys. Dritter "Ifd.Nr" generiert man automatisch. Mit Funktion GET() war Record leer
END;
Target=Documentation }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lrecAZEinr.FINDFIRST;
lintZ„hler := 0;
FOR ldatDatum := gdatVon TO gdatBis DO BEGIN
lintZ„hler += 1;
IF grecDPPo.GET(gcodDPKo, pcodPerson, ldatDatum) THEN
IF grecDPPo."Plan-TAZ" <> '' THEN
vcodGeplTAZArray[lintZ„hler] := grecDPPo."Plan-TAZ"
ELSE
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN
//* JOGA(11)-e
vcodGeplTAZArray[lintZ„hler] := grecTaPo."Aktuelle Tagesarbeitszeit";
IF vcodGeplTAZArray[lintZ„hler] = lrecAZEinr."Freie AZ im Dienstplan" THEN
vcodGeplTAZArray[lintZ„hler] := STRICH;
END;
END;
ModifiedCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lrecAZEinr.FINDFIRST;
lintZ„hler := 0;
FOR ldatDatum := gdatVon TO gdatBis DO BEGIN
lintZ„hler += 1;
IF grecDPPo.GET(gcodDPKo, pcodPerson, ldatDatum) THEN
IF grecDPPo."Plan-TAZ" <> '' THEN
vcodGeplTAZArray[lintZ„hler] := grecDPPo."Plan-TAZ"
ELSE
IF grecTaPo.GET(pcodPerson, ldatDatum) THEN
vcodGeplTAZArray[lintZ„hler] := grecTaPo."Aktuelle Tagesarbeitszeit"
ELSE
BEGIN END
ELSE
IF grecTaPo.GET(pcodPerson, ldatDatum) THEN
vcodGeplTAZArray[lintZ„hler] := grecTaPo."Aktuelle Tagesarbeitszeit";
IF vcodGeplTAZArray[lintZ„hler] = lrecAZEinr."Freie AZ im Dienstplan" THEN
vcodGeplTAZArray[lintZ„hler] := STRICH;
END;
END;
Target=gfctHoleGeplTAZ(PROCEDURE 5146305) }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lintZ„hler := 0;
#4..6
IF grecDPPo."Plan-TAZ" <> '' THEN
vtisSollArray[lintZ„hler] := grecDPPo.Sollzeit
ELSE
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN
//* JOGA(11)-e
vtisSollArray[lintZ„hler] := grecTaPo.Sollzeit
ELSE
BEGIN END
END ELSE
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN
//* JOGA(11)-e
vtisSollArray[lintZ„hler] := grecTaPo.Sollzeit;
END;
END;
ModifiedCode=BEGIN
#1..9
IF grecTaPo.GET(pcodPerson, ldatDatum) THEN
#16..19
IF grecTaPo.GET(pcodPerson, ldatDatum) THEN
vtisSollArray[lintZ„hler] := grecTaPo.Sollzeit;
END;
END;
Target=gfctHoleZielZeiten(PROCEDURE 5146308) }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lintZ„hler := 0;
FOR ldatDatum := gdatVon TO gdatBis DO BEGIN
lintZ„hler += 1;
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN
//* JOGA(11)-e
vcodFZArray[lintZ„hler] := grecTaPo."tagew. gemeldete Fehlzeit";
END;
END;
ModifiedCode=BEGIN
#1..5
IF grecTaPo.GET(pcodPerson,ldatDatum) THEN
vcodFZArray[lintZ„hler] := grecTaPo."tagew. gemeldete Fehlzeit";
END;
END;
Target=gfctHoleFehlzeiten(PROCEDURE 5146310) }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lintZ„hler := 0;
FOR ldatDatum := gdatVon TO gdatBis DO BEGIN
lintZ„hler += 1;
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN
//* JOGA(11)-e
vcodZeKoArray[lintZ„hler] := grecTaPo."akt. tagew. Zeitkonto";
END;
END;
ModifiedCode=BEGIN
#1..5
IF grecTaPo.GET(pcodPerson,ldatDatum) THEN
vcodZeKoArray[lintZ„hler] := grecTaPo."akt. tagew. Zeitkonto";
END;
END;
Target=gfctHoleZeitkonten(PROCEDURE 5146312) }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN BEGIN
//* JOGA(11) -e
rtxt := grecTaPo."Arbeitsvertrag 1";
IF lrecArbVerh.GET(rtxt) THEN
rtxt += ' = ' + lcouZF.gfcttxtFormatiere('', lrecArbVerh.Wochenarbeitszeit, 0) + '' + STD_PRO_WOCHE;
END;
IF pbolPrfeŽnd THEN
FOR ldatDatum := gdatVon TO gdatBis DO
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN
//* JOGA(11)1 -e
IF grecTaPo."Arbeitsvertrag 1" <> rtxt THEN
rtxt := rtxt + STRSUBSTNO(', ' + AB_DEM + ' %1 ', ldatDatum) + grecTaPo."Arbeitsvertrag 1";
END;
ModifiedCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
IF grecTaPo.GET(pcodPerson, gdatVon) THEN BEGIN
#9..14
IF grecTaPo.GET(pcodPerson, ldatDatum) THEN
IF grecTaPo."Arbeitsvertrag 1" <> rtxt THEN
rtxt := rtxt + STRSUBSTNO(', ' + AB_DEM + ' %1 ', ldatDatum) + grecTaPo."Arbeitsvertrag 1";
END;
Target=gfcttxtHoleVertrVerh(PROCEDURE 5146313) }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lintZ„hler := 0;
FOR ldatDatum := gdatVon TO gdatBis DO BEGIN
lintZ„hler +=1;
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, vcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatum);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN BEGIN
//* JOGA(11)-e
vdecVonArray[lintZ„hler] := grecTaPo."Kern-AZ-Beginn";
vdecBisArray[lintZ„hler] := grecTaPo."Kern-AZ-Ende";
END ELSE
IF grecDPPo.GET(gcodDPKo,vcodPerson, ldatDatum) THEN BEGIN
vdecVonArray[lintZ„hler] := grecDPPo.Arbeitsbeginn;
vdecBisArray[lintZ„hler] := grecDPPo.Arbeitsende;
END;
END;
END;
ModifiedCode=BEGIN
#1..5
IF grecTaPo.GET(vcodPerson,ldatDatum) THEN BEGIN
#12..19
END;
Target=gfctHoleAusBis(PROCEDURE 5146302) }
{ CodeModification ;OriginalCode=BEGIN
IF NOT gbolInitialisiert THEN
ERROR(VORHER_INITIAL);
lintZ„hler := 0;
#4..10
vltiVonArray[lintZ„hler] := grecDPPo.Arbeitsbeginn;
vltiBisArray[lintZ„hler] := grecDPPo.Arbeitsende;
END ELSE BEGIN
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatUM);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN BEGIN
//- JOGA(11)-e
vcodGeplTAZArray[lintZ„hler] := grecTaPo."Aktuelle Tagesarbeitszeit";
vtisSollArray[lintZ„hler] := grecTaPo.Sollzeit;
vltiVonArray[lintZ„hler] := grecTaPo."Kern-AZ-Beginn";
vltiBisArray[lintZ„hler] := grecTaPo."Kern-AZ-Ende";
END;
END;
END ELSE BEGIN
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatUM);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN BEGIN
//* JOGA(11)-e
vcodGeplTAZArray[lintZ„hler] := grecTaPo."Aktuelle Tagesarbeitszeit";
vtisSollArray[lintZ„hler] := grecTaPo.Sollzeit;
vltiVonArray[lintZ„hler] := grecTaPo."Kern-AZ-Beginn";
vltiBisArray[lintZ„hler] := grecTaPo."Kern-AZ-Ende";
END;
END;
IF vcodGeplTAZArray[lintZ„hler] = lrecAZEinr."Freie AZ im Dienstplan" THEN
vcodGeplTAZArray[lintZ„hler] := STRICH;
//* JOGA(11)-b
grecTaPo.SETRANGE(grecTaPo.Person, pcodPerson);
grecTaPo.SETRANGE(Datum, ldatDatUM);
grecTaPo.SETRANGE(gel”scht, FALSE);
IF grecTaPo.FINDFIRST THEN BEGIN
//* JOGA(11)-e
vcodFZArray[lintZ„hler] := grecTaPo."tagew. gemeldete Fehlzeit";
lcodArbVerh[lintZ„hler] := grecTaPo."Arbeitsvertrag 1";
vcodZeKoArray[lintZ„hler] := grecTaPo."akt. tagew. Zeitkonto";
#50..57
IF lcodArbVerh[lintZ„hler] <> lcodArbVerh[lintZ„hler-1] THEN
vtxtArbVerh := vtxtArbVerh + STRSUBSTNO(', ' + AB_DEM + ' %1 %2',
CALCDATE('<' + FORMAT(lintZ„hler-1) + K_DF_D + '>',gdatVon), lcodArbVerh[lintZ„hler]);
END;
ModifiedCode=BEGIN
#1..13
IF grecTaPo.GET(pcodPerson, ldatDatUM) THEN BEGIN
#20..26
IF grecTaPo.GET(pcodPerson, ldatDatUM) THEN BEGIN
#33..40
IF grecTaPo.GET(pcodPerson, ldatDatUM) THEN BEGIN
#47..60
END;
Target=gfctHoleAlle(PROCEDURE 5146315) }
{ PropertyModification;
Target="BIS_VOR_VON"(Variable 5146303);
Property=TextConstString;
OriginalValue=DEU=Eingegebens Bis-Datum ist kleiner als Von-Datum.;
ModifiedValue=DEU=Eingegebens Bisdatum ist kleiners als Vondatum. }
{ PropertyModification;
Target="PERIODE_ZU_LANG"(Variable 5146304);
Property=TextConstString;
OriginalValue=DEU=Die eingegebene Periode berschreitet die zul„ssige Gr”sse (max. 400Tage).;
ModifiedValue=DEU=Die eingegebene Periode berschreitet die zul„ssige Gr”áe (max. 400Tage). }
}
CODE
{
BEGIN
END.
}
}
OBJECT Modification "CB Initialisierungen"(Codeunit 5146037)
{
OBJECT-PROPERTIES
{
Date=23.06.16;
Time=15:41:33;
Modified=Yes;
Version List=CURA2.00;
}
PROPERTIES
{
Target="CB Initialisierungen"(Codeunit 5146037);
}
CHANGES
{
{ CodeModification ;OriginalCode=BEGIN
//* BAJO(11)
IF NOT lrecCAddIn.GET(ptxtName, ptxtToken) THEN BEGIN
lrecCAddIn.INIT;
lrecCAddIn."Add-in Name" := ptxtName;
lrecCAddIn."Public Key Token" := ptxtToken;
lrecCAddIn.INSERT(TRUE);
END;
lrecCAddIn.Version := ptx