Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Joao Leonardo Schmidt

Gravado em

Chave

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

...

GFEA0509 - PERMITIR ALTERAR O REDESPACHANTE

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada:GFEA0508GFEA0509

Descrição:

Possibilidade de executar procedimentos ao final do cálculo do romaneio de carga.

Permitir que a alteração dos redespachantes ocorra mantendo o romaneio com a situação Liberado. Esse ponto não tem por objetivo atender a alteração dos redespachantes em si, apenas permitir utilizar a função padrão de alteração mantendo o romaneio em aberto durante o processo. Demais validações realizadas pelo processo de alteração de redespachantes continuarão a serem executadas.

Localização:

Na tela Redespachantes do programa Romaneios de Carga (GFEA050)

Localização:

Chamado no final da função que calcula o Romaneio.

Programa Fonte:

GFEA050 - Romaneio de Carga

Parâmetros:

NomeTipoDescriçãoObrigatório
nOpcNuméricoIndica se a operação realizada em tela é uma inclusão (1) ou alteração (2)Sim

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógicoRetorna se deve ser realizada a validação da reabertura do embarque (não interfere nas demais validações para alteração de redespachantes)Sim

Nenhum parâmetro necessita ser enviado.

Retorno:

Nada é retornado.
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEA0508GFEA0509
linenumberstrue
#INCLUDE "PROTHEUS.CH"
User Function GFEA0508GFEA0509()
	If GWN->GWN_CALC == "1" //Calculado com sucesso
		Reclock("GWN",.F.)
		GWN->GWN_OBS := "Em processo de contabilização"
		GWN->(MsUnlock())
	EndIf
Return 
	Local lRet := .T.
	Local nOpc := PARAMIXB[1]
	
	if nOpc == 2
		lRet := .F.
	endif
Return lRet