campo-sirio/ve/ve7300a.frm

#include "ve7300.h"
//____________________RELAZIONE_____________________________//
USE LF_RIGHEDOC KEY 3 //BY CODARTMAG CODCF DATADOC
JOIN LF_DOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN LF_ANAMAG INTO CODART==CODARTMAG

END

//______________FORM____________________//

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

SECTION GRAPHIC
BEGIN
END

//__________________TESTATA___________________________//  

SECTION HEADER ODD 6

STRINGA -1
BEGIN
  KEY "titolo"
  PROMPT 1 1 "@bSTAMPA DI RIEPILOGO ENTRATE FORNITORI"
END

STRINGA -1
BEGIN
  KEY "separatore"
  PROMPT 1 2 "@b____________________________________________________________________________________________________________________________________"
END

STRINGA -1
BEGIN
  KEY "codice articolo"
  PROMPT 1 3 "@bCodice articolo"
END

STRINGA -1
BEGIN
  KEY "descrizione articolo"
  PROMPT 25 3 "@bDescrizione articolo"
END

STRINGA -1
BEGIN
  KEY "codice fornitore"
  PROMPT 5 4 "@bCod. forn."
END

STRINGA -1
BEGIN
  KEY "ragione sociale fornitore"
  PROMPT 29 4 "@bRagione sociale"
END

STRINGA -1
BEGIN
  KEY "data entrata"
  PROMPT 10 5 "@bData entr."
END

STRINGA -1
BEGIN
  KEY "numero entrata"
  PROMPT 23 5 "@bN.entr."
END

STRINGA -1
BEGIN
  KEY "costo"
  PROMPT 39 5 "@bCosto"
END

STRINGA -1
BEGIN
  KEY "quantita"
  PROMPT 50 5 "@bQta"
END

STRINGA -1
BEGIN
  KEY "data consegna"
  PROMPT 57 5 "@bData cons."
END

STRINGA -1
BEGIN
  KEY "data ordine"
  PROMPT 69 5 "@bData ord."
END

STRINGA -1
BEGIN
  KEY "numero entrata"
  PROMPT 81 5 "@bN.ord."
END

STRINGA -1
BEGIN
  KEY "giorni di ritardo"
  PROMPT 89 5 "@bRitardo"
END

STRINGA -1
BEGIN
  KEY "documento fornitore"
  PROMPT 98 5 "@bDoc. forn."
END

STRINGA -1
BEGIN
  KEY "data docum. fornitore"
  PROMPT 110 5 "@bData forn."
END

STRINGA -1
BEGIN
  KEY "separatore"
  PROMPT 1 6 "@b____________________________________________________________________________________________________________________________________"
END

END

//____________BODY___________________//

SECTION BODY ODD 3

STRINGA FF_CODART 20
BEGIN
  KEY "cod. art."
  PROMPT 1 1 ""
  FIELD CODARTMAG
END

STRINGA FF_DESCRART 50
BEGIN
  KEY "descr. art."
  PROMPT 25 1 ""
  FIELD LF_ANAMAG->DESCR
END

//Raggruppamento per codice articolo (livello 1)
SECTION ARTICOLI 2 1 1 FILE LF_RIGHEDOC GROUP CODARTMAG
	
	STRINGA FF_CODFORN 6
	BEGIN 
	  KEY "cod. fornitore"
	  PROMPT 10 1 ""
	  FIELD LF_DOC->CODCF
	END

	STRINGA FF_RAGSOC 50
	BEGIN
	  KEY "rag.soc. fornitore"
	  PROMPT 29 1 ""
	  FIELD LF_CLIFO->RAGSOC
	END

//Raggruppamento per codice fornitore (livello 2)
	SECTION FORNITORI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODCF

		DATA FF_DATAENTR 10
		BEGIN
		  KEY "data entrata"
		  PROMPT 10 1 ""
		  FIELD LF_DOC->DATADOC 
		END

		NUMERO FF_NUMENTR 7
		BEGIN
		  KEY "numero entrata"
		  PROMPT 23 1 ""
		  FIELD LF_DOC->NDOC
		END

		NUMERO FF_COSTO 12
		BEGIN
		  KEY "costo della riga documento"
		  PROMPT 34 1 ""
		  MESSAGE _PARENTROW,1,PREZZO
		  PICTURE "#####@,@@@@@"
		END

		NUMERO FF_QTA 8
		BEGIN
		  KEY "quantita della riga documento da ordine"
		  PROMPT 47 1 ""
		  FIELD QTA
		END

		DATA FF_DATACONS 10
		BEGIN
		  KEY "data consegna"
		  PROMPT 57 1 ""
		  MESSAGE _PARENTROW,1,DATACONS
		END

		DATA FF_DATAORD 10
		BEGIN
		  KEY "data doc. ord."
		  PROMPT 69 1 ""
		  MESSAGE _PARENTDOC,1,DATADOC
		END

		NUMERO FF_NUMORD 7
		BEGIN
		  KEY "numero documento ordine"
		  PROMPT 80 1 ""
		  FIELD DANDOC
		END

		STRINGA FF_RITARDO
		BEGIN
		  KEY "giorni di ritardo=dataentr-datacons"
		  PROMPT 92 1 ""
		  MESSAGE _RITARDO,FF_DATAENTR,FF_DATACONS
		END

		NUMERO FF_DOCFORN 7
		BEGIN
		  KEY "documento fornitore doc. rif. su doc. di entrata"
		  PROMPT 100 1 ""
		  FIELD LF_DOC->NUMDOCRIF
		END

		DATA FF_DATAFORN 10
		BEGIN
		  KEY "data documento fornitore"
		  PROMPT 110 1 ""
		  FIELD LF_DOC->DATADOCRIF
		END

	END //end section FORNITORI

END //end section ARTICOLI

END