KTO32 G 1 ;AFDRUKKEN TOELEV. ;SELEKTIE ;Quit naar MODULE,MENU - Do naar @("^"_Q_UGL_"(0,""TDTO"")") [ 03/29/2001  9:50 AM ]
 ;
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 S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
1 S UGL="TO",UG1="TO1",UG2="TO2",UGB="TOB",BLBeri=0
4 S TOU=@("^"_Q_UGL_"(0,""TOU"")")
5 S SW13=1,FP=215+$L(TOU)+$L(QN) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,"AFDRUKKEN ",TOU," ",QN," ",@F5
7 L @("^"_Q_UGB):2 E  S FP=2403+F60 W @F,@F2,@F4,"MEN IS EEN ",TOU," AAN HET AFDRUKKEN OP EEN ANDERE TEMINAL ! [] = OK ",@F5,@F0 R K G YZ
9 S LTR=999999,Q20="@(""^""_Q_UGB_""(TR)"")" K @("^"_Q_"HBDTO($J)")
10 S R="FTR\20\3\ALLE KLAAR VOOR AFDRUK OF BEPAALDE\""[] = alle   B[] = bepaalde ""\1\\""-B""[K\\" D R0 G YZ:K="-"
100 I K="" G 23:$N(@("^"_Q_UGB_"(-1)"))'=-1 S FP=2403+F60 W @F,@F2,@F4,"ER IS GEEN "_TOU_" KLAAR VOOR AFDRUK ! [] = ok ",@F5,@F0 R *K G YZ
11 K KI1 S R="FTR\20\3\VANAF "_TOU_"NUMMER\""L[] = "_TOU_" bepaalde leverancier   [] = vanaf het begin""\6\\K?.N!(""-,L""[K)\\" D R0
12 G 9:K="-"!(K=","),212:K="L" I K="" S FP=2018+$L(TOU)+F60 W @F,"BEGIN" G 17
15 I '$D(@("^"_Q_UG1_"(K)")) D S1 G 11
17 S R="LTR\21\3\  TOT "_TOU_"NUMMER\"".[] = zelfde "_TOU_"nummer   [] = tot het einde""\6\\K?.N!(""-,.""[K)\\" D R0 G 11:K="-",9:K=","
18 S Q20="@(""^""_Q_UG1_""(TR)"")" S:K="."&(FTR'=0) (K,LTR)=FTR I K="" S LTR=999999,FP=2118+$L(TOU)+F60 W @F,"EINDE" G 23
19 I LTR<FTR S FP=2403+F60 W @F,@F2,@F4,"BEGINNUMMER IS GROTER DAN EINDNUMMER ! [] = OK ",@F5,@F0 R K G 17
21 G 23:$D(@("^"_Q_UG1_"(K)")) D S1 G 17
212 S R="KI1\400\LEVERANCIER\LE\L1" D R1^KTO33 G 11:K="-" S LC=$P(KI1," ",2),Q20="@(""^""_Q_UGL_""(LC,TR)"")"
213 S FP=405+$L(TOU) W @F,"LEVERANCIER : ",LC," ",$P(^(KI1,0),D,2)
214 I '$D(@("^"_Q_UGL_"(LC)")) S FP=2403+F60 W @F,@F2,@F4,"GEEN ",TOU," VOORBEREID VOOR DEZE LEVERANCIER [] = OK ",@F5,@F0 R K G 212
215 S FP=503 W @F,@F1,"VANAF ",TOU," NUMMER :"
216 S R="800\"_TOU_D_UGL D S2^KTO33 G 212:K="-",216:K="." S FTR=R,FP=519+$L(TOU) W @F,@F1,FTR
217 S FP=605 W @F,@F1,"TOT ",TOU," NUMMER :",!?2,".[] = zelfde ",TOU
218 S R="900\"_TOU_D_UGL D S2^KTO33 G 215:K="-",217:R<FTR&(K'=".") S LTR=R S:K="." LTR=FTR S FP=619+$L(TOU) W @F,@F1,LTR
22 I 'SW13 S (FTR,LTR)=TR
23 S SW37=0 S:$D(@("^"_Q_"BA(37)")) SW37=^(37) I 'SW37 F I=1:1:12 I $D(@("^"_Q_"BA(99,I)")) S @(Q_"BA(99,I)")=^(I)
230 S TR=FTR D INIT^vhPRINTER(80)
24 I SW13,'$D(Print) G 9:FTR=""&(LTR=999999),217:$D(KI1),17
25 G YZ:'$D(Print)
26 S TR=FTR-1 D @(@("^"_Q_UGL_"(0,""TDTO"")"))
27 G 31:SW13 D CLOSE^vhPRINTER S R="K\22\3\"_TOU_" GOED AFGEDRUKT\""E[] = einde(ok)   H[] = hernemen""\1\\""HE""[K&$L(K)\\" D R0
29 G 41:K'="H" D INIT^vhPRINTER(80) G YZ:'$D(Print) S TR=FTR-1 D @(@("^"_Q_UGL_"(0,""TDTO"")")) G 27
31 D CLOSE^vhPRINTER S R="K\22\3\"_TOU_" GOED AFGEDRUKT\""E[] = einde(ok)   H[] = hernemen   xxxxxx[] = hernemen vanaf nummer xxxxxx""\6\\(K?.N!(""HE""[K))&$L(K)\\" D R0
33 I K?.N&'$D(@("^"_Q_UG1_"(K)")) D S1 G 31
37 I K'="E" S:K="H" TR=FTR S:K'="H" TR=K D INIT^vhPRINTER(80) G YZ:'$D(Print) S TR=TR-1 D @(@("^"_Q_UGL_"(0,""TDTO"")")) G 31
39 I BLBeri S R="K\22\3\MOETEN DE TOELEVERINGEN OPGENOMEN BLIJVEN VOOR ELEKTRONISCH VERSTUREN\""N[] = neen   [] = ja""\1\\""N""[K" D R0 S BLBeri=$L(K)
41 S TR=-1
43 S TR=$N(@("^"_Q_"HBDTO($J,TR)")) G 45:TR=-1 K @("^"_Q_UGB_"(TR)") K:BLBeri ^BLBeri("Z",TR) G 43
45 K @("^"_Q_"HBDTO($J)") I 'SW13 S K="," X:$D(SW12) @("^"_Q_UGL_"(0,0)"),^("UT"),^("UU")
 ;
YZ K U0,U1,U2,UO,KN,KN2,KA,KS,KP,KW,KT,KB,KBN,KWL,UTA,TL,FTR,LTR,Q20,Z,@(Q_"BA(99)") Q
 ;
S1 S FP=2403+F60 W @F,@F2,@F4,TOU," ONBEKEND [] = OK ",@F5,@F0 R K
S1Z Q
 ;