cA267 ;KONTROLE KLANTENKAART ;%A267; overlay van %A202,%A216 [ 02/05/96  9:44 AM ]
 G 1
 ;
T0 ;Controle klantenkaart ;
T1 ;-[] = keuze element   .[] = ;
 ;
T0F ;Controle carte client ;
T1F ;-[] = choix d'élément   .[] = ;
 ;
T0E ;Controle klantenkaart ;
T1E ;-[] = keuze element   .[] = ;
 ;
 ; S1 = routine bij openen klant (nummer klantenkaart)
 ;
S1 S OK=2 G S1Z:SW2'=2 S X5=$P(B(2),D,24) G S1Z:'$L(X5) D S4 S X6=X6_" " I $D(@("^"_QS_Q_"KSP(X6)")) S OK=0 X ^cTXT(0,$E(QT_"N"),167) R *K G S1Z
S11 S @("^"_QS_Q_"KSP(X6)")=$S($D(NR):NR,1:SS4)_D_$P(B(2),D,25)
S1Z K X5,X6 Q
 ;
 ; S2 = routine bij wijzigen klant (nummer klantenkaart)
 ;
S2 S OK=2,X7=$S($D(I2):I2,1:I1),X5=$P(@("^"_QS_Q_"KL(X7,1)"),D,24) I $L(X5) D S4 S X6=X6_" " K @("^"_QS_Q_"KSP(X6)")
S21 S X5=$P(B(2),D,24) I $L(X5) D S4 S X6=X6_" ",@("^"_QS_Q_"KSP(X6)")=+B(1)_D_$P(B(2),D,25)
S2Z K X5,X6,X7 Q
 ;
 ; S3 = routine bij verwijderen klant (nummer klantenkaart)
 ;
S3 I '$D(XF)&$D(@("^"_QS_Q_"UL")) I $D(@("^"_QS_Q_"UL(J1)")) S OK=0 D TXT^cAFA1(133) G S3Z
S3B S OK=2,X5=$P(B(2),D,24) D S4 S X6=X6_" " K @("^"_QS_Q_"KSP(X6)")
S3Z K X5,X6 Q
 ;
 ; S4 = hulproutine
 ;
S4 S X6="" F X7=1:1:$L(X5) S:$E(X5,X7)'?1P X6=X6_$E(X5,X7)
S4Z K X7 Q
 ;
 ;
S5 S X6="" F X7=1:1:$L(K) S:$E(K,X7)'?1P X6=X6_$E(K,X7)
S5Z S X6=X6_" " K X7 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
 ;
1 S Y1=$S($D(U2):U2,1:S2)
11 S R="K\22\3\"_$P(Y1,U,1)_D_"SC1"_D_$P(Y1,U,9)_D_D_$P(Y1,U,11)_D D R0 G YZ:K=","!(K="-")!(K=".") D S5
13 I $D(@("^"_QS_Q_"KSP(X6)")) D TXT^cAFA1(12) G 11
 ;
YZ K X6,Y1 Q
 ;
SC1 S FP=2303 W @F,@F1,$P(Y1,U,10) I $D(BFSW) S FP=$S($P(Y1,U,10)'="":2403,1:2303) W @F,$P($T(@("T1"_QT)),U,2),X8
SC1Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84