cPE118 G 1 ;AFDRUKKEN TOELEV. ;SELEKTIE ;Quit naar MODULE,MENU - Do naar @("^"_Q_UGL_"(0,""TDTO"")")
 ;
ER X F71 S %1="1" G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
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"
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)"")"
10 S R="FTR\20\3\ALLE KLAAR VOOR AFDRUK OF BEPAALDE\""[] = ALLE   B[] = BEPAALDE ""\1\\""-B""[K\\" D R0 G YZ:K="-",23:K=""
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^cPE119 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^cPE119 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^cPE119 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,R="K\22\3\PLAATS "_TOU_"PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\""[] = OK""\1\\""-,""[K\\" D R0
24 I SW13&(K="-"!(K=",")) G 9:FTR=""&(LTR=999999),217:$D(KI1),17
25 G YZ:K="-"!(K=",")
26 X F70 W @F80 S TR=FTR-1 D @(@("^"_Q_UGL_"(0,""TDTO"")"))
27 G 31:SW13 X F71 S R="K\22\3\"_TOU_" GOED AFGEDRUKT\""E[] = EINDE(OK)""\1\\""-E""[K&$L(K)\\" D R0
29 G 41:K'="-" X F70 W @F80 S TR=FTR-1 D @(@("^"_Q_UGL_"(0,""TDTO"")")) G 27
31 X F71 S R="K\22\3\"_TOU_" GOED AFGEDRUKT\""E[] = EINDE(OK)   xxxxxx[] = HERNEMEN VANAF "_TOU_"NUMMER xxxxxx""\6\\(K?.N!(""-E""[K))&$L(K)\\" D R0
33 I K?.N&'$D(@("^"_Q_UG1_"(K)")) D S1 G 31
37 I K'="E" S:K="-" TR=FTR S:K'="-" TR=K X F70 W @F80 S TR=TR-1 D @(@("^"_Q_UGL_"(0,""TDTO"")")) G 31
41 S TR=-1
43 S TR=$N(@("^"_Q_"HBDTO($I,TR)")) G 45:TR=-1 K @("^"_Q_UGB_"(TR)") G 43
45 K @("^"_Q_"HBDTO($I)") 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
 ;
Z X ^cZ Q
ZZ ; 14.11.85 - 17 u 18