cT189 ;Controle boekhouding ;%T181 ;%T188>.>%T193 ; [ 01/08/01  3:02 PM ]
 ;
T0 ;Controle boekhouding ;
T1 ;Cumul t.o.v. grootboekrekeningen + openstaande facturen ;klanten;leveranciers;
T2 ;Cumul ; t.o.v. cumuls grootboekrek. ;per ; saldo openst. fact. t.o.v. saldo cumuls;
T3 ;ste\de; periode debet;credit;klant;leverancier;
T4 ; te veel; te weinig; op de grootboekrekening ;debet;credit; in cumulnode ;
T5 ;Transacties ;verkoop;aankoop;financieel;
 ;
T0F ;Contrôle comptabilité ;
T1F ;Cumul par rapport aux comptes grand-livre + factures ouvertes ;clients;fournisseurs;
T2F ;Cumul ; par rapport aux cumuls grand-livre ;par ; fact. ouvertes comp. avec solde cumuls;
T3F ;ière\ième; période débit;crédit;clients;fournisseur;
T4F ; de trop; de peu; sur le compte ;débit;crédit; dans le cumul ;
T5F ;Transactions ;ventes;achats;financiers;
 ;
T0E ;Controle boekhouding ;
T1E ;Cumul t.o.v. grootboekrekeningen + openstaande facturen ;klanten;leveranciers;
T2E ;Cumul ; t.o.v. cumuls grootboekrek. ;per ; saldo openst. fact. t.o.v. saldo cumuls;
T3E ;ste\de; periode debet;credit;klant;leverancier;
T4E ; te veel; te weinig; op de grootboekrekening ;debet;credit; in cumulnode ;
T5E ;Transacties ;verkoop;aankoop;financieel;
 ;
1 S Q0="^"_Q_"CNTRL(RR*10+15)",Q1="^"_Q_"CNTRL(RR*10+15,""BEGINSALDO ""_BJ)"
11 S Q2="^"_Q_"CNTRL(RR*10+15,XX_"" ""_(BJ+K-1))",Q4="^"_Q_"CNTRL(RR*10+14)",Q5="^"_Q_"CNTRL(RR*10+14,I1)"
13 S K=$P(BPA(0),D,3) F AT=2:1 Q:K=$P(BPA(0),D,2)  S K=$E(K+.01_0,1,7) I K#1>.12 S K=K+.88
15 S BPA(0)=$P(BPA(0),D,1,3),RX=-1,RR=0,BJ=$P(BPA(0),D,2)\1,BF="BF" S:$D(@("^"_Q_"BA(39)")) BF=$P(^(39),D)
17 S MNT=$P($$MNTC^cAFE1(Q,BJ),D),MNT1=$P($$MNTC^cAFE1(Q,BJ+1),D),MNT2=$P($$MNTC^cAFE1(Q,BJ+2),D)
19 S K=$$BJ^cAFE1(Q,DJ_"."_DM),MNTO=$P($$MNTO^cAFE1(Q,K),D),SWMNT=1,BPB=@("^"_Q_"BA(2)"),BA39=^(39)
 ;
 ; basisrekening
2 S T=0,I1=0,O=$P("KL\LE",D,RR+1),@Q0=$P($T(@("T2"_QT)),U,2)_$P($T(@("T1"_QT)),U,RR+3)_$P($T(@("T2"_QT)),U,3)_$P($T(@("T1"_QT)),U,RR+3)
21 S @Q4=$P($T(@("T2"_QT)),U,4)_$P($T(@("T3"_QT)),U,RR+5)_$P($T(@("T2"_QT)),U,5)
23 W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,3+RR),!
25 S K=$P(@("^"_Q_"BA(14+RR,0)"),D)_" ",K=@("^"_Q_"AR(K,0)") D S3 S T=-A1
27 F I=2:1:AT S A(1,I)=-$P(A1,D,I),A(2,I)=-$P(A2,D,I),A(3,I)=-$P(A3,D,I),K(1,I)=-$P(B1,D,I),K(2,I)=-$P(B2,D,I),K(3,I)=-$P(B3,D,I)
 ;
 ; individuele KL/LE
