KF26 G F ;AFDRUKKEN FAKTUREN ;SELEKTIE ;Quit naar %F20,MENU - Do naar @("^"_Q_"UL(0,US,""UDFA"")") [ 03/28/2001  4:28 PM ]
 ;
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
 ;
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 K ^HULP($J),@("^"_Q_"FX($J)") S SW13=1,FP=223+$L(QN) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),";",2),QN," ",@F5
3 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1) S:$D(^(X+20)) PEGA(X)=$P(^(X+20),D,2)
5 L @("^"_Q_"FB(US)"):2 E  S FP=2403+F60 W @F,@F2,@F4,"MEN IS FAKTUREN AAN HET AFDRUKKEN OP ANDERE TERMINAL ! [] = ok ",@F5,@F0 R *KY G YZ
7 I $N(@("^"_Q_"FB(US,-1)"))=-1 S FP=2403+F60 W @F,@F2,@F4,"ER ZIJN GEEN FAKTUREN KLAAR VOOR AFDRUK ! [] = ok ",@F5,@F0 R *KY G YZ
8 K @("^"_Q_"FBS($J)"),@("^"_Q_"FBE($J)"),^HULP($J),@("^"_Q_"FBW($J)")
9 S LFNR=999999,R="FFNR\20\3\ALLE FAKTUREN KLAAR VOOR AFDRUK OF BEPAALDE\""[] = alle fakturen   B[] = bepaalde fakturen""\1\\""-B""[K\\" D R0 G YZ:K="-",23:K=""
11 S R="FFNR\20\3\VANAF FAKTUURNUMMER\""[] = vanaf het begin""\6\\K?.N!(""-,""[K)\\" D R0 G 9:K="-"!(K=",")
12 I K="" S FP=2026+F60 W @F,"BEGIN" G 17
13 I '$D(@("^"_Q_"FA(US,K)")) D S1 G 11
15 I '$D(@("^"_Q_"FB(US,K)")) D S2 G 11
17 S R="LFNR\21\3\  TOT FAKTUURNUMMER\"".[] = zelfde faktuurnummer   [] = tot het einde""\6\\K?.N!(""-,.""[K)\\" D R0 G 11:K="-",9:K=","
18 S:K="."&(FFNR'=0) (K,LFNR)=FFNR S FP=2125+F60 W @F,K I K="" S LFNR=999999,FP=2126+F60 W @F,"EINDE" G 23
19 I LFNR<FFNR S FP=2403+F60 W @F,@F2,@F4,"BEGINNUMMER IS GROTER DAN EINDNUMMER ! [] = ok ",@F5,@F0 R *KY G 17
20 I '$D(@("^"_Q_"FA(US,K)")) D S1 G 17
21 I '$D(@("^"_Q_"FB(US,K)")) D S2 G 17
22 I 'SW13 S (FFNR,LFNR)=FNR
23 S SW36=0 S:$D(@("^"_Q_"BA(36)")) SW36=^(36) I 'SW36 F I=1:1:12 I $D(@("^"_Q_"BA(99,I)")) S @(Q_"BA(99,I)")=^(I)
230 S FNR=FFNR D INIT^vhPRINTER(80)
24 I SW13,'$D(Print) G 9:FFNR=""&(LFNR=999999),17
25 G YZ:'$D(Print) S ABV=0 F I=0:1:9 I $D(PBTW(I)) S ABV=ABV+1
26 S FNR=FFNR-1 D @(@("^"_Q_"UL(0,US,""UDFA"")"))
27 G 31:SW13 D CLOSE^vhPRINTER S R="K\22\3\FAKTUUR GOED AFGEDRUKT\""E[] = einde(ok)""\1\\""HE""[K&$L(K)\\" D R0
29 G 41:K'="H" D  G 27
 .D INIT^vhPRINTER(80)
 .Q:'$D(Print)
 .S FNR=FFNR-1 D @(@("^"_Q_"UL(0,US,""UDFA"")"))
31 D CLOSE^vhPRINTER S R="K\22\3\FAKTUREN GOED AFGEDRUKT\""E[] = einde(ok)   xxxxxx[] = hernemen vanaf faktuurnummer xxxxxx""\6\\(K?.N!(""HE""[K))&$L(K)\\" D R0
33 I K?.N&'$D(@("^"_Q_"FA(US,K)")) D S1 G 31
35 I K?.N&'$D(@("^"_Q_"FB(US,K)")) D S2 G 31
37 I K'="E" S:K="H" FNR=FFNR S:K'="H" FNR=K D  G 31
 .D INIT^vhPRINTER(80)
 .Q:'$D(Print)
 .S FNR=FNR-1 D @(@("^"_Q_"UL(0,US,""UDFA"")"))
41 S FNR=-1
43 S FNR=$N(@("^"_Q_"FX($J,FNR)")) I FNR'=-1 K @("^"_Q_"FB(US,FNR)") G 43
45 K @("^"_Q_"FX($J)") I 'SW13 X:$D(SW12) @("^"_Q_"OD(0,US,1)"),^("UT"),^("UF") S K=","
47 I $D(@("^"_Q_"FBW($J)")) D ^KFWIS
49 I $D(@("^"_Q_"FBS($J)")) D ^KFSPD
51 I $D(@("^"_Q_"FBS($J)")) D ^KFSPE
53 I $D(@("^"_Q_"FBE($J)")) D ^KFEXE
54 ;I $D(@("^"_Q_"FBB($J)")) D ^KFBNL
55 I $D(^HULP($J)) D ^KFBON
 ;
YZ K U0,U1,U2,UO,KN,KN2,KA,KS,KP,KW,KT,KB,KBN,KWL,UTA,TL,FFNR,LFNR,Z,@(Q_"BA(99)") Q
 ;
S1 S FP=2403+F60 W @F,@F2,@F4,"FAKTUUR ONBEKEND  [] = ok ",@F5,@F0 R *KY
S1Z Q
 ;
S2 S FP=2403+F60 W @F,@F2,@F4,"DIT FAKTUURNUMMER IS NIET KLAAR VOOR AFDRUK [] = ok ",@F5,@F0 R *KY
S2Z Q
 ;