Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Guilherme Fre

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jean Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada

MNTA231C em Rodados

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

MNTA231

Rotina(s) envolvida(s)

Nome Técnico

Esquema de Pneus

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 'MNTA231C' antes da chamada da função 'NGCHKHISTO'MNTA2327' na validação dos campos Contador 1 e Contador 2, para que o usuário escolha a verificação de histórico que será feitaseja validado o valor informado. 


Ponto de Entrada

Descrição:

Ponto de entrada '

MNTA231C' anterior a chamada da função 'NGCHKHISTO'

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:

MNTA420

MNTA232.prx

Função:

MNTA231HIS

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

Bloco de código
 
title
Exemplo:
MNTA2327
#Include 'Protheus.ch'


User Function
MNTA231C
 MNTA2327()


Local lRet := .T.

Local BEMPAI 

Local nKmB := 0
Local nPOSCONT := PARAMIXB[1]

Local dDTDATEM 
 //Valor informado do contador.
Local cCodBem := PARAMIXB[2]

Local nCONTAD 
 //Código do Bem.
Local nConta := PARAMIXB[3]

Local cVHORCON := PARAMIXB[4]
Local nTIP := PARAMIXB[5]

If !NGCHKHISTO(cBEMPAI,dDTDATEM,nCONTAD,cVHORCON,nTIP,,.T.)
    lRet := .F.
Endif

Return 
 //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