Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"
#INCLUDE "PARMTYPE.CH" 
USER FUNCTION GFEA0504()

	Local cNrFilial     := AllTrim(PARAMIXB[1])
	Local cNrRom        := PARAMIXB[2]
	Local cNrTransp     := AllTrim(GWN->GWN_CDTRP)
	Local cCodigo       := ""

	//EXEMPLO
	IF cNrFilial == "D MG 01" .OR. cNrFilial == "D MG 02"
		cNrFilial := "D MG 03"
		MsgAlert("Filial inválida. Foi alterado para " + cNrFilial)
	ENDIF
	
	cCodigo := cNrRom + cNrTransp

RETURN cCodigo