cT188 ;Controle boekhouding ;%T181 ;%T187>.>%T189 ; [ 05/26/98  5:08 PM ]
 ;
T0 ;Controle boekhouding ;
T1 ;Vergelijking resultaten ;rekeningen;klanten;leveranciers; (analytisch);
T2 ; vgl met historiek; vgl met dagboeken; klopt; verschilt : ; debet verschilt : ; credit verschilt : ;saldo verschilt : ;
 ;
T0F ;Contrôle comptabilité ;
T1F ;Comparaison des résultats ;comptes;clients;fournisseurs; (analytique);
T2F ; par rapport à l'historique; par rapport aux journaux; ok; diffère   : ; débit diffère : ; crédit diffère : ; solde diffère : ;
 ;
T0E ;Controle boekhouding ;
T1E ;Vergelijking resultaten ;rekeningen;klanten;leveranciers; (analytisch);
T2E ; vgl met historiek; vgl met dagboeken; klopt; verschilt : ; debet verschilt : ; credit verschilt : ;saldo verschilt : ;
 ;
 ; initialisatie
1 S Q0="^"_Q_"CNTRL(X1,I1)",Q3="^"_Q_"CNTRL(X1,I1,I2)",Q7="^"_Q_"CNTRL(X1,I1,I2,I3)"
11 S Q1="^"_Q_"CNTRL(X2,I1)",Q4="^"_Q_"CNTRL(X2,I1,I2)",Q8="^"_Q_"CNTRL(X2,I1,I2,I3)"
13 S Q2="^"_Q_"CNTRL(X3,I1)",Q5="^"_Q_"CNTRL(X3,I1,I2)",Q9="^"_Q_"CNTRL(X3,I1,I2,I3)"
 ; analytische rekeningen
15 S Q10="^"_Q_"ARA(I2,0)",X1=100 W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,6),! D 8,2
 ; rekeningen
16 S Q10="^"_Q_"AR(I2,0)",X1=0 W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,3),! D 8,2
 ; klanten
17 S X1=10 W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,4),! D 8,2
 ; leveranciers
19 S X1=20 W !,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,5),! D 8,2 G YZ
 ;
 ; vergelijking dagboek <-> historieken <-> cumuls
2 S I1=$O(@Q0),I2="" G 7:I1="" W I1," " G 3:(X1#100) S X=^(I1),XX=Q0 D S1,S2 S A1=V1,A2=V
21 S X=$G(@Q1,D),XX=Q1 D S1,S2 S B1=V1,B2=V,X=$G(@Q2,D),XX=Q2 D S1,S2 S C1=V1,C2=V
23 S Z=$P($T(@("T2"_QT)),U,2),ZZ="I1",X=B1-C1,Y=B2-C2,XX=Q2,I3="" D S3
25 S I2=$O(@Q4) G 27:I2="" S:'$D(@Q3) ^(I2)=D
26 S I3=$O(@Q8) G 25:I3="" S:'$D(@Q7) ^(I3)=D G 26
27 S I2=$O(@Q5) G 3:I2="" S:'$D(@Q3) ^(I2)=D S:'$D(@Q4) ^(I2)=D
29 S I3=$O(@Q9) G 27:I3="" S:'$D(@Q7) ^(I3)=D S:'$D(@Q8) ^(I3)=D G 29
 ;
 ; alle "rekeningen" per maand
3 S I2=$O(@Q3),I3="",SWS=0 I I2="" S K=$O(@Q3) G 2:$L(K)!'(X1#100) S K=$O(@Q4) G 2:$L(K) S K=$O(@Q5) K:K=I2 @Q0,@Q1,@Q2 G 2
31 S X=^(I2) D S1 S A1=V1,A2=V I 'X1,$D(@Q10) S SWS=$L($P(^(0),D,10))
33 I I2="A"!(I2="V")!($E(I2,1,4)="Fdiv")!(I2?1"F".7N) S XX=Q3 D S2 S SW3=SW
35 S X=$G(@Q4,D) D S1 S B1=V1,B2=V I I2="A"!(I2="V")!($E(I2,1,4)="Fdiv")!(I2?1"F".7N) S XX=Q4 D S2 K:SW3&SW @Q3,@Q4 G 3
37 S X=$G(@Q5,D) D S1 S C1=V1,C2=V,Z=$P($T(@("T2"_QT)),U,3),ZZ="I2" I SWS S X=A1-A2-B1+B2,XX=Q4 D S4 S SW3=SW G 4
39 S X=A1-B1,Y=A2-B2,XX=Q4 D S3 S SW3=SW
 ;
4 I SWS S X=A1-A2-C1+C2,XX=Q5 D S4 S SW4=SW G 43
41 S X=A1-C1,Y=A2-C2,XX=Q5 D S3 S SW4=SW
43 S Z=$P($T(@("T2"_QT)),U,2),X=B1-C1,Y=B2-C2,XX=Q5 D S3 S SW6=SW,SW5=1
 ;
 ; alle detail per "rekening"
5 S I3=$O(@Q7) G 6:I3="" S X=^(I3) D S1 S A1=V1,A2=V,X=$G(@Q8) D S1
51 S B1=V1,B2=V,Z=$P($T(@("T2"_QT)),U,3),ZZ="I3" I SWS S X=A1-A2-B1+B2,XX=Q8 D S4 S:'SW SW5=SW G 55
53 S X=A1-B1,Y=A2-B2,XX=Q8 D S3 I 'SW S SW5=SW
55 I SW5,SW3,SW4,SW6 K @Q7,@Q8
57 G 5
 ;
 ; einde maand
6 I SW5,SW3,SW4,SW6 K @Q3,@Q4,@Q5
61 G 3
 ;
7 K A,B,C,SW,SWS,SW1,SW2,SW3,SW4,SW5,SW6,SR,V,V1,Z,XX,ZZ Q
 ;
 ; initialisatie
8 S I1="",X2=X1+1,X3=X1+2
81 S I1=$O(@Q1) I $L(I1) S:'$D(@Q0) ^(I1)=D G 81
83 S I1=$O(@Q2) I $L(I1) S:'$D(@Q0) ^(I1)=D S:'$D(@Q1) ^(I1)=D G 83
85 Q
 ;
YZ K X1,X2,X3,Q4,Q5,Q6,Q7,Q8,Q9,Q10 G ^cT189
 ;
 ; debet en credit
S1 S V1=+X,V=+$P(X,D,2) Q
 ;
 ; klopt of verschilt
S2 I V1=V!(X1>99) S B=$P($T(@("T2"_QT)),U,4),SW=1
S2A I V1'=V&(X1<100) S B=$P($T(@("T2"_QT)),U,5)_(V1-V),SW=0,FOUT=6
S2Z S @XX=X_D_B Q
 ;
 ; debet/credit verschilt
S3 S SW=1,B="" S:X B=$P($T(@("T2"_QT)),U,6)_X I Y S:$L(B) B=B_" &" S B=B_$P($T(@("T2"_QT)),U,7)_Y
S3A I $L(B) S X=@ZZ,@ZZ=@ZZ_Z,@XX=B,@ZZ=X,SW=0,FOUT=7
S3Z Q
 ;
 ; saldo verschilt
S4 S SW=1 I X S B=$P($T(@("T2"_QT)),U,8)_X D S3A
S4Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84