Pagato 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
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
DESCONTO
HIDDEN!='X'
DATAPAG
DESCRPAG
NDOC
DATADOC
PROT
TOTDOC
MESSAGE ADD,F2.101
TOTPAG
MESSAGE ADD,F2.102
TOTRES
MESSAGE ADD,F2.103
DESCFORN
#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 !
NREG
CODFORN
#103-#101
#103-#101
#103-#102
#103-#102
#F1.111-#103
#F1.111-#103
MESSAGE ADD,F1.101
MESSAGE ADD,F1.102
MESSAGE ADD,F1.103
USE 1000