campo-sirio/ce/ce3800a.frm

#include "ce3400a.h"

USE LF_CESPI
END

// Linee di sfondo

SECTION GRAPHICS ODD

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

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

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

END

// Testata

SECTION HEADER ODD 11
  STRINGA -1
  BEGIN
    KEY "Titolo"
    PROMPT 1 1 "@bELENCO CESPITI FINE ESERCIZIO"
  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 F_CODTAB
  BEGIN
    KEY "categoria o impianto"
    PROMPT 1 6 ""
  END  
  
  STRINGA -1
  BEGIN
    PROMPT 1 8 "@bCespite"
  END

  STRINGA -1
  BEGIN
    PROMPT 12 8 "Descrizione"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 65 8 "Data Acq."
  END
    
  STRINGA -1
  BEGIN
    PROMPT 77 8 "Elem."
  END
    
  STRINGA -1
  BEGIN
    PROMPT 1 9 "@bCosto storico"
  END

  STRINGA -1
  BEGIN
    PROMPT 1 10 "@bTotale"
  END

  STRINGA -1
  BEGIN
    PROMPT 17 9 "Costo storico"
  END

  STRINGA -1
  BEGIN
    PROMPT 17 10 "Unitario"
  END

  STRINGA -1
  BEGIN
    PROMPT 33 9 "Valore"
  END

  STRINGA -1
  BEGIN
    PROMPT 33 10 "Ammortizzabile"
  END

  STRINGA -1
  BEGIN
    PROMPT 49 9 "Fondo"
  END

  STRINGA -1
  BEGIN
    PROMPT 49 10 "Ammortamento"
  END

  STRINGA -1
  BEGIN
    PROMPT 65 9 "Valore non pi<70>"
  END

  STRINGA -1
  BEGIN
    PROMPT 65 10 "ammortizzabile"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 81 9 "Fondo Privato"
  END

  STRINGA -1
  BEGIN
    PROMPT 81 10 "Ammortamento"
  END

  STRINGA -1
  BEGIN
    PROMPT 97 9 "Valore Privato"
  END

  STRINGA -1
  BEGIN
    PROMPT 97 10 "non ammortizz."
  END

  STRINGA -1
  BEGIN
    PROMPT 113 9 "Residuo da"
  END

  STRINGA -1
  BEGIN
    PROMPT 113 10 "ammortizzare"
  END
END  
  
SECTION BODY ODD 3

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

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

STRING -1
BEGIN
  PROMPT 65 1 ""
  FIELD DTCOMP
END

NUMERO -1 5
BEGIN
  KEY "Numero elementi"
  PROMPT 75 1 ""
  FIELD LF_SALCE->NUMELE
  PICTURE "####@"
END

STRINGA -1 50
BEGIN
  PROMPT 81 1 ""
  MESSAGE _INVCODTAB
END
  
VALUTA 1 15
BEGIN
  PROMPT 1 2 ""
  FIELD LF_SALCE->CSTO
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->1
END

VALUTA 2 15
BEGIN
  PROMPT 17 2 ""
  MESSAGE _NUMEXPR,IF(LF_SALCE->NUMELE>0;LF_SALCE->CSTO/LF_SALCE->NUMELE;0)
  PICTURE "###.###.###.##@"
END

VALUTA 3 15
BEGIN
  PROMPT 33 2 ""
  MESSAGE _VALAMM
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->3
END

VALUTA 4 15
BEGIN
  KEY "Fondo ammortamento"
  PROMPT 49 2 ""
  MESSAGE _NUMEXPR,LF_AMMCE->QNORP+LF_AMMCE->QACCP+LF_AMMCE->QANTP
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->4
END

VALUTA 5 15
BEGIN
  KEY "Quote perse"
  PROMPT 65 2 ""
  FIELD LF_AMMCE->QPERSEP
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->5
END

VALUTA 6 15
BEGIN
  KEY "Fondo ammortamento private"
  PROMPT 81 2 ""
  FIELD LF_AMMCE->FPRIVATOP
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->6
END

VALUTA 7 15
BEGIN
  KEY "Quote perse private"
  PROMPT 97 2 ""
  FIELD LF_AMMCE->QPPRIVATEP
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->7
END

VALUTA 8 15
BEGIN
  KEY "Residuo da ammortizzare"
  PROMPT 113 2 ""
  MESSAGE _NUMEXPR,#3-#4-#5-#6-#7
  PICTURE "###.###.###.##@"
  MESSAGE ADD,BE->8
END

END

SECTION BODY EVEN 2

STRING F_CODTAB
BEGIN
  PROMPT 1 1 "@bTOTALE "
END

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

VALUTA 3 15
BEGIN
  PROMPT 33 2 ""
  PICTURE "###.###.###.##@"
END

VALUTA 4 15
BEGIN
  PROMPT 49 2 ""
  PICTURE "###.###.###.##@"
END

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

VALUTA 6 15
BEGIN
  PROMPT 81 2 ""
  PICTURE "###.###.###.##@"
END

VALUTA 7 15
BEGIN
  PROMPT 97 2 ""
  PICTURE "###.###.###.##@"
END

VALUTA 8 15
BEGIN
  PROMPT 113 2 ""
  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