cT22 ;Openst. LE.facturen bij opstart ;%T22 ;%T95* ; [ 01/03/01  6:53 PM ]
 G 1
 ;
T0 ;Openstaande leveranciers-saldi bij opstarten ;
T1 ;Leverancier;
T2 ;Saldo : ;
T3 ;\Saldonummer\Factuur/Creditnota\Datum document\Vervaldatum\Totaal doc.\Nog te betalen\Kort.contant\Te betalen in\;
T4 ;U mag dit programma niet meer gebruiken ;
 ;
T0F ;Soldes initiaux fournisseurs au départ ;
T1F ;Fournisseur;
T2F ;Solde : ;
T3F ;\N° de solde\Facture/N.de crédit\Date document\Date d'échéance\Tot. document\Solde restant\Esc.comptant\A payer en\;
T4F ;Vous ne pouvez plus utiliser ce programme ;
 ;
T0E ;Initial balance supplier accounts ;
T1E ;Supplier;
T2E ;Balance : ;
T3E ;\Bal. number\Invoice/Cr. note\Document date\Due date\Doc. total\Still to pay\In cash disc.\To pay in\;
T4E ;You are no longer allowed to use this program ;
 ;
 ; Schermopbouw + init
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 D ^cT489 S Q1="^"_Q_"L1(K)",Q0="^"_Q_"LE(I1)"
 ; VJ-15.09.00
 I BPA>$P(BPB,D,$L(BPB,D)) S K=$P($T(@("T4"_QT)),U,2) D F1 G YZ
13 S MNTC=BF_D_QD,MNTO=$$MNTO^cAFE1(Q,BJ),BF=$P(MNTO,D),QD=$P(MNTO,D,2)
15 S FP=649 W @F,@F2,$J("",9),@F5,@F,@F4,$P($T(@("T2"_QT)),U,2),@F5
19 S K=$P($T(@("T3"_QT)),D,2,99),FP=603 W @F F I=1:1:8 W !?2,$P(K,D,I) W:I=8 " ",BF W ?23,":"
 ;
 ; Leverancier
2 S I1=$$^cANSYN("LE") I K="-" G YZ
21 S B(1)=^(I1,0),B(2)=^(1),KC=$P(B(1),D),VM=$P(B(1),D,11),CBT=$P(B(1),D,18)
23 S K="\\\\\\\\\\\\\\\\\\\\" F I=BJ:.01:(BJ+.02) S:'$D(^(I)) ^(I)=K
25 S SAL=$$BSAL^cAFE1(Q,BJ,"LE",I1)
27 S FP=403 W @F,$P($T(@("T1"_QT)),U,2)," : ",$E($$KL^cAFO1("LE",KC),1,60),@F2
 ;
 ; Openstaande posten
3 L +@Q0:2 E  S R=14 D F2 G 2
31 D ^cT95 S R="VM\2000" D ^cA329 I K'="-",K'="," G 31
33 L -@Q0 G 2
 ;
YZ Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84