KTOT G 1 ;AFDRUKKEN OPENSTAANDE TOELEVERINGEN ;Do naar KFOOU, KTOT1 - Quit naar MENU [ 03/29/2001  10:01 AM ]
 ;
S2 S FP=603 W @F,@F1,"VANAF ",LLB," :"
S2Z Q
 ;
S3 S FP=703 W @F,@F1,"TOT ",LLB,"   :"
S3Z Q
 ;
S4 S FP=612+$L(LLB) W @F,$S($L(K):K,1:"HET BEGIN")
S4Z Q
 ;
S5 S FP=712+$L(LLB) W @F,$S($L(K):K,1:"HET EINDE")
S5Z Q
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
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 Q1="@(""^""_Q_""TO1(FST)"")",Q2="@(""^""_Q_""LE(FST)"")",Q3="@(""^""_Q_""TO(LR,TR)"")",Q4="@(""^""_Q_""TO(LR,TR,TZ)"")"
7 I $N(@("^"_Q_"TO(0)"))=-1 S FP=2403+F60 W @F,@F4,"ER ZIJN GEEN OPENSTAANDE BONS ! [] =OK ",@F5,@F0 R K G YZ
9 S FP=401 W @F,@F1 S R="K\20\3\LIJST PER LEVERANCIER OF PER BONNUMMER\""L[] = PER LEVERANCIER   B[] = PER BONNUMMER""\1\\""-LB""[K&$L(K)" D R0^KFOOU
10 G YZ:K="-" S:K="B" LLB="BONNUMMER",Q5="@Q1" S:K="L" LLB="LEVERANCIER",Q5="@Q2" S FP=403 W @F,"PER ",LLB
11 S:LLB["L" FST=0,LST="ZZZZZZZZZZ" S:LLB["B" FST=99999,LST=999999 S FP=601 W @F,@F1
13 S R="K\20\3\ALLE "_LLB S:LLB["L" R=R_"S" S:LLB["B" R=R_"NEN" S R=R_" OF BEBAALDE\""[] = ALLE   B[] = BEPAALDE""\1\\""-,B""[K" D R0^KFOOU G 23:K="",9:"-,"[K,19:LLB["L"
15 D S2 S R="K\20\3\VANAF "_LLB_"\""[] = VANAF HET BEGIN""\6\\""-,""[K!(K?6N)" D R0^KFOOU G 9:K=",",11:K="-" D S4 S:'K K=100000 S FST=K-1
17 D S3 S R="K\20\3\TOT "_LLB_"\""[] = TOT HET EINDE""\6\\""-,""[K!(K?6N)" D R0^KFOOU G 9:K=",",15:K="-" D S5 S:'K K=999999 S LST=K G 23
19 D S2 S R="K\2000\LEVERANCIER\LE\L1" D R1^KFOOU G 9:K=",",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 9:K=",",19:K="-" S LST=K,K=$P(^(K,0),D,2) D S5
23 S R="ULW\20\3\AFDRUKKEN TOELEVERINGEN TOT LEVERINGSWEEK\C2\5\\""-,""[K&$L(K)!(K?2N1""/""2N&($P(K,""/"",2)<54))!(K=""99/99"")\\" D R0^KFOOU
25 G 9:K=",",29:K'="-" I LLB["B" G 11:FST'>100000&(LST=999999),17
27 G 11:FST=0&(LST="ZZZZZZZZZZ"),21
29 S LRR=0 D INIT^vhPRINTER(80) G 9:'$D(Print)
31 D ^KTOT1 G 3
 ;
YZ Q
 ;