Á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 - 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 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
  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]   
	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 lRet5235 	:= .T.

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

Return lRet5235