3 S I1=$O(@("^"_Q_O_"(I1)")) G 4:I1="" S K=^(I1,0) D S3 S T=T+A1 W $E(I1)
31 F I=2:1:AT S A(1,I)=A(1,I)+$P(A1,D,I),A(2,I)=A(2,I)+$P(A2,D,I),A(3,I)=A(3,I)+$P(A3,D,I),K(1,I)=K(1,I)+$P(B1,D,I),K(2,I)=K(2,I)+$P(B2,D,I),K(3,I)=K(3,I)+$P(B3,D,I)
33 S I2=99999,SAL=A1+A2+A3 F I=2:1:AT S SAL=SAL+$P(A1,D,I)-$P(B1,D,I)+$P(A2,D,I)-$P(B2,D,I)+$P(A3,D,I)-$P(B3,D,I)
35 S SS=SAL
36 S I2=$N(^(I2)) I I2?6N S R=1,A=^(I2),K=$P(A,D,9) S:'$L(K) K=BF S:$P(A,D)="C" R=-1 S SAL=R*RX*$P(A,D,10)+SAL G 36
37 I SAL,SWMNT D S2
38 I 'SWMNT D S4
39 G 3
 ;
 ; vergelijking totalen
4 I T S Y=Q1,Z=T D S1
41 S Y=Q2 F K=1:1:3 F I=2:1:AT S XX=I-1_"-"_$P($P($T(@("T3"_QT)),U,2),D,I>2+1)_$P($T(@("T3"_QT)),U,3),Z=A(K,I) D S1:Z S $P(XX," ",3)=$P($T(@("T3"_QT)),U,4),Z=K(K,I) D S1:Z
43 S RR=RR+1,RX=RX+2 I RR<2 G 2
 ;
 ; transacties
5 K A,A0,A1,A2,A3,B1,B2,B3,K,RX,RR,R,XX,Y,Z
51 S I=$T(@("T5"_QT)),@("^"_Q_"CNTRL(110)")=$P(I,U,2)_$P(I,U,3)
53 S ^(120)=$P(I,U,2)_$P(I,U,4),^(130)=$P(I,U,2)_$P(I,U,5),I=0
54 S I=$O(^HULPE(I)) I I="" G Y
55 S K=$G(^(I,0)),J=$P(K,D,3)
56 I $P(K,D,2)=Q,J="V" S @("^"_Q_"CNTRL(110,I)")=K,FOUT=110
57 I $P(K,D,2)=Q,J="A" S @("^"_Q_"CNTRL(120,I)")=K,FOUT=120
58 I $P(K,D,2)=Q,J="F" S @("^"_Q_"CNTRL(130,I)")=K,FOUT=130
59 G 54
 ;
 ; einde
Y D ^cA105 S $P(@("^"_Q_"CNTRL"),D,4)=TD_D_$G(FOUT,0)_D
YA K Q0,Q1,Q2,Q3,Q4,Q5,MNT,MNT1,MNT2,MNTO,SWMNT
YB I '$G(JOB) D W^cA612:$G(QW) G ^cT193:$D(FOUT)
YZ Q
 ;
 ; registratie fout
S1 I SWMNT S @Y=(Z<0*-2+1*Z)_$P($T(@("T4"_QT)),U,Z>0+2)_$P($T(@("T4"_QT)),U,4)_$P($T(@("T1"_QT)),U,RR+3),FOUT=8
S1Z Q
 ;
 ; registratie fout
S2 S K=2 I SS'<0&(SAL'>0)!(SS'>0&(SAL'<0)) S K=3
S2A S @Q5=(SAL<0*-2+1*SAL)_$P($T(@("T4"_QT)),U,K)_" "_$P($T(@("T4"_QT)),U,SAL<0+5)_$P($T(@("T4"_QT)),U,7)_BJ_$P("\.02",D,SAL<0+1),FOUT=9
S2Z Q
 ;
 ; cumuls ophalen
