Index: RPLKL.mac.rou =================================================================== diff -u -r59761 -r65556 --- RPLKL.mac.rou (.../RPLKL.mac.rou) (revision 59761) +++ RPLKL.mac.rou (.../RPLKL.mac.rou) (revision 65556) @@ -13,7 +13,6 @@ T104 ;OMZET;6;28;;6;38;;$S($D(^KKAAP(KC)):$TR($FN($P(^KKAAP(KC,0,0,0,0),D),"T,",0),",.",".,")_"EUR",1:"");13;;;;;;;;;;;;;;; T105 ;TELEFOON;3;49;;3;62;;$E($S($L($P(B(3),D,1)):$P(B(3),D,1),1:K),1,17);17;;;;;;;113;;;;;;;; T106 ;REGIO;5;49;;5;62;;"R"_$TR($J(K,2)," ",0)_" ("_"R"_$TR($J($P(B(1),D,21),2)," ",0)_")";3;;;;6;;;120;;;;;;;; -T107 ;Std/OL/TA;6;49;$P(B(2),D,25)=""Z"";6;62;;$$ALLECODEXEN^KLANT($P(B(1),D),);19;;;;;;;;;;;;;;; T108 ;Bus.Type;4;49;;4;62;;##class(CHUI.Klant.Algemeen).GeefBusinessType($piece(B(1),D));3;;;;;;;;;;;;;; ; S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)