Bilancio commessa CA riassuntivo per CdCMESSAGE COPY,F1.2(LEVELC;2)||(LEVEL=4)MESSAGE COPY,F2.101MESSAGE COPY,F2.102LEVELMESSAGE COPY,F3.1011 #H4.3 \ incrementa il contatore per il numero di righe di cdc
+!MESSAGE ADD,F3.69MESSAGE 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 !MESSAGE RESET,169#LEVEL @
4 = IF
"90@" ENABLE
ELSE
"90@" DISABLE
THEN909090MESSAGE ADD,F1.69MESSAGE COPY,F2.101MESSAGE ADD,F1.169
MESSAGE RESET,169MESSAGE ADD,F2.69
MESSAGE ADD,F2.269
MESSAGE ADD,F2.169
MESSAGE ADD,F2.369
MESSAGE RESET,169
USE SALDANA