campo-sirio/ce/ce4200a.frm

#include "ce4200.h"

USE LF_DOC
JOIN LF_RIGHEDOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC
END

//-----------------------intestazione form-------------------------------------------
SECTION HEADER ODD 7

  STRINGA -1
  BEGIN
    KEY "Titolo"
    PROMPT 1 1 "@bSALDI PER COMMESSA"
  END  

  STRINGA FR_CODDITTA
  BEGIN
    KEY "Codice ditta"
    PROMPT 1 2 "@bDitta@r "
  END  
    
  STRINGA FR_RAGSOC
  BEGIN
    KEY "@bRagione sociale@r"
    PROMPT 25 2 ""
  END
  
  STRINGA FR_ESERCIZIO
  BEGIN
    KEY "Esercizio"
    PROMPT 1 3 "@bEsercizio@r "
  END
  
  STRINGA FR_DATAINIZIO
  BEGIN
    KEY "@bInizio Esercizio@r"
    PROMPT 25 3 ""
  END

  STRINGA FR_DATAFINE
  BEGIN
    KEY "@bFine Esercizio@r"
    PROMPT 41 3 ""
  END

  STRINGA -1
  BEGIN
    KEY "separatore"
	PROMPT 1 4 "______________________________________________________________________________"
  END

  STRINGA -1
  BEGIN
    KEY "codice cespite"
	PROMPT 1 5 "@bCespite"
  END

  STRINGA -1
  BEGIN
    KEY "codice commessa"
	PROMPT 12 5 "@bCommessa"
  END

  STRINGA -1
  BEGIN
    KEY "valore ammortizzato"
	PROMPT 73 5 "@bQuota"
  END

  STRINGA -1
  BEGIN
    KEY "separatore"
	PROMPT 1 6 "______________________________________________________________________________"
  END

END  

///////////////////////////////////////////////////////////
// Valori cespite
///////////////////////////////////////////////////////////
//-----------------------riga tipo uno---------------------------------------------------//
SECTION BODY ODD 3

	NUMERO FR_B_IDCESPITE 10
	BEGIN
	  KEY "idcespite"
	  PROMPT 1 1 ""
	  PICTURE "@@@@@@@@@@"
	  MESSAGE RESET,FR_B_TOTVALAMM
	  FIELD NDOC
	END

	SECTION TOTALE_CESPITE 2 1 1 FILE LF_RIGHEDOC GROUP LF_RIGHEDOC->NDOC

	  STRINGA FR_B_CODCMS 20
	  BEGIN
	    KEY "codcms"
	    PROMPT 11 1 ""
	    FIELD LF_RIGHEDOC->CODCMS
	  END

	  STRINGA FR_B_DESC 30
	  BEGIN
	    KEY "desc"
	    PROMPT 32 1 ""
	    FIELD LF_RIGHEDOC->DESCR
	  END

	  VALUTA FR_B_VALAMM 15
	  BEGIN
	    KEY "valamm"
	    PROMPT 63 1 ""
	    FIELD LF_RIGHEDOC->PREZZO
	    MESSAGE ADD,FR_B_TOTVALAMM
	  END

	END  //end section totale_cespite
	
	STRINGA -1
	BEGIN
	  KEY "totale valore ammortizzato"
	  PROMPT 32 2 "@bTotale valore ammortizzato"
	END

    VALUTA FR_B_TOTVALAMM 15
    BEGIN
      KEY "totale valamm"
      PROMPT 63 2 "@b"
    END

END

/////////////////////////////////////////////////////////////////////////////////
//-------------------------pie' di pagina------------------------------------------------//
SECTION FOOTER ODD 3

  STRINGA -1
    BEGIN
    KEY "separatore"
    PROMPT 1 1 "______________________________________________________________________________"
  END

  DATA -1
  BEGIN
    PROMPT 1 2 "@bData@r " 
    MESSAGE _TODAY
  END

  NUMERO -1
  BEGIN
    PROMPT 35 2 "@bPagina@r " 
    MESSAGE _PAGENO
  END

END