cT1 ;Controle financiële rekening ;%T1 ;%T8* ; [ 12/29/00 11:34 AM ] G 1 ; T0 ;Controle financiële rekening ; T1 ;Boekingsmaand\"-[] = einde programma"; T2 ;Wachtrekening; ; T0F ;Contrôle d'un compte financier ; T1F ;Mois comptable\"-[] = fin du programme"; T2F ;Compte d'attente; ; T0E ;Check financial account ; T1E ;Fiscal month\"-[] = end program"; T2E ;Waiting account; ; 8 S BR=BR_" ",X=@("^"_Q_"AR(BR,0)"),HIS=0 L (@("^"_Q_"AR(BR)"),@("^"_Q_"BA(4,RB)")) 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 S (BC(0),BC(1))=0 Q ; ; Initialisatie 1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 11 D ^cT164 G:'OK YZ S K2="" F K=3,5 S K2=K2_$P($P(VERBOT,D,K)," ")_D 13 K VERBOT ; S BF="BF" I $D(@("^"_Q_"BA(39)")) S BF=$P(^(39),D) 15 S Q41="^"_Q_"AR(BR,0)",Q95="^"_Q_"FI(BP,RB,BNR)",(BC(0),BC(1))=0 ; ; Boekingsmaand & -periode 2 S R="BM\20\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\K=""-""!(K?1N.N&K&(K<13))" D R0 G YZ:K="-" 21 S R=+K_D_D_1 D ^cT163 G 2:'OK S FP=168 W @F,BP 23 S BPB=$P(@("^"_Q_"BA(2)"),D,1,3),(BPE,BPEC)=$G(^("SWBP")) I $L(BPE) D @BPEC 25 S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2) ; ; Fin.rek / Diversen 3 D ^cT801 G 2:K="-" S FP=503 W @F,CD," ",NMB,@F1 L @("^"_Q_"BA(4,RB)"):2 E D TXT^cAFA1(16) G 3 31 G 3:'$O(@("^"_Q_"FI(BP,RB,0)")) 33 S (NUM,I2,BNR)=0,DAT=DT,BH=1_BP*100_"B"_RB F A2="C","D" S T(A2)=0 F A1="K","L","A" S A(A1,A2)=0 ; ; Narekenen 4 S I2=$O(^(I2)) 41 I I2 S K=^(I2),A1=$P(K,D,6),A2=$P(K,D,7),A(A2,A1)=A(A2,A1)+$P(K,D,5),T(A1)=T(A1)+$P(K,D,11),NUM=$P(K,D,3),DAT=$P(K,D,2) G 4 42 S K2=$P(K2,D,1,2)_D_RB,T(4)=A("A","C")+A("K","C")+A("L","C"),T(5)=A("A","D")+A("K","D")+A("L","D"),K=T(4) S:T(5) wachtrekening) 5 S BC(0)=0,BC(1)=0 G 6:$E(RB)'="D",6:'T(4)&'T(5) 51 S BR=$$^cANSYN("AR","","",0,0,"","",$P($T(@("T2"_QT)),U,2)) G 3:K="-" S K=^(K,0) 52 I $P(K,D,13)!$L($P(K,D,10))!(D_K2[(D_$E(BR,1,$L(BR)-1)_D)) D TXT^cAFA1(29) G 51 53 S NMA=$P(K,D,2) S FP=2003 W @F,$P($T(@("T2"_QT)),U,2),BR,NMA,@F1 D ^cT843 G 51:K="-" 54 S @%Q1=0,K=$$DC^cAFA1(DAT),Q93="^"_Q_"BA(4,RB,"_K_")",@Q93=$G(@Q93,K_"0001") I $D(SWAV),SWAV D G 7 . S BE=T(4)+T(5),CO=$S(T(5):"C",1:"D"),BC(CO="C")=BE,HBE=BE . S (OM,OM1)="",(HUXB,HUXV)="?",(UX,HUX)=0,NOTSHOW=1 K SW D ^cT844 55 S BNR=@Q93,@Q93=BNR+1 G 55:$D(@Q95) 57 S CO="D" S:T(5) CO="C" S BC(CO="C")=T(4)+T(5),HIS=$P(@("^"_Q_"AR(BR,0)"),D,3) D S1 S K=$P(BR," ")_"#"_$P(^(0),D,2) 59 S K=D_DAT_D_NUM_D_CD_D_(T(4)+T(5))_D_CO_D_"A"_D_K_D_D_BPE_D_(T(4)+T(5))_D_D_D_SRT,$P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K D ECUM G 7 ; ; Financieel 6 S @%Q1=0 G 7:'T(4)&'T(5) S BR=RB,BC(0)=T(4),BC(1)=T(5) D 8 G 7:'VMSW 65 S K=^(S1),^(S1)=$P(K,D,1,4)_D_($P(K,D,5)+T(6))_D_($P(K,D,6)+T(7)) 67 F X=0,1 I T(X+6) S S1=X*.02+BJ+.01,$P(^(S1),D,BX)=$P(^(S1),D,BX)+T(X+6) ; D ECUM GM 10.05.07 Moet hier niet uitgevoerd worden ; ; Gemeenschappelijk 7 I T(0)!T(1) S BR=$P(K2,D),BC(0)=T(0),BC(1)=T(1) D 8 71 I T(2)!T(3) S BR=$P(K2,D,2),BC(0)=T(2),BC(1)=T(3) D 8 ; YZ S @%Q1=1 Q ; ECUM ; GM 19.05.04 Extra cumuls D ECUM^cTA180("FI",BP,RB,BNR) Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 29.08.07 - 10 u 22 * V8.09