campo-sirio/ce/ce3400a.frm

#include "ce3400a.h"

// Linee di sfondo

SECTION GRAPHICS ODD

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

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

END

// Testata

SECTION HEADER ODD 7
  STRINGA -1
  BEGIN
    KEY "Titolo"
    PROMPT 1 1 "@bPROSPETTO RIVALUTAZIONI"
  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 20 2 ""
  END
  
  STRINGA F_ESERCIZIO
  BEGIN
    KEY "Esercizio"
    PROMPT 1 3 "@bEsercizio@r "
  END
  
  STRINGA F_DATAINIZIO
  BEGIN
    KEY "Inizio Esercizio"
    PROMPT 20 3 ""
  END

  STRINGA F_DATAFINE
  BEGIN
    KEY "Fine Esercizio"
    PROMPT 33 3 ""
  END
  
  STRINGA F_GRUPPO
  BEGIN
    KEY "Gruppo"
    PROMPT 1 4 "@bGruppo@r "
    PICTURE "#####"
  END

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

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

  STRINGA F_D_SPECIE
  BEGIN    
    KEY "Descrizione Specie"
    PROMPT 20 5 ""
  END
  
  STRINGA 2
  BEGIN
    PROMPT 22 7 "@bCosto Storico@r"
  END
  
  STRINGA 3
  BEGIN
    PROMPT 37 7 "@bRival. generica@r"
  END

  STRINGA 4
  BEGIN
    PROMPT 56 7 "@bRival. 576/75@r"
  END

  STRINGA 5
  BEGIN
    PROMPT 74 7 "@bRival. 72/83@r"
  END

  STRINGA 6
  BEGIN
    PROMPT 90 7 "@bRival. 413/90@r"
  END

  STRINGA 7
  BEGIN
    PROMPT 107 7 "@bRival. 413/91@r"
  END
END  

SECTION HEADER EVEN 1
  STRINGA F_CODTAB
  BEGIN
    KEY "categoria o impianto"
    PROMPT 1 1 "@bCategoria@r "
  END  
    
  STRINGA F_D_CODTAB
  BEGIN
    KEY "Descrizione"
    PROMPT 25 1 "@bDescrizione@r "
  END
END

SECTION BODY FIRST 1

STRING 1 
BEGIN
  PROMPT 1 1 "@bCespite@r "
END

STRING 2
BEGIN
  PROMPT 25 1 "@bDescrizione@r "
END

STRING 3
BEGIN
  PROMPT 100 1 "@bData acquisizione@r "
END

END
  
SECTION BODY ODD 1

STRINGA 1
BEGIN
  PROMPT 1 1 "@bTotale@r"
END

VALUTA 2 15
BEGIN
  KEY "Costo storico"
  PROMPT 20 1 ""
  PICTURE "###.###.###.##@"
END

VALUTA 3 15
BEGIN
  KEY "Rivalutazione generica"
  PROMPT 37 1 ""
  PICTURE "###.###.###.##@"
END

VALUTA 4 15
BEGIN
  KEY "Rivalutazione 75"
  PROMPT 54 1 ""
  PICTURE "###.###.###.##@"
END

VALUTA 5 15
BEGIN
  KEY "Rivalutazione 83"
  PROMPT 71 1 ""
  PICTURE "###.###.###.##@"
END

VALUTA 6 15
BEGIN
  KEY "Rivalutazione 90"
  PROMPT 88 1 ""
  PICTURE "###.###.###.##@"
END

VALUTA 7 15
BEGIN
  KEY "Rivalutazione 91"
  PROMPT 105 1 ""
  PICTURE "###.###.###.##@"
END

END

SECTION BODY EVEN 1

STRINGA -1
BEGIN
  PROMPT 1 1 "@bValore a bilancio@r"
END

VALUTA 1 15
BEGIN
  KEY "Totale a bilancio"
  PROMPT 20 1 ""
  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