campo-sirio/ce/ce3500b.frm

#include "ce3500a.h"

SECTION GRAPHICS ODD
  LINEA -1 132 1
  BEGIN
    PROMPT 1 7 "B"
  END

  LINEA -1 132 1
  BEGIN
    PROMPT 1 12 ""
  END

  LINEA -1 132 1
  BEGIN
    PROMPT 1 -3 "B"
  END
END

///////////////////////////////////////////////////////////
// Testata
///////////////////////////////////////////////////////////

SECTION HEADER ODD 12

  STRINGA -1
  BEGIN
    KEY "Titolo"
    PROMPT 1 1 "@bLISTA CESPITI"
  END
  
  LISTA F_SITUAZIONE
  BEGIN
    KEY "Situazione"
    PROMPT 80 1 ""
    ITEM "1|Situazione Fiscale"
    ITEM "2|Situazione Civilistica"
    ITEM "3|Situazione Gestionale"
  END

  STRINGA F_CODDITTA
  BEGIN
    KEY "Codice ditta"
    PROMPT 1 2 "@bDitta@r "
    PICTURE "#####"
  END  
    
  STRINGA F_RAGSOC
  BEGIN
    KEY "Ragione sociale"
    PROMPT 25 2 ""
  END

  STRINGA F_ESERCIZIO
  BEGIN
    KEY "Esercizio"
    PROMPT 1 3 "@bEsercizio@r "
  END
  
  STRINGA F_DATAINIZIO
  BEGIN
    KEY "Inizio Esercizio"
    PROMPT 25 3 ""
  END

  STRINGA F_DATAFINE
  BEGIN
    KEY "Fine Esercizio"
    PROMPT 38 3 ""
  END

  STRINGA F_GRUPPO
  BEGIN
    KEY "Gruppo"
    PROMPT 1 4 "@bGruppo@r "
    PICTURE "#####"
  END

  STRINGA F_D_GRUPPO
  BEGIN
    KEY "Descrizione Gruppo"
    PROMPT 25 4 ""
  END

  STRINGA F_SPECIE
  BEGIN
    KEY "Specie"
    PROMPT 1 5 "@bSpecie@r "
  END

  STRINGA F_D_SPECIE
  BEGIN    
    KEY "Descrizione Specie"
    PROMPT 25 5 ""
  END

  STRINGA F_CODTAB
  BEGIN
    KEY "categoria o impianto"
    PROMPT 1 6 ""
  END  
  
  STRINGA -1
  BEGIN
    PROMPT 1 8 "@bCespite"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 17 8 "Descrizione"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 1 9 "@bData acq."
  END

  STRINGA -1
  BEGIN
    PROMPT 13 9 "Data util."
  END
  
  STRINGA -1
  BEGIN
    PROMPT 25 9 "Data dism."
  END

  STRINGA -1
  BEGIN
    PROMPT 37 9 "Elementi"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 49 9 "Prop. da funz."
  END
    
  STRINGA -1
  BEGIN
    PROMPT 65 9 "Rinvio a ricavi"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 81 9 "Spese manut."
  END

  STRINGA -1
  BEGIN
    PROMPT 97 9 "Uso prom."
  END
  
  STRINGA -1
  BEGIN
    PROMPT 113 9 "Leasing"
  END

  STRINGA -1
  BEGIN
    PROMPT 126 9 "Usato" 
  END

  STRINGA -1
  BEGIN
    PROMPT 1 10 "@bCosto storico"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 17 10 "Parte non amm."
  END

  STRINGA -1
  BEGIN
    PROMPT 33 10 "Plusv. reinv."
  END

  STRINGA -1
  BEGIN
    PROMPT 49 10 "Rival. gen."
  END

  STRINGA -1
  BEGIN
    PROMPT 65 10 "Rival. 576/75"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 81 10 "Rival. 72/83"
  END

  STRINGA -1
  BEGIN
    PROMPT 97 10 "Rival. 413/90"
  END

  STRINGA -1
  BEGIN
    PROMPT 113 10 "Rival. 413/91"
  END

  STRINGA -1
  BEGIN
    PROMPT 1 11 "@bFondo amm."
  END

  STRINGA -1
  BEGIN
    PROMPT 17 11 "Quota non amm."
  END
  
  STRINGA -1
  BEGIN
    PROMPT 49 11 "PRIVATO:"
  END

  STRINGA -1
  BEGIN
    PROMPT 65 11 "@bFondo amm."
  END

  STRINGA -1
  BEGIN
    PROMPT 81 11 "Quota non amm."
  END
