KCOAK G 1 ;MODULE COMERCIELE AKTIVITEIT;KCOAK; [ 03/08/2001  4:14 PM ]
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
S1 S U3=K,$P(B($P(A(R),U,16)\100),D,$P(A(R),U,16)#100)=K I $L($P(A(R),U,8)) X "S U3="_$P(A(R),U,8)
S1A S FP=$P(A(R),U,5)*100+$P(A(R),U,6) W @F,$J("",$P(A(R),U,9)),$J("",$P(A(R),U,13)),@F,U3
S1Z Q
 ;
1 S R="K\22\3\"_$P(U2,U,1)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11) S:$L($P(U2,U,11)) R=R_"!(K=""-"")" D R0
11 G 2:K="",YZ:"-,"[K D DELOBJ^KLPUTZ($P(B(1),D,1),"N"),DELOBJ^KLPUTZ($P(B(1),D,1),"S") S R="",K=$D(@("^"_Q_"KL(I1,0)")),K="L"
12 S K=$N(^(K)) I $E(K,1)="L" K ^(K) G 12
13 S R=$N(A(R)) I R=-1 S K=1 K R G YZ
15 G 13:"\119\225\303\325\"'[(D_$P(A(R),U,16)_D)
17 S K=$S($P(A(R),U,16)=225:0,1:"") D S1 G 13
 ;
2 S R=""
21 S R=$N(A(R)) I R=-1 S K="" K R G YZ
23 G 21:$P(A(R),U,16)'=120 D ^KSEKT,S1 S K="" K R G YZ
 ;
YZ Q
 ;
V6(KlantId) 
 New I,K,L,R,KLNr,ZWint
 Set UFU = $GET(UFU,"W")
 Set R=^KKL(KlantId,0),KLNr=$P(R,D),ZWint=$D(QW)
 Do DELOBJ^KLPUTZ(KLNr,"N"),DELOBJ^KLPUTZ(KLNr,"S")
 Do:ZWint E^cA612
 Do DelECToegang^KLANT(KLNr,$S(ZWint:1,1:0)) ; Verwijderen E-commerce toegang
 Do:ZWint P^cA612(2,1,20,80,1,"","","",$S(UFU="W":"Wijzigen",1:"Openen")_" klanten",$S($ZV["MSM":0,1:1),0,7,1,1)
 Set L="L"
 For  Set L=$O(^KKL(KlantId,L)) Quit:$E(L)'="L"  Kill ^KKL(KlantId,L)
 For I=119,120,225,303,325 Do BL^cAN000(I,$S(I=120:99,I=225:0,1:""))
 Quit
 ;