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 2

changes.mady.by.user Fabiane Schulze

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 alterar o redespachante mesmo que o romaneio esteja com situação Liberado

Localização:

Na tela "Redespachantes" do programa Romaneio (GFEA050)

Localização:

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

Programa Fonte:

GFEA050 - Romaneio de Carga

Parâmetros:Nenhum parâmetro necessita ser enviado.

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

Retorno:

Nada é retornado.
Nome






Bloco de código
languagedelphi
firstline1
titleExemplo: GFEA0508
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