#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 #THIS @ \ prende il proprio valore "F1." \ decide il campo destinazione in base al valore di INDBIL,che gli viene passato dal programma.. 300 \ ..i campi della somma vanno da 301 a 304 in base a valore INDBIL (che varia da 1 a 4) #INDBIL @ + \ somma valore INDBIL a 300 + \ somma F1. a valore INDBIL +! \ esegue la ADD sul campo di destinazione #PREVENTIVO #THIS @ \ prende il proprio valore "F1." \ decide il campo destinazione in base al valore di INDBIL,che gli viene passato dal programma.. 300 \ ..i campi della somma vanno da 301 a 304 in base a valore INDBIL (che varia da 1 a 4) #INDBIL @ + \ somma valore INDBIL a 300 + \ somma F1. a valore INDBIL +! \ esegue la ADD sul campo di destinazione

CODNUM+ANNO+NUMRD

HIDDEN!='X' NUMREG NUMREGCG DATA NUMDOCRIF DATADOCRIF DESC NRIGA DESCRIGA DOCORIG FATTURATO MESSAGE ADD,F2.101 MATURATO MESSAGE ADD,F2.102 IMPEGNATO MESSAGE ADD,F2.103 CODNUM ANNO NUMRD

#103-#101 #103-#102 #F1.111-#103

MESSAGE ADD,F1.101 MESSAGE ADD,F1.102 MESSAGE ADD,F1.103 #103-#101 #103-#102 #H2.103-#103

0 #B1.100 !

USE 1000