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 3

changes.mady.by.user Guilherme Fre

Gravado em

Chave

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

Ponto de entrada

MNTA231C em Rodados

MNTA2327 na validacao do campo contador. 

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

Esquema de Pneus

Rotina(s) envolvida(s)

Nome Técnico

MNTA231

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:

MNTA420MNTA232.prx

Função:


MNTA231HISCriaCabecalho()

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

 

Exemplo:

#Include 'Protheus.ch'

User Function MNTA231CMNTA2327()

Local lRet := .T.
Local BEMPAI nKmB := PARAMIXB[1]0
Local dDTDATEM nPOSCONT := PARAMIXB[2]1] //Valor informado do contador.
Local nCONTAD cCodBem := PARAMIXB[3]
Local cVHORCON := PARAMIXB[4]
Local nTIP := PARAMIXB[5]2] //Código do Bem.

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
EndIfIf !NGCHKHISTO(cBEMPAI,dDTDATEM,nCONTAD,cVHORCON,nTIP,,.T.)
    lRet := .F.
Endif

Return lRet