KTOKN G 1 ;AFDRUKKEN GEWIJZIGDE LEVERINGSTERMIJNEN KOM ;Do naar KFOOU, KTOKN1 - Quit naar MENU [ 10/26/2001  2:13 PM ]
 ;
S2 S FP=403 W @F,@F1,"VANAF LEVERANCIER :"
S2Z Q
 ;
S3 S FP=503 W @F,@F1,"TOT LEVERANCIER   :"
S3Z Q
 ;
S4 S FP=423 W @F,$S($L(K):K,1:"HET BEGIN")
S4Z Q
 ;
S5 S FP=523 W @F,$S($L(K):K,1:"HET EINDE")
S5Z Q
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),%WK=$$EXTDATE^vhDTyp(,"W")
2 S BLA="                                        "
3 S (BLZ,TOTS,TOTN)=0,K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
5 S Q2="@(""^""_Q_""LE(FST)"")",Q3="@(""^""_Q_""TOK(LR,TR)"")",Q4="@(""^""_Q_""TOK(LR,TR,TZ)"")"
7 I $N(@("^"_Q_"TOK(0)"))=-1 S FP=2403+F60 W @F,@F4,"ER ZIJN GEEN VERSCHILLEN ! [] =OK ",@F5,@F0 R K G YZ
11 S FST=0,LST="ZZZZZZZZZZ",FP=601 W @F,@F1
13 S R="K\20\3\ALLE LEVERANCIERS OF BEPAALDE\""[] = alle   B[] = bepaalde""\1\\""-B""[K" D R0^KFOOU G 23:K="",YZ:K="-"
19 D S2 S R="K\2000\LEVERANCIER\LE\L1" D R1^KFOOU G 11:K="-" S FST=$E(K,1,$L(K)-1)_($E(K,$L(K))-1),K=$P(^(K,0),D,2) D S4
21 D S3 S R="K\2000\LEVERANCIER\LE\L1" D R1^KFOOU G 19:K="-" S LST=K,K=$P(^(K,0),D,2) D S5
23 S R="KGP\20\3\ALLE GEWIJZIGDE OF ALLE PROBLEEMGEVALLEN\""G[] = alle gewijzigde   P[] = alle probleemgevallen""\1\\""-,GP""[K&$L(K)\\" D R0^KFOOU
25 G 11:K="," I K="-" G 11:FST=0&(LST="ZZZZZZZZZZ"),21
27 D INIT^vhPRINTER(132) G 11:'$D(Print)
29 D ^KTOKN1 G 3
 ;
YZ Q
 ;