KOFAN2 G 1 ;MODULE ANNULEREN OFFERTES (SELEKTIE OFFERTENRS.) ;Quit naar %F10,KOFAN1 [ 08/05/2002  10:15 AM ]
 ;
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
M1 S MSG=UOU_"BESTAND VAN DEZE KLANT IN GEBRUIK" G MY
M2 S MSG="GELDIHEIDSDATUM VAN "_UOU_" "_K_" NOG NIET VERSTREKEN" G MY
MY S FP=2403+F60 W @F,@F4,MSG," [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
1 L @("^"_Q_"OFF(KC,US)"):2 E  D M1 G YZ
6 K UTA,UTB D S2
7 S UL=UD,Y=-1
70 G 8:$N(^($N(@("^"_Q_"OFF(KC,US,Y)"))))'=-1 S K=$N(^(Y)),X=^(K,1),R=$P(X,D,16) D XT I +$H'>R D M2 G YZ
72 D S1 G 21
8 I UL<20 S Y=$N(@("^"_Q_"OFF(KC,US,Y)")) I Y'=-1 S UL=UL+1,UTA(Y)=UL,FP=UL*100+1 W @F,$C(13),$J(Y,7),?10,$P(^(Y,1),D,2),?21,$P(^(1),D,3),?51,$P(^(1),D,16) G 8
9 S R="K\22\3\GEEF TE ANNULEREN "_UOU_"NUMMER\""A[] = alle   [] = " S:Y=-1 R=R_"einde selektie" S:Y'=-1 R=R_"vervolg" S R=R_"""\6\\K=""""!(K=""-"")!(K="","")!(K=""A"")!(K?.N)\\" D R0
11 G YZ:K="-"!(K=","),18:K="A",21:K=""&(Y=-1) I K="" S UL=UD D S2 G 8
12 G 9:'$D(@("^"_Q_"OFF(KC,US,K)")) S X=^(K,1),R=$P(X,D,16) D XT I +$H'>R D M2 G 9
13 D S1 G 9
18 S Y=-1,KCO="" K UTO,UTA
19 S (K,Y)=$N(@("^"_Q_"OFF(KC,US,Y)")) G 21:Y=-1 S X=^(Y,1),R=$P(X,D,16) D XT G 19:+$H'>R
20 D S1 G 19
21 K UTA S UL=UD,Y=-1 D S2 G 7:'$D(UTO)
23 I UL<12 S Y=$N(UTO(Y)) I Y'=-1 S UL=UL+1,FP=UL*100+1 W @F,$C(13),$J(Y,7),?10,$P(@("^"_Q_"OFF(KC,US,Y,1)"),D,2),?21,$P(^(1),D,3),?51,$P(^(1),D,16) G 23
25 S R="UVL\22\3\ANNULEREN OFFERTES\""A[] = annuleren" S:Y'=-1 R=R_"   [] = vervolg" S R=R_"""\1\\""-,A""[K" D R0 I K="" G 21:Y=-1 D S2 S UL=UD G 23
26 G YZ:K="," I K="-" D S2 K UTO G 7:$N(^($N(@("^"_Q_"OFF(KC,US,-1)"))))'=-1,YZ
27 S UR=-1 D S2
28 S UR=$N(UTO(UR)) G YZ:UR=-1 S FP=2401+F60 W @F,@F2 S FP=2421+$L(UOU)+$L(UR)+F60 W @F,@F5 S FP=2403+F60 W @F,@F4,UOU," ",UR," IS GEANNULEERD ",@F5
29 K @("^"_Q_"OFF(KC,US,UR)"),@("^"_Q_"OFF1(UR,US)"),@("^"_Q_"OFFB(UR,US)"),@("^"_Q_"OFF2(US,KC,UR)") H 3 G 28
 ;
YZ K UTO,UTA Q
 ;
DCTR ;K?2N1"."2N1"."2N&(RD>0)&(RM>0)&(RD<32)&(RM<13)&'("04060911"[RM&(RD=31))&'(+RM=2&(('(RJ#4)&(RD>29))!(RJ#4&(RD>28))))!("-"[K)
 Q
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)),U,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 S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
S1 
 ;S UTO(K)="" I $D(UTA(K)) S FP=UTA(K)*100+8 W @F,@F5 S FP=UTA(K)*100+1+6-$L(K) W @F,@F92
 S UTO(K)="" I $D(UTA(K)) S FP=UTA(K)*100+9 W @F,@F5 S FP=UTA(K)*100+1 W @F,@F4,K,@F,@F92,K,@F5
S1Z Q
 ;
S2 S FP=UD*100+1 W @F,@F1
S2Z Q
 ;