cAT12 ;Openst. KL.facturen bij opstart ;%AT12* ; [ 01/03/01  5:21 PM ]
 G 1
 ;
T0 ;Openstaande klantensaldi bij de opstart ;
T1 ;Klant;
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 des clients au départ ;
T1F ;Client;
T2F ;Solde : ;
T3F ;\N° de solde\Fact./Note de crédit\Date document\Date d'échéance\Total document\Solde à payer\Esc.comptant\A payer en\;
T4F ;Vous ne pouvez plus utiliser ce programme ;
 ;
T0E ;Initial balance customer accounts ;
T1E ;Customer;
T2E ;Balance : ;
T3E ;\Balance number\Invoice/Credit note\Document date\Due date\Doc. total\Still to pay\Cash disc.\To pay in\; 
T4E ;You are not 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_"K1(K)",Q0="^"_Q_"KL(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,":"
 ;
 ; keuze klant
2 S I1=$$^cANSYN("KL") 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,"KL",I1)
27 S FP=403 W @F,$P($T(@("T1"_QT)),U,2)," : ",$E($$KL^cAFO1("KL",KC),1,60),@F2
 ;
 ; beheer openstaande posten
3 L +@Q0:2 E  S R=14 D F2 G 2
31 D ^cAT120 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