cT471 ;Exploitatiestaat ;%T47 ; [ 01/03/01  10:11 AM ]
 G 0
 ;
T0 ;Exploitatiestaat ;
T1 ;Bruto winst;Bruto resultaat;Netto resultaat;Eindresultaat;Cash flow;
T2 ;\Realisatie ;1\Budget ;1\Evaluatie ;1;
T3 ; Cumulatie;
 ;
T0F ;Etat d'exploitation ;
T1F ;Bénéfice brut;Résultat brut;Résultat net;Résultat final;Cash flow;
T2F ;\Réalisation ;1\Budget ;1\Evaluation ;1;
T3F ; Cumuls;
 ;
T0E ;Exploitation survey ;
T1E ;Gross profit;Gross result;Net result;End result;Cash flow;
T2E ;\Realisation ;1\Budget ;1\Evaluation ;1;
T3E ; Glob. am.;
 ;
S1(EK) ; saldi per exploitatiekode
S1A S S(BJ)=$G(^HULP(boot,$J,EK,BJ)) F S1=BJ,BP,BJ1,BP1 S S(S1)=$G(^(S1))
S1B S S2=$S(CUM:BJ,1:BP) F S1=1,2 S S(S1)=-$P(S(S2),D,S1)
S1C S S2=$S(CUM:BJ1,1:BP1) S S(4)=-$P(S(S2),D)
S1Z K S1,S2 Q
 ;
 ; kolommen op scherm
S2 ;I PTS S TXT(3)=TXT(4),TXT(4)=TXT(6),TXT(5)=TXT(8)
S2Z Q
 ;
 ; kolommen op scherm/printer
S3 S TXT(2)=S(1)_"\\\\1\"_QD
S3A S TXT(3)=S(2)_"\\\\1\"_QD
S3B S TXT(4)=S(1)-S(2)_"\\\\1\"_QD
S3C S TXT(5)="" I BJ1 S TXT(5)=S(4)_"\\\\1\_QD"
S3Z Q
 ;
 ; subtotaal berekenen
S4 F S1=1,2,4 S A(S1)=A(S1)+S(S1)
S4Z K S1 Q
 ;
 ; subtotaal ophalen
S5 F S1=1,2,4 S S(S1)=+A(S1)
S5Z K S1 Q
 ;
 ; initialisatie
0 S TIT(1)=$P($T(@("T2"_QT)),U,2,99) I BJ1 S TIT(1)=TIT(1)_$E(TIT(1),1,2)_" "_BP1_" ;1"
01 I 'PTS S HD(2)=D_$P($T(@("T0"_QT)),U,2),HD(3)=D_BP_" ;C;F82"
03 I CUM S $P(TIT(1),D)=$P($T(@("T3"_QT)),U,2)
05 S $P(TIT(1),D)=$P(TIT(1),D)_" ("_$P(MUNT,D)_")"
 ;
 ; kode 1,2,3
1 F I=1,2,4 S A(I)=0
11 D S1(1) 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=1,2,4 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