Index: Prod/GADef/KaderDeur.cls.xml =================================================================== diff -u -r67015 -r69312 --- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 67015) +++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 69312) @@ -652,21 +652,21 @@ New caNewObj,CopyProptList,Key,emObj,sVal Set caNewObj=##class(Prod.GADef.KaderDeur).%New() ; CopyProptList bevat alle properties (per propt. TWEE chars, gescheiden met ";"), die moeten gekopieerd worden: - ; volledige lijst is: "TO;PT;PA;OP;HO;BR;GM;VP;TR;AK;VK;PW;ON;VU;BS;BO;DO;TY;SC;PR;WT;XS" + ; volledige lijst is: "TO;PT;PA;OP;HO;BR;GM;VP;TR;AK;VK;PW;ON;VU;BS;BO;RM;DO;TY;SC;PR;WT;XS" Set CopyProptList="" If $G(CopyMode)="FullCopy" Do . ; Copy almost all properties - . Set CopyProptList="TO;PT;PA;OP;HO;BR;GM;VP;AK;VK;TR;PW;ON;VU;BS;BO;DO;TY;SC;PR" ; do not copy WT;XS" + . Set CopyProptList="TO;PT;PA;OP;HO;BR;GM;VP;AK;VK;TR;PW;ON;VU;BS;BO;RM;DO;TY;SC;PR" ; do not copy WT;XS" Else If $G(CopyMode)="ExactCopy" Do . ; Copy all properties - . Set CopyProptList="TO;PT;PA;OP;HO;BR;GM;VPAK;VK;TR;PW;ON;VU;BS;BO;DO;TY;SC;PR;WT;XS" ; complete list + . Set CopyProptList="TO;PT;PA;OP;HO;BR;GM;VPAK;VK;TR;PW;ON;VU;BS;BO;RM;DO;TY;SC;PR;WT;XS" ; complete list Else If $G(CopyMode)="KadOnly" Do . ; GADef.KaderDeur Full Copy without DossierNr - . Set CopyProptList="TO;PT;PA;OP;HO;BR;GM;VP;AK;VK;TR;PW;ON;VU;BS;BO" ; do not copy DO;TY;SC;PR;WT;XS" + . Set CopyProptList="TO;PT;PA;OP;HO;BR;GM;VP;AK;VK;TR;PW;ON;VU;BS;BO;RM" ; do not copy DO;TY;SC;PR;WT;XS" Else If $G(CopyMode)="Empty" Do . ; Geen properties invullen @@ -692,6 +692,7 @@ Set:(CopyProptList["AK") caNewObj.ProfAfwKostSpecial=%this.ProfAfwKostSpecial Set:(CopyProptList["VK") caNewObj.VullingKostSpecial=%this.VullingKostSpecial Set:(CopyProptList["TR") caNewObj.TemplateRoutine=%this.TemplateRoutine + Set:(CopyProptList["RM") caNewObj.Opmerking=%this.Opmerking ; "OP" is reeds elders gebruikt (en in deze constructie geeft "OPM" dan ook ongewenst gedrag); vandaar RM" van remark ; Copy Lists and Arrays If CopyProptList["ON" Do