Bilancio commessa CA
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
ANNO
TIPOSTIMA
DEPTH
VITAINTERA
LEVEL C; 2
LEVEL
ANNO
LEVEL
MESSAGE COPY,F2.101
ANNO
MESSAGE COPY,F2.102
LEVEL
LEVEL
LEVEL
MESSAGE COPY,F3.101
STAMPAFASI != ""
CODCMS
MESSAGE RESET,F4.169
STAMPAFASI
CODCMS
0
1 #H4.3 \ incrementa il contatore per il numero di righe di fase
+!
CODCMS
IF(#H4.3=0;DESCRIZ;"")
FASE
ROUND(AVANZAMENTO;0)
MESSAGE ADD,F4.69
MESSAGE ADD,F3.69
#RICAVI-#COSTI
MESSAGE ADD,F4.169
MESSAGE ADD,F3.169
#RICAVI @
EMPTY= IF
0
ELSE
1
#COSTI @
#RICAVI @
F;
-
100
*
0
ROUND
THEN
#THIS !
H2.101
H2.102
MESSAGE ADD,F1.69
MESSAGE COPY,F2.101
MESSAGE ADD,F1.169
H3.101
MESSAGE ADD,F2.69
MESSAGE ADD,F2.169
(STAMPAFASI != "")(#H4.3 E; 1)
H4.2
USE SALDANA