Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

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

Gravado em

comparado com

Nova versão 9

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

Gravado em

Chave

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

GFEA0506 - Validações

adicionais  na alteração

Adicionais  na Alteração do

romaneio

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:

NomeTipoDescriçãoObrigatório
PARAMIXB[1] Caractere

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

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

Retorno:

NomeTipoDescriçãoObrigatório
lRetornoLógicoVerdadeiro(.T.) ou 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 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