Histórico da Página
Ponto de entrada MNTA2327
na validacao do campo contadorpara 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 |
nConta
1 nConta == 2 //Campo Contador |
2 dbSelectArea("TT8") // Informações do tanque de combustivel. |
dbSetOrder(2) |
If
If dbSeek(xFilial("TT8")+cCodBem+"1") |
If TT8->TT8_MEDIA > 0 .Or. TT8->TT8_CAPMAX > |
nKmB :=
0 nKmB := TT8->TT8_MEDIA * TT8->TT8_CAPMAX //Média e Capacidade |
If nPOSCONT > nKmB
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 := .F. EndIf EndIf EndIf EndIf Return lRet |