Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

GFEA5236 - Possibilidade de incluir regras na entrada em Endereços no programa Operar Pto Controle

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada

Descrição:

Permite a inclusão de regras/validações antes da execução de alguma opção do menu 'Registrar Informações' através do programa Operar Pto Controle.

Localização:

Na ação menuclick2, ao acionar alguma das ações do menu 'Registrar Informações' de Endereços

Programa Fonte:

GFEA523

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet5236

Ao entrar no menu click antes de selecionar qual tarefa deverá executar.

Serão enviadas as seguintes informações:

cFilGX3: Filial da GX3

cMov: Número do Movimento

cOper: Número da Operação

cSeq: Sequencia Operação

cPtCt: Código do Ponto de Controle

nClick: Numero do menu clicado

cSeqGX4: Sequencia Movimentação Ponto Controle, conforme lista a seguir.

  1. Chegada 
  2. Início da Carga/Descarga
  3. Fim da Carga/Descarga
  4. Liberação
  5. Saída
  6. Trocar Endereço
  7. Desfazer Endereçamento

Sim

Observação

Tabelas GX3 e GX4 estão posicionadas no momento da execução do ponto de entrada.

Bloco de código
languagedelphi
firstline1
titleExemplo GFEA5225
#INCLUDE 'PROTHEUS.CH'
User Function GFEA5236()
    Local cFilGX3 	:= PARAMIXB[1]   
	Local cMov   	:= PARAMIXB[2]
    Local cOper 	:= PARAMIXB[3]
    Local cSeq 		:= PARAMIXB[4]
    Local cPtCt 	:= PARAMIXB[5]
	Local nClick 	:= PARAMIXB[6]
	Local cSeqGX4 	:= PARAMIXB[7]
    Local lRet5236 	:= .T.

    GX4->(dbSetOrder(1))
    If GX4->(dbSeek(cFilial + cNrMov)) 
		If nClick == 1
        	lRet5236 := .F.
		EndIf
	EndIf 

Return lRet5236