Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Linha de Produto:Protheus
Segmento:Serviços
Módulo:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Candidato (MDTA645)
Ticket:6012923
Requisito/Story/Issue:DNG-5866


02. SITUAÇÃO/REQUISITO

É necessária a criação de um Ponto de Entrada para tratativa de Informações Complementares do Candidato na rotina de Candidatos (MDTA645).

03. SOLUÇÃO

Criado Ponto de Entrada MDTA6451 na rotina de Candidato (MDTA645) para tratativa de Informações Complementares na gravação do Componente, tanto no botão de Adicionar Componente, quanto na Análise de Votos. O momento de execução do Ponto de Entrada é após a liberação do registor (MsUnLock), necessitando uma nova reserva (RecLock).

04. DEMAIS INFORMAÇÕES

Função:MDTA6451()
Retorno:Nulo
Parâmetros:

cFilial (PARAMIXB[1]) - Filial do Componente

cMandato (PARAMIXB[2]) - Mandato do Componente

cMatricula (PARAMIXB[3]) - Matrícula do Componente

Exemplo
#include "Protheus.ch"


User Function MDTA6451()
	Local cFilial := aClone( PARAMIXB[1] )
	Local cMandato  := aClone( PARAMIXB[2] )
	Local cMatricula := aClone( PARAMIXB[3] )
	
	dbSelectArea( "TNQ" )
	dbSetOrder( 1 )
	If dbSeek( xFilial( "TNQ", cFilial ) + cMandato + cMatricula )
		RecLock("TNQ", .F. )
		
		TNQ->( MsUnLock() )
	EndIf


Return