Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validações após a exclusão de um registro de Parte Diária (MNTA851)

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

MNTA851

Parte Diária


Rotina(s) envolvida(s)

Nome Técnico

MNTA851E

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 Parte Diária (MNTA851) após a exclusão de um registro, permitindo realizar vaalidações.

Programa Fonte:

MNTA851.prw
Localização:SIGAMNT: Atualizações/Controle de Oficina/Parte Diária/Parte Diária

Função:

MNTA851E()
Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]NuméricoNúmero do registro de Parte Diária que foi excluído

Retorno:

Nulo
Exemplo do Ponto de Entrada MNTA851E()
/* Exemplo de utilização do P.E. MNTA851E
Parâmetros recebidos:
ParamIXB[1]: indica número do registro da tabela TV1 (Parte Diária) que foi excluído. */

#Include 'Protheus.ch'

User Function MNTA851E()

	Local nRecTV1 := ParamIXB[1]
	Local cChaveTV2 := ""

	// Desativa o filtro de registros deletados
	SET DELETE OFF
	DbSelectArea( 'TV1' ) // Cabeçalho da Parte Diária
	DbGoTo( nRecTV1 )
	
	// Recupera chave de relacionamento com a TV2
	cChaveTV2 := xFilial( 'TV2' ) + TV1->( TV1_EMPRES + TV1_CODBEM +;
	DTOS( TV1_DTSERV ) + TV1_TURNO + TV1_HRINI + TV1_HRFIM )
	
	DbSelectArea( 'TV2' ) // Atividades da Parte Diária
	DbSetOrder( 01 )
	DbSeek( cChaveTV2 )
	While !EoF() .And. &( 'TV2->( ' + ( TV2->( IndexKey() ) ) + ' )' )
		Alert( 'Percorrendo atividades da Parte Diária' )
		DbSelectArea( 'TV2' )
		DbSkip()
	End While

	// Ativa novamente o filtro de registros deletados
	SET DELETE ON

Return Nil