cT278 ;Selectie financiële rekening ;%T278 ;; [ 01/03/01  6:55 PM ]
 ;
T0 ;Selectie financiële rekening ;
T1 ;De financiële rekening;
T2 ;De kas-rekening;De gekozen rekening is geen kas-rekening ;De gekozen rekening is een kas-rekening ;
T3 ;De gekozen rekening is een wisselrekening ;
T4 ;De gekozen rekening is een BTW-rekening ;
T5 ;De gekozen rekening is een rekening in ;
 ;
T0F ;Sélection compte financier ;
T1F ;Compte financier;
T2F ;Compte de caisse;Le compte sélectionné n'est pas un compte de caisse ;Le compte sélectionné est un compte de caisse ;
T3F ;Le compte sélectionné est un compte de traite ;
T4F ;Le compte sélectionné est un compte de TVA ;
T5F ;Le compte sélectionné est un compte en ;
 ;
T0E ;Selection financial account ;
T1E ;The financial account;
T2E ;The cash account;The chosen account is not a cash account ;The chosen account is a cash account ;
T3E ;The chosen account is a bill of exchange account ;
T4E ;The chosen account is a VAT account ;
T5E ;The chosen account is an acount in ;
 ;
1 F K=1:1:10 S @("S"_K)=$P(R,D,K)
11 S:'S2 S2=2000 S SA=$S($D(R0):$P(R0,D),1:""),SB=$S($D(R0):$P(R0,D,2),1:0)
 ;
2 S R=S1_D_S2_D_$P($T(@("T"_$S(S4=2:2,1:1_QT))),U,2)_"\AR\R1"
20 I $L($G(@("^"_Q_"AR(0,5)"))) D @^(5) G 22
21 D @$S(S10:"^cA217",1:"^cA102")
22 G YZ:K="-",2:'$D(@("^"_Q_"AR(K,0)")) S SC=^(0),FP=S2+3 W @F,K,$P(SC,D,2),@F1
23 I SB=1!(SB=3),SA["^" D @SA G 2:K="-",Y:SB=3
 ;
3 I S3,$P(SC,D,13) S R=200 G F2
31 G 4:'S4 I '$L($P(SC,D,9)) S R=52 G F2
33 I S4=2,+$P(SC,D,9) S K=$P($T(@("T2"_QT)),U,3) G F1
35 I S4=3,'$P(SC,D,9) S K=$P($T(@("T2"_QT)),U,4) G F1
 ;
4 I S5,'$L($P(SC,D,10)) S R=253 G F2
41 I S6,'$L($P(SC,D,12)) S R=53 G F2
43 I S7,$P(SC,D,17) S K=$P($T(@("T3"_QT)),U,2) G F1
45 I S8,$P(SC,D,18) S K=$P($T(@("T4"_QT)),U,2) G F1
47 S SC=$P(SC,D,11) G 6:S9=""!(SC=S9)
 ;
5 I SC="",$D(@("^"_Q_"BA(39)")) S SC=$P(^(39),D)
51 S:SC="" SC="BF" I SC'=S9 S K=$P($T(@("T5"_QT)),U,2)_SC G F1
 ;
6 I SB=2,SA["^" D @SA G 2:K="-"
 ;
Y S S1=$D(@("^"_Q_"AR(K)"))
YZ S FP=S2+1 W @F,@F1 K S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,SA,SB,SC Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R) G 2
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84