Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 minutos


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA2327()
País:Brasil


02. DESCRIÇÃO

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.

Programa Fonte:

MNTA231.PRW

MNTA232.PRW

Função:

MNTA2327()

Retorno:

NomeTipoDescriçãoObrigatório

lRet

Lógico

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

Sim

03. DEMAIS INFORMAÇÕES

Exemplo 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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.