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) |
País: | Brasil |
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á.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas