Á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
GFEA5234 - P.E. Executado ao clicar no menu lateral antes de executar qualquer ação do click.

GFEA5235 - 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

 lRet5234 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 GFEA5224GFEA5225
#INCLUDE 'PROTHEUS.CH'
User Function GFEA5234GFEA5235()
    
 Local cFilGX3 	:= PARAMIXB[1]   
	Local cMov cOper  	:= PARAMIXB[12] 
    Local cOper 	:= PARAMIXB[23]
    Local cSeq 		:= PARAMIXB[34]
    Local cPtCt 	:= PARAMIXB[45]
	Local nClick 	:= PARAMIXB[6]
	Local cSeqGX4 	:= PARAMIXB[57]
    Local lRet5234lRet5235 	:= .T.

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

Return lRet5234lRet5235