campo-sirio/ce/ce3600a.frm

#include "ce3600a.h"

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

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

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

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

SECTION HEADER ODD 11
  
  STRINGA -1
  BEGIN
    KEY "Titolo"
    PROMPT 1 1 "@bLISTA MOVIMENTI"
  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 -1
  BEGIN
    PROMPT 1 7 "@bNumero"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 12 7 "Tipo"
  END

  STRINGA -1
  BEGIN
    PROMPT 17 7 "Data"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 27 7 "Segno"
  END

  STRINGA -1
  BEGIN
    PROMPT 33 7 "Importo"
  END

  STRINGA -1
  BEGIN
    PROMPT 49 7 "Elementi"
  END

  STRINGA -1
  BEGIN
    PROMPT 65 7 "Descrizione Movimento"
  END

  STRINGA -1
  BEGIN
    PROMPT 1 8 "@bCespite"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 17 8 "Categoria"
  END
  
  STRINGA -1
  BEGIN
    PROMPT 33 8 "Impianto"
  END

  STRINGA -1
  BEGIN
    PROMPT 49 8 "Descrizione Cespite"
  END

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

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

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

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

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

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

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

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

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

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

END

///////////////////////////////////////////////////////////
// Valori movimento
///////////////////////////////////////////////////////////

SECTION BODY ODD 5

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

STRING -1
BEGIN
  PROMPT 14 1 "@r"
  FIELD CODMOV
END

STRING -1
BEGIN
  PROMPT 17 1 ""
  FIELD DTMOV
END

STRING -1
BEGIN
  PROMPT 29 1 ""
  FIELD SEGNO
END

VALUTA -1 15
BEGIN
  PROMPT 33 1 ""
  FIELD IMPVEN
  PICTURE "###.###.###.@@@"
END

NUMBERO -1
BEGIN
  PROMPT 49 1 ""
  FIELD NUMELE
END

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

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

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

STRING -1
BEGIN
  PROMPT 33 2 ""
  FIELD LF_CESPI->CODIMP
END

STRING -1
BEGIN
  PROMPT 49 2 ""
  FIELD LF_CESPI->DESC
END

VALUTA 11 15
BEGIN
  PROMPT 1 3 ""
  FIELD CSTO
  PICTURE "###.###.###.@@@"
END

VALUTA 12 15
BEGIN
  PROMPT 17 3 ""
  FIELD VNONAMM
  PICTURE "###.###.###.@@@"
END

VALUTA 13 15
BEGIN
  PROMPT 33 3 ""
  FIELD PLUSREIN
  PICTURE "###.###.###.@@@"
END

VALUTA 14 15
BEGIN
  PROMPT 49 3 ""
  MESSAGE _RIVGEN
  PICTURE "###.###.###.@@@"
END

VALUTA 15 15
BEGIN
  PROMPT 65 3 ""
  FIELD RIV75
  PICTURE "###.###.###.@@@"
END

VALUTA 16 15
BEGIN
  PROMPT 81 3 ""
  FIELD RIV83
  PICTURE "###.###.###.@@@"
END

VALUTA 17 15
BEGIN
  PROMPT 97 3 ""
  FIELD RIV90
  PICTURE "###.###.###.@@@"
END

VALUTA 18 15
BEGIN
  PROMPT 113 3 ""
  FIELD RIV91
  PICTURE "###.###.###.@@@"
END

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

VALUTA 22 15
BEGIN         
  KEY "Quote perse" 
  PROMPT 17 4 ""            
  FIELD LF_MOVAM->QPERSE
  PICTURE "###.###.###.@@@"
END

VALUTA 23 15
BEGIN             
  KEY "Fondo ammortamento privato"
  PROMPT 65 4 ""            
  FIELD LF_MOVAM->FPRIVATO
  PICTURE "###.###.###.@@@"
END

VALUTA 24 15
BEGIN             
  KEY "Quote perse private"
  PROMPT 81 4 ""            
  FIELD LF_MOVAM->QPPRIVATE
  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