#include "ce3100.h" USE LF_CESPI JOIN %CAC ALIAS 101 INTO CODTAB[1,2]==CODCGRA CODTAB[3,6]==CODSPA CODTAB[7,8]==CODCAT JOIN LF_SALCE TO LF_CESPI ALIAS 102 INTO IDCESPITE==IDCESPITE JOIN ESC TO LF_SALCE ALIAS 103 INTO CODTAB==CODES JOIN LF_AMMCE TO LF_SALCE ALIAS 104 INTO IDCESPITE==IDCESPITE CODES==CODES TPSALDO==TPSALDO JOIN LF_MOVCE TO LF_CESPI KEY 2 ALIAS 105 INTO IDCESPITE==IDCESPITE JOIN LF_MOVAM TO LF_MOVCE ALIAS 106 INTO IDCESPITE==IDCESPITE IDMOV==IDMOV JOIN LF_AMMMV TO LF_MOVCE ALIAS 107 INTO IDCESPITE==IDCESPITE IDMOV==IDMOV JOIN %TMC TO LF_MOVCE ALIAS 108 INTO CODTAB==CODMOV END DESCRIPTION BEGIN END // description GENERAL BEGIN // OFFSET 0 0 // FONT "Courier New" // SIZE 10 END // general SECTION HEADER FIRST 9 STRINGA FR_CODDITTA BEGIN KEY "Codice ditta" PROMPT 1 1 "Ditta " PICTURE "#####" MESSAGE RESET,F0->FR_TG_ELEM MESSAGE RESET,F0->FR_TG_CSTO MESSAGE RESET,F0->FR_TG_VNONAMM MESSAGE RESET,F0->FR_TG_TOTRIV MESSAGE RESET,F0->FR_TG_VALAMM MESSAGE RESET,F0->FR_TG_RESAMM MESSAGE RESET,F0->FR_TG_PLUSREIN MESSAGE RESET,F0->FR_TG_FONDOAMM MESSAGE RESET,F0->FR_TG_QNONAMM MESSAGE RESET,F0->FR_TG_VSPMANU MESSAGE RESET,F0->FR_TG_AE_NORMALE MESSAGE RESET,F0->FR_TG_AE_ACCELERATO MESSAGE RESET,F0->FR_TG_AE_ANTICIPATO MESSAGE RESET,F0->FR_TG_AR_NORMALE MESSAGE RESET,F0->FR_TG_AR_ACCELERATO MESSAGE RESET,F0->FR_TG_AR_ANTICIPATO END STRINGA FR_RAGSOC BEGIN KEY "Ragione sociale" PROMPT 15 1 "" END STRINGA FR_GRUPPO BEGIN KEY "Gruppo" PROMPT 1 2 "Gruppo " PICTURE "#####" END STRINGA FR_D_GRUPPO BEGIN KEY "Descrizione Gruppo" PROMPT 15 2 "" END STRINGA FR_SPECIE BEGIN KEY "Specie" PROMPT 1 3 "Specie " PICTURE "#####" END STRINGA FR_D_SPECIE BEGIN KEY "Descrizione Specie" PROMPT 15 3 "" END DATA FR_DATAINIZIO BEGIN KEY "Data inizio esercizio" PROMPT 1 4 "Esercizio " END DATA FR_DATAFINE BEGIN KEY "Data fine esercizio" PROMPT 25 4 " - " END STRINGA FR_NUMGIORNI BEGIN KEY "Numero giorni" PROMPT 45 4 "Giorni " END STRINGA FR_NUMGIOSOL BEGIN KEY "giorni solari" PROMPT 56 4 "su " END STRINGA -1 BEGIN KEY "giorni solari" PROMPT 63 4 "solari " END STRINGA FR_LIBROCESPITI BEGIN KEY "Libro cespiti" PROMPT 96 4 "LIBRO CESPITI " END STRINGA -1 BEGIN KEY "riga" PROMPT 1 5 "===================================================================================================================================================" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 1 6 "Data mov." END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 13 6 "Tipo movimento" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 40 6 "Descrizione movimento" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 100 6 "Elem" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 110 6 "Costo stor.cesp" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 130 6 "Parte n.amm costo" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 13 7 "Tp" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 16 7 "Num.doc" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 26 7 "Data doc" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 45 7 "Importo movimento" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 65 7 "xCalc.deduc.man." END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 85 7 "Tot.rivalutazioni" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 108 7 "Valore da ammort" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 130 7 "Residuo da amm." END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 16 8 "Minusv.patrimon." END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 35 8 "Plusval.patrimon." END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 80 8 "Plusval.reinvestita" END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 106 8 "Fondo ammort." END STRINGA -1 BEGIN KEY "Intestazione stampa" PROMPT 128 8 "Quota non + amm." END STRINGA -1 BEGIN KEY "riga" PROMPT 1 9 "===================================================================================================================================================" END END // end section header first (INTESTAZIONE REGISTRO VERA E PROPRIA) ////---------------------------------------------------------------------------------------------------------------------//// SECTION HEADER EVEN 2 STRINGA -1 BEGIN KEY "riga" PROMPT 1 1 "---------------------------------------------------------------------------------------------------------------------------------------------------" END NUMERO FR_CAT 12 BEGIN KEY "Codice categoria" PROMPT 1 2 "CATEGORIA " FIELD LF_CESPI->CODCAT MESSAGE RESET,F1->FR_TC_ELEM MESSAGE RESET,F1->FR_TC_CSTO MESSAGE RESET,F1->FR_TC_VNONAMM MESSAGE RESET,F1->FR_TC_TOTRIV MESSAGE RESET,F1->FR_TC_VALAMM MESSAGE RESET,F1->FR_TC_RESAMM MESSAGE RESET,F1->FR_TC_PLUSREIN MESSAGE RESET,F1->FR_TC_FONDOAMM MESSAGE RESET,F1->FR_TC_QNONAMM MESSAGE RESET,F1->FR_TC_VSPMANU MESSAGE RESET,F1->FR_TC_AE_NORMALE MESSAGE RESET,F1->FR_TC_AE_ACCELERATO MESSAGE RESET,F1->FR_TC_AE_ANTICIPATO MESSAGE RESET,F1->FR_TC_AR_NORMALE MESSAGE RESET,F1->FR_TC_AR_ACCELERATO MESSAGE RESET,F1->FR_TC_AR_ANTICIPATO END STRINGA FR_D_CAT 60 BEGIN KEY "Descrizione categoria" PROMPT 15 2 "" MESSAGE _DESCAT,H2->FR_GRUPPO,H2->FR_SPECIE,FR_CAT END END // section header even (INTESTAZIONE CATEGORIA) ////----------------------------------------------------------------------------------------------------------//// SECTION HEADER ODD 3 STRINGA -1 BEGIN KEY "riga" PROMPT 1 1 "---------------------------------------------------------------------------------------------------------------------------------------------------" END STRINGA -1 10 BEGIN KEY "Id. cespite" PROMPT 1 2 "CESPITE " FIELD LF_CESPI->IDCESPITE MESSAGE RESET,B1->FR_AE_NORMALE|RESET,B1->FR_AE_ACCELERATO|RESET,B1->FR_AE_ANTICIPATO MESSAGE RESET,B1->FR_AR_NORMALE|RESET,B1->FR_AR_ACCELERATO|RESET,B1->FR_AR_ANTICIPATO END STRINGA -1 60 BEGIN KEY "Descrizione cespite" PROMPT 20 2 "" FIELD LF_CESPI->DESC END DATA -1 BEGIN KEY "Data acquisizione" PROMPT 85 2 "Data acq. " FIELD LF_CESPI->DTCOMP END DATA -1 BEGIN KEY "Data entrata in funzione" PROMPT 107 2 "Entr. in funz. " FIELD LF_CESPI->DTFUNZ END END // section header odd (INTESTAZIONE CESPITE) ////----------------------------------------------------------------------------------------------------------//// SECTION HEADER LAST 3 DATA -1 BEGIN KEY "Data inizio esercizio" PROMPT 1 1 "" FIELD 103@->D0 END STRINGA -1 BEGIN KEY "Descrizione" PROMPT 16 1 "Ripresa saldi" END NUMERO -1 3 BEGIN KEY "Elementi" PROMPT 100 1 "" PICTURE "###" FIELD 102@->NUMELE END VALUTA FR_SI_CSTO 18 BEGIN KEY "Costo stor." PROMPT 110 1 "" FIELD 102@->CSTO END VALUTA FR_SI_VNONAMM 18 BEGIN KEY "Parte n.amm" PROMPT 130 1 "" FIELD 102@->VNONAMM END VALUTA FR_SI_RIVGF 18 BEGIN KEY "RIVGF" PROMPT 0 0 "" FLAGS "H" FIELD 102@->RIVGF MESSAGE RESET,FR_SI_RIVGC END VALUTA FR_SI_RIVGC 18 BEGIN KEY "RIVGC" PROMPT 0 0 "" FLAGS "H" FIELD 102@->RIVGC MESSAGE RESET,FR_SI_RIVGF END VALUTA FR_SI_TOTRIV 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 2 "" MESSAGE _NUMEXPR,102@->RIV75+102@->RIV83+102@->RIV90+102@->RIV91+#FR_SI_RIVGF+#FR_SI_RIVGC END VALUTA FR_SI_VALAMM 18 BEGIN KEY "Valore da ammortizzare" PROMPT 108 2 "" MESSAGE _NUMEXPR,#FR_SI_CSTO-#FR_SI_VNONAMM+#FR_SI_TOTRIV END VALUTA -1 18 BEGIN KEY "Residuo da ammortizzare" PROMPT 128 2 "" MESSAGE _NUMEXPR,#FR_SI_VALAMM-(104@->QNOR+104@->QACC+104@->QANT+104@->QPERSE+104@->FPRIVATO+104@->QPPRIVATE) END VALUTA -1 18 BEGIN KEY "Plusvalenza reinvestita" PROMPT 80 3 "" FIELD 102@->PLUSREIN END VALUTA -1 18 BEGIN KEY "Fondo ammortamento" PROMPT 106 3 "" MESSAGE _NUMEXPR,104@->QNOR+104@->QACC+104@->QANT END VALUTA -1 18 BEGIN KEY "Quota non + amm." PROMPT 126 3 "" MESSAGE _NUMEXPR,104@->QPERSE+104@->FPRIVATO+104@->QPPRIVATE END END // end section header last (SALDI INIZIALI) ////----------------------------------------------------------------------------------------------------------//// SECTION BODY FIRST 9 NUMERO FR_MV_SEGNO 2 BEGIN KEY "Segno movimento" PROMPT 0 0 "" FLAGS "H" END DATA -1 BEGIN KEY "Data movimento" PROMPT 1 1 "" FIELD 105@->DTMOV END STRINGA -1 1 BEGIN KEY "Tipo movimento" PROMPT 13 1 "" FIELD 105@->CODMOV END STRINGA -1 20 BEGIN KEY "Descrizione tipo movimento" PROMPT 15 1 "" FIELD 108@->S0 END STRINGA -1 40 BEGIN KEY "Descrizione movimento" PROMPT 40 1 "" FIELD 105@->DESC END NUMERO FR_MV_NUMELE 3 BEGIN KEY "Numero elementi" PROMPT 100 1 "" PICTURE "###" MESSAGE _NUMEXPR,105@->NUMELE*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_NUMELE END VALUTA FR_MV_CSTO 18 BEGIN KEY "Costo" PROMPT 110 1 "" MESSAGE _NUMEXPR,105@->CSTO*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_CSTO END VALUTA FR_MV_VNONAMM 18 BEGIN KEY "Parte n.amm" PROMPT 130 1 "" MESSAGE _NUMEXPR,105@->VNONAMM*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_VNONAMM END STRINGA -1 2 BEGIN KEY "Tipo doc." PROMPT 13 2 "" FIELD 105@->TPDOC END STRINGA -1 7 BEGIN KEY "Numero doc." PROMPT 16 2 "" FIELD 105@->NDOC END DATA -1 BEGIN KEY "Data doc." PROMPT 26 2 "" FIELD 105@->DTDOC END VALUTA FR_MV_IMPVEN 18 BEGIN KEY "Importo mov." PROMPT 45 2 "" FIELD 105@->IMPVEN MESSAGE ADD,BO->FR_MV_IMPVEN END VALUTA FR_MV_RIVGF BEGIN KEY "RIVGF" PROMPT 0 0 "" FLAGS "H" FIELD 105@->RIVGF MESSAGE RESET,FR_MV_RIVGC END VALUTA FR_MV_RIVGC BEGIN KEY "RIVGC" PROMPT 0 0 "" FLAGS "H" FIELD 105@->RIVGC MESSAGE RESET,FR_MV_RIVGF END VALUTA FR_MV_TOTRIV 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 2 "" MESSAGE _NUMEXPR, (105@->RIV75+105@->RIV83+105@->RIV90+105@->RIV91+105@->RIVGF+105@->RIVGC)*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_TOTRIV END VALUTA FR_MV_VALAMM 18 BEGIN KEY "Valore da ammortizzare (con segno!!!)" PROMPT 108 2 "" MESSAGE _NUMEXPR, #FR_MV_CSTO-#FR_MV_VNONAMM+#FR_MV_TOTRIV MESSAGE ADD,BO->FR_MV_VALAMM END VALUTA FR_MV_RESAMM 18 BEGIN KEY "Residuo da ammortizzare (con segno!!!)" PROMPT 128 2 "" MESSAGE _NUMEXPR, #FR_MV_VALAMM-(106@->QNOR+106@->QACC+106@->QANT+106@->QPERSE+106@->FPRIVATO+106@->QPPRIVATE)*#FR_MV_SEGNO END VALUTA FR_MV_PLUSREIN 18 BEGIN KEY "Plusvalenza reinvestita" PROMPT 80 3 "" MESSAGE _NUMEXPR,#FR_MV_SEGNO*105@->PLUSREIN MESSAGE ADD,BO->FR_MV_PLUSREIN END VALUTA FR_MV_FONDOAMM 18 BEGIN KEY "Fondo ammortamento (con segno!!)" PROMPT 106 3 "" MESSAGE _NUMEXPR, (106@->QNOR+106@->QACC+106@->QANT)*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_FONDOAMM END VALUTA FR_MV_QNONAMM 18 BEGIN KEY "Quote non + ammortizzabili" PROMPT 126 3 "" MESSAGE _NUMEXPR, 106@->QPERSE+106@->FPRIVATO+106@->QPPRIVATE MESSAGE ADD,BO->FR_MV_QNONAMM END // ammortamenti da ammmv NUMERO -1 7 BEGIN KEY "Percentuale amm. normale" PROMPT 43 4 "" PICTURE "###,@@@" FIELD 107@->PENOR MESSAGE ENABLE,1@ MESSAGE EMPTY RESET,1@|DISABLE,1@ END STRINGA -1 1 BEGIN KEY "%" PROMPT 50 4 "%" GROUP 1 END STRINGA -1 BEGIN KEY "Descrizione amm. normale" PROMPT 16 4 "Ammortamento normale:" GROUP 1 END VALUTA FR_MV_QNOR 18 BEGIN KEY "Quota amm. normale" PROMPT 106 4 "" FIELD 107@->QNOR MESSAGE ADD,BE->FR_AE_NORMALE GROUP 1 END VALUTA FR_MV_QNOR_SEGNO 18 BEGIN KEY "Quota amm. normale con segno" PROMPT 106 4 "" FLAGS "H" MESSAGE _NUMEXPR,107@->QNOR*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_QNOR END NUMERO -1 7 BEGIN KEY "Percentuale amm. accelerato" PROMPT 43 5 "" PICTURE "###,@@@" FIELD 107@->PEACC MESSAGE ENABLE,2@ MESSAGE EMPTY RESET,2@|DISABLE,2@ END STRINGA -1 1 BEGIN KEY "%" PROMPT 50 5 "%" GROUP 2 END STRINGA -1 BEGIN KEY "Descrizione amm. accelerato" PROMPT 16 5 "Ammortamento accelerato:" GROUP 2 END VALUTA FR_MV_QACC 18 BEGIN KEY "Quota amm. accelerato" PROMPT 106 5 "" FIELD 107@->QACC MESSAGE ADD,BE->FR_AE_ACCELERATO GROUP 2 END VALUTA FR_MV_QACC_SEGNO 18 BEGIN KEY "Quota amm. accelerato con segno" PROMPT 106 5 "" FLAGS "H" MESSAGE _NUMEXPR,107@->QACC*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_QACC END NUMERO -1 7 BEGIN KEY "Percentuale amm. anticipato" PROMPT 43 6 "" PICTURE "###,@@@" FIELD 107@->PEANT MESSAGE ENABLE,3@ MESSAGE EMPTY RESET,3@|DISABLE,3@ END STRINGA -1 1 BEGIN KEY "%" PROMPT 50 6 "%" GROUP 3 END STRINGA -1 BEGIN KEY "Descrizione amm. anticipato" PROMPT 16 6 "Ammortamento anticipato:" GROUP 3 END VALUTA FR_MV_QANT 18 BEGIN KEY "Quota amm. anticipato" PROMPT 106 6 "" FIELD 107@->QANT MESSAGE ADD,BE->FR_AE_ANTICIPATO GROUP 3 END VALUTA FR_MV_QANT_SEGNO 18 BEGIN KEY "Quota amm. anticipato con segno" PROMPT 106 6 "" FLAGS "H" MESSAGE _NUMEXPR,107@->QANT*#FR_MV_SEGNO MESSAGE ADD,BO->FR_MV_QANT END END // section body first (MOVIMENTI) ////----------------------------------------------------------------------------------------------------------//// SECTION BODY ODD 3 STRINGA -1 BEGIN KEY "Totali movimento" PROMPT 16 1 "Totali movimento" END NUMERO FR_MV_NUMELE BEGIN KEY "Totale Numero elementi" PROMPT 100 1 "" PICTURE "###" END VALUTA FR_MV_CSTO 18 BEGIN KEY "Costo" PROMPT 110 1 "" END VALUTA FR_MV_VNONAMM 18 BEGIN KEY "Parte n.amm" PROMPT 130 1 "" END VALUTA FR_MV_IMPVEN 18 BEGIN KEY "Importo mov." PROMPT 45 2 "" END VALUTA FR_MV_TOTRIV 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 2 "" END VALUTA FR_MV_VALAMM 18 BEGIN KEY "Valore da ammortizzare" PROMPT 108 2 "" END VALUTA FR_MV_QNOR 18 BEGIN KEY "Quota amm. normale totale (con segno!!)" FLAGS "H" PROMPT 106 3 "" END VALUTA FR_MV_QACC 18 BEGIN KEY "Quota amm. accelerata totale (con segno!!)" FLAGS "H" PROMPT 106 3 "" END VALUTA FR_MV_QANT 18 BEGIN KEY "Quota amm. anticipata totale (con segno!!)" FLAGS "H" PROMPT 106 3 "" END VALUTA FR_MV_FONDOAMM 18 BEGIN KEY "Fondo ammortamento (con segno!!)" FLAGS "H" PROMPT 106 3 "" END VALUTA FR_MV_TOTFONDOAMM 18 BEGIN KEY "Fondo ammortamento" PROMPT 106 3 "" MESSAGE _NUMEXPR,#FR_MV_FONDOAMM+#FR_MV_QNOR+#FR_MV_QACC+#FR_MV_QANT END VALUTA -1 18 BEGIN KEY "Residuo da ammortizzare" PROMPT 128 2 "" MESSAGE _NUMEXPR, #FR_MV_VALAMM-#FR_MV_TOTFONDOAMM MESSAGE RESET,FR_MV_MINUSVALENZA|RESET,FR_MV_PLUSVALENZA END VALUTA FR_MV_MINUSVALENZA 18 BEGIN KEY "Minusvalenza" PROMPT 16 3 "" // MESSAGE _NUMEXPR, #FR_MV_IMPVEN+(#FR_MV_VALAMM-#FR_MV_TOTFONDOAMM) FIELD LF_AMMMV->MINUS END VALUTA FR_MV_PLUSVALENZA 18 BEGIN KEY "Plusvalenza" PROMPT 35 3 "" // MESSAGE _NUMEXPR, #FR_MV_IMPVEN+(#FR_MV_VALAMM-#FR_MV_TOTFONDOAMM) FIELD LF_AMMMV->PLUS END VALUTA FR_MV_PLUSREIN 18 BEGIN KEY "Totale plusvalenza reinvestita" PROMPT 80 3 "" MESSAGE _NUMEXPR,#FR_MV_PLUSREIN END VALUTA FR_MV_QNONAMM 18 BEGIN KEY "Totale quote non + ammortizzabili" PROMPT 126 3 "" MESSAGE _NUMEXPR,#FR_MV_QNONAMM END END // section body odd (TOTALE MOVIMENTO) ////----------------------------------------------------------------------------------------------------------//// //Body che stampa ogni movimento/rettifica// SECTION BODY EVEN 17 DATA -1 BEGIN KEY "Data fine esercizio" PROMPT 1 1 "" FIELD 103@->D1 MESSAGE RESET,1@|RESET,2@|RESET,3@ END STRINGA -1 BEGIN KEY "Descrizione" PROMPT 16 1 "Valori a fine esercizio" END NUMERO FR_FE_NUMELE 3 BEGIN KEY "Elementi" PROMPT 100 1 "" PICTURE "###" FIELD 102@->NUMELE END VALUTA FR_FE_CSTO 18 BEGIN KEY "Costo stor." PROMPT 110 1 "" FIELD 102@->CSTO END VALUTA FR_FE_VNONAMM 18 BEGIN KEY "Parte n.amm" PROMPT 130 1 "" FIELD 102@->VNONAMM END VALUTA FR_FE_RIVGF 18 BEGIN KEY "RIVGF" PROMPT 0 0 "" FLAGS "H" FIELD 102@->RIVGF MESSAGE RESET,FR_FE_RIVGC END VALUTA FR_FE_RIVGC 18 BEGIN KEY "RIVGC" PROMPT 0 0 "" FLAGS "H" FIELD 102@->RIVGC MESSAGE RESET,FR_FE_RIVGF END VALUTA FR_FE_TOTRIV 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 2 "" MESSAGE _NUMEXPR,102@->RIV75+102@->RIV83+102@->RIV90+102@->RIV91+#FR_FE_RIVGF+#FR_FE_RIVGC END VALUTA FR_FE_VALAMM 18 BEGIN KEY "Valore da ammortizzare" PROMPT 108 2 "" MESSAGE _NUMEXPR,#FR_FE_CSTO-#FR_FE_VNONAMM+#FR_FE_TOTRIV END VALUTA FR_FE_RESAMM 18 BEGIN KEY "Residuo da ammortizzare" PROMPT 128 2 "" MESSAGE _NUMEXPR,#FR_FE_VALAMM-(104@->QNORP+104@->QACCP+104@->QANTP+104@->QPERSEP+104@->FPRIVATOP+104@->QPPRIVATEP) END VALUTA FR_FE_PLUSREIN 18 BEGIN KEY "Plusvalenza reinvestita" PROMPT 80 3 "" FIELD 102@->PLUSREIN END VALUTA FR_FE_FONDOAMM 18 BEGIN KEY "Fondo ammortamento" PROMPT 106 3 "" MESSAGE _NUMEXPR,104@->QNORP+104@->QACCP+104@->QANTP END VALUTA FR_FE_QNONAMM 18 BEGIN KEY "Quota non + amm." PROMPT 126 3 "" MESSAGE _NUMEXPR,104@->QPERSEP+104@->FPRIVATOP+104@->QPPRIVATEP END VALUTA FR_FE_VSPMANU 18 BEGIN KEY "xCalc.deduc.man." PROMPT 65 2 "" FIELD 102@->VSPMANU END // ammortamenti da ammce NUMERO FR_FE_PNOR 7 BEGIN KEY "Percentuale amm. normale" PROMPT 43 4 "" PICTURE "###,@@@" FIELD 104@->PNOR MESSAGE ENABLE,1@ MESSAGE EMPTY RESET,1@|DISABLE,1@ END STRINGA -1 1 BEGIN KEY "%" PROMPT 50 4 "%" GROUP 1 END NUMERO FR_FE_PACC 7 BEGIN KEY "Percentuale amm. accelerato" PROMPT 43 5 "" PICTURE "###,@@@" FIELD 104@->PACC MESSAGE ENABLE,2@ MESSAGE EMPTY RESET,2@|DISABLE,2@ END STRINGA -1 1 BEGIN KEY "%" PROMPT 50 5 "%" GROUP 2 END NUMERO FR_FE_PANT 7 BEGIN KEY "Percentuale amm. anticipato" PROMPT 43 6 "" PICTURE "###,@@@" FIELD 104@->PANT MESSAGE ENABLE,3@ MESSAGE EMPTY RESET,3@|DISABLE,3@ END STRINGA -1 1 BEGIN KEY "%" PROMPT 50 6 "%" GROUP 3 END STRINGA -1 BEGIN KEY "Descrizione amm. normale" PROMPT 16 4 "Ammortamento normale:" GROUP 1 END VALUTA FR_FE_QNOR 18 BEGIN KEY "Quota amm. normale" PROMPT 106 4 "" FIELD 104@->QNOR GROUP 1 END VALUTA FR_FE_FPRIVATO1 18 BEGIN KEY "" PROMPT 126 4 "" FIELD 104@->FPRIVATO GROUP 1 END STRINGA -1 BEGIN KEY "Descrizione amm. accelerato" PROMPT 16 5 "Ammortamento accelerato:" GROUP 2 END VALUTA FR_FE_QACC 18 BEGIN KEY "Quota amm. accelerato" PROMPT 106 5 "" FIELD 104@->QACC GROUP 2 END VALUTA FR_FE_FPRIVATO2 18 BEGIN KEY "" PROMPT 126 5 "" FIELD 104@->FPRIVATO GROUP 2 END STRINGA -1 BEGIN KEY "Descrizione amm. anticipato" PROMPT 16 6 "Ammortamento anticipato:" GROUP 3 END VALUTA FR_FE_QANT 18 BEGIN KEY "Quota amm. anticipato" PROMPT 106 6 "" FIELD 104@->QANT GROUP 3 END VALUTA FR_FE_FPRIVATO3 18 BEGIN KEY "" PROMPT 126 6 "" FIELD 104@->FPRIVATO GROUP 3 END STRINGA FR_FE_MSG1 BEGIN KEY "Messaggio 1" PROMPT 16 7 "Ammortamento ridotto a metá per 1º esercizio di utilizzo del cespite" END STRINGA FR_FE_MSG2 BEGIN KEY "Messaggio 2" PROMPT 16 8 "" END STRINGA FR_FE_MSG3 BEGIN KEY "Messaggio 3" PROMPT 16 9 "" END STRINGA FR_FE_MSG4 BEGIN KEY "Messaggio 4" PROMPT 16 10 "Ammortamento al 100% per beni inferiori al milione" END STRINGA FR_FE_MSG5 BEGIN KEY "Messaggio 5" PROMPT 16 11 "Non effettuati amm.ti perché " FIELD 104@->MSGD05 END STRINGA FR_FE_MSG6 BEGIN KEY "Messaggio 6" PROMPT 16 12 "" END STRINGA -1 BEGIN KEY "Descrizione" PROMPT 16 13 "Valori a bilancio" END NUMERO -1 3 BEGIN KEY "Elementi" PROMPT 100 13 "" PICTURE "###" MESSAGE _NUMEXPR, #FR_FE_NUMELE MESSAGE ADD,FE->FR_TC_ELEM END VALUTA -1 18 BEGIN KEY "Costo stor." PROMPT 110 13 "" MESSAGE _NUMEXPR, #FR_FE_CSTO MESSAGE ADD,FE->FR_TC_CSTO END VALUTA -1 18 BEGIN KEY "Parte n.amm" PROMPT 130 13 "" MESSAGE _NUMEXPR, #FR_FE_VNONAMM MESSAGE ADD,FE->FR_TC_VNONAMM END VALUTA -1 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 14 "" MESSAGE _NUMEXPR,#FR_FE_TOTRIV MESSAGE ADD,FE->FR_TC_TOTRIV END VALUTA -1 18 BEGIN KEY "Valore da ammortizzare" PROMPT 108 14 "" MESSAGE _NUMEXPR,#FR_FE_VALAMM MESSAGE ADD,FE->FR_TC_VALAMM END VALUTA -1 18 BEGIN KEY "Plusvalenza reinvestita" PROMPT 80 15 "" MESSAGE _NUMEXPR,#FR_FE_PLUSREIN MESSAGE ADD,FE->FR_TC_PLUSREIN END VALUTA FR_VB_FONDOAMM 18 BEGIN KEY "Fondo ammortamento" PROMPT 106 15 "" MESSAGE _NUMEXPR,#FR_FE_FONDOAMM+#FR_FE_QNOR+#FR_FE_QACC+#FR_FE_QANT MESSAGE ADD,FE->FR_TC_FONDOAMM END VALUTA FR_VB_QNONAMM 18 BEGIN KEY "Quota non + amm." PROMPT 126 15 "" MESSAGE _NUMEXPR,#FR_FE_QNONAMM+#FR_FE_FPRIVATO1+#FR_FE_FPRIVATO2+#FR_FE_FPRIVATO3 MESSAGE ADD,FE->FR_TC_QNONAMM END VALUTA -1 18 BEGIN KEY "Residuo da ammortizzare" PROMPT 128 14 "" MESSAGE _NUMEXPR,#FR_FE_VALAMM-#FR_VB_FONDOAMM-#FR_VB_QNONAMM MESSAGE ADD,FE->FR_TC_RESAMM END VALUTA -1 18 BEGIN KEY "xCalc.deduc.man." PROMPT 65 14 "" MESSAGE _NUMEXPR,#FR_FE_VSPMANU MESSAGE ADD,FE->FR_TC_VSPMANU END STRINGA -1 BEGIN KEY "" PROMPT 1 16 "Amm. su parti elimin." END VALUTA FR_AE_NORMALE 18 BEGIN KEY "normale" PROMPT 22 16 "" PICTURE "###.###.###.##@" MESSAGE ADD,FE->FR_TC_AE_NORMALE END STRINGA -1 BEGIN PROMPT 42 16 "normale" END VALUTA FR_AE_ACCELERATO 18 BEGIN KEY "accelerato" PROMPT 52 16 "" PICTURE "###.###.###.##@" MESSAGE ADD,FE->FR_TC_AE_ACCELERATO END STRINGA -1 BEGIN PROMPT 72 16 "accelerato" END VALUTA FR_AE_ANTICIPATO 18 BEGIN KEY "anticipato" PROMPT 88 16 "" PICTURE "###.###.###.##@" MESSAGE ADD,FE->FR_TC_AE_ANTICIPATO END STRINGA -1 BEGIN PROMPT 108 16 "anticipato" END VALUTA -1 18 BEGIN KEY "totale" PROMPT 122 16 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_AE_NORMALE+#FR_AE_ACCELERATO+#FR_AE_ANTICIPATO END STRINGA -1 BEGIN PROMPT 142 16 "totale" END STRINGA -1 BEGIN KEY "" PROMPT 1 17 "Amm. su cesp. residui" END VALUTA FR_AR_NORMALE 18 BEGIN KEY "normale" PROMPT 22 17 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_FE_QNOR MESSAGE ADD,FE->FR_TC_AR_NORMALE END STRINGA -1 BEGIN PROMPT 42 17 "normale" END VALUTA FR_AR_ACCELERATO 18 BEGIN KEY "accelerato" PROMPT 52 17 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_FE_QACC MESSAGE ADD,FE->FR_TC_AR_ACCELERATO END STRINGA -1 BEGIN PROMPT 72 17 "accelerato" END VALUTA FR_AR_ANTICIPATO 18 BEGIN KEY "anticipato" PROMPT 88 17 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_FE_QANT MESSAGE ADD,FE->FR_TC_AR_ANTICIPATO END STRINGA -1 BEGIN PROMPT 108 17 "anticipato" END VALUTA -1 18 BEGIN KEY "totale" PROMPT 122 17 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_AR_NORMALE+#FR_AR_ACCELERATO+#FR_AR_ANTICIPATO END STRINGA -1 BEGIN PROMPT 142 17 "totale" END END // section body even (VALORI A FINE ESERCIZIO) ////----------------------------------------------------------------------------------------------------------//// SECTION FOOTER EVEN 6 STRINGA -1 BEGIN KEY "riga" PROMPT 1 1 "---------------------------------------------------------------------------------------------------------------------------------------------------" END STRINGA -1 BEGIN KEY "Descrizione" PROMPT 16 2 "TOTALI CATEGORIA" END NUMERO FR_TC_ELEM 4 BEGIN KEY "Elementi" PICTURE "####" PROMPT 100 2 "" MESSAGE ADD,F0->FR_TG_ELEM GROUP 1 END VALUTA FR_TC_CSTO 18 BEGIN KEY "Costo stor." PROMPT 110 2 "" MESSAGE ADD,F0->FR_TG_CSTO GROUP 1 END VALUTA FR_TC_VNONAMM 18 BEGIN KEY "Parte n.amm" PROMPT 130 2 "" MESSAGE ADD,F0->FR_TG_VNONAMM GROUP 1 END VALUTA FR_TC_TOTRIV 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 3 "" MESSAGE ADD,F0->FR_TG_TOTRIV GROUP 1 END VALUTA FR_TC_VALAMM 18 BEGIN KEY "Valore da ammortizzare" PROMPT 108 3 "" MESSAGE ADD,F0->FR_TG_VALAMM GROUP 1 END VALUTA FR_TC_RESAMM 18 BEGIN KEY "Residuo da ammortizzare" PROMPT 128 3 "" MESSAGE ADD,F0->FR_TG_RESAMM GROUP 1 END VALUTA FR_TC_PLUSREIN 18 BEGIN KEY "Plusvalenza reinvestita" PROMPT 80 4 "" MESSAGE ADD,F0->FR_TG_PLUSREIN GROUP 1 END VALUTA FR_TC_FONDOAMM 18 BEGIN KEY "Fondo ammortamento" PROMPT 106 4 "" MESSAGE ADD,F0->FR_TG_FONDOAMM GROUP 1 END VALUTA FR_TC_QNONAMM 18 BEGIN KEY "Quota non + amm." PROMPT 126 4 "" MESSAGE ADD,F0->FR_TG_QNONAMM GROUP 1 END VALUTA FR_TC_VSPMANU 18 BEGIN KEY "xCalc.deduc.man." PROMPT 65 3 "" MESSAGE ADD,F0->FR_TG_VSPMANU GROUP 1 END STRINGA -1 BEGIN KEY "" PROMPT 1 5 "Amm. su parti elimin." GROUP 1 END VALUTA FR_TC_AE_NORMALE 18 BEGIN KEY "normale" PROMPT 22 5 "" PICTURE "###.###.###.##@" MESSAGE ADD,F0->FR_TG_AE_NORMALE GROUP 1 END STRINGA -1 BEGIN PROMPT 42 5 "normale" GROUP 1 END VALUTA FR_TC_AE_ACCELERATO 18 BEGIN KEY "accelerato" PROMPT 52 5 "" PICTURE "###.###.###.##@" MESSAGE ADD,F0->FR_TG_AE_ACCELERATO GROUP 1 END STRINGA -1 BEGIN PROMPT 72 5 "accelerato" GROUP 1 END VALUTA FR_TC_AE_ANTICIPATO 18 BEGIN KEY "anticipato" PROMPT 88 5 "" PICTURE "###.###.###.##@" MESSAGE ADD,F0->FR_TG_AE_ANTICIPATO GROUP 1 END STRINGA -1 BEGIN PROMPT 108 5 "anticipato" GROUP 1 END VALUTA -1 18 BEGIN KEY "totale" PROMPT 122 5 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_TC_AE_NORMALE+#FR_TC_AE_ACCELERATO+#FR_TC_AE_ANTICIPATO GROUP 1 END STRINGA -1 BEGIN PROMPT 142 5 "totale" GROUP 1 END STRINGA -1 BEGIN KEY "" PROMPT 1 6 "Amm. su cesp. residui" GROUP 1 END VALUTA FR_TC_AR_NORMALE 18 BEGIN KEY "normale" PROMPT 22 6 "" PICTURE "###.###.###.##@" MESSAGE ADD,F0->FR_TG_AR_NORMALE GROUP 1 END STRINGA -1 BEGIN PROMPT 42 6 "normale" GROUP 1 END VALUTA FR_TC_AR_ACCELERATO 18 BEGIN KEY "accelerato" PROMPT 52 6 "" PICTURE "###.###.###.##@" MESSAGE ADD,F0->FR_TG_AR_ACCELERATO GROUP 1 END STRINGA -1 BEGIN PROMPT 72 6 "accelerato" GROUP 1 END VALUTA FR_TC_AR_ANTICIPATO 18 BEGIN KEY "anticipato" PROMPT 88 6 "" PICTURE "###.###.###.##@" MESSAGE ADD,F0->FR_TG_AR_ANTICIPATO GROUP 1 END STRINGA -1 BEGIN PROMPT 108 6 "anticipato" GROUP 1 END VALUTA -1 18 BEGIN KEY "totale" PROMPT 122 6 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_TC_AR_NORMALE+#FR_TC_AR_ACCELERATO+#FR_TC_AR_ANTICIPATO GROUP 1 END STRINGA -1 BEGIN PROMPT 142 6 "totale" GROUP 1 END END // section footer even //---------------------------------------------------------------------------------------------------------------// SECTION FOOTER ODD 6 STRINGA -1 BEGIN KEY "riga" PROMPT 1 1 "---------------------------------------------------------------------------------------------------------------------------------------------------" END STRINGA -1 BEGIN KEY "Descrizione" PROMPT 16 2 "TOTALI GENERALI" END NUMERO FR_TG_ELEM 4 BEGIN KEY "Elementi" PICTURE "####" PROMPT 100 2 "" END VALUTA FR_TG_CSTO 18 BEGIN KEY "Costo stor." PROMPT 110 2 "" END VALUTA FR_TG_VNONAMM 18 BEGIN KEY "Parte n.amm" PROMPT 130 2 "" END VALUTA FR_TG_TOTRIV 18 BEGIN KEY "Totale rivalutazioni" PROMPT 85 3 "" END VALUTA FR_TG_VALAMM 18 BEGIN KEY "Valore da ammortizzare" PROMPT 108 3 "" END VALUTA FR_TG_RESAMM 18 BEGIN KEY "Residuo da ammortizzare" PROMPT 128 3 "" END VALUTA FR_TG_PLUSREIN 18 BEGIN KEY "Plusvalenza reinvestita" PROMPT 80 4 "" END VALUTA FR_TG_FONDOAMM 18 BEGIN KEY "Fondo ammortamento" PROMPT 106 4 "" END VALUTA FR_TG_QNONAMM 18 BEGIN KEY "Quota non + amm." PROMPT 126 4 "" END VALUTA FR_TG_VSPMANU 18 BEGIN KEY "xCalc.deduc.man." PROMPT 65 3 "" END STRINGA -1 BEGIN KEY "" PROMPT 1 5 "Amm. su parti elimin." END VALUTA FR_TG_AE_NORMALE 18 BEGIN KEY "normale" PROMPT 22 5 "" PICTURE "###.###.###.##@" END STRINGA -1 BEGIN PROMPT 42 5 "normale" END VALUTA FR_TG_AE_ACCELERATO 18 BEGIN KEY "accelerato" PROMPT 52 5 "" PICTURE "###.###.###.##@" END STRINGA -1 BEGIN PROMPT 72 5 "accelerato" END VALUTA FR_TG_AE_ANTICIPATO 18 BEGIN KEY "anticipato" PROMPT 88 5 "" PICTURE "###.###.###.##@" END STRINGA -1 BEGIN PROMPT 108 5 "anticipato" END VALUTA -1 18 BEGIN KEY "totale" PROMPT 122 5 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_TG_AE_NORMALE+#FR_TG_AE_ACCELERATO+#FR_TG_AE_ANTICIPATO END STRINGA -1 BEGIN PROMPT 142 5 "totale" END STRINGA -1 BEGIN KEY "" PROMPT 1 6 "Amm. su cesp. residui" END VALUTA FR_TG_AR_NORMALE 18 BEGIN KEY "normale" PROMPT 22 6 "" PICTURE "###.###.###.##@" END STRINGA -1 BEGIN PROMPT 42 6 "normale" END VALUTA FR_TG_AR_ACCELERATO 18 BEGIN KEY "accelerato" PROMPT 52 6 "" PICTURE "###.###.###.##@" END STRINGA -1 BEGIN PROMPT 72 6 "accelerato" END VALUTA FR_TG_AR_ANTICIPATO 18 BEGIN KEY "anticipato" PROMPT 88 6 "" PICTURE "###.###.###.##@" END STRINGA -1 BEGIN PROMPT 108 6 "anticipato" END VALUTA -1 18 BEGIN KEY "totale" PROMPT 122 6 "" PICTURE "###.###.###.##@" MESSAGE _NUMEXPR,#FR_TG_AR_NORMALE+#FR_TG_AR_ACCELERATO+#FR_TG_AR_ANTICIPATO END STRINGA -1 BEGIN PROMPT 142 6 "totale" END END // section footer odd //-------------------------------------------------------------------------------------------------------------------// //vero footer di pagina!// SECTION FOOTER LAST 4 STRINGA -1 BEGIN KEY "riga" PROMPT 1 1 "---------------------------------------------------------------------------------------------------------------------------------------------------" END STRINGA -1 BEGIN KEY "Data" PROMPT 1 2 "Data Stampa " MESSAGE _TODAY END NUMERO -1 7 BEGIN KEY "Nr. pagina" PROMPT 130 2 "Pagina n. " MESSAGE _PAGENO END END // section footer last (footer pagina) END // form