Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (amanda.vieira), última alteração por Usuário desconhecido (luciene.sousa) em 24 ago, 2016

GFEA0514 - Validação Antes de Registrar a Entrega do Trecho

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada:GFEA0514

Descrição:

Possibilidade de efetuar validações antes de abrir a tela para registrar a entrega

Localização:

Chamado antes de abrir a tela para informar a entrega.

Programa Fonte:

GFEA051 - Registro de Entrega

Parâmetros:

Nenhum parâmetro necessita ser enviado.

Retorno:

NomeTipoDescriçãoObrigatório
lRetornoLógicoRetorna se o romaneio passou nas validações: verdadeiro(.T.) ou falso(.F.).Sim
Exemplo: GFEA0514
#INCLUDE "PROTHEUS.CH"
User Function GFEA0514()
Local lRetorno := .T.
 
	dbSelectArea('GW1')
	GW1->(dbSetOrder(1)) //GW1_FILIAL+GW1_CDTPDC+GW1_EMISDC+GW1_SERDC+GW1_NRDC
	
	If GW1->(dbSeek(GWU->(GWU_FILIAL+GWU_CDTPDC+GWU_EMISDC+GWU_SERDC+GWU_NRDC)))
		If GW1->GW1_TPFRET == "6"
			Help( ,, 'HELP',, "Trecho inválido para registro de entrega.", 1, 0,)
			lRetorno := .F.
		EndIf
	EndIf

Return lRetorno