KT9 G 1 ;OPENSTAANDE KLANTENFAKTUREN ;KT9; [ 08/07/2002   4:08 PM ]
 ;
T1 ;DE KLANT 
T3 ;[] = vervolg 
T4 ;:---------:-----:---------:-------------:----:--------------:--------------:--:
T5 ;:KLANT : 
T6 ;:TEL.  : 
T7 ;BTW-NR : 
T8 ;c nummer datum vervaldag     bedrag    munt    onbetaald      vervallen   r
T9 ;klant : 
T10 ;tel.  : 
T11 ;BTW-nr : 
T12 ;AFDRUK 
T13 ;[] = afdruk op scherm   .[] = afdruk op printer
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 B 1 S U=";",Q0="^"_Q_"KL(I1)",Q1="^"_Q_"K1(K)",TP=1,FAMNT=$P(@("^"_Q_"BA(39)"),1)
2 I $L(TP) W # X F71 D 9:QP
20 I 'QP&(TP="") X ^cTXT(0,"N",4) R K
21 I 'QP D 9:PP(2)="T"
27 I QP S R="I1\2000\"_$P($T(T1),U,2)_"\KL\K1" D R1^KFTR1 G 63:K?1"#"2N S PP(1)=K S:K'="-" PP(1)=I1
270 E  S (K,I1)=PP(1),PP(1)="-"
271 G YZ:K="-"
28 I QP S FP=2310+F60 W @F,@F5 S FP=2302+F60 W @F,@F4,$P($T(T12),U,2),@F5,": ",!?2,$P($T(T13),U,2) S FP=FP+11 W @F,".",@F,@F0 R TP G 27:TP="-",62:TP?1"#"2N,28:'("."[TP) S PP(2)=TP
280 E  S TP=PP(2),PP(2)="-"
281 I QP&$L(TP) X ^cTXT(0,"N",6) W @F,".",@F2,@F,@F0 R K G 27:K=",",28:K="-",281:'("."[K) I K="." D R9 G 27
29 S Z3=@("^"_Q_"KL(I1,0)"),Z4=^(2) I $L(TP) X F70 W @F80 S LYN="*"_$A(":") D 8 G 5
3 S LYN=F7_","_$P(FG,D,10)_","_F8,FP=212 W @F,$J(" ",67),@F,$E($P(Z3,D,2)_" "_$P(Z3,D,5)_" "_$P(Z3,D,7),1,67)
31 S FP=312,K=$S($L($P(Z4,D,1)):$P(Z4,D,1),1:$P(Z3,D,13)) W @F,$J(" ",18),@F,K S FP=343,K=$P(Z3,D,16) W @F,$J(" ",18),@F,$E(K,1,3)_"."_$E(K,4,6)_"."_$E(K,7,9) S FP=601 W @F,*32,@F1 S FP=501 W @F
5 S LN=5,(ONB,VER)="",I3=9999
53 S I3=$N(^(I3)) I I3'?5N.N!(I3>999999) D 65 G 2
55 S QA=0,A=^(I3),VVD=$P(A,D,3),OPE=$P(A,D,5),FC=$P(A,D,1),MNT=$P(A,D,9) S:MNT="" MNT=FAMNT S:MNT'=FAMNT OPE=$P(A,D,10),QA=2
56 S:FC="C" OPE=-OPE S ONB=ONB+OPE,LN=LN+1 I LN>17,TP="" D 73 G 63:K?1"#"2N
560 D 74:LN>55
57 W !,$C(13),?2,FC,?4,$J(I3,6),?11,$E($P(A,D,2),1,5),?18,VVD,?26
58 S R=$P(A,D,4)_D_13_D_D_QD D R3 W $J(MNT,4),"  " S QA=0,R=OPE_D_13_D_D_QD D R3
59 I $$INTDATE^vhLib.DataTypes(VVD)'>$H S R=OPE_D_13_D_D_QD W " " D R3 S VER=VER+OPE
6 W ?76,$P(A,D,8) D 7 G 53
 ;
62 S K=TP
63 G ^KFTP
 ;
65 W !,?46,"-------------- --------------" S LN=LN+1 D 7 W !,?45 S LN=LN+1,R=ONB_D_14_D_D_QD D R3 S R=VER_D_14_D_D_QD D R3 D 7
66 I $L(TP) W !,$P($T(T4),U,2) Q
67 W !,@F7,@$P(FG,D,3) F I=1:1:77 W @$P(FG,D,9)
68 W @$P(FG,D,4) F I=10,16,26,40,45,60,75 S FP=LN*100+101+I W @F,@$P(FG,D,8)
69 W @F8 Q
 ;
7 I TP="" F K=1,11,17,27,41,46,61,76,79 S FP=LN*100+K W @F,@LYN
71 E  W $C(13) F K=0,10,16,26,40,45,60,75,78 W ?K,@LYN
72 Q
73 S FP=2416+F60 W @F,@F5 S FP=2402+F60 W @F,@F4,$P($T(T3),U,2),@F5,": ." S FP=2419+F60 W @F,@F0 R K G 73:K?.E1C.E Q:K?1"#"2N  G 73:K'="" S FP=601 W @F,@F1 S FP=501 W @F S LN=6 Q
74 W !,$P($T(T4),U,2),# S LN=6
8 W !,$P($T(T4),U,2,99),!,":",?78,":",!,$P($T(T5),U,2),$E($P(Z3,D,2)_" "_$P(Z3,D,5)_" "_$P(Z3,D,7),1,60),?78,":",!,":",?78,":",!,$P($T(T6),U,2),$S($L($P(Z4,D,1)):$P(Z4,D,1),1:$P(Z3,D,13))
80 W ?32,$P($T(T7),U,2) S K=$P(Z3,D,16) W $E(K,1,3)_"."_$E(K,4,6)_"."_$E(K,7,9),?78,":"
82 W !,$P($T(T4),U,2,99),!,?2,$P($T(T8),U,2,99),$C(13) D 7 W !,$P($T(T4),U,2,99) Q
9 W @F61,@F11,@F1,@F7,@$P(FG,D,1) D LYN W @$P(FG,D,2),@F8 S FP=401 W @F,@F7,@$P(FG,D,7) D LYN W @$P(FG,D,6),@F8 F FP=201,279,301,379 W @F,@F7,@$P(FG,D,10),@F8
90 F FP=411,417,427,441,446,461,476 W @F,@F7,@$P(FG,D,5),@F8
91 F FP=217,312,343,580 W @F,@F5
92 S FP=202 W @F,@F4,$P($T(T9),U,2),@F5 S FP=302 W @F,@F4,$P($T(T10),U,2),@F5 S FP=332 W @F,@F4,$P($T(T11),U,2),@F5
93 S FP=502 W @F,@F4,$P($T(T8),U,2,99)," ",@F5 S LN=5,TP=""
94 S FP=501 W @F,@F7,@$P(FG,D,10),@F8 S FP=579 W @F,@F7,@$P(FG,D,10),@F8 F K=11,17,27,41,46,61,76 S FP=K+500 W @F,@F7,@$P(FG,D,21),@F8
95 Q
LYN F I=1:1:77 W @$P(FG,D,9)
YZ Q
 ;
R9 S R1=$P($T(+1)," ",1) F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9Z S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1 K R1,R2,R3 L  Q  ; V2  26.11.84
 ;