campo-sirio/ce/ce3100a.frm

#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<65> 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<63> "
    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 3
  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 3
  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