cT842 ;Fin & div: grootboekrek. ;%T80 ; [ 01/04/01  2:08 PM ]
 G 2
 ;
T0 ;Fin & div: grootboekrek. ;
T1 ;De rekening;
T2 ;Grootboekrekening : ;
T3 ;Boekingsbedrag in ;xxxxxxx[] = debet    xxxxxxxx-[] = credit   [] = ;
T4 ;Referentie;
T5 ;Omschrijving\",[] = hernemen boeking";
 ;
T0F ;Fin & div: compte gr.l. ;
T1F ;Compte;
T2F ;Compte grand-livre: ;
T3F ;Montant en ;xxxxxxx[] = débit   xxxxxxx-[] = crédit   [] = ;
T4F ;Référence;
T5F ;Description\",[] = reprendre mouvement";
 ;
T0E ;Financial & miscellaneous transactions: general account ;
T1E ;The account;
T2E ;General account : ;
T3E ;Registered amount in ;xxxxxxx[] = debit    xxxxxxxx-[] = credit   [] = ;
T4E ;Reference; 
T5E ;Description\",[] = retry registration";
 ;
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z K S1,S2 S (BC(0),BC(1))=0 Q
 ;
2 S R="BR\2000\"_$P($T(@("T1"_QT)),U,2)_"\AR\R1" D @$G(@("^"_Q_"AR(0,5)"),"^cA217") G YZ:K="-",2:'$D(@Q41)
21 I $P(@Q41,D,13)!$L($P(^(0),D,10))!(K2[(D_+BR_D)) S R=29 D F2 G 2
23 S NMA=$P(^(0),D,2) S FP=2003 W @F,$P($T(@("T2"_QT)),U,2),BR,NMA,@F1
25 D ^cT843 G 2:K="-"
 ;
3 S A=-HUX,DEC=HQD,R="K\21\3\"_$P($T(@("T3"_QT)),U,2)_HBF_"\C1\10\DEC" D R0 G 2:K="-"!(K=",") ; ,3:K-1>1E7&HQD ; VJ-22.09.99
31 S:K="" K=$FN(A,"T",DEC) S:K["-" K=-K S HBE=K,BE=$J(HBE*PAR,1,QD),CO=$E("DC",K<0+1)
32 S FP=2103 W @F,$P($T(@("T3"_QT)),U,2),HBF," : ",$$IP^cAFA1(HBE,HQD,0),@F1 
33 I VMSW D  G 3:K="-"!(K=",")
 . S A=BE,DEC=QD,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_BF_"\C1\10\DEC" D R0 Q:K="-"!(K=",")
 . S:K="" K=$FN(A,"T",DEC) S BE=CO="D"*2-1*K
 . S FP=2153 W @F,BF," : ",$$IP^cAFA1(BE,DEC,0),@F1
35 S R="OM\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\15" D R0 G 33:K="-"&VMSW,3:K="-",2:K=","
36 W /CUP(22,3),$P($T(@("T4"_QT)),U,2)," : ",OM
37 S R="OM1\23\3\"_$P($T(@("T5"_QT)),U,2)_"\50" D R0 G 35:K="-",2:K=","
38 S KOS=$P(@("^"_Q_"AR(BR,0)"),D,22) I $L(KOS),$L($G(@("^"_Q_"BA(""%T"",8,""G"",""I"")"))) X ^("I") G 37:K="-",2:K=","
39 S:CO="C" HBE=-HBE,BE=-BE
 ;
4 I $D(SWAV),SWAV D ^cT844 G 2:K="-",YZ
40 L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 40
41 S BNR=@Q93,@Q93=BNR+1 G 41:$D(@Q95) X:$D(KAS) KAS S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1
43 S:CO="D" UX=UX+BE,HUX=HUX+HBE S:CO="C" UX=UX-BE,HUX=HUX-HBE
45 S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HBE_D_D
47 S K=K_D_SRT_D_OM1_D_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_$S(VMSW&HBE:$J(BE/HBE,1,4),1:PAR)_D
49 S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
 ;
5 D S6^cT809
51 I $L(KOS),$L($G(@("^"_Q_"BA(""%T"",8,""G"",""R"")"))) X ^("R")
 ;
YZ K NMA,OM,OM1,BE,HBE,CO,KOS Q
 ;
C1 W !?2,$P($T(@("T3"_QT)),U,3),$FN(A,"T",DEC) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
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)
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84