S3 S (A1,A2,A3,B1,B2,B3)="\\\\\\\\\\\\\\\\\\\\"
S3A S:$D(^(BJ))&'$D(^(BJ+.02)) ^(BJ+.02)=A1 S:'$D(^(BJ))&$D(^(BJ+.02)) ^(BJ)=A1
S3B S:$D(^(BJ+1))&'$D(^(BJ+1.02)) ^(BJ+1.02)=A1 S:'$D(^(BJ+1))&$D(^(BJ+1.02)) ^(BJ+1)=A1
S3C S:$D(^(BJ+2))&'$D(^(BJ+2.02)) ^(BJ+2.02)=A1 S:'$D(^(BJ+2))&$D(^(BJ+2.02)) ^(BJ+2)=A1
S3D S:$D(^(BJ)) A1=^(BJ),B1=^(BJ+.02) S:$D(^(BJ+1)) A2=^(BJ+1),B2=^(BJ+1.02) S:$D(^(BJ+2)) A3=^(BJ+2),B3=^(BJ+2.02)
S3E I MNT'=MNTO D
 . N S1,S2
 . F S1=1:1:24 S S2=$P(A1,D,S1) I S2 S $P(A1,D,S1)=$$BEDR^cAFE1(Q,S2,MNT,MNTO,"F"),SWMNT=0
 . F S1=2:1:24 S S2=$P(B1,D,S1) I S2 S $P(B1,D,S1)=$$BEDR^cAFE1(Q,S2,MNT,MNTO,"F"),SWMNT=0
S3F I MNT1'=MNTO D
 . N S1,S2
 . F S1=2:1:24 S S2=$P(A2,D,S1) I S2 S $P(A2,D,S1)=$$BEDR^cAFE1(Q,S2,MNT1,MNTO,"F"),SWMNT=0
 . F S1=2:1:24 S S2=$P(B2,D,S1) I S2 S $P(B2,D,S1)=$$BEDR^cAFE1(Q,S2,MNT1,MNTO,"F"),SWMNT=0
S3G I MNT2'=MNTO D
 . N S1,S2
 . F S1=2:1:24 S S2=$P(A3,D,S1) I S2 S $P(A3,D,S1)=$$BEDR^cAFE1(Q,S2,MNT2,MNTO,"F"),SWMNT=0
 . F S1=2:1:24 S S2=$P(B3,D,S1) I S2 S $P(B3,D,S1)=$$BEDR^cAFE1(Q,S2,MNT2,MNTO,"F"),SWMNT=0
S3Z S $P(A2,D)="",$P(A3,D)="" Q
 ;
 ; controle saldo bij euro-overgang
S4 N BJ S BJ=$P(BPB,D,2)\1 I BJ>$P(BA39,D,6) G S4Z
S4A S A1=$G(@("^"_Q_O)@(I1,BJ)),A2=$G(^(BJ+1))
S4B S B1=$G(^(BJ+.02)),B2=$G(^(BJ+1.02))
S4C S SAL=$P(A1,D) F I=2:1:24 S SAL=SAL+$P(A1,D,I)-$P(B1,D,I)
S4D I BJ+1=$P(BA39,D,6),$P(BA39,D,11)'="" S SAL=$$OMREK^cAFE1(Q,SAL,$P(BA39,D,9),"EUR","F","")
S4E S A3=0 F I=2:1:24 S A3=A3+$P(A2,D,I)-$P(B2,D,I)
S4F I BJ+1=$P(BA39,D,6),$P(BA39,D,11)="" S A3=$$OMREK^cAFE1(Q,A3,"EUR",$P(BA39,D,9),"F","")
S4G S SAL=SAL+A3,A3=0.5 I $P(BA39,D,11)="" S A3=$$OMREK^cAFE1(Q,A3,"EUR",$P(BA39,D,9),"F","")
S4H S I2=99999 F  S I2=$O(^(I2)) Q:I2'?6N  S I=^(I2),R=$S($P(I,D)="C":-1,1:1),SAL=$P(I,D,10)*R*RX+SAL
S4I I $$ABS(SAL)>A3 S @Q5@(BJ)="Saldo:"_SAL,FOUT=19   ; afwijking 0.5 EUR
S4Z Q
 ;
 ; absolute waarde
ABS(K) I K<0 S K=-K
ABSZ Q +K
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84