Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Atestado ASO (MDTA200)
Ticket:Não há.
Issue:DNG-18677


02. SITUAÇÃO/REQUISITO

É necessário retornar uma lista dos Aso's do funcionário.

03. SOLUÇÃO

Criado uma função MDTRetAso( cFil, cMat ) para buscar os Asos's por matrícula e filial e a função MDTMsAso() que chamada no fonte retorna os Aso's do funcionário selecionado.


04. DEMAIS INFORMAÇÕES

Função:MDTRetAso( cFil, cMat )
Parâmetros:cFil (Filial do funcionário), cMat (Matrícula do funcionário)
Retorno:aAsos (Array contendo a numeração dos atestados do funcionário)
Exemplo
Function MDTRetAso( cFil, cMat )

	Local aAsos := {}
	Local cFicha := ''

	Default cFil := xFilial( 'TM0' )

	cFicha := Posicione( 'TM0', 3, cFil + cMat, 'TM0_NUMFIC' )
	
	dbSelectArea( 'TMY' )
	dbSetOrder( 2 )

	If dbSeek( cFil + cFicha )

		While ( 'TMY' )->( !Eof() ) .And. cFil == TMY->TMY_FILIAL .And. cFicha == TMY->TMY_NUMFIC

				aAdd( aAsos, TMY->TMY_NUMASO )

			( 'TMY' )->( dbSkip() )

		End

	EndIf

Return aAsos




05. ASSUNTOS RELACIONADOS.

Não há.