#include 'protheus.ch'
#include 'parmtype.ch'
user function PE01NFESEFAZ()
Local aProd     	:= PARAMIXB[1]
Local cMensCli  	:= PARAMIXB[2]
Local cMensFis  	:= PARAMIXB[3]
Local aDest     	:= PARAMIXB[4] 
Local aNota     	:= PARAMIXB[5]
Local aInfoItem 	:= PARAMIXB[6]
Local aDupl     	:= PARAMIXB[7]
Local aTransp   	:= PARAMIXB[8]
Local aEntrega  	:= PARAMIXB[9]
Local aRetirada 	:= PARAMIXB[10]
Local aVeiculo  	:= PARAMIXB[11]
Local aReboque  	:= PARAMIXB[12]
Local aNfVincRur	:= PARAMIXB[13]
Local aEspVol     	:= PARAMIXB[14]
Local aRetorno      := {}
Local aAreaSB1nPesoLiq		:= {}
Local aAreaSAH		:= {}0
Local nPesoBr		:= 0
Local nPesoLiq		:= 0
Local y x				:= 0
Local nPos cScan			:= 0
Local x				:= 0"1"
//O retorno deve ser exatamente nesta ordem e passando o conteúdo completo dos arrays
//pois no rdmake nfesefaz é atribuido o retorno completo para as respectivas variáveis
//Ordem:
//      aRetorno[1] -> aProd
//      aRetorno[2] -> cMensCli
//      aRetorno[3] -> cMensFis
//      aRetorno[4] -> aDest
//      aRetorno[5] -> aNota
//      aRetorno[6] -> aInfoItem
//      aRetorno[7] -> aDupl
//      aRetorno[8] -> aTransp
//      aRetorno[9] -> aEntrega
//      aRetorno[10] -> aRetirada
//      aRetorno[11] -> aVeiculo
//      aRetorno[12] -> aReboque
//      aRetorno[13] -> aNfVincRur
//      aRetorno[14] -> aEspVol
aAreaSB1 := SB1->(GetArea())//Salvando area para não perder o posicionamento
aAreaSAH := SAH->(GetArea())
dbSelectArea("SB1")//Abrindo Area SB1 Tabela de produto
dbSetOrder(1)
dbSelectArea("SAH")//Abrindo Area SAH Tabela de unidade de medida
dbSetOrder(1)
For y := 1 to len(APROD)//Loop que percorre o Array produto para alimentar o peso liquido e peso bruto
	If SB1->(MsSeek(xFilial("SB1")+APROD[Y][2]))
	nPesoBr		:= SB1->B1_PESBRU
	nPesoLiq	:= SB1->B1_PESO
		If SAH->(MsSeek(xFilial("SAH")+APROD[Y][11])) //Condição que verifica unidade de medida para calcular o peso liquido e peso bruto a partir do Volume x unidade de medida.
	SF2")
If SF2->F2_DOC == aNota[2]
	For x:=1 to Len(aEspVol)
		cEspecie := Upper(FieldGet(FieldPos("F2_ESPECI"+cScan)))
		If nPos:= aScan(aEspVol,{|x| alltrim(x[1]) == alltrim(SAH->AH_UMRES)})
	cEspecie)})
			nPesoLiq := FieldGet(FieldPos("F2_PLIQUI"+cScan))
			nPesoBr	 :=	FieldGet(FieldPos("F2_PBRUTO"+cScan))
			aEspVol[nPos][3] := APROD[Y][9] * nPesoLiq
				aEspVol[nPos][4] := APROD[Y][9] * nPesoBr
			EndIf
		EndIfcScan:=Soma1(cScan,1)
	EndIf
Next
RestArea(aAreaSB1)//Devolve Area da tabela SB1
RestArea(aAreaSAH)//Devolve Area da tabela SAH
//EndIf
//Alimenta array aRtorno que no nfesefaz será o aParam
aadd(aRetorno,aProd) 
aadd(aRetorno,cMensCli)
aadd(aRetorno,cMensFis)
aadd(aRetorno,aDest)
aadd(aRetorno,aNota)
aadd(aRetorno,aInfoItem)
aadd(aRetorno,aDupl)
aadd(aRetorno,aTransp)
aadd(aRetorno,aEntrega)
aadd(aRetorno,aRetirada)
aadd(aRetorno,aVeiculo)
aadd(aRetorno,aReboque)
aadd(aRetorno,aNfVincRur)
aadd(aRetorno,aEspVol)
	
returnReturn(aRetorno)