cAT220 ;BETALING FAKTUREN ;%AT22 ; [ 01/02/01  12:05 PM ]
 G 1
 ;
T0 ;Betaling facturen ;
T1 ;Voorschot openen;
T2 ;De klant;klant : ;
T3 ;Nr  Fac/C.N.  Fact.dat  Verv.dat  Par      Bedrag  Openstaand  Kort.cont. ;
T4 ;Factuurdatum;Vervaldatum;"dd.mm.jj[] = bepaalde datum   [] = ;
T5 ;Betaalde bedrag;in ;
 ;
T0F ;Paiement des factures ;
T1F ;Création d'un acompte;
T2F ;Client;client : ;
T3F ;N°  Fac/N.C.  Date fac  échéance  Par     Montant      Impayé  Esc.compt. ;
T4F ;Date de facture;Date d'échéance;"jj.mm.aa[] = date spécifique   [] = ;
T5F ;Montant payé;en ;
 ;
T0E ;Payment invoices ;
T1E ;Open advance;
T2E ;The customer;Customer : ;
T3E ;Nr  Inv/C.N.  Inv.date   Due dat  Par      Amount Outstanding  Cash disc. ;  
T4E ;Invoice date;Due date;"dd.mm.yy[] = particular date   [] = ;
T5E ;Payed amount;in ;
 ;
S1 S RDEC=QD,RVM=$P(RN,D,9) I $L(RVM),$D(RVM(RVM)) S RDEC=RVM(RVM)
S1A I $L(RVM),'$D(RVM(RVM)) S RDEC=2 S:$D(@("^"_Q_"BA(11,RVM)")) RDEC=$P(^(RVM),D,7) S RVM(RVM)=RDEC
S1Z Q
 ;
1 S SR="^cA216" I $D(@("^"_Q_"KL(0,5)")) S SR=^(5)
11 S K=$P($T(@("T1"_QT)),U,2),FP=1202 W @F,@F92,K,@F93,@F1 I $D(I1) S K=I1 G 15
13 S R="I1\1500\"_$P($T(@("T2"_QT)),U,2)_"\KL\K1" D @SR G YZ:K="-"!(K=",")
15 L @("^"_Q_"KL(I1)"):2 E  S R=14 D F2 G 13
17 S I1=K,KC=$P(@("^"_Q_"KL(I1,0)"),D),FP=1301 W @F,"  ",$P($T(@("T2"_QT)),U,3),KC," ",$P(^(0),D,2),@F1
19 W !," ",@F4,$P($T(@("T3"_QT)),U,2),@F5,@F1
 ;
2 S B(1)=@("^"_Q_"KL(I1,0)") F FNR=990001:1:999999 Q:'$D(^(FNR))
21 S N="C\"_DT,FP=1501 W @F,$J("",6),$P(N,D)," ",FNR
23 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_D_$P($T(@("T4"_QT)),U,4)_$P(N,D,2)_"""\8\DCTR" D R0 G 13:K="-",YZ:K=","
25 S:K $P(N,D,2)=K S FP=1517 W @F,$P(N,D,2) S R=$P(N,D,2)_D_$P(B(1),D,18) D ^cA104 S $P(N,D,3)=R
27 S R="K\22\3\"_$P($T(@("T4"_QT)),U,3)_D_$P($T(@("T4"_QT)),U,4)_$P(N,D,3)_"""\8\DCTR" D R0 G 23:K="-",YZ:K=","
29 S:K $P(N,D,3)=K S FP=1527 W @F,$P(N,D,3) D S1^cAT22
 ;
3 S R="BE\22\3\"_$P($T(@("T5"_QT)),U,2)_"\C1\9\VM" D R0 G 27:K="-",YZ:K=",",3:'K
31 S:K["-" BE=-BE S $P(N,D,4)=BE,$P(N,D,5)=BE,$P(N,D,9)=VM,$P(N,D,10)=$J(BE*MPAR,0,QD)
33 S @("^"_Q_"KL(I1,FNR)")=N
 ;
4 S FP=LN*100+1 W @F,@F1,"  ",KC," ",$P(@("^"_Q_"KL(I1,0)"),D,2)
41 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)
43 W $J($S($P(N,D,6):$FN($P(N,D,6),"T",DEC),1:""),12),$J($FN(-BE,"T",DEC),12)
45 I LN=11 S FP=501 W @F,@FDL
47 I LN<11 S LN=LN+1
 ;
YZ S FP=1201 W @F,@F1 K RD1,RD2,RDEC,RN,RVM,RVV,SR,UTA G 2^cAT22
 ;
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(@("T5"_QT)),U,3),VM 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