Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"
#INCLUDE "PARMTYPE.CH"

USER FUNCTION GFEA0504()

	Local cNrFilialcFilial     := PARAMIXB[1]
	Local cNrRom        := PARAMIXB[2]
	Local cNrTransp     := GWN->GWN_CDTRP
	Local cCodigo       := ""

	//Exemplo de utilização
	IF cNrFilialcFilial == "D MG 01" .OR. cNrFilialcFilial == "D MG 02"
		cNrFilialcFilial := "D MG 03"
		    MsgAlert("Filial inválida. Foi alterado para " + cNrFilialcFilial)
	ENDIF

	cCodigo := cNrRom + cNrTransp

RETURN