Histórico da Página
Ponto de entrada
MNTA231C em RodadosMNTA2327 para validação dos campos de contador 1 e contador 2.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | Manutenção de Ativos | ||||||||||
Rotina: |
| ||||||||||
Cadastros Iniciais: | - Família de Bens | ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Tabelas Utilizadas: | ST6 - Familia de Bens | ||||||||||
Sistema(s) Operacional(is): | Windows e Linux |
Descrição
Realizado inclusão de ponto de entrada 'MNTA231C' antes da chamada da função 'NGCHKHISTO'MNTA2327' na validação dos campos Contador 1 e Contador 2, para que o usuário escolha a verificação de histórico que será feitaseja validado o valor informado.
Ponto de Entrada
Descrição: | Ponto de entrada ' |
MNTA2327' na validação dos campos Contador 1 e Contador 2. | |
Localização: | Atualizações > Controle de Oficina > Ordem de Serviço > Corretiva > Rodados. |
Eventos: | Rodados |
Programa Fonte: |
MNTA232.prx |
Função: |
CriaCabecalho() | |||||||||
Retorno: |
|
Bloco de código |
---|
|
| |
#Include 'Protheus.ch' |
User Function |
MNTA2327() |
Local lRet := .T. |
Local BEMPAI
Local nKmB := 0 Local nPOSCONT := PARAMIXB[1] |
Local dDTDATEM
//Valor informado do contador. Local cCodBem := PARAMIXB[2] |
Local nCONTAD
//Código do Bem. Local nConta := PARAMIXB[3] |
Local cVHORCON := PARAMIXB[4]
Local nTIP := PARAMIXB[5]
If !NGCHKHISTO(cBEMPAI,dDTDATEM,nCONTAD,cVHORCON,nTIP,,.T.)
lRet := .F.
Endif
//Contador posicionado. If nConta == 1 .Or.; //Campo Contador 1 nConta == 2 //Campo Contador 2 dbSelectArea("TT8") // Informações do tanque de combustivel. dbSetOrder(2) If dbSeek(xFilial("TT8")+cCodBem+"1") If TT8->TT8_MEDIA > 0 .Or. TT8->TT8_CAPMAX > 0 nKmB := TT8->TT8_MEDIA * TT8->TT8_CAPMAX //Média e Capacidade Máxima. If nPOSCONT > nKmB msgStop("O valor informado do contador é superior a capacidade do veículo.") lRet := .F. EndIf EndIf EndIf EndIf Return lRet |