cA266 ;VRAAG KLANTENKATEGORIE BIJ OPENEN EN WIJZIGEN KLANTEN ;%A266
 ;
 G 1
 ;
T0 ;Vraag klantenkategorie bij openen en wijzigen klanten ;
T1 ;Klantencategorie;"[] = synoniemen";
 ;
T0F ;Demande de la catégorie client lors créat. et modif. client;
T1F ;Categorie de client;"[] = synonymes";
 ;
T0E ;Vraag klantenkategorie bij openen en wijzigen klanten ;
T1E ;Klantencategorie;"[] = synoniemen";
 ;
1 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_D_$P($T(@("T1"_QT)),U,3)_"\1\\""-""[K!$S($L(K):$D(@(""^""_Q_""BA(""""%F"""",1,K_"""" """")"")),1:0)"
11 D R0 G YZ:$L(K) 
13 S R="K\2100\"_$P($T(@("T1"_QT)),U,2)_"\BA\3\1;;7;20",R(1)="""%F""",R(2)=1 D ^cA115 G 1:K="-",YZ:K="," S K=$E(K,1,$L(K)-1)
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84