Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite alterar informações da O.S. corretiva após o processo de gravação ( Fora do controle de transação )

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos / SIGAGFR - Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA420

O.S. Corretiva

Ponto de Entrada

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.


Atenção

Este ponto de entrada tem como diferencial, estar fora do controle de transação do sistema.

Para realizar a mesma customização, porém com a ressalva do controle de transação, utilizar o ponto de entrada MNTA420P.

Programa Fonte:

MNTA420.prx

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.

 

Exemplo do P.E. 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