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:MNTA420Z()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada que permite alterar informações da O.S. corretiva, após o processo de gravação e fora do controle de transação da rotina.

Localização:

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

Programa Fonte:

MNTA420.prw

Função:

MNTA420Z()

Parâmetros:

PosiçãoTipoDescrição
ParamIXB[1]IntegerIndica a operação que está sendo executada. ( 3 - Inclusão, 4 - Alteração e 5 - Exclusão )
ParamIXB[2]ArrayLista dos insumos previstos reportados para a O.S.
ParamIXB[3]NumericLista dos campos disponíveis ao informar algum insumo.
ParamIXB[3]ArrayBackup dos insumos previstos antes de qualquer alteração na rotina.


03. DEMAIS INFORMAÇÕES

Exemplo MNTA420Z()
#Include 'Totvs.ch'
 
User Function MNTA420Z()
     
    Local nOpcX  := ParamIXB[1]
    Local aCols  := ParamIXB[2]
    Local aHead  := ParamIXB[3]
    Local aClOld := ParamIXB[4]
 
    Local nInd   := 0
    Local nPosSA := 0
    Local nPosQt := 0
 
    If nOpcX == 4
 
        nPosSA := GdFieldPos( 'TL_NUMSA', aHead )
        nPosQt := GdFieldPos( 'TL_QUANTID', aHead )
         
        For nInd := 1 To Len( aClOld )
 
            If !Empty( aClOld[nInd,nPosSA] ) .And. aCols[nInd,nPosQt] != aClOld[nInd,nPosQt]
 
                MsgInfo( 'Este insumo possui S.A. e teve sua quantidade alterada!' )
 
            EndIf
             
        Next nInd
 
    EndIf
 
Return


04. ASSUNTOS RELACIONADOS

  • Não se aplica.