Histórico da Página

#Include 'Protheus.ch'
#include "fwmvcdef.ch"  

User Function AG615BNF()   
	Local  cCodFdi	:= PARAMIXB[1]
	Local  cCodEtq	:= PARAMIXB[2]
	Local  cCodFda	:= PARAMIXB[3]
	Local  aDadosPEcProdBN	:= PARAMIXB[4]
	Local  cPrensa	:= PARAMIXB[5]
	Local  cSafra	:= PARAMIXB[6]
	Local  cProdutor	:= PARAMIXB[7]
	Local  cLjPro	:= PARAMIXB[8]
	Local  cCodFaz	:= PARAMIXB[9]
	
	Local cTexto 	:= ""
	
	cTexto := "Teste passando pelo ponto de entrada AG615BNF: " + CRLF
	cTexto += "Param1 cCodFdicódigo fardinho = " + aDadosPE[1]cCodFdi + CRLF
	cTexto += "Param2 código cCodEtqetiqueta = " + aDadosPE[2]cCodEtq + CRLF
	cTexto += "Param3 código cCodFdafardão = " + aDadosPE[3]cCodFda + CRLF
	cTexto += "Param4 cProdBNcódigo produto beneficiado = " + aDadosPE[4]cProdBN + CRLF
	cTexto += "Param5 cPrensacódigo prensa = " + aDadosPE[5]cPrensa + CRLF
	cTexto += "Param6 código cSafrasafra = " + aDadosPE[6]cSafra + CRLF
	cTexto += "Param7 codigo cProdutorprodutor = " + aDadosPE[7]cProdutor + CRLF
	cTexto += "Param8 cLjProloja produtor = " + aDadosPE[8]cLjPro + CRLF
	cTexto += "Param9 código cCodFazfazenda = " + aDadosPE[9] cCodFaz
	
	MsgAlert(cTexto)
Return nil