Histórico da Página

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

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.

Informações

title	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ção	Tipo	Descrição
ParamIXB[1]	Integer	Indica a operação que está sendo executada. ( 3 - Inclusão, 4 - Alteração e 5 - Exclusão )
ParamIXB[2]	Array	Lista dos insumos previstos reportados para a O.S.
ParamIXB[3]	Numeric	Lista dos campos disponíveis ao informar algum insumo.
ParamIXB[3]	Array	Backup dos insumos previstos antes de qualquer alteração na rotina.

Bloco de código

language	sql
theme	Eclipse
title	Exemplo do P.E. MNTA420Z
linenumbers	true

#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

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave

Características do Requisito

Ponto de Entrada