cTA805 ;AN. VERR. - INGAVE ;%TA80 ; [ 01/12/01  10:11 AM ]
 G 1
 ;
T0 ;An. verr. - ingave ;
T3 ;Van :;naar:;
T4 ;Bedrag in ;"xxxxxx[] = debet   xxxxxx-[] = credit";
T5 ;Referentie;
T6 ;Omschrijving\",[] = hernemen boeking";
 ;
T0F ;Op. an. - introduction ;
T3F ;De :;à  :;
T4F ;Montant en ;"xxxxxx[] = débit   xxxxxx-[] = crédit";
T5F ;Référence;
T6F ;Description\",[] = reprendre imputation";
 ;
T0E ;An. trans. - input ;
T3E ;From:;To  :;
T4E ;Amount in ;"xxxxxx[] = debit   xxxxxx-[] = credit";
T5E ;Reference;
T6E ;Description\",[] = retry registration";
 ;
 ; Van grootboekrekening
1 S BR=$$^cANSYN("AR") G YZ:K="-"
11 S B(1)=^(BR,0),NMA=$P(B(1),D,2),FP=2103 W @F,BR,NMA,@F1
13 I $P(B(1),D,13) S R=200 D F2 G 1
15 I $L($P(B(1),D,10))!(K2[(D_$P(B(1),D)_D)) S R=29 D F2 G 1
17 I "\1\A\K\"'[(D_$E($P(B(1),D,6))_D) S R=29 D F2 G 1
 ;
 ; Van analytische rekening
2 S BR1=$$^cANSYN("ARA") G 1:K="-"
21 S B(1)=^(BR1,0),FP=2150 W @F,@F6,$P($T(@("T3"_QT)),U,2),@F9,BR1,@F1
23 I $P(B(1),D,13) S R=200 D F2 G 2
 ;
 ; Van bedrag
3 S DEC=HQD,R="K\23\3\"_$P($T(@("T4"_QT)),U,2)_HBF_D_$P($T(@("T4"_QT)),U,3)_"\10\DEC" D R0 G 2:K="-",1:K=",",3:'K
31 S HBE=$S(K["-":-K,1:+K)
33 S K=$S(HBE<0:-HBE,1:+HBE),FP=2169 W @F,$J(K,10,HQD)," ",$S(HBE<0:"C",1:"D")
35 S ROND=0
 ;
 ; Naar analytische rekening
4 S BR2=$$^cANSYN("ARA") G 4:K="-"&ROND,3:K="-"
41 S B(2)=^(BR2,0),FP=2250 W @F,@F6,$P($T(@("T3"_QT)),U,3),@F9,BR2,@F1
43 I $P(B(2),D,13) S R=200 D F2 G 4
45 I BR2=BR1 S R=29 D F2 G 4
 ;
 ; Naar bedrag
5 S HBE2=-HBE,DEC=HQD,R="K\23\3\"_$P($T(@("T4"_QT)),U,2)_HBF_D_"C1\10\DEC" D R0 G 4:K="-",4:K=","&ROND,1:K=","
51 I $L(K) S HBE2=$S(K["-":-K,1:+K)
53 S K=$S(HBE2<0:-HBE2,1:+HBE2),FP=2269 W @F,$J(K,10,HQD)," ",$S(HBE2<0:"C",1:"D") I ROND G 61
 ;
6 S R="OM\23\3\"_$P($T(@("T5"_QT)),U,2)_"\\15" D R0 G 5:K="-",4:K=","&ROND,1:K=","
61 S FP=2203 W @F,$P($T(@("T5"_QT)),U,2)," : ",$E(OM_$J("",15),1,15)
63 S R="OM1\23\3\"_$P($T(@("T6"_QT)),U,2)_"\50" D R0 G 6:K="-",4:K=","&ROND,1:K=","
65 G 3^cTA806:ROND,^cTA806
 ;
YZ Q
 ;
DEC ;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)
 ;
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($P($T(@("T4"_QT)),U,3),"""",2),"   [] = ",$FN(HBE2,"T",DEC) Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84