campo-sirio/ce/ce4200a.frm

#include "ce4200.h"

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

//-----------------------parte grafica con le righe di separazione-------------------
SECTION GRAPHICS ODD

LINEA -1 80 1
BEGIN
  PROMPT 1 4 "@b"
END

LINEA -1 80 1
BEGIN
  PROMPT 1 7 "@b"
END

END


//-----------------------intestazione form-------------------------------------------
SECTION HEADER ODD 8

  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 "codice cespite"
	PROMPT 1 5 "@bCespite"
  END

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

  STRINGA -1
  BEGIN
    KEY "percentuale ammortizzata"
	PROMPT 59 6 "@bPerc."
  END

  STRINGA -1
  BEGIN
    KEY "valore ammortizzato"
	PROMPT 75 6 "@bQuota"
  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|RESET,FR_B_TOTPERC
	  FIELD NDOC
	END

	STRINGA FR_B_DESCRCESPITE 50
	BEGIN
	  KEY "descrizione cespite"
	  PROMPT 12 1 ""
	  MESSAGE _DESCRCESPITE
	END

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

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

	  STRINGA FR_B_DESC 30
	  BEGIN
	    KEY "descrizione commessa"
	    PROMPT 26 1 ""
	    FIELD LF_RIGHEDOC->DESCR
	  END

	  NUMERO FR_B_PERC 6 2
	  BEGIN
	    KEY "percentuale"
		PROMPT 58 1 ""
		FIELD LF_RIGHEDOC->QTAGG4
		MESSAGE ADD,FR_B_TOTPERC
	  END

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

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

	NUMERO FR_B_TOTPERC 6 2
	  BEGIN
	    KEY "totale percentuale"
		PROMPT 58 2 "@b"
	  END

    VALUTA FR_B_TOTVALAMM 15
    BEGIN
      KEY "totale valamm"
      PROMPT 66 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