Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 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:MNTA4903()
País:Brasil


02. DESCRIÇÃO

Descrição:

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

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Liberação de OS 

Programa Fonte:

MNTA490.prw

Função:

MNTA4903()

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]CarácterRotina que realizou a chamada do P.E. (MNTA265 e MNTA490).

ParamIXB[4]

Array

Array contendo os campos que serão apresentados nos Arrays ParamIXB[1] e ParamIXB[2].

03. DEMAIS INFORMAÇÕES

Exemplo MNTA4903()
#Include 'Protheus.ch'
 
User Function MNTA4903()
  
    Local aGetIns   := ParamIXB[1]
    Local aGetInSal := ParamIXB[2]
    Local cOrigem   := ParamIXB[3]
    Local aHead     := ParamIXB[4]
    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.