Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (amanda.vieira)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (luciene.sousa)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

GFEA0514 - Validação

...

Antes de

...

Registrar a

...

Entrega do

...

Trecho

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e 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 entregaEntrega

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
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEA0514
linenumberstrue
#INCLUDE "PROTHEUS.CH"
User Function GFEA0514()
Local lRetorno := .FT.
 
	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