Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Ponto de Entrada - GFEA0506

GFEA0506 - Validações Adicionais  na Alteração do Romaneio

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada:GFEA0506

Descrição:

Possibilidade de efetuar validações antes de realizar qualquer alteração do Romaneio.

Localização:

Chamado no início das funções:

  • Relacionar os documentos de carga (1);.
  • Reabertura do romaneio(2);.
  • Exclusão do romaneio (3);.
  • Alteração do romaneio (4);.
  • Bloqueio do romaneio (5);.
  • Ajuste de cálculo de frete (6);.
  • Redespachantes (Inclusão e Alteração) (7);.

Programa Fonte:

GFEA050 - Romaneio de Carga

Parâmetros:O ponto de entrada envia o seguinte parâmetro para a função:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]
pode receber diferentes valores conforme o
Caractere

Recebe o valor de acordo com a função em que é chamado

:

. 

  • Recebe
 PARAMIXB[1] =
  • "1" se chamado da função de Relacionar os Documentos de Carga;
PARAMIXB[1] =
  •  Recebe "2" se chamado da função de Reabertura do Romaneio;
PARAMIXB[1] =
  •  Recebe "3" se chamado da função de Exclusão do Romaneio;
PARAMIXB[1] =
  •  Recebe "4" se chamado da função de Alteração do Romaneio;
PARAMIXB[1] =
  •  Recebe "5" se chamado da função de Bloqueio do Romaneio;
PARAMIXB[1] =
  •  Recebe "6" se chamado da função de Ajuste de Cálculo de Frete;
PARAMIXB[1] =
  •  Recebe "7" se chamado da função de Redespachantes.
 
Sim

Retorno:

NomeTipoDescriçãoObrigatório
lRetornoLógicoVerdadeiro(.T.) ou
Falso
falso(.F.) conforme o resultado da validação.Sim
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEA0506
linenumberstrue
#INCLUDE "PROTHEUS.CH"
User Function GFEA0506()
Local lRetorno := .T.
Local cPonto := PARAMIXB[1]
	
	//Realiza a validação necessária em um ou mais pontos do programa de romaneio de carga
	If cPonto   == "7" .And. GWN->GWN_ORI == "2"
		lRetorno := .F.
	EndIf
 
Return lRetorno