Registro cespiti sintetico
MESSAGE RESET,F1
#SYSTEM.RAGSOC
#SYSTEM.DATE
#ANNO
#SITUAZIONE
CODCAT
MESSAGE RESET,F2
#DESCAT
MESSAGE COPY,F2.98
CODCAT
MESSAGE COPY,F2.97
CODIMP
#GROUP_CODIMP @
IF
"H3" SHOW
"F3" SHOW
ELSE
"H3" HIDE
"F3" HIDE
THEN
MESSAGE RESET,F3
CODIMP
MESSAGE COPY,F3.97
MESSAGE TABLEREAD,CIM,CODIMP,S0
MESSAGE COPY,F3.98
CODLOC
#GROUP_CODLOC @
IF
"H4" SHOW
"F4" SHOW
ELSE
"H4" HIDE
"F4" HIDE
THEN
MESSAGE RESET,F4
CODLOC
MESSAGE COPY,F4.97
MESSAGE TABLEREAD,LOC,CODLOC,S0
MESSAGE COPY,F4.98
IDCESPITE
DTALIEN
DTCOMP
DTFUNZ
DESC
#PERCAMM
#COSTOINI
MESSAGE ADD,F2.101
MESSAGE ADD,F3.101
MESSAGE ADD,F4.101
#COSTOFIN
MESSAGE ADD,F2.102
MESSAGE ADD,F3.102
MESSAGE ADD,F4.102
#102-#101
MESSAGE ADD,F2.103
MESSAGE ADD,F3.103
MESSAGE ADD,F4.103
#QAMM+#QAMMMV
MESSAGE ADD,F2.104
MESSAGE ADD,F3.104
MESSAGE ADD,F4.104
#FAMM
MESSAGE ADD,F2.105
MESSAGE ADD,F3.105
MESSAGE ADD,F4.105
#CESSELIM+#QAMMMV
MESSAGE ADD,F2.106
MESSAGE ADD,F3.106
MESSAGE ADD,F4.106
#104+#105-#106
MESSAGE ADD,F2.107
MESSAGE ADD,F3.107
MESSAGE ADD,F4.107
#RESAMM-#QAMM
MESSAGE ADD,F2.108
MESSAGE ADD,F3.108
MESSAGE ADD,F4.108
MESSAGE ADD,F1.101
MESSAGE ADD,F1.102
MESSAGE ADD,F1.103
MESSAGE ADD,F1.104
MESSAGE ADD,F1.105
MESSAGE ADD,F1.106
MESSAGE ADD,F1.107
MESSAGE ADD,F1.108
USE CESPI KEY 2