cAT22 ;BETALING FAKTUREN ;%AT22 ; [ 01/02/01  11:58 AM ]
 G 1
 ;
T0 ;Betaling facturen ;
T1 ;Klant           Fac/C.N.  Par      Bedrag  Openstaand  Kort.cont.     Betaald ;
T2 ;Betaalde bedrag;in ;
 ;
T0F ;Payement des factures ;
T1F ;Client          Fac/N.C.  Par     Montant      Impayé  Esc.compt.        Paye ;
T2F ;Montant payé;en ;
 ;
T0E ;Payment invoices ;
T1E ;Customer        Inv/C.N.  Par      Amount Outstanding  Cash disc.       Payed ;
T2E ;Payed amount;in ;
 ;
S1 S DEC=2,MPAR=1,VM=$P(N,D,9) S:VM="" VM=BF I $D(VM(VM)) S DEC=$P(VM(VM),D),MPAR=$P(VM(VM),D,2) G S1Z
S1A S VM(VM)=2_D_1 I $D(@("^"_Q_"BA(11,VM)")) S DEC=$P(^(VM),D,7),MPAR=$P(^(VM),D,6)/$P(^(VM),D,3),VM(VM)=DEC_D_MPAR
S1Z Q
 ;
S2 S VM(BF)=QD_D_1 Q
 ;         
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=402 W @F,@F4,$P($T(@("T1"_QT)),U,2),@F5,@F1
13 S LN=5,BF=$P(@("^"_Q_"BA(39)"),D) D S2
 ;
2 L  S R=13_D_1 D ^cAT23,S2 G YZ:K="-"!(K=","),^cAT220:K="V"
20 L @("^"_Q_"KL(I1)"):2 E  S R=14 D F2 G 2
21 S FP=LN*100+1 W @F,"  ",KC," ",$P(@("^"_Q_"KL(I1,0)"),D,2)
23 S N=^(FNR) D S1
25 S FP=FP+16 W @F,"  ",$P(N,D)," ",FNR,$J(VM,5),$J($FN($P(N,D,4),"T",DEC),12),$J($FN($P(N,D,5),"T",DEC),12)
27 W $J($S($P(N,D,6):$FN($P(N,D,6),"T",DEC),1:""),12)
 ;
3 S R="BE\22\3\"_$P($T(@("T2"_QT)),U,2)_"\C1\9\VM" D R0 I K="-"!(K=",") S FP=LN*100+1 W @F,@F1 G 2
31 S:K="" BE=$FN($P(N,D,5),"T",DEC) S:BE["-" BE=-BE S K=$P(N,D)="F"*2-1
33 S FP=LN*100+68 W @F,$J($FN(BE*K,"T",DEC),12) S $P(N,D,5)=$P(N,D,5)-BE,$P(N,D,10)=$P(N,D,10)-$J(BE*MPAR,0,QD),$P(N,D,12)=0
34 I '$P(N,D,5) S $P(N,D,10)=0,$P(N,D,12)=1
35 S @("^"_Q_"KL(I1,FNR)")=N I FNR>990000,'$P(N,D,5) K ^(FNR)
36 I LN=11 S FP=501 W @F,@FDL
37 I LN<11 S LN=LN+1
39 G 2
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
C1 W !?2,$P($T(@("T2"_QT)),U,3),VM,"   [] = ",$J($P(N,D,5),0,DEC) Q
 ;
VM ;K?1.N!(K?1.N1"-")!(K?.N1"."1.N&DEC&($L(K#1)-1'>DEC))!(K?.N1"."1.N1"-"&DEC&($L(K#1)-1'>DEC))!("-,"[K)
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84