Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA420V()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada acionado antes da gravação dos insumos no processo de alteração.

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Ordens de Serviço > Corretiva.

Programa Fonte:

MNTA420.prw

Função:

MNTA420V()

Parâmetros:

NomeTipoDescriçã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].


03. DEMAIS INFORMAÇÕES

Exemplo MNTA420V()
#Include 'Protheus.ch'

User Function MNTA420V()

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 após a alteração
For nX := 1 To Len( aGetIns )

If !Empty( aGetIns[nx, 1] ) .And. !aGetIns[nx, Len( aGetIns[nX] )]
nInsAtu++
EndIf

Next nX

//Conta quantos insumos tinha antes da alteração
For nX := 1 To Len( aGetInSal )

If !Empty( aGetInSal[nx, 1] )
nInsAnt++
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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.