cAT18 ;BETALING FAKTUREN ;%AT18 ;do naar %A216,%A319 ;overlay %AT180 [ 01/02/01  10:25 AM ]
 ;
T0 ;Betaling facturen ;
T1 ;Factuurnummer;fact. / cr.n.;factuurdatum;vervaldatum;totaal bedrag;openstaand;kort.contant;referte;
T2 ; Nummer Fact.dat Vervald.   Tot.fac. Openstaand Kort.cont. Referte            ;Klant :;
T3 ;Factuurnummer\"[] = via klant   -[] = einde programma";
T4 ;De klant; werd verwijderd ;
T5 ;Betaald bedrag;Nieuw saldo;
 ;
T0F ;Paiement des factures ;
T1F ;N° de facture;fact. / n.cr.;date fact.;échéance;total facture;impayé;escompte;référence;
T2F ; Numéro Date fac Date éch   Tot.fac.     Impayé   escompte Référence          ;Client:;
T3F ;N° de facture\"[] = par client   -[] = fin du programme";
T4F ;Client; a été radié ;
T5F ;Montant payé;Nouveau solde;
 ;
T0E ;Payment of invoices ;
T1E ;Invoice number;inv. / cr.n.;invoice date;due date;total amount;outstanding;cash discount;reference;
T2E ; Number Inv.date Due date   Tot.inv. Outstanding Cash disc. Reference            ;Customer :;
T3E ;Invoice number\"[] = via custumer   -[] = end program";
T4E ;The customer; is removed ;
T5E ;Payed amount;New balance;
 ;
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=301 W @F,@F1 F K=2:1 Q:'$L($P($T(@("T1"_QT)),U,K))  W !?17,":",$$CR^cA334 W ?1,@F6,$P($T(@("T1"_QT)),U,K),@F9
13 S R="440\879",RH="640#648",RV="648#848" D ^cA319 S FP=542 W @F,$P($T(@("T2"_QT)),U,3) S FP=1301 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F1
15 F K=2,3 S FP=$P("\941\1041",D,K) W @F,@F6,$P($T(@("T5"_QT)),U,K),@F9 S FP=FP+16 W @F,":"
 ;
2 L  S FP=1401,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\6\\""-""[K!(K?6N&K)" W @F,@F1 D R0 G YZ:K="-",3:K?6N
21 S HFNR=0,R="I1\1500\"_$P($T(@("T4"_QT)),U,2)_"\KL\K1",SR="^cA216" S:$D(@("^"_Q_"KL(0,5)")) SR=^(5) D @SR G 2:K="-"
23 S FP=742 W @F,$J($P(^(I1,0),D),5) S FP=550 W @F,$J("",28),@F,$P(^(0),D,2) S FP=650 W @F,$J("",28),@F,$P(^(0),D,5)
25 S K=$P(^(0),D,6) S:$L(K) K=K_" " S K=$E(K_$P(^(0),D,7),1,28),FP=750 W @F,$J("",28),@F,K
27 S KX=$P(^(0),D,18) L @("^"_Q_"KL(I1)"):2 E  D TXT^cAFA1(14) G 2
29 G ^cAT180
 ;
3 I '$D(@("^"_Q_"VF(K)")) D TXT^cAFA1(86) G 2
31 S HFNR=K,K=$P(^(K),D) S:K[" " K=$P(K," ",2) I '$D(@("^"_Q_"K1(K)")) D F1 G 2
33 S I1=^(K) I '$D(@("^"_Q_"KL(I1)")) D F1 G 2
35 G 23
 ;
YZ Q
 ;
F1 S K=$P($T(@("T4"_QT)),U,2)_" "_K_$P($T(@("T4"_QT)),U,3) D TXT^cAFA1(250) 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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84