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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas