Ponto de entrada que permite realizar a customização de gravação específica na rotina de Complemento de Sinistros (MNTA545)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
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. |
Programa Fonte: | MNTA545.prx |
Localização: | SIGAMNT: Atualizações/Controle de Riscos/Sinistros/Complemento de Sinistros |
Função: | MNTA5451() |
Retorno: | Nulo |
Exemplo do Ponto de Entrada 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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas