DNG-18930 DT MDTRETASO Retorna datas e Aso's do funcionário

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-18930

É necessário retornar uma lista dos Aso's do funcionário com as datas referente ao Aso.

Função que retorna Aso's e datas, posições:

aAsos[n,1] - Numero do Aso

aAsos[n,2] - Data Programação Exame

aAsos[n,3] - Data de Geração do Aso

aAsos[n,4] - Data da Emissão do Aso

aAsos[n,5] - Data do Cancelamento

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 e datas dos atestados do funcionário )
Chamada função:	Chamar a função que exibe a mensagem dos Aso's dentro do fonte: MDTImpAso()
Exemplo função:	Function MDTImpAso() Local aAsos := MDTRetAso( 'D MG 01 ','000030' ) Local cMsg := '' Local nA For nA := 1 To Len(aAsos) CHR(13) cMsg += '/====================================/'+CHR(13) cMsg += 'Código do Aso: ' + cValToChar(aAsos[nA, 1])+CHR(13) cMsg += 'Data Programação Exame: ' + cValToChar(aAsos[nA, 2])+CHR(13) cMsg += 'Data de Geração do Aso: ' + cValToChar(aAsos[nA, 3])+CHR(13) cMsg += 'Data da Emissão do Aso: ' + cValToChar(aAsos[nA, 4])+CHR(13) cMsg += 'Data do Cancelamento: ' + cValToChar(aAsos[nA, 5])+CHR(13) CHR(13) Next nA MsgInfo(cMsg, 'Retorno MDTRetAsos') Return

Não há.