KFULV G F ;AFDRUKKEN UITLEVERINGSVOORST. - OPENST. ORDERS ;Do naar KFOOU, KFULV1 - Quit naar MENU [ 03/28/2001  1:20 PM ]
 ;
F S US="F" G 1
M S US="M" G 1
N S US="N" G 1
P S US="P" G 1
T S US="T" G 1
 ;
S2 S FP=603 W @F,@F1,"VANAF ",LKO," :"
S2Z Q
 ;
S3 S FP=703 W @F,@F1,"TOT ",LKO,"   :"
S3Z Q
 ;
S4 S FP=612+$L(LKO) W @F,$S($L(K):K,1:"HET BEGIN")
S4Z Q
 ;
S5 S FP=712+$L(LKO) 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_""O1(FST)"")",Q2="@(""^""_Q_""KL(FST)"")",Q3="@(""^""_Q_""OD(KR,US,UR)"")",Q4="@(""^""_Q_""OD(KR,US,UR,UZ)"")"
7 I '$D(@("^"_Q_"O2(US)")) S FP=2403+F60 W @F,@F4,"ER ZIJN GEEN OPENSTAANDE ORDERS ! [] = OK ",@F5,@F0 R K G YZ
9 S FP=401 W @F,@F1 S R="K\20\3\LIJST PER KLANT OF PER ORDERNUMMER\""K[] = per klant   O[] = per ordernummer""\1\\""-KO""[K&$L(K)" D R0^KFOOU
10 G YZ:K="-" S:K="O" LKO="ORDERNUMMER",Q5="@Q1" S:K="K" LKO="KLANT",Q5="@Q2" S FP=403 W @F,"PER ",LKO
11 S:LKO["K" FST=0,LST="ZZZZZZZZZZ" S:LKO["O" FST=100000,LST=999999 S FP=601 W @F,@F1
13 S R="K\20\3\ALLE "_LKO S:LKO["K" R=R_"EN" S:LKO["O" R=R_"S" S R=R_" OF BEBAALDE\""[] = alle   B[] = bepaalde""\1\\""-,B""[K" D R0^KFOOU G 23:K="",9:"-,"[K,19:LKO["K"
15 D S2 S R="K\20\3\VANAF "_LKO_"\""[] = 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 "_LKO_"\""[] = 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\KLANT\KL\K1" 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\KLANT\KL\K1" D R1^KFOOU G 9:K=",",19:K="-" S LST=K,K=$P(^(K,0),D,2) D S5
23 S FP=407+$L(LKO) W @F,@F2 S FP=2003 W @F,@F1
 S R="LC\21\3\BEPERKING OP LEVERANCIER\""[] = alle   B[] = bepaalde""\1\\""-,B""[K" D R0^KFOOU
 G 9:K=",",230:K'="-" I LKO["O" G 11:FST'>100000&(LST=999999),17
 G 11:FST=0&(LST="ZZZZZZZZZZ"),21
230 I $L(LC) S FP=2003 W @F,@F1 S LC=$$SELECT^LEVER(1) G 23:'LC S FP=407+$L(LKO) W @F," - BEPERKT TOT LEVERANCIER : ",LC," ",$P(^KLE(^KL1(LC),0),D,2)
24 S R="ULW\20\3\AFDRUKKEN ORDERS TOT LEVERINGSWEEK\C1\5\\""-,""[K&$L(K)!(K?2N1""/""2N&($P(K,""/"",2)<54))!(K=""99/99"")\\" D R0^KFOOU
25 G 9:K=",",28:K'="-" S FP=2003 W @F,@F1 G 23:'LC,230
28 S R="KKL\21\3\"_$S(ULW="99/99":"OPENSTAANDE ORDERS",1:"UITLEVERINGSVOORSTEL")_" VOOR LAND"_$S(ULW="99/99":"      ",1:"    ")_"\C3\3" D R0^KFOOU I K="" S FP=2140+F60 W @F,"ALLE" G 30
29 G 9:K=",",24:K="-",28:$$LAND^vhRtn1(K)="" S FP=2140+F60 W @F,$$LAND^vhRtn1(K,2)
30 S R="SPB\22\3\BEHANDELING "_$S(ULW="99/99":"OPENSTAANDE ORDERS    ",1:"UITLEVERINGSVOORSTEL  ")_"\C4\1\\""-,SNCAK""[K\\" D R0^KFOOU
31 G 9:K=",",28:K="-" S FP=2240 W @F,$S(K="K":"KLANTGEBONDEN (8)",K="A":"AFROEP",K="C":"CONTRACT",K="S":"SPECIALE",K="N":"NORMALE",1:"ALLE")
33 S KRR=0 D INIT^vhPRINTER(132) G 9:'$D(Print)
35 D ^KFULV1 G 3
 ;
YZ Q
 ;