Bilancio commessa CA riassuntivo per fasi#SYSTEM.RAGSOC#SYSTEM.DATE#REPORT.PAGEFASESPEC"MARGINE CONTRIBUZIONE"TIPOSTIMATIPODETRDEPTHVITAINTERAFASESPECMESSAGE COPY,F1.2ANNO(LEVELC;2)||(LEVEL=4)LEVELANNOLEVELMESSAGE COPY,F2.101ANNOMESSAGE COPY,F2.102LEVELLEVELLEVELMESSAGE COPY,F3.1011 #H4.3 \ incrementa il contatore per il numero di righe di fase
+!CODCMSMESSAGE ADD,F3.69#RICAVI-#COSTIMESSAGE ADD,F3.169#RICAVI @
EMPTY= IF
0
ELSE
1
#COSTI @
#RICAVI @
F;
-
100
*
DUP \ duplica la % non arrotondata
#F3.170 \ e incrementa il campo nel footer3
+!
0 ROUND \ e alla fine arrotonda quello sul body
THEN
#THIS !H1.2MESSAGE RESET,169#LEVEL @
4 = IF
"90@" ENABLE
ELSE
"90@" DISABLE
THENH2.101H2.102909090H2.102MESSAGE ADD,F1.69MESSAGE COPY,F2.101MESSAGE ADD,F1.169
MESSAGE RESET,169H3.101MESSAGE ADD,F2.69
MESSAGE ADD,F2.269
MESSAGE ADD,F2.169
MESSAGE ADD,F2.369
MESSAGE RESET,169
USE SALDANA