codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
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
Private
[
?
]
Run code
Submit