Bilancio commessa CA riassuntivo per CdC#SYSTEM.RAGSOC#SYSTEM.DATE#REPORT.PAGECDCSPEC"MARGINE CONTRIBUZIONE"TIPOSTIMATIPODETRDEPTHVITAINTERACDCSPECMESSAGE COPY,F1.2ANNOLEVEL C; 2LEVELANNOLEVELMESSAGE COPY,F2.101ANNOMESSAGE COPY,F2.102LEVELLEVELLEVELMESSAGE COPY,F3.1011 #H4.3 \ incrementa il contatore per il numero di righe di cdc
+!CODCMSMESSAGE ADD,F3.69#RICAVI-#COSTIMESSAGE ADD,F4.169
MESSAGE 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,169H2.101H2.102MESSAGE ADD,F1.69MESSAGE COPY,F2.101MESSAGE ADD,F1.169
MESSAGE RESET,169H3.101MESSAGE ADD,F2.69MESSAGE ADD,F2.169
MESSAGE RESET,169USE SALDANA