KF26CC G F ;AFDRUKKEN FAKTUREN ;SELEKTIE ;Quit naar KF20CC,MENU - Do naar @("^"_Q_"UL(0,US,""UDFA"")") [ 03/28/2001  4:29 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 @("^"_Q_"FBS($J)"),@("^"_Q_"FBE($J)"),@("^"_Q_"FBW($J)")
22 S (FFNR,LFNR)=FNR I $D(OD) S:$N(OD(0))'=-1 FFNR=OD($N(OD(0)))
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)
24 D INIT^vhPRINTER(80)
25 G YZ:'$D(Print) S ABV=0 F I=0:1:9 I $D(PBTW(I)) S ABV=ABV+1
26 F FNR=FFNR:1:LFNR D @(@("^"_Q_"UL(0,US,""UDFA"")"))
27 D CLOSE^vhPRINTER S R="K\22\3\FAKTUUR GOED AFGEDRUKT\""E[] = einde(ok)   H[] = hernemen""\1\\""HE""[K&$L(K)\\" D R0
29 I K'="E" D  G 27
 .D INIT^vhPRINTER(80)
 .Q:'$D(Print)
 .F FNR=FFNR:1:LFNR 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
 ;
YZ K U0,U1,U2,UO,KN,KN2,KA,KS,KP,KW,KT,KB,KBN,KWL,UTA,TL,FFNR,LFNR,Z,ABV,BIT,BLZ,BPE,BTWK,COM,DUPL,FC,FNX,HIS,KAPT,KE,KF,KI,KIN,KK,KKK,KKN,KKT,KKTA,KL,KLV,KO,KPL,KV,KX,KXA,KXWA,KXX,KYW,PO,PR,TDU,TTBF,U3,U4,UEB,UGW,UIT,UP,UPT,URR,USS,UUR,@(Q_"BA(99)") Q
 ;