Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

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

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):

Todos
MNTA232Esquema de Rodados Gráfico

Ponto de Entrada

Descrição:

Ponto de entrada executado

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

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

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

Programa Fonte:

MNTA231.prx

Função:

MNTA2318()Retorno

MNTA232.prw

Parâmetros:
NomeTipoDescrição
ObrigatórionSulco
ParamIXB[1]CaracterCódigo do Pneu para pegar o Sulco.
ParamIXB[2]Numérico
Carrega

Indica o

sulco do PneuX

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.
Bloco de código
languagesql
titleExemplo do P.E. MNTA2318
linenumberstrue
#Include 'Totvs.ch'
Bloco de código
titleExemplo do Ponto de Entrada MNTA2318()
#Include 'Protheus.ch'

User Function MNTA2318(cPneu)

	    
    Local aAreaTQS := TQS->( GetArea() )
    Local nSulco   := 0
	
	MsgInfo("Ponto de Entrada para Carregar o Sulco do pneu '"+AllTrim(cPneu)+"'.","P.E. MNTA2318")
	
Return nSulco
    Local cPneu    := ParamIXB[1]
    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