Histórico da Página
Ponto de entrada MNTA2327 na validacao do campo contador.
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: |
|
Exemplo:
#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) //TT8_FILIAL+TT8_CODBEM+TT8_TIPO+TT8_CODCOM
If dbSeek(xFilial("TT8")+cCodBem+"1")
If 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 msgStop("O valor informado do contador é superior a capacidade do veículo.")
lRet lRet := .F.
EndIf
EndIf
EndIf
EndIf
Return lRet