campo-sirio/ce/ce3300a.frm

#include "ce3300.h"

GENERAL
BEGIN
//  OFFSET 0 1
//  FONT "Courier New"
//  SIZE 10
END

//------------------------intestazione------------------------------------------------//
SECTION HEADER FIRST 12

  STRINGA -1
  BEGIN
    KEY "titolo"
    PROMPT 36 1 "@bALLEGATO AL BILANCIO FISCALE@r"
  END

STRINGA FR_CODDITTA
  BEGIN
    KEY "Codice ditta"
    PROMPT 1 2 "@bDitta@r  "
    PICTURE "#####"
  END  
    
  STRINGA FR_RAGSOC
  BEGIN
    KEY "Ragione sociale"
    PROMPT 15 2 ""
  END
  
  STRINGA FR_GRUPPO
  BEGIN
    KEY "Gruppo"
    PROMPT 1 3 "@bGruppo@r "
    PICTURE "#####"
  END

  STRINGA FR_D_GRUPPO
  BEGIN
    KEY "Descrizione Gruppo"
    PROMPT 15 3 ""
  END

  STRINGA FR_SPECIE
  BEGIN
    KEY "Specie"
    PROMPT 1 4 "@bSpecie@r "
    PICTURE "#####"
  END

  STRINGA FR_D_SPECIE
  BEGIN    
    KEY "Descrizione Specie"
    PROMPT 15 4 ""
  END
  
  DATA FR_DATAINIZIO
  BEGIN
    KEY "Data inizio esercizio"
    PROMPT 1 5 "@bEsercizio@r     " 
  END
  
  DATA FR_DATAFINE
  BEGIN
    KEY "Data fine esercizio"
    PROMPT 25 5 " @b-@r "
  END

  STRINGA -1
  BEGIN
    KEY "tipo situaz. da stampare"
    PROMPT 1 6 "@bSituazione@r "
  END

  STRINGA FR_SITUAZIONE
  BEGIN
    KEY "tipo situaz. da stampare"
    PROMPT 12 6 ""
  END
  
  STRINGA -1
  BEGIN
    PROMPT 1 7 "@b===================================================================================================================================================@r"
  END
  
  STRINGA FR_INT_COD
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 1 8 ""
  END

  STRINGA FR_INT_DESC
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 8 8 ""
  END
  
  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 64 8 "@bCosto storico@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 106 8 "@bTot. rivalutazioni@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 130 8 "@bVal. inizio eser.@r"
  END
  
  STRINGA -1 
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 59 9 "@bRival. esercizio@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 82 9 "@bAcq/incrementi@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 106 9 "@bCessioni/Elimin.@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 128 9 "@bValore a bilancio@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 55 10 "@bFondo inizio eser.@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 84 10 "@bIncrementi@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 104 10 "@bCessioni/Elimin.@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 127 10 "@bReinvest. Plusv.@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 34 11 "@bAmm. normale@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 56 11 "@bAmm. accelerato@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 77 11 "@bAmm. anticipato@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 102 11 "@bFondo a bilancio@r"
  END

  STRINGA -1
  BEGIN
    KEY "Intestazione stampa"
    PROMPT 123 11 "@bResiduo a bilancio@r"
  END

  STRINGA -1
  BEGIN
    KEY "riga"
    PROMPT 1 12 "@b===================================================================================================================================================@r"
  END
  
END //section header first
//--------------------------------------------------------------//
SECTION BODY ODD 5
  
  STRINGA FR_TC_CAT 10
  BEGIN
    KEY "codice categoria"
    PROMPT 1 1 ""
  END
  
  STRINGA FR_TC_D_CAT 55
  BEGIN
    KEY "descrizione categoria"
    PROMPT 12 1 ""
  END
  
  VALUTA FR_TC_CSTO 15
  BEGIN
    KEY "costo storico"
    PROMPT 62 1 ""
    PICTURE "###.###.###.@@@"
  END

  VALUTA FR_TC_TOTRIV 15
  BEGIN
    KEY "totale rivalutazioni"
    PROMPT 109 1 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_VALINIES 15
  BEGIN
    KEY "valore inizio esercizio"
    PROMPT 132 1 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_RIVALES 15
  BEGIN
    KEY "rivalutazione esercizio"
    PROMPT 60 2 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_ACQINCR 15
  BEGIN
    KEY "acquisti/incrementi"
    PROMPT 81 2 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_CESSELIM2 15
  BEGIN
    KEY "cessioni/elimin. riga 2"
    PROMPT 107 2 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_VALBIL 15
  BEGIN
    KEY "valore a bilancio"
    PROMPT 130 2 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_FONDINIES 15
  BEGIN
    KEY "fondo inizio esercizio"
    PROMPT 58 3 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_INCR 15
  BEGIN
    KEY "incrementi"
    PROMPT 79 3 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_CESSELIM3 15
  BEGIN
    KEY "cessioni/elimin. riga 3"
    PROMPT 105 3 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_REINPLUS 15
  BEGIN
    KEY "reinvest. plusv."
    PROMPT 128 3 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_AMMNOR 15
  BEGIN
    KEY "ammortamento normale"
    PROMPT 31 4 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_AMMACC 15
  BEGIN
    KEY "ammortamento accelerato"
    PROMPT 56 4 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_AMMANT 15
  BEGIN
    KEY "ammortamento anticipato"
    PROMPT 77 4 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_FONDBIL 15
  BEGIN
    KEY "fondo a bilancio"
    PROMPT 103 4 ""
    PICTURE "###.###.###.@@@"
  END
  
  VALUTA FR_TC_RESBIL 15
  BEGIN
    KEY "residuo a bilancio"
    PROMPT 126 4 ""
    PICTURE "###.###.###.@@@"
  END
      
  STRINGA -1
  BEGIN
    KEY "riga"
    PROMPT 1 5 "@b---------------------------------------------------------------------------------------------------------------------------------------------------@r"
  END

END //section body odd
//-------------------------------------------------------------// 
//vero footer di pagina!//
SECTION FOOTER FIRST 4

  STRINGA -1
  BEGIN
    KEY "riga"
    PROMPT 1 1 "@b---------------------------------------------------------------------------------------------------------------------------------------------------@r"
  END

  STRINGA -1
  BEGIN
   KEY "Data"
   PROMPT 1 2 "@bData Stampa@r "
   MESSAGE _TODAY
  END
  
  NUMERO -1
  BEGIN
   KEY "Nr. pagina"
   PROMPT  130 2 "@bPagina n.@r "
   MESSAGE _PAGENO
  END

END // section footer last (footer pagina)

END // form