campo-sirio/ce/ce3700a.frm

#include "ce3700a.h"

USE LF_CESPI
END

// Linee di sfondo

SECTION GRAPHICS ODD

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

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

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

END

// Testata

SECTION HEADER ODD 9
  STRINGA -1
  BEGIN
    KEY "Titolo"
    PROMPT 1 1 "@bELENCO CESPITI USO PROMISCUO"
  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 -1
  BEGIN
    PROMPT 1 7 "@bCod."
  END

  STRINGA -1
  BEGIN
    PROMPT 1 8 "@bCat."
  END
  
  STRINGA -1
  BEGIN
    PROMPT 6 7 "Cod."
  END

  STRINGA -1
  BEGIN
    PROMPT 6 8 "Cespite"
  END

  STRINGA -1
  BEGIN
    PROMPT 17 7 "Descrizione"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 68 7 "Percentuale"
  END

  STRINGA -1
  BEGIN
    PROMPT 68 8 "Deducibilità"
  END

  STRINGA -1
  BEGIN
    PROMPT 110 7 "Tipo"
  END

  STRINGA -1
  BEGIN
    PROMPT 110 8 "Veicolo"
  END

  STRINGA -1
  BEGIN
    PROMPT 126 7 "Uso a"
  END

  STRINGA -1
  BEGIN
    PROMPT 126 8 "Dipend."
  END
END  
  
SECTION BODY ODD 2

NUMERO -1
BEGIN
  PROMPT 2 1 ""
  PICTURE "@@"
  FIELD CODCAT
END

STRINGA -1
BEGIN
  PROMPT 6 1 ""
  FIELD IDCESPITE
END

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

LISTA -1
BEGIN
  KEY "Usoprom"
  PROMPT 68 1 ""
  ITEM "|"
  ITEM "1|100% - Esclusivamente strumentale"
  ITEM "2| 50% - Uso promiscuo"
  ITEM "3| 80% - Uso prom. agenti/rappresentanti"
  FIELD USOPROM
END

LISTA -1
BEGIN
  KEY "Flgtpvei"
  PROMPT 110 1 ""
  ITEM "1|Nessuno"
  ITEM "2|Auto, Autocaravan"
  ITEM "3|Motociclo"
  ITEM "4|Ciclomotore"
  ITEM "5|Altro"
  FIELD FLGTPVEI
END

LISTA -1
BEGIN
  KEY "Veidip"
  PROMPT 129 1 ""
  ITEM "|NO"
  ITEM "X|SI"
  FIELD VEIDIP
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