KFKAP1 G F ;AFDRUKKEN OPENST. ORDERS MET UITLEV. ;Do naar KFOOU, KFKAP2 - Quit naar MENU [ 03/28/2001  11:38 AM ]
 ;
T1 ;IN ALFABETISCHE ORDE VANAF KLANT :
T2 ;IN ALFABETISCHE ORDE TOT KLANT   :
T3 ;EERSTE AF TE DRUKKEN KLANT\"-[] = einde programma   .[] = vanaf het begin   [] = specifieke klant"
T4 ;LAATSTE AF TE DRUKKEN KLANT\"I[] = idem als voorgaande   .[] = tot het einde   [] = specifieke klant"
T5 ;VANAF HET BEGIN
T6 ;DE KLANT
T7 ;TOT HET EINDE
T9 ;AFDRUKKEN VOOR LAND\"[] = alle"
T10 ;ALLE;NIET-UITLEVERBARE;UITLEVERBARE
T11 ;KODE : 
T12 ;AF TE DRUKKEN KLANTEN
T13 ;[] = alle   U[] = uitleverbare   N[] = niet-uitleverbare
 ;
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
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
11 S (BLZ,UPTV,UPTA,UNT)=0,K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 S Q1="@(""^""_Q_""KL(FST)"")",Q2="@(""^""_Q_""OD(KR,US,UR)"")",Q3="@(""^""_Q_""OD(KR,US,UR,UZ)"")"
15 S Q4="@(""^""_Q_""UL(KR,US,UR)"")",Q5="@(""^""_Q_""UL(KR,US,UR,UZ)"")",UBLOK=@("^"_Q_"OD(0,""F"",""UBLOK"")")
19 S FP=903 W @F,@F1,$P($T(T1),U,2),@F2 S FP=1103 W @F,$P($T(T2),U,2)
 ;
2 S R="K\23\3\"_$P($T(T3),U,2)_"\1\\"".-""[K" D R0 G YZ:K="-"
21 I K="." S FST=0,K=$P($T(T5),U,2)
22 E  S R="FST\1900\"_$P($T(T6),U,2)_"\KL\K1" D R1 G 2:K="-" S K=$P(K," ",2)_" "_$P(^(K,0),D,2)
24 S FP=938 W @F,K,@F2
25 S FP=2101 W @F,@F1 S R="K\23\3\"_$P($T(T4),U,2)_"\1\\""-.""[K!(K=""I""&(FST'=0))" D R0 G 2:K="-"
26 I K="." S LST="ZZ",K=$P($T(T7),U,2) G 29
27 I K="I" S LST=FST,K=$P(FST," ",2)_" "_$P(@("^"_Q_"KL(FST,0)"),D,2) G 29
28 S R="LST\1900\"_$P($T(T6),U,2)_"\KL\K1" D R1 G 25:K="-",28:FST]LST S K=$P(K," ",2)_" "_$P(^(K,0),D,2)
29 S FP=1138 W @F,K,@F2
 ;
3 S R="KKL\21\3\"_$P($T(T9),U,2)_"\3" D R0 G 25:K="-" I '$L(K) S FP=2125+F60 W @F,$P($T(T10),U,2) G 4
31 G 3:$$LAND^vhRtn1(K)="" S FP=2125+F60 W @F,$$LAND^vhRtn1(K,2)
 ;
4 S FP=2211 W @F,@F1,@F91 S FP=2202 W @F,@F92,$P($T(T11),U,2),@F0,@F90 R KBLOK W @F91 G 3:KBLOK="-"
41 I KBLOK'=$P(UBLOK,D,3) S KBLOK="" G 5
43 S R="KBLOK\22\3\"_$P($T(T12),U,2)_"\"""_$P($T(T13),U,2)_"""\1\\""-NU""[K" D R0 G 4:K="-"
45 S FP=2227 W @F,$P($T(T10),U,$F("NU",K)+1)
 ;
5 D INIT^vhPRINTER(132) G 19:'$D(Print)
51 D ^KFKAP2 G 3
 ;
YZ Q
 ;
R0 S R7=1 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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@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  ;V5 02.01.86
 ;
R1 D ^cA101 Q
 ;