Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA420

O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA232 

Rodados

Cadastros Iniciais:

- Família de Bens
- Veículo
- Serviços
- Pneu
- Estrutura
- O.S. Corretiva

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

ST6 - Familia de Bens
ST9 - Bem
ST4 - Servicos de Manutencao
STJ - Ordens de Serv de Manutenção

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:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Determina se a validação estará correta, caso retorne .T. dará continuidade ao processo.

Sim

MNTA2327
#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