Histórico da Página

Ponto de entrada que permite incluir tratativas no processo de gravação dos insumos alterados.

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
MNTA420	O.S. Corretiva

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 acionado antes da gravação dos insumos no processo de alteração.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Eventos:

Corretiva (MNTA420)

Programa Fonte:

MNTA420.prx

Função:

NG420ALTE()

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]	Array	Array contendo os campos que serão apresentados nos Arrays ParamIXB[1] e ParamIXB[2].

Bloco de código

language	sql
title	Exemplo: PE MNTA420TMNTA420V
linenumbers	true

#Include 'Protheus.ch'

User Function MNTA420TMNTA420V()

    Local aGetIns   := ParamIXB[1]
    Local aGetInSal := ParamIXB[2]
    Local aHead     := 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