Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

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

Gravado em

comparado com

Nova versão 2

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

Gravado em

Chave

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

GFEA0506 - Validações adicional na alteração do romaneio

Características do Requisito

Linha de Produto:

Protheus

Segmento:

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

:

.

 

PARAMIXB[1] =

  • Recebe "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 GFEA0502()
Local lRetorno := .T.
Local cPrograma := PARAMIXB[1]
	
	If cPrograma  == "7" .And. GWN->GWN_ORI == "2"
		lRetorno := .F.
	EndIf
 
Return lRetorno