Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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
titleAtençã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.

 

Bloco de código
languagesql
themeEclipse
titleExemplo do P.E. MNTA420Z
linenumberstrue
#include#Include 'ProtheusTotvs.ch'

User Function MNTA435RMNTA420Z()
    
    Local nOpcX aHeader := ParamIxbParamIXB[1]
    Local aCols   := ParamIxbParamIXB[2]
    Local nLine   aHead  := ParamIXB[3]
    Local aClOld := ParamIxbParamIXB[34]

    Local nInd   := 0
    Local nPosSA := 0
    Local nPosQt := 0

    If GDFieldGet nOpcX == 4

        nPosSA := GdFieldPos( 'TL_TIPOREGNUMSA', nLine, .F., aHeader, aCols ) == 'P'

 aHead )
        nPosQt := GdFieldPos( 'TL_QUANTID', aHead )
        
        For nInd := 1 To Len( aClOld )

          GDFieldPut( 'TL_DTINICI', dDataBase, nLine, aHeader, aCols )
   If !Empty( aClOld[nInd,nPosSA] ) .And. aCols[nInd,nPosQt] != aClOld[nInd,nPosQt]

                GDFieldPutMsgInfo( 'TL_DTFIM'  , dDataBase, nLine, aHeader, aCols )Este insumo possui S.A. e teve sua quantidade alterada!' )

            EndIf
            
        Next nInd

    EndIf

Return aCols