codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
OBJECT Modification "PIS Systemmeldung"(Table 5146000) { OBJECT-PROPERTIES { Date=09.12.16; Time=12:44:06; Version List=CURA5.00; } PROPERTIES { Target="PIS Systemmeldung"(Table 5146000); } CHANGES { { PropertyDeletion ;Target="Žnd. Benutzer"(Field 93); Property=CaptionML; OriginalValue=DEU=Žnd. Benutzer } } CODE { BEGIN END. } } OBJECT Modification "AZ Arbeitszeit Einrichtung"(Table 5146001) { OBJECT-PROPERTIES { Date=10.01.17; Time=16:42:22; Version List=CURA5.00; } PROPERTIES { Target="AZ Arbeitszeit Einrichtung"(Table 5146001); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 16-08-22 Erg„nzung um Felder fr Maschinenbuchungen //* BAJO(12) 16-08-31 neues Feld fr Hauptmen fr Software-Terminal //* BAJO(13) 16-09-04 Erg„nzung um Felder fr Software-Terminal-Buchungen //* BAJO(14) 16-10-21 neues Options-Feld 121: "Nutzung Meine Personenaufgaben" //* BAJO(15) 17-01-10 neues Feld 1001: Dynamische Migration: in Meldungsart Feld Stand auf Nie setzen //* BAJO(16) 17-03-29 neues Feld 59: Zutrittsprofil //* BAJO(17) 17-04-05 neues Feld 131: Default-Ressource fr die Abrechnung der Personenaktivit„ten //* SEKA(18) 17-05-02 Begriffstool-Analyse: Caption/CaptionML in Feld 1001 eingetragen END; ModifiedCode=BEGIN #1..5 END; Target=Documentation } { Deletion ;Target="Mail-System"(Field 11); ChangedElements=FieldCollection { { 11 ; ;Mail-System ;Option ;CaptionML=DEU=Mail-System; OptionCaptionML=DEU=SMTP,Office; OptionString=SMTP,Office } } } { Deletion ;Target=Zutrittsprofil(Field 59); ChangedElements=FieldCollection { { 59 ; ;Zutrittsprofil ;Code20 ;TableRelation="ZK Zutrittsprofil"; CaptionML=DEU=Zutrittsprofil } } } { PropertyModification; Target="LoGe-System"(Field 70); Property=OptionCaptionML; OriginalValue=DEU=Andere,Lessor,Haveldata,,,,DATEV; ModifiedValue=DEU=Andere,Lessor,HavelData,,,,DATEV } { PropertyModification; Target="LoGe-System"(Field 70); Property=OptionString; OriginalValue=Andere,Lessor,Haveldata,,,,DATEV; ModifiedValue=Andere,Lessor,HavelData,,,,DATEV } { Deletion ;Target="Default-Ressource Pers.abr."(Field 131); ChangedElements=FieldCollection { { 131 ; ;Default-Ressource Pers.abr.;Code20 ;TableRelation=Resource; CaptionML=DEU=Default-Ressource Pers.abr. } } } { PropertyDeletion ;Target="MeldArt/Stand auf Nie gesetzt"(Field 1001); Property=CaptionML; OriginalValue=DEU=MeldArt/Stand auf Nie gesetzt } { PropertyModification; Property=Version List; OriginalValue=CURA5.10; ModifiedValue=CURA5.00 } } CODE { BEGIN END. } } OBJECT Modification "AZ Online Originalbuchung"(Table 5146003) { OBJECT-PROPERTIES { Date=; Time=; Version List=; } PROPERTIES { Target="AZ Online Originalbuchung"(Table 5146003); ChangeType=Deletion; } CODE { BEGIN END. } } OBJECT Modification "AZ Freitextkategorie"(Table 5146005) { OBJECT-PROPERTIES { Date=27.08.16; Time=14:14:28; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="AZ Freitextkategorie"(Table 5146005); } CHANGES { { PropertyModification; Target=Tabelle(Field 1); Property=OptionCaptionML; OriginalValue=DEU=Unbekannt,Person,Bewerber,Personengruppe,Personenkreis,,Mitarbeiter; ModifiedValue=DEU=Unbekannt,Person,Personenkreis,Bewerber } { PropertyModification; Target=Tabelle(Field 1); Property=OptionString; OriginalValue=Unbekannt,Person,Bewerber,Personengruppe,Personenkreis,,Mitarbeiter; ModifiedValue=Unbekannt,Person,Personenkreis,Bewerber } } CODE { BEGIN END. } } OBJECT Modification "AZ Freitextzeile"(Table 5146007) { OBJECT-PROPERTIES { Date=20.02.17; Time=14:17:00; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="AZ Freitextzeile"(Table 5146007); } CHANGES { { PropertyModification; Target=Tabelle(Field 1); Property=OptionCaptionML; OriginalValue=DEU=Unbekannt,Person,Bewerber,Personengruppe,Personenkreis,,Mitarbeiter; ModifiedValue=DEU=Unbekannt,Person,Personenkreis,Bewerber } { PropertyModification; Target=Tabelle(Field 1); Property=OptionString; OriginalValue=Unbekannt,Person,Bewerber,Personengruppe,Personenkreis,,Mitarbeiter; ModifiedValue=Unbekannt,Person,Personenkreis,Bewerber } } CODE { BEGIN END. } } OBJECT Modification "CB Systemwert"(Table 5146010) { OBJECT-PROPERTIES { Date=16.02.17; Time=15:34:19; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="CB Systemwert"(Table 5146010); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 15-05-05 Felder "Baumsortierung" und "Baumebene" zzgl. weiterer Key fr die Tree-Verwendung im RTC //* ROCH(12) 15-05-13 Schlssel fr Tree-Verwendung erg„nzt //* BAJO(13) 16-11-05 Ausblendung von DC-Komponenten END; ModifiedCode=BEGIN //* BAJO(11) 15-05-05 Zwei neue Felder zzgl. weiterer Key fr die Tree-Verwendung im RTC //* ROCH(12) 15-05-13 Schlssel fr Tree-Verwendung erg„nzt //* BAJO(13) 16-11-05 Ausblendung von DC-Komponenten END; Target=Documentation } } CODE { BEGIN END. } } OBJECT Modification "CB Benutzer-SS"(Table 5146011) { OBJECT-PROPERTIES { Date=20.02.17; Time=14:21:41; Modified=Yes; Version List=CURA2.10; } PROPERTIES { Target="CB Benutzer-SS"(Table 5146011); } CHANGES { { PropertyModification; Target=Betreuter(Field 43); Property=TableRelation; OriginalValue="PABR Debitor Abrechnung".Code; ModifiedValue="PA Debitor".Code } } CODE { BEGIN END. } } OBJECT Modification "AZ Personenprofil"(Table 5146024) { OBJECT-PROPERTIES { Date=29.04.14; Time=15:07:00; Modified=Yes; Version List=CURA2.00; } PROPERTIES { Target="AZ Personenprofil"(Table 5146024); } CHANGES { { PropertyModification; Target="AD-Gruppen"(Field 12); Property=CalcFormula; OriginalValue=Count(Table5146059 WHERE (Field1=FIELD(Code))); ModifiedValue=Count("AZ Mitglied in AD-Gruppe" WHERE (Profil=FIELD(Code))) } } CODE { BEGIN END. } } OBJECT Table 5146026 AZ AD-Gruppe { OBJECT-PROPERTIES { Date=16.03.17; Time=17:13:07; Modified=Yes; Version List=CURA1.00; } PROPERTIES { CaptionML=DEU=AD-Gruppe; LookupPageID=Page5146026; DrillDownPageID=Page5146026; } FIELDS { { 1 ; ;Code ;Code20 ;CaptionML=DEU=Code } { 2 ; ;Beschreibung ;Text50 ;CaptionML=DEU=Beschreibung } { 6 ; ;Reihenfolge ;Integer ;InitValue=9999; CaptionML=DEU=Reihenfolge; BlankZero=Yes } { 11 ; ;IT-Administrator ;Boolean ;CaptionML=DEU=IT-Administrator } { 12 ; ;MS Dynamics NAV ;Boolean ;CaptionML=DEU=MS Dynamics NAV } { 13 ; ;eMail-Adresse ;Boolean ;CaptionML=DEU=eMail-Adresse } { 14 ; ;MS Windows ;Boolean ;CaptionML=DEU=MS Windows } } KEYS { { ;Code ;Clustered=Yes } { ;Reihenfolge } } FIELDGROUPS { { 1 ;DropDown ;Code,Beschreibung } } CODE { BEGIN END. } } OBJECT Modification "CB Hinweisart"(Table 5146027) { OBJECT-PROPERTIES { Date=01.10.15; Time=15:14:30; Modified=Yes; Version List=CURA2.10; } PROPERTIES { Target="CB Hinweisart"(Table 5146027); } CHANGES { { PropertyModification; Target=blockiert(Field 21); Property=OptionCaptionML; OriginalValue=DEU=nie,immer,bei Tagesabschluss,bei Monatsabschluss,bei Jahresabschluss; ModifiedValue=DEU=nie,immer,bei Tagesabschluá,bei Monatsabschluá,bei Jahresabschluá } { PropertyModification; Target=blockiert(Field 21); Property=OptionString; OriginalValue=nie,immer,bei Tagesabschluss,bei Monatsabschluss,bei Jahresabschluss; ModifiedValue=nie,immer,bei Tagesabschluá,bei Monatsabschluá,bei Jahresabschluá } { Deletion ;Target=Mailgruppe(Field 51); ChangedElements=FieldCollection { { 51 ; ;Mailgruppe ;Code20 ;TableRelation="MAIL Mailgruppe"; CaptionML=DEU=Mailgruppe } } } { PropertyModification; Property=Version List; OriginalValue=CURA5.10; ModifiedValue=CURA2.10 } } CODE { BEGIN END. } } OBJECT Modification "CB Hinweis"(Table 5146029) { OBJECT-PROPERTIES { Date=23.01.17; Time=10:04:41; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="CB Hinweis"(Table 5146029); } CHANGES { { PropertyModification; Target=blockiert(Field 21); Property=OptionCaptionML; OriginalValue=DEU=nie,immer,bei Tagesabschluss,bei Monatsabschluss,bei Jahresabschluss; ModifiedValue=DEU=nie,immer,bei Tagesabschluá,bei Monatsabschluá,bei Jahresabschluá } { PropertyModification; Target=blockiert(Field 21); Property=OptionString; OriginalValue=nie,immer,bei Tagesabschluss,bei Monatsabschluss,bei Jahresabschluss; ModifiedValue=nie,immer,bei Tagesabschluá,bei Monatsabschluá,bei Jahresabschluá } } CODE { BEGIN END. } } OBJECT Modification "AZ Ortsposition"(Table 5146030) { OBJECT-PROPERTIES { Date=26.07.13; Time=10:17:34; Modified=Yes; Version List=CURA1.00; } PROPERTIES { Target="AZ Ortsposition"(Table 5146030); } CHANGES { { Insertion ;ChangedElements=FieldGroupCollection { { 1 ;DropDown ;AD-Gruppe,Gruppenname,Rolle,Rollenname } } } { PropertyModification; Target="AD-Gruppe"(Field 1); Property=Name; OriginalValue=Code; ModifiedValue=AD-Gruppe } { PropertyModification; Target="AD-Gruppe"(Field 1); Property=Data type; OriginalValue=Code20; ModifiedValue=Code10 } { PropertyModification; Target="AD-Gruppe"(Field 1); Property=CaptionML; OriginalValue=DEU=Code; ModifiedValue=DEU=AD-Gruppe } { PropertyInsertion ;Target="AD-Gruppe"(Field 1); Property=TableRelation; ModifiedValue="AZ AD-Gruppe".Code } { PropertyModification; Target=Gruppenname(Field 11); Property=Name; OriginalValue=Breitengrad; ModifiedValue=Gruppenname } { PropertyModification; Target=Gruppenname(Field 11); Property=Data type; OriginalValue=Decimal; ModifiedValue=Text30 } { PropertyModification; Target=Gruppenname(Field 11); Property=CaptionML; OriginalValue=DEU=Breitengrad; ModifiedValue=DEU=Gruppenname } { PropertyDeletion ;Target=Gruppenname(Field 11); Property=DecimalPlaces; OriginalValue=6:6 } { PropertyDeletion ;Target=Gruppenname(Field 11); Property=MinValue; OriginalValue=-90 } { PropertyDeletion ;Target=Gruppenname(Field 11); Property=MaxValue; OriginalValue=90 } { PropertyDeletion ;Target=Gruppenname(Field 11); Property=BlankZero; OriginalValue=Yes } { PropertyInsertion ;Target=Gruppenname(Field 11); Property=FieldClass; ModifiedValue=FlowField } { PropertyInsertion ;Target=Gruppenname(Field 11); Property=CalcFormula; ModifiedValue=Lookup("AZ AD-Gruppe".Beschreibung WHERE (Code=FIELD(AD-Gruppe))) } { PropertyInsertion ;Target=Gruppenname(Field 11); Property=Editable; ModifiedValue=No } { PropertyModification; Target=Rollenname(Field 12); Property=Name; OriginalValue=L„ngengrad; ModifiedValue=Rollenname } { PropertyModification; Target=Rollenname(Field 12); Property=Data type; OriginalValue=Decimal; ModifiedValue=Text30 } { PropertyModification; Target=Rollenname(Field 12); Property=CaptionML; OriginalValue=DEU=L„ngengrad; ModifiedValue=DEU=Rollenname } { PropertyDeletion ;Target=Rollenname(Field 12); Property=DecimalPlaces; OriginalValue=6:6 } { PropertyDeletion ;Target=Rollenname(Field 12); Property=MinValue; OriginalValue=-180 } { PropertyDeletion ;Target=Rollenname(Field 12); Property=MaxValue; OriginalValue=180 } { PropertyDeletion ;Target=Rollenname(Field 12); Property=BlankZero; OriginalValue=Yes } { PropertyInsertion ;Target=Rollenname(Field 12); Property=FieldClass; ModifiedValue=FlowField } { PropertyInsertion ;Target=Rollenname(Field 12); Property=CalcFormula; ModifiedValue=Lookup("Permission Set".Name WHERE (Role ID=FIELD(Rolle))) } { PropertyInsertion ;Target=Rollenname(Field 12); Property=Editable; ModifiedValue=No } { Deletion ;Target=Art(Field 21); ChangedElements=FieldCollection { { 21 ; ;Art ;Option ;CaptionML=DEU=Art; OptionCaptionML=DEU=Unbekannt,Kontakt,Debitor,Kreditor,Bank,Mitarbeiter; OptionString=Unbekannt,Kontakt,Debitor,Kreditor,Bank,Mitarbeiter } } } { Deletion ;Target=Quelle(Field 22); ChangedElements=FieldCollection { { 22 ; ;Quelle ;Code20 ;TableRelation=IF (Art=CONST(Kontakt)) Contact ELSE IF (Art=CONST(Debitor)) Customer ELSE IF (Art=CONST(Kreditor)) Vendor ELSE IF (Art=CONST(Bank)) "Bank Account" ELSE IF (Art=CONST(Mitarbeiter)) Employee; CaptionML=DEU=Quelle } } } { Deletion ;Target=Nummernserie(Field 51); ChangedElements=FieldCollection { { 51 ; ;Nummernserie ;Code10 ;TableRelation="No. Series"; CaptionML=DEU=Nummernserie } } } { Insertion ;InsertAfter=Code(Field 1); ChangedElements=FieldCollection { { 2 ; ;Rolle ;Code20 ;TableRelation="Permission Set"."Role ID"; CaptionML=DEU=Rolle } } } { Deletion ;Target=Code(Key); ChangedElements=KeyCollection { { ;Code ;Clustered=Yes } } } { Insertion ;ChangedElements=KeyCollection { { ;AD-Gruppe,Rolle ;Clustered=Yes } } } { Deletion ;OnInsert=BEGIN IF Code = '' THEN gcouNS.InitSeries(gcouSW.gfctcod(0D, '<K-SW-NRS-AZ-PERSON>'), xRec.Nummernserie, 0D, Code, Nummernserie); END; Target=OnInsert } { Deletion ;Target=gcouSW(Variable 1111700001); ChangedElements=VariableCollection { gcouSW@1111700001 : Codeunit 5146008; } } { Deletion ;Target=gcouNS(Variable 1111700000); ChangedElements=VariableCollection { gcouNS@1111700000 : Codeunit 396; } } { PropertyModification; Property=Name; OriginalValue=AZ Ortsposition; ModifiedValue=AZ Rolle in AD-Gruppe } { PropertyModification; Property=CaptionML; OriginalValue=DEU=Ortsposition; ModifiedValue=DEU=Rolle in AD-Gruppe } { PropertyModification; Property=Version List; OriginalValue=CURA6.00; ModifiedValue=CURA1.00 } } CODE { BEGIN END. } } OBJECT Modification "CB Datenbereich Tabelle"(Table 5146041) { OBJECT-PROPERTIES { Date=09.05.16; Time=11:39:25; Modified=Yes; Version List=CURA2.10; } PROPERTIES { Target="CB Datenbereich Tabelle"(Table 5146041); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 16-04-12 neues Feld "Satz berschreiben" 13 fr differenziertere Updates von Records END; ModifiedCode=BEGIN //* BAJO(11) 16-04-12 neues Feld 13 fr differenziertere Updates von Records END; Target=Documentation } } CODE { BEGIN END. } } OBJECT Table 5146059 AZ Mitglied in AD-Gruppe { OBJECT-PROPERTIES { Date=26.07.13; Time=10:30:09; Modified=Yes; Version List=CURA1.00; } PROPERTIES { CaptionML=DEU=Mitglied in AD-Gruppe; LookupPageID=Page5146059; DrillDownPageID=Page5146059; } FIELDS { { 1 ; ;Profil ;Code30 ;TableRelation="AZ Personenprofil"; OnValidate=BEGIN CALCFIELDS(Profilbeschreibung); END; CaptionML=DEU=Profil; NotBlank=Yes } { 2 ; ;AD-Gruppe ;Code20 ;TableRelation="AZ AD-Gruppe"; OnValidate=BEGIN CALCFIELDS(Gruppenbeschreibung); END; CaptionML=DEU=AD-Gruppe; NotBlank=Yes } { 6 ; ;Reihenfolge ;Integer ;CaptionML=DEU=Reihenfolge; BlankZero=Yes } { 11 ; ;Profilbeschreibung ;Text50 ;FieldClass=FlowField; CalcFormula=Lookup("AZ Personenprofil".Beschreibung WHERE (Code=FIELD(Profil))); CaptionML=DEU=Profilbeschreibung; Editable=No } { 12 ; ;Gruppenbeschreibung ;Text50 ;FieldClass=FlowField; CalcFormula=Lookup("AZ AD-Gruppe".Beschreibung WHERE (Code=FIELD(AD-Gruppe))); CaptionML=DEU=Gruppenbeschreibung; Editable=No } } KEYS { { ;Profil,AD-Gruppe ;Clustered=Yes } { ;Profil,Reihenfolge } } FIELDGROUPS { { 1 ;DropDown ;Profil,Reihenfolge,AD-Gruppe,Profilbeschreibung } } CODE { BEGIN END. } } OBJECT Modification "AZ Person"(Table 5146060) { OBJECT-PROPERTIES { Date=15.03.17; Time=15:14:08; Modified=Yes; Version List=CURA5.10; } PROPERTIES { Target="AZ Person"(Table 5146060); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 15-04-01 neues Feld (25) Personengruppe //* BAJO(12) 15-09-09 neue Felder zur Integration und zum besseren Filtern: (33) Verk„ufer, (61) Zust„ndigkeitseinheit, (62) Servicegebietscode, (63) Team, (64) Standort #4..10 //* BAJO(20) 16-11-11 Relationen zu DC-Tabellen entfernt //* BAJO(21) 16-11-15 Korrektur, so dass auch L”schen der Person m”glich ist //* BAJO(22) 17-03-10 Korrektur bei Kennwort/PIN-Žnderung //* JOGA(23) 17-05-24 verschiedene Erweiterungen zum Themenblock PIS //* JOGA(25) 17-06-22 Feld Bemerkung(5) - Tablerelation ge„ndert //* BAJO(26) 17-06-25 neues Feld 64 Supportkategorie END; ModifiedCode=BEGIN #1..13 END; Target=Documentation } { PropertyModification; Target=Bemerkung(Field 5); Property=CalcFormula; OriginalValue=Exist("AZ Bemerkung" WHERE (Tabelle=CONST(Person), Code=FIELD(Code))); ModifiedValue=Exist("AZ Bemerkung" WHERE (Tabelle=CONST(Ausweis), Code=FIELD(Code))) } { PropertyModification; Target="Blockierende Hinweise"(Field 52); Property=CalcFormula; OriginalValue=Count("CB Hinweis" WHERE (Code=FIELD(Code), blockiert=FILTER(immer|bei Monatsabschluss))); ModifiedValue=Count("CB Hinweis" WHERE (Code=FIELD(Code), blockiert=FILTER(immer|bei Monatsabschluá))) } { Deletion ;Target=Supportkategorie(Field 64); ChangedElements=FieldCollection { { 64 ; ;Supportkategorie ;Code20 ;TableRelation="SUPP Kategorie"; CaptionML=DEU=Supportkategorie } } } { Deletion ;Target=OnDelete.lrecBild(Variable 1111700001); ChangedElements=VariableCollection { lrecBild@1111700001 : Record 5146021; } } { Deletion ;Target=OnDelete.lrecPersKost(Variable 1111700002); ChangedElements=VariableCollection { lrecPersKost@1111700002 : Record 5146766; } } { Deletion ;Target=OnDelete.lrecKostVert(Variable 1111700003); ChangedElements=VariableCollection { lrecKostVert@1111700003 : Record 5146207; } } { Deletion ;Target=OnDelete.lrecLebenslauf(Variable 1111700004); ChangedElements=VariableCollection { lrecLebenslauf@1111700004 : Record 5146760; } } { Deletion ;Target=OnDelete.lrecPQualif(Variable 1111700005); ChangedElements=VariableCollection { lrecPQualif@1111700005 : Record 5146770; } } { Deletion ;Target=OnDelete.lrecSchulung(Variable 1111700006); ChangedElements=VariableCollection { lrecSchulung@1111700006 : Record 5146737; } } { CodeModification ;OriginalCode=BEGIN lrecUserExit.SETRANGE(Person, Code); IF lrecUserExit.FINDFIRST THEN ERROR(VERW_3, Rec.TABLECAPTION, lrecUserExit.TABLECAPTION, lrecUserExit.Code); lrecZpPo.SETRANGE(Person, Code); lrecZpPo.SETRANGE(storniert, FALSE); //* BAJO(13) IF NOT lrecZpPo.ISEMPTY THEN ERROR(PERSON_HAT_ZP_1, Code); lrecTaPo.SETRANGE(Person, Code); lrecTaPo.SETRANGE(gel”scht, FALSE); //* BAJO(21)b IF lrecTaPo.FINDFIRST THEN BEGIN //* IF CONFIRM(FRAGE_ZEITBER_L™SCHEN_1, FALSE, lrecTaPo.COUNT) THEN BEGIN //* BAJO(21) lcouZB.gfctL”scheTagesDaten(Code, 0D, 31129999D); lrecHinweis.SETCURRENTKEY(Ursprung, Code, Datum); //* lrecHinweis.SETRANGE(Ursprung, lrecHinweis.Ursprung::Bewertung); //* BAJO(13) lrecHinweis.SETRANGE(Code, Code); lrecHinweis.DELETEALL(TRUE); END; //* BAJO(21)e //* JOGA(25)b //* lrecBem.SETRANGE(Tabelle, lrecBem.Tabelle::Ausweis); lrecBem.SETRANGE(Tabelle, lrecBem.Tabelle::Person); //* JOGA(25)e lrecBem.SETRANGE(Code, Code); IF NOT lrecBem.ISEMPTY THEN lrecBem.DELETEALL(TRUE); lrecFTextEintr.SETRANGE(Tabelle, lrecFTextEintr.Tabelle::Person); lrecFTextEintr.SETRANGE(Code, Code); IF NOT lrecFTextEintr.ISEMPTY THEN lrecFTextEintr.DELETEALL(TRUE); lrrf.GETTABLE(Rec); lrecParamWert.SETRANGE(Satzschlssel, FORMAT(lrrf.RECORDID)); IF NOT lrecParamWert.ISEMPTY THEN lrecParamWert.DELETEALL(TRUE); lrecPKreisMitgl.SETRANGE(Person, Code); IF NOT lrecPKreisMitgl.ISEMPTY THEN lrecPKreisMitgl.DELETEALL(TRUE); //* BAJO(19)b lrecPersZert.SETRANGE(Typ, 0); lrecPersZert.SETRANGE(Code, Code); IF NOT lrecPersZert.ISEMPTY THEN lrecPersZert.DELETEALL(TRUE); lrecPersEig.SETRANGE(Typ, 0); lrecPersEig.SETRANGE(Code, Code); IF NOT lrecPersEig.ISEMPTY THEN lrecPersEig.DELETEALL(TRUE); //* BAJO(19)e lrecZpPo.SETRANGE(Person, Code); lrecZpPo.SETRANGE(storniert, FALSE); //* BAJO(13) IF NOT lrecZpPo.ISEMPTY THEN lrecZpPo.DELETEALL(TRUE); lrecMePo.SETRANGE(Person, Code); lrecMePo.SETRANGE(storniert, FALSE); //* BAJO(13) IF NOT lrecMePo.ISEMPTY THEN lrecMePo.DELETEALL(TRUE); //* JOGA(23)b lrecBild.SETRANGE(Art, 1); lrecBild.SETRANGE(Code, Code); IF NOT lrecBild.ISEMPTY THEN lrecBild.DELETEALL(TRUE); lrecPersKost.SETRANGE(Person, Code); IF NOT lrecPersKost.ISEMPTY THEN lrecPersKost.DELETEALL(TRUE); lrecKostVert.SETRANGE(Art, 1); lrecKostVert.SETRANGE(Code, Code); IF NOT lrecKostVert.ISEMPTY THEN lrecKostVert.DELETEALL(TRUE); lrecLebenslauf.SETRANGE(Typ, 0); lrecLebenslauf.SETRANGE(Code, Code); IF NOT lrecLebenslauf.ISEMPTY THEN lrecLebenslauf.DELETEALL(TRUE); lrecPQualif.SETRANGE(Typ, 0); lrecPQualif.SETRANGE(Code, Code); IF NOT lrecPQualif.ISEMPTY THEN lrecPQualif.DELETEALL(TRUE); lrecSchulung.SETRANGE(Typ, 0); lrecSchulung.SETRANGE(Code, Code); IF NOT lrecSchulung.ISEMPTY THEN lrecSchulung.DELETEALL(TRUE); //* JOGA(23)e END; ModifiedCode=BEGIN #1..22 lrecBem.SETRANGE(Tabelle, lrecBem.Tabelle::Ausweis); #27..65 END; Target=OnDelete } } CODE { BEGIN END. } } OBJECT Modification "CB Organisationseinheit"(Table 5146063) { OBJECT-PROPERTIES { Date=14.06.16; Time=09:16:47; Modified=Yes; Version List=CURA1.00; } PROPERTIES { Target="CB Organisationseinheit"(Table 5146063); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 16-03-08 Entfernung Feld 5146000 Urlaubsgenehmiger: allgemein ber Personenadressierung gel”st //* BAJO(12) 16-03-08 neues Feld 31 Leitung = Leitungsperson fr diese Org-Einheit //* BAJO(13) 16-03-09 neues Feld 32 Name der Leitung = FlowField //* BAJO(14) 16-06-14 Felder fr die Zugeh”rigkeit zu bestimmten Abteilungen / Bereiche //* BAJO(15) 17-06-25 neues Feld 41 = "Supportkategorie" END; ModifiedCode=BEGIN #1..4 END; Target=Documentation } { Deletion ;Target=Supportkategorie(Field 41); ChangedElements=FieldCollection { { 41 ; ;Supportkategorie ;Code20 ;TableRelation="SUPP Kategorie"; CaptionML=DEU=Supportkategorie } } } { PropertyModification; Property=Version List; OriginalValue=CURA5.10; ModifiedValue=CURA1.00 } } CODE { BEGIN END. } } OBJECT Modification "PIS Zertifizierung"(Table 5146064) { OBJECT-PROPERTIES { Date=05.11.16; Time=12:42:45; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="PIS Zertifizierung"(Table 5146064); } CHANGES { { Deletion ;Documentation=BEGIN //* BAJO(11) 17-03-08 neue Felder 11-13 zur Gewichtung END; Target=Documentation } { PropertyModification; Target="Anzahl Personen"(Field 11); Property=Name; OriginalValue=Allgemeine Gewichtung; ModifiedValue=Anzahl Personen } { PropertyModification; Target="Anzahl Personen"(Field 11); Property=Data type; OriginalValue=Decimal; ModifiedValue=Integer } { PropertyDeletion ;Target="Anzahl Personen"(Field 11); Property=InitValue; OriginalValue=1 } { PropertyModification; Target="Anzahl Personen"(Field 11); Property=CaptionML; OriginalValue=DEU=Allgemeine Gewichtung; ModifiedValue=DEU=Anzahl Personen } { PropertyDeletion ;Target="Anzahl Personen"(Field 11); Property=MinValue; OriginalValue=1 } { PropertyDeletion ;Target="Anzahl Personen"(Field 11); Property=BlankZero; OriginalValue=Yes } { PropertyInsertion ;Target="Anzahl Personen"(Field 11); Property=FieldClass; ModifiedValue=FlowField } { PropertyInsertion ;Target="Anzahl Personen"(Field 11); Property=CalcFormula; ModifiedValue=Count("PIS Personenzertifizierung" WHERE (Code=FIELD(Code))) } { PropertyInsertion ;Target="Anzahl Personen"(Field 11); Property=Editable; ModifiedValue=No } { Deletion ;Target=Unternehmensgewichtung(Field 12); ChangedElements=FieldCollection { { 12 ; ;Unternehmensgewichtung;Decimal ;InitValue=1; CaptionML=DEU=Unternehmensgewichtung; MinValue=1; BlankZero=Yes } } } { Deletion ;Target=Stellengewichtung(Field 13); ChangedElements=FieldCollection { { 13 ; ;Stellengewichtung ;Decimal ;InitValue=1; CaptionML=DEU=Stellengewichtung; MinValue=1; BlankZero=Yes } } } { Deletion ;Target="Anzahl Personen"(Field 91); ChangedElements=FieldCollection { { 91 ; ;Anzahl Personen ;Integer ;FieldClass=FlowField; CalcFormula=Count("PIS Personenzertifizierung" WHERE (Zertifizierung=FIELD(Code))); CaptionML=DEU=Anzahl Personen; BlankZero=Yes; Editable=No } } } } CODE { BEGIN END. } } OBJECT Modification "PIS Personenzertifizierung"(Table 5146065) { OBJECT-PROPERTIES { Date=15.12.16; Time=15:34:13; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="PIS Personenzertifizierung"(Table 5146065); } CHANGES { { PropertyModification; Target=Typ(Field 1); Property=OptionCaptionML; OriginalValue=DEU=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter; ModifiedValue=DEU=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,,,,,Betreuter } { PropertyModification; Target=Typ(Field 1); Property=OptionString; OriginalValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,Kontakt,,,,Betreuter; ModifiedValue=Person,Bewerber,Personengruppe,Personenkreis,,,Mitarbeiter,,,,,Betreuter } { Deletion ;Target=Code(Field 2).OnValidate.lrecPers(Variable 1111700005); ChangedElements=VariableCollection { lrecPers@1111700005 : Record 5146060; } } { Deletion ;Target=Code(Field 2).OnValidate.lrecBew(Variable 1111700004); ChangedElements=VariableCollection { lrecBew@1111700004 : Record 5146720; } } { Deletion ;Target=Code(Field 2).OnValidate.lrecPGr(Variable 1111700003); ChangedElements=VariableCollection { lrecPGr@1111700003 : Record 5146079; } } { Deletion ;Target=Code(Field 2).OnValidate.lrecPKr(Variable 1111700002); ChangedElements=VariableCollection { lrecPKr@1111700002 : Record 5146066; } } { Deletion ;Target=Code(Field 2).OnValidate.lrecMA(Variable 1111700001); ChangedElements=VariableCollection { lrecMA@1111700001 : Record 5200; } } { Deletion ;Target=Code(Field 2).OnValidate.lrecKont(Variable 1111700000); ChangedElements=VariableCollection { lrecKont@1111700000 : Record 5050; } } { CodeModification ;OriginalCode=BEGIN IF Code <> xRec.Code THEN IF Code = '' THEN Name := '' ELSE CASE Typ OF Typ::Person: IF lrecPers.GET(Code) THEN Name := lrecPers.Name; Typ::Bewerber: IF lrecBew.GET(Code) THEN Name := lrecBew.Name; Typ::Personengruppe: IF lrecPGr.GET(Code) THEN Name := lrecPGr.Beschreibung; Typ::Personenkreis: IF lrecPKr.GET(Code) THEN Name := lrecPKr.Bezeichnung; Typ::Mitarbeiter: IF lrecMA.GET(Code) THEN Name := lrecMA.FullName(); Typ::Kontakt: IF lrecKont.GET(Code) THEN Name := lrecKont.Name; Typ::Betreuter: ; END; END; ModifiedCode=BEGIN // CALCFIELDS(Name); END; Target=Code(Field 2).OnValidate } { CodeModification ;OriginalCode=BEGIN CALCFIELDS(Beschreibung); END; ModifiedCode=BEGIN CALCFIELDS(Zertifizierungsbeschreibung); END; Target=Zertifizierung(Field 3).OnValidate } { PropertyModification; Target=Zertifizierungsbeschreibung(Field 11); Property=Name; OriginalValue=Beschreibung; ModifiedValue=Zertifizierungsbeschreibung } { PropertyModification; Target=Zertifizierungsbeschreibung(Field 11); Property=CaptionML; OriginalValue=DEU=Beschreibung; ModifiedValue=DEU=Zertifizierungsbeschreibung } } CODE { BEGIN END. } } OBJECT Modification "AZ Personenkreis"(Table 5146066) { OBJECT-PROPERTIES { Date=05.09.16; Time=12:01:11; Modified=Yes; Version List=CURA2.00; } PROPERTIES { Target="AZ Personenkreis"(Table 5146066); } CHANGES { { PropertyModification; Target="PKREIS_VERW_ZEITABR_1"(Variable 5146301); Property=TextConstString; OriginalValue=DEU=Dieser Personenkreis wird in der Zeitabrechnungsart %1 verwendet.; ModifiedValue=DEU=Diese Personenkreis wird in der Zeitabrechnungsart %1 verwendet. } } CODE { BEGIN END. } } OBJECT Modification "AZ Personengruppe"(Table 5146079) { OBJECT-PROPERTIES { Date=01.04.15; Time=15:27:17; Modified=Yes; Version List=CURA2.10; } PROPERTIES { Target="AZ Personengruppe"(Table 5146079); } CHANGES { { Deletion ;Documentation=BEGIN //* BAJO(11) 17-03-29 neues Feld 33: Zutrittsprofil END; Target=Documentation } { Deletion ;Target=Zutrittsprofil(Field 33); ChangedElements=FieldCollection { { 33 ; ;Zutrittsprofil ;Code20 ;TableRelation="ZK Zutrittsprofil"; CaptionML=DEU=Zutrittsprofil } } } { PropertyModification; Property=Version List; OriginalValue=CURA5.10; ModifiedValue=CURA2.10 } } CODE { BEGIN END. } } OBJECT Modification "AZ Einzelpause"(Table 5146107) { OBJECT-PROPERTIES { Date=23.01.15; Time=14:26:32; Modified=Yes; Version List=CURA2.00; } PROPERTIES { Target="AZ Einzelpause"(Table 5146107); } CHANGES { { PropertyModification; Target="EPA_VERW"(Variable 5146301); Property=TextConstString; OriginalValue=DEU=Diese Einzelpause wird verwendet.; ModifiedValue=DEU=Dieses Einzelpause wird verwendet. } } CODE { BEGIN END. } } OBJECT Modification "AZ Meldungsart"(Table 5146131) { OBJECT-PROPERTIES { Date=27.10.16; Time=13:40:07; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="AZ Meldungsart"(Table 5146131); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 15-03-22 Optionsliste fr das automatisierte Auffllen einer offenen Fehlzeit (i.d.R. Dienstgang). Feld "offene Fehlzeit bis" //* BAJO(13) 16-05-14 neue Felder 101-119 fr Antragswesen //* BAJO(14) 16-08-15 Kategorie um Option "Maschinendaten" erweitert //* BAJO(15) 16-10-27 neues Optionsfeld fr Eingabefeld "Stand" //* SEKA(16) 17-06-27 Feld 81: Caption angepasst END; ModifiedCode=BEGIN //* BAJO(11) 15-03-22 Optionsliste fr das automatisierte Auffllen einer offenen Fehlzeit (i.d.R. Dienstgang) #2..4 END; Target=Documentation } { PropertyModification; Target="Ausschluá - Geschlecht"(Field 81); Property=Name; OriginalValue=Ausschluss - Geschlecht; ModifiedValue=Ausschluá - Geschlecht } { PropertyModification; Target="Ausschluá - Geschlecht"(Field 81); Property=CaptionML; OriginalValue=DEU=Ausschluss - Geschlecht; ModifiedValue=DEU=Ausschluá - Geschlecht } { PropertyModification; Target=Zuschlagswirkung(Field 91); Property=OptionCaptionML; OriginalValue=DEU=keine,keine Volumenzuschl„ge,keine Zeitzuschl„ge,keinerlei Zuschl„ge,immer Zuschl„ge; ModifiedValue=DEU=keine,keine Volomenzuschl„ge,keine Zeitzuschl„ge,keinerlei Zuschl„ge,immer Zuschl„ge } { PropertyModification; Target=Zuschlagswirkung(Field 91); Property=OptionString; OriginalValue=keine,keine Volumenzuschl„ge,keine Zeitzuschl„ge,keinerlei Zuschl„ge,immer Zuschl„ge; ModifiedValue=keine,keine Volomenzuschl„ge,keine Zeitzuschl„ge,keinerlei Zuschl„ge,immer Zuschl„ge } } CODE { BEGIN END. } } OBJECT Modification "AZ Buch.-Blatt Vorlage"(Table 5146141) { OBJECT-PROPERTIES { Date=01.09.16; Time=14:24:21; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="AZ Buch.-Blatt Vorlage"(Table 5146141); } CHANGES { { PropertyModification; Target="Formular ID"(Field 12); Property=TableRelation; OriginalValue=Object.ID WHERE (Type=CONST(Report)); ModifiedValue=Object.ID WHERE (Type=CONST(2)) } } CODE { BEGIN END. } } OBJECT Modification "AZ Buch.-Blattzeile"(Table 5146142) { OBJECT-PROPERTIES { Date=27.10.16; Time=14:07:16; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="AZ Buch.-Blattzeile"(Table 5146142); } CHANGES { { PropertyModification; Target="DATUM_KLEINER_2"(Variable 5146306); Property=TextConstString; OriginalValue=DEU=Das %1 muss kleiner sein als %2.; ModifiedValue=DEU=Das %1 muá kleiner sein als %2. } { PropertyModification; Target="DATUM_GR™SSER_2"(Variable 5146305); Property=TextConstString; OriginalValue=DEU=Das %1 muss gr”sser sein als %2.; ModifiedValue=DEU=Das %1 muá gr”áer sein als %2. } } CODE { BEGIN END. } } OBJECT Modification "AZ Originalbuchung"(Table 5146145) { OBJECT-PROPERTIES { Date=20.09.16; Time=09:16:28; Version List=CURA2.10; } PROPERTIES { Target="AZ Originalbuchung"(Table 5146145); } CHANGES { { PropertyModification; Target="EINFšGE_FEHLER"(Variable 5146304); Property=TextConstString; OriginalValue=DEU=Fehler beim Einfgen in die Original-Buchungen.; ModifiedValue=DEU=Fehler beim Einfgen in die Originalk-Buchungen. } } CODE { BEGIN END. } } OBJECT Modification "AZ Zuschlagsart"(Table 5146160) { OBJECT-PROPERTIES { Date=27.01.15; Time=09:29:10; Modified=Yes; Version List=CURA2.00; } PROPERTIES { Target="AZ Zuschlagsart"(Table 5146160); } CHANGES { { PropertyModification; Target="ZUSCHLAG_VERW_MAND"(Variable 5146304); Property=TextConstString; OriginalValue=DEU=Dieser Zuschlagsabrechnungstyp wird als Firmen-Zuschlagabrechnungstyp verwendet.; ModifiedValue=DEU=Dieser Zuschlagabrechnungstyp wird als Firmen-Zuschlagabrechnungstyp verwendet. } } CODE { BEGIN END. } } OBJECT Modification "AZ Tagesposten"(Table 5146180) { OBJECT-PROPERTIES { Date=14.10.16; Time=13:38:38; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="AZ Tagesposten"(Table 5146180); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* BAJO(11) 15-05-06 neue Felder fr die Personenaktivit„ten: "Aktivit„tenanzahl", "Aktivit„tenzeitsumme", "Aktivit„tenhinweise", "Zeiterfassungssumme" //* BAJO(12) 15-09-09 neue Felder zum besseren Filtern: Zust„ndigkeitseinheit, Servicegebietscode, Team, Standort //* KAMI(14) 16-03-23 Neues Feld: Zeitbeauftragter //* KAMI(15) 16-04-15 Feld wieder gel”scht :) //* BAJO(16) 16-10-14 neue Felder fr Freigaben 194 Freigabestufe, 195 Freigabe durch //* BAJO(17) 17-03-13 neue Felder 38+39: besch„ftigt von / bis END; ModifiedCode=BEGIN //* BAJO(11) 15-05-06 neue Felder fr die Personenaktivit„ten #2..5 END; Target=Documentation } { Deletion ;Target="besch„ftigt von"(Field 38); ChangedElements=FieldCollection { { 38 ; ;besch„ftigt von ;Date ;CaptionML=DEU=besch„ftigt von } } } { Deletion ;Target="besch„ftigt bis"(Field 39); ChangedElements=FieldCollection { { 39 ; ;besch„ftigt bis ;Date ;CaptionML=DEU=besch„ftigt bis } } } { PropertyModification; Target="Aktivit„tenanzahl"(Field 191); Property=Description; OriginalValue=BAJO; ModifiedValue=BAJO(11) } { PropertyModification; Target="Aktivit„tenzeitsumme"(Field 192); Property=Description; OriginalValue=BAJO; ModifiedValue=BAJO(11) } { PropertyModification; Target="Aktivit„tenhinweise"(Field 193); Property=Description; OriginalValue=BAJO; ModifiedValue=BAJO(11) } { PropertyModification; Target=Freigabestufe(Field 194); Property=Description; OriginalValue=BAJO; ModifiedValue=BAJO(16) } { PropertyModification; Target="Freigabe durch"(Field 195); Property=Description; OriginalValue=BAJO; ModifiedValue=BAJO(16) } { PropertyModification; Target=Zeiterfassungssumme(Field 196); Property=Description; OriginalValue=BAJO; ModifiedValue=BAJO(11) } { PropertyModification; Property=Version List; OriginalValue=CURA5.10; ModifiedValue=CURA5.00 } } CODE { BEGIN END. } } OBJECT Modification "CB Personenaufgabengruppe"(Table 5146249) { OBJECT-PROPERTIES { Date=16.09.16; Time=10:51:31; Modified=Yes; Version List=CURA5.00; } PROPERTIES { Target="CB Personenaufgabengruppe"(Table 5146249); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* KAMI(01) 16-09-09 Anlegen des neuen Objekts //* KAMI(02) 16-09-16 Neue Page verlinkt //- SEKA(03) 17-05-02 Begriffstool-Analyse: Caption/CaptionML in den Feldern 1, 2 eingetragen END; ModifiedCode=BEGIN //* KAMI(01) 16-09-09 Anlegen des neuen Objekts //* KAMI(02) 16-09-16 Neue Page verlinkt END; Target=Documentation } { PropertyDeletion ;Target=Code(Field 1); Property=CaptionML; OriginalValue=DEU=Code } { PropertyDeletion ;Target=Titel(Field 2); Property=CaptionML; OriginalValue=DEU=Titel } } CODE { BEGIN END. } } OBJECT Modification "PA Personenaufgabe"(Table 5146253) { OBJECT-PROPERTIES { Date=27.01.17; Time=06:00:22; Modified=Yes; Version List=CURA5.10; } PROPERTIES { Target="PA Personenaufgabe"(Table 5146253); } CHANGES { { CodeModification ;OriginalCode=BEGIN //* ROCH(11) 15-12-17 gfctStatus angepasst, da alte Tabelle nicht mehr vorhanden //* KAMI(12) 16-09-09 Neues Feld 'Personenaufgabengruppe' zwecks Vorlagen/Kopien //* KAMI(13) 16-09-16 Anpassung an TableRelation des Felds Personenaufgabengruppe //* BAJO(14) 16-10-06 Logik bei Wiederholungen korrigiert //* BAJO(15) 16-10-21 dynamische Aktualisierung der "Meine Personenaufgaben" //* BAJO(16) 17-01-26 neue Felder (200-X) fr Personenaufgabenabrechnung //* BAJO(17) 17-03-10 auch l”schen des Protokolls //* BAJO(18) 17-03-10 Aktualisierung von Zuordnungen korrigiert //* JOGA(19) 17-08-15 Feld "Fakturiert"(43) CalcFormula ist anders gesetzt. Frher war Sum("PA Personenaktivit„t".Fakturiert WHERE (Personenaufgabe=FIELD(Code))) //* JOGA(20) 17-08-15 gfctStatus angepasst, Feld "Fakturiert" abrechnen END; ModifiedCode=BEGIN #1..6 END; Target=Documentation } { PropertyModification; Target=Fakturiert(Field 43); Property=CalcFormula; OriginalValue=Sum("PABR Personenaktivit„tenposten".Fakturiert WHERE (Projekt=FIELD(Projekt), Projektaufgabe=FIELD(Projektaufgabe), Personenaufgabe=FIELD(Code))); ModifiedValue=Sum("PA Personenaktivit„t".Fakturiert WHERE (Personenaufgabe=FIELD(Code))) } { CodeModification ;OriginalCode=BEGIN IF lrecJob.GET(Projekt) THEN BEGIN VALIDATE(Debitor, lrecJob."Bill-to Customer No."); lrecContBusRel.SETRANGE("Link to Table", lrecContBusRel."Link to Table"::Customer); #4..10 lrecPAkt.SETRANGE(Personenaufgabe, Code); IF lrecPAkt.FINDSET THEN REPEAT //* BAJO(18)b //* lrecPAkt
Private
[
?
]
Run code
Submit