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 |
02. SITUAÇÃO/REQUISITO
É necessário retornar uma lista dos Aso's do funcionário com as datas referente ao Aso.
03. SOLUÇÃO
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
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 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 |
05. ASSUNTOS RELACIONADOS
Não há.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas