cT840 ;Fin & div: autom. reeks ;%T80 ; [ 01/04/01  2:07 PM ]
 G 1
 ;
T0 ;Fin & div: autom. reeks ;
T1 ;;Boekingsreeks : ;Rekening : ;
T2 ;Referentie\;
T3 ;Omschrijving\",[] = hernemen";
T4 ;Saldo : ;
T5 ;De boekingsreeks wordt niet doorgevoerd ;
T6 ;De gekozen rekening is een financiële rekening ;
T7 ;De gekozen rekening is een rekening met vreemde munt ;
T8 ;Analytische rekening : ;
T9 ;De analytische boeking is ongeldig ;
 ;
T0F ;Fin & div: série autom. ;
T1F ;;Ecriture : ;Compte : ;
T2F ;Référence\;
T3F ;Description\",[] = reprendre";
T4F ;Solde : ;
T5F ;La série n'est pas comptabilisée ;
T6F ;Le compte choisi est un compte financier ;
T7F ;Le compte choisi est un compte à parité étrangère ;
T8F ;Compte analytique : ;
T9F ;L'imputation analytique n'est pas valable ;
 ;
T0E ;Financial & miscellaneous transactions: autom. registrations;
T1E ;;Automatic registrations serie : ;Account : ;
T2E ;Reference\;
T3E ;Description\",[] = retry";
T4E ;Balance : ;
T5E ;The automatic registrations is not being processed ;
T6E ;The chosen account is a financial account ;
T7E ;The chosen account is a account with foreign currency ;
T8E ;Analytical account : ;
T9E ;De analytical registration is invalid ;
 ;
1 S R="^cT850;"_($E(RB)="D"+1)_U_UX_U_HBF_U_HQD D ^cA338,^cA609,@$P(R,U),^cA339 S (K,I1)=^HULP("PAS",$J+.01) K ^($J+.01) G YZ:K="-"
11 S FP=2003 W @F,$P($T(@("T1"_QT)),U,3),$P(@("^"_Q_"FIA(I1,0)"),D)," - ",$P(^(0),D,2)
13 S R="OM\21\3\"_$P($T(@("T2"_QT)),U,2)_"\15" D R0 G 1:K="-"!(K=",")
15 S R="OM1\22\3\"_$P($T(@("T3"_QT)),U,2)_"\50" D R0 G 13:K="-",1:K=","
 ;
2 S (I2,RSAL)=0
21 S I2=$O(@("^"_Q_"FIA(I1,I2)")) G 4:I2="" S R1=^(I2),FP=2103 W @F,@F1,$P($T(@("T1"_QT)),U,4)
23 S R2=$P(R1,D) W R2 I '$D(@("^"_Q_"AR(R2,0)")) S R=20,RSAL="-" D F2 G 4
24 S R2=^(0) W $P(R2,D,2)
25 I K2[(D_$P(R2,D)_D) S R=25,RSAL="-" D F2 G 4
26 I $L($P(R2,D,9))!$L($P(R2,D,10)) S K=$P($T(@("T6"_QT)),U,2),RSAL="-" D F1 G 4
27 I $P(R2,D,13) S R=200,RSAL="-" D F2 G 4
28 ; I $L($P(R2,D,11)),$P(R2,D,11)'=HBF S K=$P($T(@("T7"_QT)),U,2),RSAL="-" D F1 G 4
 ;
3 S AVE=$P(R2,D,6),SWAV="\1\A\K\"[(D_$P(AVE,"#")_D)&SWAN,R2=$P(R1,D,4)
31 I 'SWAV,'$L(R2) G 39
32 I SWAV&'$L(R2)!('SWAV&$L(R2)) S RSAL="-" D F0 G 4
33 I '$D(@("^"_Q_"ARA(R2,0)")) S RSAL="-" D F0 G 4
34 S FP=2203 W @F,$P($T(@("T8"_QT)),U,2),R2,$P(^(0),D,2)
35 I $P(^(0),D,13) S R=200,RSAL="-" D F2 G 4
39 S R2=$P(R1,D,2) S:R2["-" R2=-R2 S RSAL=RSAL+R2 G 21
 ;
4 I RSAL="-" S K=$P($T(@("T5"_QT)),U,2) D F1 G 1
41 D 3^cT809 G ^cT841
 ;
YZ D 3^cT809 K I2,AVE,SWAV,OM,OM1,R1,R2,RSAL Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F0 S K=$P($T(@("T9"_QT)),U,2)
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84