cI4 ;KONTROLE DATABASE BOEKHOUDING ;%I3 ;go uit %I3 en naar %I14 G 1 ; T1 ;VERKOOPDAGBOEK T2 ;AANKOOPDAGBOEK T3 ;FINANCIEEL DAGBOEK T4 ;OPENSTAANDE FAKTUREN ; ; kontrole aan- en verkoopdagboek S1 S BJ=KJ,SWZ='$D(@("^"_Q_"BA(BJ,$E(Q1)_""FNR"")")) G S1H:SW3!SWZ S LNR=$P(^($E(Q1)_"FNR"),D),FNR=$E(LNR,1,2)_"0000" S1A S FNR=FNR+1,SW=0,TTB=1 G:FNR=LNR S1Z F BP=BP1:.01:BP2 S:BP#1>.12 BP=BP+.88 I $D(@("^"_Q_Q1_"($J(BP,7,2),FNR)")) S SW=1 Q S1B S:SW KC=$P(^(FNR),D,4),TTB=$P(^(FNR),D,6) D F2:'$D(^(FNR+.01))&TTB I 'SW D F1 G S1A S1C S X=$E(Q1,1)_FNR,K=$D(@("^"_Q_Q3_"(KC)")) S:K J1=^(KC),J2=1_BP*100 I 'K D F5 G S1I:SW3!SWZ,S1A S1D S A='$D(@("^"_Q_Q2_"(J1,BJ)")),B='$D(^(BJ+.02)),Z3=BJ D:A F6 S Z3=BJ+.02 D:B F6 S:A!B K=$D(@("^"_Q_Q2_"(J1,J2)")) S K=J2 S1E S K=$O(^(K)) I K=""!($E(K,1,7)'=J2) D F3 G S1I:SW3!SWZ,S1A S1F I ^(K)[X W "." G S1I:SW3!SWZ,S1A S1G G S1E S1H S BP=BP1,FNR="",SW=1 S1I S FNR=$O(@("^"_Q_Q1_"(BP,FNR)")) G S1I:FNR#1,S1B:FNR S1J S BP=$J(BP+.01,7,2) S:BP#1>.12 BP=BP+.88 S:BP>M2(BJ) BJ=BJ+1 I BP'>BP2 G S1I S1Z Q ; ; kontrole openstaande fakturen S2 W !,$P($T(T4),U,2) S FNR="",X=Q1 S2A S FNR=$O(@("^"_Q_Q1_"(FNR)")) G S2Z:FNR="" S L=^(FNR),KC=$P(L,D),BP=$P(L,D,2) I BPBP2) W "-" G S2A S2B S:KC[" " KC=$P(KC," ",2) S K=$D(@("^"_Q_Q3_"(KC)")) I 'K D F5 G S2A S2C S J1=^(KC),K=$D(@("^"_Q_Q2_"(J1,FNR)")) D:'K F7 W:K "." G S2A S2Z Q ; 1 S:'SW3 OKJ=+KJ G YZ:'SW2 I 'SW3 S KJ=+KJ,BP1=M1(KJ),BP2=M2(KJ) 11 I SW3 S BP1=SM1,BP2=SM2 F KJ=J1:1:J4 Q:BP1'>M2(KJ) 13 W !,$S('SW3:KJ_" = ",1:""),BP1," - ",BP2 15 I SW21 W !,$P($T(T1),U,2) S Q1="VE",Q2="KL",Q3="K1" D S1 S Q1="VF" D S2 17 I SW22 W !,$P($T(T2),U,2) S Q1="AA",Q2="LE",Q3="L1" D S1 S Q1="AF" D S2 19 I 'SW23 G Y ; ; controle financieel dagboek 2 S Q1="FI",BJ=KJ,BP=$J(BP1,7,2),(REK,VNR)="",S="#" W !,$P($T(T3),U,2) 21 W !,BP 23 S REK=$O(@("^"_Q_Q1_"(BP,REK)")) I REK="" G Y:BP=BP2 S BP=$J(BP+.01,7,2) S:BP#1>.12 BP=$J(BP+.88,7,2) S:BP>M2(BJ) BJ=BJ+1 G 21 25 W !,REK," " 27 S VNR=$O(@("^"_Q_Q1_"(BP,REK,VNR)")) G 23:VNR="" S A=$P(^(VNR),D,7),KC=$P($P(^(VNR),D,8),S),X="B"_REK_S_VNR 29 S Q2=$S(A="K":"KL",A="L":"LE",A="A":"AR",1:"?") I Q2="?" S Z1=Q1,Z2=REK,Z3=VNR,Z4=A_" verschilt van A, K of L" D F0 G 27 30 I Q2="AR" S J1=KC_" " G 33 31 S Q3=$E(Q2)_1,K=$D(@("^"_Q_Q3_"(KC)")) S:K J1=^(KC),J2=1_BP*100 I 'K D F5 G 27 33 S A='$D(@("^"_Q_Q2_"(J1,BJ)")),B='$D(^(BJ+.02)),Z3=BJ D:A F6 S Z3=BJ+.02 D:B F6 I Q2="AR" W:'A&'B "." G 27 35 S:A!B K=$D(@("^"_Q_Q2_"(J1,J2)")) S K=J2 37 S K=$O(^(K)) I K=""!($E(K,1,7)'=J2) D F3 G 27 38 I ^(K)[X W "." G 27 39 G 37 ; Y I $D(SW31),SW31,KJ