Bilancio commessa CA
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
MESSAGE RESET,F1.101
MESSAGE RESET,F1.102
MESSAGE RESET,F1.103
MESSAGE RESET,F1.104
MESSAGE RESET,F1.105
MESSAGE RESET,F1.106
MESSAGE RESET,F1.107
MESSAGE RESET,F1.108
ANNO
TIPOSTIMA
DEPTH
LEVEL C; 2
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.103
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107
MESSAGE RESET,F2.108
LEVEL
ANNO
LEVEL
MESSAGE COPY,F2.101
ANNO
MESSAGE COPY,F2.102
LEVEL
MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103
MESSAGE RESET,F3.104
MESSAGE RESET,F3.105
MESSAGE RESET,F3.106
MESSAGE RESET,F3.107
MESSAGE RESET,F3.108
LEVEL
LEVEL
MESSAGE COPY,F3.101
CODCMS
DESCRIZ
FASE
ROUND(AVANZAMENTO;0)
MESSAGE ADD,F3.69
#RICAVI-#COSTI
MESSAGE ADD,F3.169
#PERCMARGINE
#RICAVI @
0
=
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
USE SALDANA