Exibir origem

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
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)

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

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

05. ASSUNTOS RELACIONADOS.

Não há.