Bilancio commessa CA riassuntivo per fasiMESSAGE 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 fase
+!MESSAGE ADD,F3.69MESSAGE ADD,F3.169#RICAVI @
EMPTY= IF
0
ELSE
1
#COSTI @
#RICAVI @
F;
-
100
*
0
ROUND
DUP
-999 C; IF
DROP -999
THEN
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