Á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

GFEA5235 -

P.E. Executado ao clicar no menu lateral antes de executar qualquer ação do click.

Possibilidade de incluir regras na entrada de veículo 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 verificação de qual 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 menuclick, ao acionar alguma das ações do menu 'Registrar Informações'

Programa Fonte:

GFEA523

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet5235

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. Entrada
  2. Endereçar
  3. Check-List
  4. Doc Carga
  5. ara
  6. Pesagem
  7. Concluir
  8. Retornar
  9. Resumo Pto. Controle
  10. Imprimir Checklist
  11. Hodômetro
  12. Dados Complementares
  13. Avaliar Reprovação
    Ocorrência
  14. -----
  15. Ocorrência
  16. Qtd Doc Carga
  17. Unitizadores
  18. Ver agendamentos

Sim

Observação

Importante inserir mensagem de aviso ao usuário via ponto de entrada, pois o ponto de entrada não prevê essa situação.

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

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

    GX4->(dbSetOrder(1))
    If GX4->(dbSeek(cfilialcFilial + cNrMov)) 
		If nClick == "1"
        	lRet5235 := .F.
    
		EndIf
	EndIf 

Return lRet5235