END  

///////////////////////////////////////////////////////////
// Valori cespite
///////////////////////////////////////////////////////////

SECTION BODY ODD 5

STRINGA -1
BEGIN
  PROMPT 1 1 "@b"
  FIELD IDCESPITE
END

STRINGA -1 54
BEGIN
  PROMPT 17 1 ""
  FIELD DESC
END

STRINGA -1 60
BEGIN
  PROMPT 72 1 ""
  MESSAGE _INVCODTAB
END
  
STRINGA -1
BEGIN
  PROMPT 1 2 ""
  FIELD DTCOMP
END

STRINGA -1
BEGIN
  PROMPT 13 2 ""
  FIELD DTFUNZ
END

STRINGA -1
BEGIN
  PROMPT 25 2 ""
  FIELD DTALIEN
END

NUMERO -1
BEGIN
  KEY "Numero elementi"
  PROMPT 37 2 ""
  FIELD LF_SALCE->NUMELE
END

LIST -1
BEGIN
  PROMPT 49 2 ""
  ITEM "|No"
  ITEM "X|Si"
  FIELD AMMPROP
END

LIST -1
BEGIN
  PROMPT 65 2 ""
  ITEM "|No"
  ITEM "X|Si"
  FIELD ESCLPR
END

STRINGA -1
BEGIN
  PROMPT 81 2 ""
  MESSAGE _TPSPEMAN
END

STRINGA -1
BEGIN
  PROMPT 97 2 ""
  MESSAGE _USOPROM
END

LIST -1
BEGIN
  PROMPT 113 2 ""
  ITEM "|No"
  ITEM "X|Si"
  FIELD LEASING
END

LIST -1
BEGIN
  PROMPT 129 2 ""
  ITEM "|No"
  ITEM "X|Si"
  FIELD USATO
END

VALUTA 11 15
BEGIN
  PROMPT 1 3 ""
  FIELD LF_SALCE->CSTO
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->11
END

VALUTA 12 15
BEGIN
  PROMPT 17 3 ""
  MESSAGE _VNONAMM
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->12
END

VALUTA 13 15
BEGIN
  PROMPT 33 3 ""
  FIELD LF_SALCE->PLUSREIN
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->13
END

VALUTA 14 15
BEGIN
  PROMPT 49 3 ""
  MESSAGE _RIVGEN
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->14
END

VALUTA 15 15
BEGIN
  PROMPT 65 3 ""
  FIELD LF_SALCE->RIV75
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->15
END

VALUTA 16 15
BEGIN
  PROMPT 81 3 ""
  FIELD LF_SALCE->RIV83
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->16
END

VALUTA 17 15
BEGIN
  PROMPT 97 3 ""
  FIELD LF_SALCE->RIV90
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->17
END

VALUTA 18 15
BEGIN
  PROMPT 113 3 ""
  FIELD LF_SALCE->RIV91
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->18
END

VALUTA 21 15
BEGIN          
  KEY "Fondo ammortamento"
  PROMPT 1 4 ""
  MESSAGE _NUMEXPR,LF_AMMCE->QNOR+LF_AMMCE->QACC+LF_AMMCE->QANT
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->21
END

VALUTA 22 15
BEGIN         
  KEY "Quote perse" 
  PROMPT 17 4 ""            
  FIELD LF_AMMCE->QPERSE
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->22
END

