campo-sirio/ps/ps0077300a.frm

#include "ps0077300a.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 8

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

STRINGA FH_DACODART 27
BEGIN
  KEY "da codart"
  PROMPT 1 2 "Da art. "
  PICTURE "####################"
END

STRINGA FH_ACODART 27
BEGIN
  KEY "a codart"
  PROMPT 1 3 "A art.  "
  PICTURE "####################"
END

STRINGA FH_DACODFORN 15
BEGIN
  KEY "da codforn"
  PROMPT 30 2 "Da forn. "
  PICTURE "######"
END

STRINGA FH_ACODFORN 15
BEGIN
  KEY "a codforn"
  PROMPT 30 3 "A forn.  "
  PICTURE "######"
END

STRINGA FH_DADATA 10
BEGIN
  KEY "da data"
  PROMPT 60 2 "Dal "
END

STRINGA FH_ADATA 10
BEGIN
  KEY "a data"
  PROMPT 60 3 "Al  "
END

NUMERO FH_PAGINA 3
BEGIN
 KEY "Nr. pagina"
 PROMPT  100 2 "Pag. "
 MESSAGE _PAGENO
END

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

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

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

STRINGA -1
BEGIN
  KEY "descrizione produttore(cover user10)"
  PROMPT 75 5 "@bProduttore"
END

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

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

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

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

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

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

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

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

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

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

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

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

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

END

//____________BODY___________________//

SECTION BODY ODD 1

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

STRINGA FF_PRODUCER
BEGIN
  KEY "produttore"
  PROMPT 75 1 ""
  FIELD LF_ANAMAG->USER10
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
 
  SECTION FORNITORI2 1 0 0 FILE LF_RIGHEDOC GROUP LF_DOC->CODCF
  
  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