cTA440 ;Historiek analytische rekeningen ;%TA44 ; [ 01/02/01 4:46 PM ] G 1 ; T0 ;Historiek analytische rekeningen ; T1 ;Jaarcumul verschillend; T2 ;Vervolg ; T3 ;Periode : ; / Muntcode : ; T4 ; Omschrijving :; T5 ;:Datum c Nummer: Debet : Credit : Saldo : Referte :; T6 ;V e r v o l g t;V e r v o l g; T7 ;Blz :; ; T0F ;Historique comptes analytiques ; T1F ;Cumul annuel diffère; T2F ;Suite ; T3F ;Période : ; / Code mon.: ; T4F ; Description :; T5F ;:Date c Numéro: Débit : Crédit : Solde : Référence :; T6F ;A s u i v r e;S u i t e; T7F ;Page:; ; T0E ;History analytical accounts ; T1E ;Global year amount differs; T2E ;Continuation ; T3E ;Period : ; / Currency : ; T4E ; Description :; T5E ;:Date c Number: Debit : Credit : Bal. : Referte :; T6E ;T o b e c o n t i n u e;C o n t i n u a t i o n; T7E ;Pge :; ; ; debet en credit S0 S S1=$G(@("^"_Q_"ARA(I1,J2)")),S2=$G(^(J2+.02)) S0A F K=2:1:24 S S3=$P(S1,D,K),S4=$P(S2,D,K) D S3 S DBTJ=DBTJ+S3,CDTJ=CDTJ+S4 I KEU,K14 S K=$P($T(@("T2"_QT)),U,2) D F1 S Y=K,FP=780,BL=1 W @F,@F1 S1Z Q ; ; blanco lijn printen S2 D S1 W:Y'="-" !,":",?16,":",?31,":",?46,":",?61,":",?78,":" W:TSW ?130,":" S SW2=0 Q ; ; omrekenen naar gevraagde munt S3 I S3 S S3=$$BEDR^cAFE1(Q,S3,$P(MNTC,D),$P(MUNT,D),"F"),$P(S1,D,K)=S3 S3A I S4 S S4=$$BEDR^cAFE1(Q,S4,$P(MNTC,D),$P(MUNT,D),"F"),$P(S2,D,K)=S4 S3Z Q ; ; muntcode cumuls bepalen per boekjaar S4 S MNTC=$$MNTC^cAFE1(Q,J2),BF=$P(MNTC,D) Q ; ; initialisatie 1 S SM1=KM1,SM2=KM2,(BL,BLZ)=0,I1="",NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) I TP X F70 W @F80 11 S QTL=QT I QTL="" S QTL="N" 13 I '$D(LNMAX) S LNMAX=50 ; ; volgende ARA 2 D ^cAN004("I1","ARA") G YZ:I1="" ; ; per ARA 3 S K=^(I1,0) G Y:$P(K,D,13)=1 S N1=$P(K,D),N2=$P(K,D,2) I $L(N1)>3 S N1=$E(N1,1,3)_"."_$E(N1,4,99) 31 S KM1=SM1,KM2=SM2,SWXX=0 G 33:'KEU S KJ=$$BJ^cAFE1(Q,KM1) 32 S SWXX=KM2>KM2(KJ) I SWXX S KMXX=KM2,KM2=KM2(KJ) 33 I 'KEU S KM1=KM1(KJ),KM2=KM2(KJ) 34 I 'TP S FP=2401 W @F,@F2," ",N1 35 S:PSW BL=0 S (BSAL,DBTJ,CDTJ,DBTX,CDTX)=0,J2=KJ,(VV,S(1),S(2),S(3),S(4),Y)="",SWA=ACT ; KO - 23.09.04 ; D S4 S BSAL=$$BSAL^cAFE1(Q,KJ,"ARA",I1),BSAL=$$BEDR^cAFE1(Q,BSAL,$P(MNTC,D),$P(MUNT,D),"F") 36 D S4 S BSAL=$$SALDOARA^cTA180(Q,I1,$G(KM1(KJ))),BSAL=$$BEDR^cAFE1(Q,BSAL,$P(MNTC,D),$P(MUNT,D),"F") 37 S BX=2 I KEU S K=KM1(J2) F BX=2:1:25 Q:K=KM1 S K=$E(K+.01_0,1,7) I K#1=.13 S K=K+.88 38 I BX=25 G Y 39 D S0 S:BL+9>LNMAX!PSW!'BLZ S(1)=1 S:BL+9'>LNMAX&'PSW&BL S(4)=1 S S(2)=1,SAL=BSAL+DBTX-CDTX I SAL,'SWA,'KEU S SWA=1 ; 4 D ^cTA441 G Y:Y="-",YZ:K="-" ; historiek voor periode KM1-KM2 41 I 'KEU,(DBTJ-DBTX'=0!(CDTJ-CDTX'=0)) S @("^"_Q_"TSTA(I1,J2)")=$P($T(@("T1"_QT)),U,2)_D_J2_D_DT 43 G Y:J2'KM2(J2) I SWXX S KMXX=KM2,KM2=KM2(J2) 47 S BSAL=SAL,(DBTJ,DBTX,CDTJ,CDTX)=0,BX=2,K=$O(@Q01) D S0 D S2:SWA S SAL=BSAL,S(2)=1 G 4:Y'="-" ; Y G 2 YZ W:TP&BLZ $$FF^cA334 X:TP F71 K S1,S2,A,A1,A2,I4,I4A,I4Z,CDTJ,CDTM,CDTX,DBTJ,DBTM,DBTX,NM1,NM2,NM3,N1,N2,SAL,BSAL,BE,REF,OM Q ; ; hoofding HD W:TP&BLZ $$FF^cA334 S BLZ=BLZ+1,FP=101 W:'TP @F,@F1 W !,QN,?TSW\2+27,U9,?71+TSW,$P($T(@("T7"_QT)),U,2),$J(BLZ,3) S S(1)="",SWA=1 HDA W !,NM2,?TSW\2+27,N1," ",$E(N2,1,42+TSW-$L(N1)),?71+TSW,DT,!,NM3,?TSW\2+27,$P($T(@("T3"_QT)),U,2) W:'KEU KJ W:SW "+" HDB W:KEU SM1," - ",SM2 W $P($T(@("T3"_QT)),U,3),$P(MUNT,D),?72+TSW,TD HDC W:TP ! W:VV ?62,$P($T(@("T6"_QT)),U,3) S (BL,VV)=0 D HDY W !,$P($T(@("T5"_QT)),U,2) W:TSW $P($T(@("T4"_QT)),U,2) HDY W !,":---------------:--------------:--------------:--------------:----------------:" HDZ W:TSW "---------------------------------------------------:" Q ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02