Bilancio commessa CA
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.BOOKPAGE
TIPOSTIMA
"MARGINE CONTRIBUZIONE"
ANNO
DAL
TIPOSTIMA
DETRCONS
VITAINTERA
INCLUDE_DOCUMENTI
AL
DATAFINE
FASESPEC
CDCSPEC
DEPTH
(LEVELC;2)||(LEVEL=4)
LEVEL
ANNO
LEVEL
MESSAGE COPY,F2.101
ANNO
MESSAGE COPY,F2.102
LEVEL
LEVEL
LEVEL
MESSAGE COPY,F3.101
(STAMPAFASI != "" )||(STAMPACDC != "")
CODCMS
MESSAGE RESET,B1.200
STAMPAFASI
CODCMS
0
1 #H4.3 \ incrementa il contatore per il numero di righe di fase
+!
CODCMS
DESCRIZ
DATAINI
DATAFINE
FASE
#STAMPAFASI @
EMPTY= IF
#THIS HIDE
ELSE
#THIS SHOW
THEN
CDC
#STAMPACDC @
EMPTY= IF
#THIS HIDE
ELSE
#THIS SHOW
THEN
ROUND(AVANZAMENTO;0)
MESSAGE ADD,F4.69
MESSAGE ADD,F3.69
#RICAVI-#COSTI
MESSAGE ADD,F4.169
MESSAGE ADD,F3.169
#RICAVI @
EMPTY= IF
0
ELSE
1
#COSTI @
#RICAVI @
F;
-
100
*
0
ROUND
DUP
-999 C; IF
DROP -999
THEN
THEN
#THIS !
#THIS @
1
+
#THIS !
#LEVEL @
4 = IF
"90@" ENABLE
ELSE
"90@" DISABLE
THEN
H2.101
H2.102
90
90
90
H2.102
MESSAGE ADD,F1.69
MESSAGE COPY,F2.101
MESSAGE ADD,F1.169
MESSAGE RESET,169
H3.101
MESSAGE ADD,F2.69
MESSAGE ADD,F2.269
MESSAGE ADD,F2.169
MESSAGE ADD,F2.369
MESSAGE RESET,169
(#B1.200E;1)((STAMPAFASI !="")||(STAMPACDC !=""))(#H4.3 E; 0)(TIPOSTIMA!='T')(FASESPEC=="")
H4.2
MESSAGE RESET,169
USE SALDANA