Histórico da Página
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: |
| |||||||
Situações GX3 | As situações da tabela GX3 - Movimentação, podem ser: 1=Aberto;2=Movimentado;3=Em Fila;4=Endereçado;5=Cancelado;6=Concluído | |||||||
| ||||||||
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. | Situações GX4 | As situações da tabela GX4 - Movimentação Ponto de Controle, podem ser: 1=Não avaliado;2=Aprovado;3=Reprovado |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE 'PROTHEUS.CH' User Function GFEA5233GFEA5235() Local cFilGX3 := PARAMIXB[1] Local cMov := PARAMIXB[2] Local cFilicOper := PARAMIXB[13] Local cNrMovcSeq := PARAMIXB[24] Local cSitGX3cPtCt := PARAMIXB[35] Local nClick := PARAMIXB[6] Local cSitGX4cSeqGX4 := PARAMIXB[47] Local lRet5233lRet5235 := .FT. GX4->(dbSetOrder(1)) If GX4->(dbSeek(cFilicFilial + cNrMov)) If nClick == "1" lRet5233 lRet5235 := .TF. EndIf EndIf Return lRet5233lRet5235 |