Histórico da Página

Ponto de entrada que permite realizar comparativo de modificação de insumos.

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
MNTA490	Liberação O.S.
MNTA420	O.S. Corretiva

Rotina Relacionadas:

Rotina	Nome Técnico
MNTA265	Alteração de O.S.

Chamados Relacionados

MNG-3504

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada que permite realizar comparativo de modificação de insumos.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Liberação de O.S.

Eventos:

Liberação de O.S. (MNTA490)

Programa Fonte:

MNTA490.prx

Função:

MNTA490INS()

Parâmetros:

Nome	Tipo	Descrição
ParamIXB[1]	Array	Array contendo os insumos da O.S. após o processo de alteração.
ParamIXB[2]	Array	Array contendo os insumos antes o processo de alteração.
ParamIXB[3]	Carácter	Rotina que realizou a chamada do P.E. (MNTA265, MNTA420 e MNTA490).

Posição	Tipo	Descrição
Estrutura dos Arrays (ParamIXB[1] e ParamIXB[2])
Array[x][1]	Carácter	Código da Tarefa
Array[x][2]	Carácter	Tipo do Insumo
Array[x][3]	Carácter	Código do Insumo
Array[x][4]	Carácter	Descrição do Insumo
Array[x][5]	Carácter	Utiliza Calendário? (S/N)
Array[x][6]	Numérico	Quantidade de Recurso
Array[x][7]	Numérico	Quantidade Insumo
Array[x][8]	Carácter	Unidade de Medida do Insumo
Array[x][9]	Carácter	Destino de Aplicação
Array[x][10]	Data	Data Inicio Aplicação
Array[x][11]	Carácter	Hora Inicio Aplicação
Array[x][12]	Carácter	Almoxarifado
Array[x][13]	Carácter	Número da Solicitação de Compra
Array[x][14]	Carácter	Item da Solicitação de Compra
Array[x][15]	Numérico	Posição 1° Contador
Array[x][16]	Numérico	Posição 2° Contador
Array[x][17]	Carácter	Nota Fiscal
Array[x][18]	Carácter	Série Nota Fiscal
Array[x][19]	Carácter	Código Fornecedor
Array[x][20]	Carácter	Loja Fornecedor
Array[x][21]	Carácter	Número da Solicitação de Armazém
Array[x][22]	Carácter	Item da Solicitação de Armazém
Array[x][23]	Carácter	Sequência Tarefa
Array[x][24]	Numérico	Percentual Executado
Array[x][25]	Carácter	Código AEN
Array[x][26]	Carácter	Alias de Origem
Array[x][27]	Numérico	Recno do Registro
Array[x][28]	Lógico	Define se o Registro está(.T.) ou não(.F.) deletado

Bloco de código

language	sql
title	Exemplo: PE MNTA4903
linenumbers	true

#Include 'Protheus.ch'


User Function MNTA4903()

    Local aGetIns   := ParamIXB[1]
    Local aGetInSal := ParamIXB[2]
    Local cOrigem   := ParamIXB[3]
    Local nX        := 0 
    Local nInsAnt   := 0 
    Local nInsAtu   := 0 
    
    //Conta quantos insumos tinha antes da alteração
    For nX := 1 To Len( aGetInSal )
        
        If !Empty( aGetIns[nx, 1] )
            nInsAnt++
        EndIf
    
    Next nX
    
    //Conta quantos insumos tinha após a alteração
    For nX := 1 To Len( aGetIns )
    
        If !Empty( aGetInSal[nx, 1] )
            nInsAtu++
        EndIf
    
    Next nX 
    
    MsgInfo( 'Quantidade de insumos antes da alteração ' + cValtoChar( nInsAnt ) + CHR( 10 ) +;
             'Quantidade de insumos depois da alteração ' + cValtoChar( nInsAtu ) )

Return

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave

Características do Requisito

Ponto de Entrada