cT186 ;Controle boekhouding ;%T181 ;%T185>.>%T187 ; [ 05/25/98  4:34 PM ]
 ;
T0 ;Controle boekhouding ;
T1 ;Historieken & cumuls van de ;klanten;leveranciers;
T2 ;bestaat niet in dagboek;van andere rekening;
 ;
T0F ;Contrôle comptabilité ;
T1F ;Historiques & cumuls des ;clients;fournisseurs;
T2F ;n'existe pas dans les journaux;d'un autre compte;
 ;
T0E ;Controle boekhouding ;
T1E ;Historieken & cumuls van de ;klanten;leveranciers;
T2E ;bestaat niet in dagboek;van andere rekening;
 ;
 ; initialisatie
1 S Q3="^"_Q_"FI(I1,I3,N)",Q4="^"_Q_"VE(I1,N)",Q5="^"_Q_"AA(I1,N)"
 ; klanten
11 S Q0="^"_Q_"CNTRL(11,I1,KC,I3)",Q1="^"_Q_"KL(I2)",Q2="^"_Q_"KL(I2,Y)",Q6="^"_Q_"CNTRL(12,I1,KC)",Q7="^"_Q_"CNTRL(13,I1,I2,V)"
13 S SRT="K",I1="",I2=0,BP=BPA+.01 S:BPC BP=BPC W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,3),! D 2
 ; leveranciers
15 S Q0="^"_Q_"CNTRL(21,I1,KC,I3)",Q1="^"_Q_"LE(I2)",Q2="^"_Q_"LE(I2,Y)",Q6="^"_Q_"CNTRL(22,I1,KC)",Q7="^"_Q_"CNTRL(23,I1,I2,V)"
17 S SRT="L",I1="",I2=0,BP=BPA+.01 S:BPC BP=BPC W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,4),! D 2
19 G YZ
 ;
 ; alle klanten/leveranciers
2 S I2=$O(@Q1) Q:I2=""  S KC=$P(I2," ",2),Y=1_BP*100-.001,V="" W $E(I2)
21 S Y=$O(@Q2) G 3:'Y S I1=$E(Y,2,5)_"."_$E(Y,6,7),A=^(Y) I I1<BP!(I1'=BP&BPC) G 21
23 I $E(Y)=1,Y?7N1"."1N.N!(Y?7N1U.UN) D S2 G 21      ; detailhistorieken
 ;
 ; cumuls voor de gevraagde boekingsmaanden
3 S BJ=$P(BPA(0),D,2),Y=BJ\1,BPB=+BPA(0)
31 S A1=$G(^(Y)),B1=$G(^(Y+.02)),A2=$G(^(Y+1)),B2=$G(^(Y+1.02)),A3=$G(^(Y+2)),B3=$G(^(Y+2.02))
33 S Y=$P(BPA(0),D,3),I1=BPA I BPC S I1=BPC G 37
35 S I1=I1+.01 G 2:I1>BPH S:$L(I1)=6 I1=I1_0 S:$P(I1,".",2)>12 I1=I1+.88
37 S:I1>BJ BPB=BJ\1*12+(BJ#1*100),BJ=BJ+1,A1=A2,B1=B2,A2=A3,B2=B3,(A3,B3)="" S BX=I1\1*12+(I1#1*100)-BPB+1
38 I +$P(B1,D,BX)!+$P(A1,D,BX) S @Q6=$P(A1,D,BX)_D_$P(B1,D,BX)
39 G 2:BPC,35
 ;
YZ K A,A3,B3,N,CD G ^cT187
 ;
 ; resultaat controle historiek
S1 I A(0)!A(1) S:'$D(@Q0) @Q0=D S ^(I3)=^(I3)+A(0)_D_($P(^(I3),D,2)+A(1))
S1Z Q
 ;
 ; aflopen velden detailhistoriek
S2 S (A(0),A(1))=0,Z=$P(A,D),A=$P(A,D,2,99) G S2Z:'$L(A)&'$L(Z) S I3=$E(Z,1),N=$E(Z,2,99),V=Z
S2A I I3="V" G S2E:'$D(@Q4) S B=@Q4 G S2F:$P(B,D,4)'=KC S CD=$P(B,D)="C",A(CD)=$P(B,D,6) D S1 G S2
S2B I I3="A" G S2E:'$D(@Q5) S B=@Q5 G S2F:$P(B,D,4)'=KC S CD=$P(B,D)="F",A(CD)=$P(B,D,6) D S1 G S2
S2C S I3=$P(N,"#"),N=$P(N,"#",2) G S2E:'$D(@Q3) S B=@Q3 G S2F:$P(B,D,7)'=SRT,S2F:$P($P(B,D,8),"#")'=KC
S2D S CD=$P(B,D,6)="C",A(CD)=$P(B,D,5) D S1 G S2
S2E S @Q7=$P($T(@("T2"_QT)),U,2) G S2
S2F S @Q7=$P($T(@("T2"_QT)),U,3) G S2
S2Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84