Histórico da Página

#INCLUDE 'PROTHEUS.CH'

User Function GFEXFB11()   
Local cCdClFr := PARAMIXB[1]
Local nPesoC  := PARAMIXB[2]
Local nPesoR  := PARAMIXB[3]
Local nRet    := 0
Local cMsg    := ""

	If cCdClFr == 'CUBA'
		nRet := nPesCubnPesoC
		cMsg := "PE GFEXFB11 - Peso Cubado utilizado: " + cValToChar(nPesoTnRet) + CRLF
	Else
		nRet := nPesoRealnPesoR
		cMsg := "PE GFEXFB11 - Peso Real utilizado: " + cValToChar(nPesoTnRet) + CRLF
	EndIf

Return {nPesoTnRet,cMsg}