KTISL G 1 ;INBOEKEN TOELEVERINGEN ;VANUIT MENU (ENKEL BEPAALDE LEVERANCIER) ;Quit naar MENU - Do naar KTIST [ 05/10/99  1:47 PM ]
 ;
1 D S1 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",UD=5,UKIL="",TOU=@("^"_Q_"TO(0,""TOU"")")
3 S R="K\21\3\GEEF DE ONTVANGSTDATUM\""onder de vorm dd.mm.jj   [] = "_DT_"""\8\DCTR\\\" D R0 G YZ:K="-"
4 S:K="" K=DT S ODT=K X @("^"_Q_"TO(0,""TF"")") S S="LTW\"_ODT D S8
9 L  S FP=301 W @F,@F1 S (K,LC)=$$SELECT^LEVER() G 3:'K S I1=@("^"_Q_"L1(LC)"),FP=402 W @F,"LEVERANCIER : ",$P(@("^"_Q_"LE(I1,0)"),D,1)," ",$P(^(0),D,2)
11 I '$D(@("^"_Q_"TO(LC)")) S FP=2403+F60 W @F,@F1,@F4,"GEEN ",TOU,"BESTAND VOOR DEZE LEVERANCIER ! [] = OK ",@F5,@F0 R K G 9
13 D 4^KTIST G 9
 ;
YZ 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)),";",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 FP=227+$L(QN) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),";",2),QN," ",@F5
S1Z Q
 ;
S8 S @$P(S,D)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(S,D,2)),"DW")
 Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 Q