GFEA0504 - Validação Adicional dos Romaneios

Características do Requisito

Linha de Produto:	Microsiga Protheus
Segmento:	Supply Chain - Logística
Módulo:	SIGAGFE

Ponto de Entrada:

GFEA0504

Descrição:

Permite realizar validação adicional aos romaneios

Localização:

Onde efetua a entrega do primeiro trecho do romaneio

Programa Fonte:

GFEA050 - Cadastro de Romaneios

Parâmetros:

Nome	Tipo	Descrição
PARAMIXB[1]	Caractere	Número da Filial
PARAMIXB[2]	Caractere	Número do Romaneio

GWN→GWN_FILIAL
GWN->GWN_NRROM

Retorno:

A função retorna um valor lógico falso.

#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       := ""

	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