Histórico da Página
Ponto de entrada MNTA2327 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 'MNTA2327' na validação dos campos Contador 1 e Contador 2, para que seja 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 nKmB := 0 Local nPOSCONT := PARAMIXB[1] //Valor informado do contador. Local cCodBem := PARAMIXB[2] //Código do Bem. Local nConta := PARAMIXB[3] //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 |