campo-sirio/ce/ce3500a.frm

#include "ce3500a.h"

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

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

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

END

SECTION HEADER ODD 10

  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 41 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 17 9 "Data util."
  END         
    
  STRINGA -1
  BEGIN
    PROMPT 33 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 "Tipo"
  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

END  

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

SECTION BODY ODD 3

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

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

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

STRING -1
BEGIN
  PROMPT 17 2 ""
  FIELD DTFUNZ
END

NUMERO -1
BEGIN
  KEY "Numero elementi"
  PROMPT 33 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

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