Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA545

Complemento de Sinistro


Rotina(s) envolvida(s)

Nome Técnico

MNTA5451

Ponto de Entrada

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