Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 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:MNTA5451()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Complemento de Sinistro (MNTA545), chamado ao confirmar uma gravação no registro, que permite realizar customizações de gravação específica.

Localização:

SIGAMNT: Atualizações/Controle de Riscos/Sinistros/Complemento de Sinistros

Programa Fonte:

MNTA545.prw

Função:

MNTA5451()

Retorno:

Nulo

03. DEMAIS INFORMAÇÕES

Exemplo MNTA5451()
#Include 'Protheus.ch'
 
User Function MNTA5451()
 
    Local cAlias := PARAMIBX1
    Local nRecno := PARAMIBX2
    Local nOpcx := PARAMIBX3
 
    If nOpcx == 3
        dbSelectArea("ZZ1")
        dbSetOrder(1)
        If dbSeek(xFilial("ZZ1")+TRH->TRH_NUMSIN)
            RecLock("ZZ1",.F.)
        Else
            RecLock("ZZ1",.T.)
            ZZ1->ZZ1_FILIAL := xFilial("ZZ1")
            ZZ1->ZZ1_SINIST := TRH_NUMSIN
        Endif
        ZZ1->ZZ1_DTEVEN := dDataBase
        ZZ1->ZZ1_HREVEN := Time()
        ZZ1->(MsUnLock())
    EndIf
 
Return


04. ASSUNTOS RELACIONADOS

  • Não se aplica.