Rendiconto CA
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
MESSAGE RESET,F1.101
MESSAGE RESET,F1.102
#COSTO
CA_FORMAT_COSTO
MESSAGE ISAMREAD,CDC,CODCOSTO=#COSTO,DESCRIZ
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,ANNO
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,REGIVA
#COMMESSA
CA_FORMAT_COMMESSA
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCRIZ
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DATAINIZIO
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,RENDIC
#FASE
CA_FORMAT_FASE
MESSAGE ISAMREAD,FASI,CODFASE=#FASE,DESCRIZ
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DATAFINE
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,CHIUSA
#DACONTO
CA_FORMAT_CONTO
#ACONTO
CA_FORMAT_CONTO
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DATAPROR
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,PROROGA
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,CODCF
MESSAGE ISAMREAD,CLIFO,TIPOCF=C!CODCF=#101,RAGSOC
CONTO
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.103
CONTO
CA_FORMAT_CONTO
MESSAGE ISAMREAD,PCONANA,CODCONTO=CONTO,DESCR
#VARIAZIONE
#PREVENTIVO
CODNUM+ANNO+NUMRD
CODNUM
ANNO
NUMRD
DATA
NUMDOCRIF
DATADOCRIF
DESC
NRIGA
DESCRIGA
DOCORIG
FATTURATO
MESSAGE ADD,F2.101
MATURATO
MESSAGE ADD,F2.102
IMPEGNATO
MESSAGE ADD,F2.103
#THIS @
0 E;
IF
#101 DISABLE
#102 DISABLE
#103 DISABLE
#104 DISABLE
#105 DISABLE
ELSE
#101 ENABLE
#102 ENABLE
#103 ENABLE
#104 ENABLE
#105 ENABLE
THEN
#THIS @
1 +
#THIS !
CODNUM
ANNO
NUMRD
#103-#101
#103-#102
#H2.103-#103
USE 1000