VALUTA 23 15
BEGIN             
  KEY "Fondo ammortamento privato"
  PROMPT 65 4 ""            
  FIELD LF_AMMCE->FPRIVATO
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->23
END

VALUTA 24 15
BEGIN             
  KEY "Quote perse private"
  PROMPT 81 4 ""            
  FIELD LF_AMMCE->QPPRIVATE
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BE->24
END

END

///////////////////////////////////////////////////////////
// Totale di categoria
///////////////////////////////////////////////////////////

SECTION BODY EVEN 3

STRINGA F_CODTAB
BEGIN         
  KEY "Totale di categoria o impianto"
  PROMPT 1 1 "@bTOTALE "
END

VALUTA 11 15
BEGIN       
  KEY "CSTO"
  PROMPT 1 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->11
END

VALUTA 12 15
BEGIN
  KEY "VNONAMM"
  PROMPT 17 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->12
END

VALUTA 13 15
BEGIN
  KEY "PLUSREIN"
  PROMPT 33 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->13
END

VALUTA 14 15
BEGIN
  KEY "Rivalutazione generica"
  PROMPT 49 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->14
END

VALUTA 15 15
BEGIN
  KEY "RIV75"
  PROMPT 65 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->15
END

VALUTA 16 15
BEGIN
  KEY "RIV83"
  PROMPT 81 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->16
END

VALUTA 17 15
BEGIN
  KEY "RIV90"
  PROMPT 97 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->17
END

VALUTA 18 15
BEGIN
  KEY "RIV91"
  PROMPT 113 2 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->18
END

VALUTA 21 15
BEGIN
  KEY "Fondo ammortamento"
  PROMPT 1 3 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->21
END

VALUTA 22 15
BEGIN         
  KEY "Quote perse" 
  PROMPT 17 3 ""            
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->22
END

VALUTA 23 15
BEGIN             
  KEY "Fondo ammortamento privato"
  PROMPT 65 3 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->23
END

VALUTA 24 15
BEGIN             
  KEY "Quote perse private"
  PROMPT 81 3 ""
  PICTURE "###.###.###.@@@"
  MESSAGE ADD,BL->24
END

END

///////////////////////////////////////////////////////////
// Totale generale
///////////////////////////////////////////////////////////

SECTION BODY LAST 3     

STRINGA F_CODTAB
BEGIN         
  KEY "Totale di categoria o impianto"
  PROMPT 1 1 "@bTOTALE "
END

VALUTA 11 15
BEGIN       
  KEY "CSTO"
  PROMPT 1 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 12 15
BEGIN
  KEY "VNONAMM"
  PROMPT 17 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 13 15
BEGIN
  KEY "PLUSREIN"
  PROMPT 33 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 14 15
BEGIN
  KEY "Rivalutazione generica"
  PROMPT 49 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 15 15
BEGIN
  KEY "RIV75"
  PROMPT 65 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 16 15
BEGIN
  KEY "RIV83"
  PROMPT 81 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 17 15
BEGIN
  KEY "RIV90"
  PROMPT 97 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 18 15
BEGIN
  KEY "RIV91"
  PROMPT 113 2 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 21 15
BEGIN
  KEY "Fondo ammortamento"
  PROMPT 1 3 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 22 15
BEGIN         
  KEY "Quote perse" 
  PROMPT 17 3 ""            
  PICTURE "###.###.###.@@@"
END

VALUTA 23 15
BEGIN             
  KEY "Fondo ammortamento privato"
  PROMPT 65 3 ""
  PICTURE "###.###.###.@@@"
END

VALUTA 24 15
BEGIN             
  KEY "Quote perse private"
  PROMPT 81 3 ""
  PICTURE "###.###.###.@@@"
END

END

SECTION FOOTER ODD 3

DATA -1
BEGIN
  PROMPT 1 2 "@bData@r " 
  MESSAGE _TODAY
END

NUMERO -1
BEGIN
  PROMPT 120 2 "@bPagina@r " 
  MESSAGE _PAGENO
END

END