KTIST G 1 ;MODULE INBOEKEN TOELEV. (SELEKTIE TOELEV.NRS.) ;Quit naar KTO10,KTISL - Do naar KTIIN,KTO32 [ 08/07/2002   4:08 PM ]
 ;
M1 S MSG=TOU_"BESTAND VAN DEZE LEVERANCIER IN GEBRUIK" G MY
MY S FP=2403+F60 W @F,@F4,MSG," ! [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
1 S SW12=1
4 L @("^"_Q_"TO(LC)"):2 E  D M1 G YZ
6 K UTA,UTB S Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((UZ-100),3,0))",Q16="@(""^""_Q_""PR(PR,""""W    0.0""""_UOR_UODD_$J(UR,6,0)_$J((UUZ-100),3,0))"")",FP=UD*100+1 W @F,@F1
7 S UL=UD,Y=-1
70 I $N(^($N(@("^"_Q_"TO(LC,Y)"))))=-1 S K=$N(^(Y)),X=^(K,1),X="" D S1 G 21
8 I UL<20 S Y=$N(@("^"_Q_"TO(LC,Y)")) I Y'=-1 S UL=UL+1,UTA(Y)=UL,FP=UL*100+1 W @F,$C(13),?(7-$L(Y)),Y,?10,$P(^(Y,1),D,2),?21,$P(^(1),D,3) G 8:'$D(UTO(Y)) S K=Y D S1 G 8
9 S R="K\22\3\GEEF IN TE BOEKEN "_TOU_"NUMMER\""[] = " S:Y=-1 R=R_"EINDE SELEKTIE" S:Y'=-1 R=R_"VERVOLG" S R=R_"""\6\\K=""""!(K=""-"")!(K="","")!(K?.N)\\" D R0
11 G 4:K="-"&$D(SW12),YZ:K="-"!(K=","),21:K=""&(Y=-1) I K="" S UL=UD,FP=UD*100+1 W @F,@F1 G 8
12 G 9:'$D(@("^"_Q_"TO(LC,K)")) D S1 G 9
21 K UTA S UL=UD,Y=-1,FP=UD*100+1 W @F,@F1 G 7:'$D(UTO)
23 I UL<20 S Y=$N(UTO(Y)) I Y'=-1 S UL=UL+1,FP=UL*100+1 W @F,$C(13),?(7-$L(Y)),Y,?10,$P(@("^"_Q_"TO(LC,Y,1)"),D,2),?21,$P(^(1),D,3) G 23
25 S R="UTP\22\3\INBOEKEN TOELEVERINGEN\C1\1\\""-,TP""[K" D R0
26 G YZ:K="," I K="-" S FP=UD*100+1 W @F,@F1 K UTO G 7:$N(^($N(@("^"_Q_"TO(LC,-1)"))))'=-1,YZ:'$D(SW12),9
28 I K="" S UL=UD,FP=UL*100+1 W @F,@F1 G 23
31 S UUD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(ODT),"DS"),D,"")
32 S TR=-1 D ^KTIIN S K="," G YZ
 ;
YZ K Q15,Q16,UTO,UTA,LCO,LCN,KV,FNR,I1,X,XLA Q
 ;
C1 W !?2 W:Y'=-1 "[] = VERVOLG   " W "T[] = TOELEVERINGEN VOLLEDIG   P[] PER TOELEVERING" 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+9 W @F,@F5 S FP=UTA(K)*100+2 W @F,@FMTI,@FMTB,K,@F5
S1Z Q
 Q
Z X ^cZ Q
ZZ ; 06.05.91 -  9 u 09