cT470 ;Exploitatiestaat ;%T47 ; [ 01/03/01  10:09 AM ]
 G 0
 ;
T0 ;Exploitatiestaat ;
T1 ;Bruto winst;Bruto resultaat;Netto resultaat;Eindresultaat;Cash flow;
T2 ;Cum. ; Realisatie; Budget;
 ;
T0F ;Etat d'exploitation ;
T1F ;Bénéfice brut;Résultat brut;Résultat net;Résultat final;Cash flow;
T2F ;Cum. ; Réalisation; Budget;
 ;
T0E ;Exploitation survey ;
T1E ;Gross profit;Gross result;Net result;End result;Cash flow;
T2E ;Cum. ; Realisation; Budget;
 ;
S1(EK) ; saldi per exploitatiekode
S1A S S(BJ)=$G(^HULP(boot,$J,EK,BJ)) F S1=BJ,BP,BJ1,BP1 S S(S1)=$P($G(^(S1)),D,BEDR+1)
S1Z K S1 Q
 ;
 ; kolommen op scherm
S2 I PTS S TXT(3)=TXT(4),TXT(4)=TXT(6),TXT(5)=TXT(8)
S2Z Q
 ;
 ; kolommen op printer
S3 S TXT(2)=-S(BP)_"\\\\1\"_QD,TXT(3)="" I T(BP) S TXT(3)=TXT(2)/T(BP)
S3A S TXT(4)=-S(BJ)_"\\\\1\"_QD,TXT(5)="" I T(BJ) S TXT(5)=TXT(4)/T(BJ)
S3B S TXT(6)=-S(BP1)_"\\\\1\"_QD,TXT(7)="" I T(BP1) S TXT(7)=TXT(6)/T(BP1)
S3C S TXT(8)=-S(BJ1)_"\\\\1\"_QD,TXT(9)="" I T(BJ1) S TXT(9)=TXT(8)/T(BJ1)
S3D F S1=3:2:9 S S2=TXT(S1) S:S2<0 S2=-S2 S:$L(S2) TXT(S1)=S2*100_"\\\\1\2"
S3Z K S1,S2 Q
 ;
 ; subtotaal berekenen
S4 F S1=BP,BJ,BP1,BJ1 S A(S1)=A(S1)-S(S1)
S4Z K S1 Q
 ;
 ; subtotaal ophalen
S5 F S1=BP,BJ,BP1,BJ1 S S(S1)=-A(S1)
S5Z K S1 Q
 ;
 ; initialisatie
0 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_BP_" ;C;F82",HD(3)=D I PTS S HD(1)=HD(2) K HD(2),HD(3)
01 S TAB=$S(BEDR=2!PTS:"19\34\49\64\79",1:"39\54\62\77\85\100\108\123\131") I BEDR=2 G ^cT471
03 S I=$S(PTS:"",1:"%;2\"),TIT(1)=$P($T(@("T2"_QT)),U,3+BEDR)_" ("_$P(MUNT,D)_")"_D_BP_U_2_D_I_$P($T(@("T2"_QT)),U,2)_BJ_U_2_D_I_BP1_U_2_D_I_$P($T(@("T2"_QT)),U,2)_$S(BJ1:BJ1,1:BJ-1)_U_2_D_I
 ;
 ; kode 1,2,3
1 D S1(2) F I=BP,BJ,BP1,BJ1 S T(I)=-S(I),A(I)=0
11 D S1(1) F I=BP,BJ,BP1,BJ1 S T(I)=T(I)-S(I)
13 S TXT(1)=" 1 "_$P($G(@("^"_Q_"BA(""%T"",6,""1 "")")),D,QTU*2)
14 D S4,S3,S2,^cA334
15 D S1(2) S TXT(1)=" 2 "_$P($G(@("^"_Q_"BA(""%T"",6,""2 "")")),D,QTU*2)
16 D S4,S3,S2,^cA334
17 D S1(3) S TXT(1)=" 3 "_$P($G(@("^"_Q_"BA(""%T"",6,""3 "")")),D,QTU*2)
18 D S4,S3,S2,^cA334
 ;
 ; bruto winst
2 S END=145,LN=1 D ^cA334
21 D S5 S TXT(1)="   "_$P($T(@("T1"_QT)),U,2)
22 D S3,S2,^cA334
 ;
 ; kode 4,5,6
3 D S1(4) S TXT(1)=" 4 "_$P($G(@("^"_Q_"BA(""%T"",6,""4 "")")),D,QTU*2)
30 D S4,S3,S2,^cA334
31 D S1(5) S TXT(1)=" 5 "_$P($G(@("^"_Q_"BA(""%T"",6,""5 "")")),D,QTU*2)
32 D S4,S3,S2,^cA334
33 D S1(6) S TXT(1)=" 6 "_$P($G(@("^"_Q_"BA(""%T"",6,""6 "")")),D,QTU*2)
34 D S4,S3,S2,^cA334
 ;
 ; bruto resultaat
4 S END=145,LN=1 D ^cA334
41 D S5 S TXT(1)="   "_$P($T(@("T1"_QT)),U,3)
42 D S3,S2,^cA334
 ;
 ; kode 7
5 D S1(7) S TXT(1)=" 7 "_$P($G(@("^"_Q_"BA(""%T"",6,""7 "")")),D,QTU*2)
50 D S4,S3,S2,^cA334
 ;
 ; netto resultaat
6 S END=145,LN=1 D ^cA334
61 D S5 S TXT(1)="   "_$P($T(@("T1"_QT)),U,4)
62 D S3,S2,^cA334
 ;
 ; kode 8
7 D S1(8) S TXT(1)=" 8 "_$P($G(@("^"_Q_"BA(""%T"",6,""8 "")")),D,QTU*2)
70 D S4,S3,S2,^cA334
 ;
 ; eindresultaat
8 S END=145,LN=1 D ^cA334
81 D S5 S TXT(1)="   "_$P($T(@("T1"_QT)),U,5)
82 D S3,S2,^cA334
 ;
 ; cash flow
9 S END=145,LN=1 D ^cA334
91 D S1(7) S TXT(1)="   "_$P($T(@("T1"_QT)),U,6) F I=BP,BJ,BP1,BJ1 S S(I)=-S(I)
92 D S4,S5,S3,S2,^cA334
93 S END=1 D ^cA334
 ;
YZ K ^HULP(boot,$J) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84