Histórico da Página

...

.

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
MNTA232	Esquema de Rodados Gráfico

Ponto de Entrada

MNTA231MTV()

DLGPNEU()Numérico

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:

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

Programa Fonte:

MNTA231.prx

MNTA232.prw

Função:

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]

Caracter

Código do Pneu para pegar o Sulco.

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érico

Valor previamente carregado pelo sistema para o sulco.

Retorno:

Tipo

Descrição

Valor do sulco para o pneu.

Bloco de código

language	sql
title	Exemplo do P.E. MNTA2318
linenumbers	true

#Include 'Totvs.ch'
 
User Function MNTA2318()
    
    Local aAreaTQS := TQS->( GetArea() )
    Local nSulco   := 0
    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

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave

Ponto de Entrada