Index: CW2.mac.rou =================================================================== diff -u -r734 -r2415 --- CW2.mac.rou (.../CW2.mac.rou) (revision 734) +++ CW2.mac.rou (.../CW2.mac.rou) (revision 2415) @@ -1,5 +1,5 @@ CW2 ;Duplicering data ,# NIET VERWIJDEREN - + ORDERS If $ZU(5)="DEV-ADMIN1" Do . Do ^cA604 @@ -102,3 +102,4 @@ . For I="G" Merge:$D(^[NameSpace]KPRO(PRNr,I)) ^KPR(PRNr,I)=^[NameSpace]KPRO(PRNr,I) Do BLDIND^PRODUKT2(PRNr) Q + \ No newline at end of file