KKLV G 1 ;MODULE VERWIJDEREN KLANTEN (TEST ORDERS, UITLEVERINGEN, OFFERTES);KKLV; [ 12/06/2003  1:49 PM ]
 ;
O1 S K="Er zijn orders aanwezig" G OY
O2 S K="Er zijn uitleveringen aanwezig" G OY
O3 S K="Er zijn verkopen in "_K_"aanwezig" G OY
O4 S K="Deze klant is een adres van:"_$S($L(K):"~&S~"_K,1:K)
 G OY
OY N I,Txt,But
 F I=1:1:$L(K,"~") S Txt(I)=$P(K,"~",I)
 S But(1)="Ok",K=$$WILD^vhTXTPOP("C;C","","Txt","But")
OZ S OK=0 G YZ
 ;
V1 S K="Deze klant is klant van "_$P(B(2),D,10) G VY
V2 S K="Deze klant heeft scharniermachine" G VY
V3 S K="Deze klant werd recent geopend" G VY
V4 S K="Er is potentieel aanwezig" G VY
V5 S K="Er zijn verslagen na 01."_DM_"."_$E(DJ-2,3,4)_" aanwezig" G VY
V6 S K="Er zijn offertes aanwezig" G VY
V7 S K="Er zijn incidenten aanwezig.~Deze worden eveneens verwijderd." G VY
VY N I,Txt,But
 F I=1:1:$L(K,"~") S Txt(I)=$P(K,"~",I)
 S But(1)="Annuleer&,",But(2)="Verwijder&V",K=$$WILD^vhTXTPOP("C;C","","Txt","But",2)
VZ S:K="-" K="," S:K="," OK=0 Q
 ;
1 I $ZV'["MSM" D E^cA612 X F71
 S OK=2 I $D(@("^"_Q_"OD($P(B(1),D,1))")) G O1 ;Heeft orders
 I $D(@("^"_Q_"UL($P(B(1),D,1),""F"")")) G O2 ;Heeft uitleveringen
 S K=DJ-3 S:DM<7 K=K-1 S K=K_".06 " ;Heeft verkopen DJ-3
 S K=$N(@("^"_Q_"STKL($P(B(1),D,1),0,K)")) I K'=-1 G O3
 S K=$$IsKlantInAdres^LEVADR($P(B(1),D,1),,1) I K D  G O4
 . N I
 . S K=$P(K,D,2,10)
 . F I=1:1:$L(K,D) S $P(K,D,I)=$P($P(K,D,I),";",2)_$J($P($P(K,D,I),";"),6)_" "_$P(^KKL(^KK1($P($P(K,D,I),";")),0),D,2)
 . S K=$TR(K,D,"~")
11 I $L($P(B(2),D,10)) D V1 G YZ:K=",",11:K'="V" ;Is klant van
13 I $P(B(2),D,15) D V2 G YZ:K=",",13:K'="V" ;Heeft scharniermachine
15 
 ;I $P(B(1),D,1)+200>^DIN(Q,"KL") D V3 G YZ:K=",",15:K'="V" ;recent geopend
17 I $D(@("^"_Q_"KOV($P(B(1),D,1))")) D V4 G YZ:K=",",17:K'="V" ;Heeft potentieel
19 I $O(^VERSLAG("IK",$P(B(1),D,1),$$CALCDATE^vhLib.DataTypes($H,"M",-24,"FD")))'="" D V5 G YZ:K=",",19:K'="V" ;Heeft verslagen
2 S K=$O(@("^"_Q_"OFKL($P(B(1),D,1),""F"","""")"),-1) ;Heeft offertes na DJ-1
 I $L(K) S K=$P(^(K,1),D,2),K=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(K),"M","+12","FD")
 I $L(K),K>$$CALCDATE^vhLib.DataTypes($H,"M","FD") D V6 G YZ:K=",",2:K'="V"
3 If $D(^KlachtI("K",$P(B(1),D,1))) D V7 G YZ:K=",",3:K'="V"
 ;
YZ D:$ZV'["MSM" B^cA612,P^cA612(2,1,20,80,1,"","","","Verwijderen klanten",1,0,7,1,1),S1^cAN202
 Q
 ;