Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Cristiano Kair

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

Ponto de entrada que carrega o sulco

...

do Pneu no Esquema de Rodados 

Características do Requisito

Todos

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA231

Movimentação do
Esquema de Rodados 

Rotina(s) envolvida(s)

Nome Técnico

MNTA2318

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

MNTA232Esquema de Rodados Gráfico

Ponto de Entrada

na rotina de Movimentação do Esquema de Rodados (MNTA231) que carrega o sulco para o Pneu

Descrição:

Ponto de entrada executado

nas rotinas de movimentação de rodados, onde possibilita que seja carregado o sulco para do pneu.

Localização:SIGAMDISIGAMNT: Atualizações /> Controle de Oficina /> Ordem de Serviço /> Corretiva > Rodados.

Programa Fonte:

MNTA231.prx

Função:

MNTA2318()

MNTA232.prw

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterCódigo do Pneu para pegar o Sulco.

Retorno:

NomeTipoDescriçãoObrigatório
nSulcoNuméricoCarrega o sulco do PneuX
ParamIXB[2]Numérico

Indica o processo de acionamento do P.E. podendo ser:

1 - Saída de Pneu

2 - Troca entre posições

3 - Transferência

ParamIXB[3]NuméricoValor previamente carregado pelo sistema para o sulco.

Retorno:

Valor do sulco para o pneu.
code
Bloco de código
languagesql
titleExemplo do Ponto de Entrada MNTA2318()P.E. MNTA2318
linenumberstrue
#Include 'Totvs.ch'
 
User Function MNTA2318()

	    
    Local aAreaTQS := TQS->( GetArea() )
    Local nSulco   := 1
	0
    Local cPneu    := ParamIXB[1]

	MsgInfo("Ponto de Entrada para Carregar o Sulco do pneu '"+AllTrim(cPneu)+"'.","P.E. MNTA2318")

Return nSulco]
    Local nProcess := ParamIXB[2]
    Local nSulco1  := ParamIXB[3]

    Do Case

        Case nProcess == 1 // Saída de pneus da estrutura.
 
            nSulco := Posicione( 'TQS', 1, xFilial( 'TQS' ) + cPneu, 'TQS_SULCAT' )

        Case nProcess == 2 // Troca de posição entre pneus na estrutura.

            nSulco := 0

        Case nProcess == 3 // Transferência de pneus.

            nSulco := 30

        OtherWise

            nSulco := nSulco1
    
    End Case

    RestArea( aAreaTQS )
 
Return nSulco