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: |
|
Ponto de Entrada
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: |
| ||||||||||||
Retorno: | |||||||||||||
Tipo | Descrição | Valor do sulco para o pneu. |
---|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas