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 120 1
BEGIN
  PROMPT 1 4 ""
END

LINEA -1 120 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 categoria"
	PROMPT 1 5 "@bCategoria"
  END

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

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

  STRINGA -1
  BEGIN
    KEY "descrizione cespite"
	PROMPT 37 6 ""
  END

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

  STRINGA -1
  BEGIN
    KEY "valore ammortizzato"
	PROMPT 114 6 "@bQuota"
  END

END  

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

	NUMERO FR_B_CATEGORIA 2
	BEGIN
	  KEY "codice categoria"
	  PROMPT 1 1 ""
	  PICTURE "@@"
	  MESSAGE RESET,FR_B_TOTVALAMM //|RESET,FR_B_TOTPERC
	  FIELD NDOC
	END

	STRINGA FR_B_DESCRCAT 50
	BEGIN
	  KEY "descrizione categoria"
	  PROMPT 12 1 ""
	  MESSAGE _DESCRCAT
	END

	SECTION TOTALE_CATEGORIA 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_IDCESP 10
	  BEGIN
	    KEY "idcespite"
		PROMPT 26 1 ""
		FIELD LF_RIGHEDOC->CODART
	  END

	  STRINGA FR_B_DESC 30
	  BEGIN
	    KEY "descrizione cespite"
	    PROMPT 37 1 ""
	    FIELD LF_RIGHEDOC->DESCR
	  END

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

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

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

/*	NUMERO FR_B_TOTPERC 6 2
	BEGIN
	  KEY "totale percentuale"
	  PROMPT 88 2 "@b"
	END*/

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

END

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

  LINEA -1 120 1
  BEGIN
	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