cT864 ;Eenmalige boekingsreeksen ;%T86* ; [ 01/03/01  4:36 PM ]
 G 1
 ;
T0 ;Boekhoudkundige verwerking ;
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 ;Comptabiliser ;
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 ;Accounting processing ;
T1E ;;Automatic registrations : ;Account : ;
T2E ;Reference\;
T3E ;Description\",[] = retry";
T4E ;Balance : ;
T5E ;The automatic registrations serie is not being processed ;
T6E ;The chosen account is a financial account ;
T7E ;The chosen accunt is a account with foreign currency ;
T8E ;Analytical account : ;
T9E ;The analytical accounting is invalid ;
 ;
1 D O^cA612(22,1,3,80,0,0,0,0) S RSAL="-"
11 W /CUP(1,3),$P($T(@("T1"_QT)),U,3),$TR($P(INH,D,1,2),D," "),@F1
13 S DAT=BODAT,OM=OMS,OM1=LOMS,SRT=JRN,CD=$$JRN^cAFO2("D",SRT)
15 S NUM0=$G(@("^"_Q_"BA(4,RB,BP\1)"))#1E5,NUM=NUM0+1,HUXB=0,HUXV=1
 ;
2 N OK D ^cT164 G 4:'OK S K2=$TR(VERBOT," ")
20 S I2=VOLG_" ",RSAL=0,(HUX,UX)=0
21 S I2=$O(^DATA(Q,"FID.J.DET",I2)) G 4:I2=""!($P(I2," ")'=VOLG) S R1=^(I2,0) W /CUP(2,3),@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 W /CUP(2,3),$P($T(@("T8"_QT)),U,2),R2,$P(^(0),D,2),@F1
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 YZ
41 S R="TRANSACT" D ^cA348                           ; begin transactie
43 S ^(TRANSACT,0)=$T(+0)_D_Q_D_"F"_D_SRT_D_NUM_D_BJ_D_BP_D_BPE_D_DAT_D_DT_D_RB_D
45 S SWMU="" D ^cT865
47 S @("^"_Q_"BA(4,RB,BP\1)")=NUM
49 S R="TRANSACT" D S1^cA348                         ; einde transactie
 ;
YZ K I2,AVE,SWAV,OM,OM1,R1,R2,RSAL D C^cA612 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