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 6

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

Movimentação do

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

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

SIGAMDI///MNTA2318

Descrição:

Ponto de entrada executado na rotina de Movimentação do Esquema de Rodados (MNTA231) que carrega o sulco para o Pneunas rotinas de movimentação de rodados, onde possibilita que seja carregado o sulco para do pneu.

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

Programa Fonte:

MNTA231.prx

MNTA232.prw

Função:

MNTA231MTV()

DLGPNEU()

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:

TipoDescrição
NuméricoValor 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