#SYSTEM.RAGSOC #SYSTEM.DATE #REPORT.PAGE

#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 #PIANO #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

ORDCONT+CONTO MESSAGE RESET,F2.400 MESSAGE RESET,F2.500 MESSAGE RESET,F2.600 MESSAGE RESET,F2.700 MESSAGE RESET,F2.800 MESSAGE RESET,F2.900 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.400 MATURATO MESSAGE ADD,F2.600 IMPEGNATO MESSAGE ADD,F2.800 CODNUM ANNO NUMRD

#801-#401 #802-#402 #803-#403 #804-#404 #801-#601 #802-#602 #803-#603 #804-#604 #301-#801 #302-#802 #303-#803 #304-#804

#THIS @ \ prende il proprio valore "F1." \ decide il campo destinazione in base al valore di INDBIL,che gli viene passato dal programma.. 400 \ ..i campi della somma vanno da 401 a 404 in base a valore INDBIL (che varia da 1 a 4) #H2.100 @ + \ somma valore INDBIL a 400 + \ somma F1. a valore INDBIL +! \ esegue la ADD sul campo di destinazione #800-#400 #THIS @ "F1." 600 #H2.100 @ + + +! #800-#600 #THIS @ "F1." 800 #H2.100 @ + + +! #H2.700+#H2.800-#800

0 #B1.100 !

USE 1000