Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Ana Karolina Holmes Coelho

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Roberta Schneider Borchardt

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linhas_totvs
SegmentoDistribuição
RegionConstrução Projetos
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoServiços

Módulo:

Modulos_totvs_rh
ModulosTOTVSRHTOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Gerar Programação (MDTA190)
Ticket:Não há.
Issue:Não há.


02. SITUAÇÃO/REQUISITO

É necessário retornar uma lista dos Aso's do funcionárioNecessária a criação de um ponto de entrada na rotina de Gerar Programação (MDTA190) para que seja possível considerar mais tipos de exame no momento da sua geração.

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

Ponto de EntradaMDTA1901()
ChamadaExecuta o ponto de entrada na rotina MDTA190 no momento de clicar em Incluir para incluir a programação.
Pré-RequisitoPossuir exames vinculados a determinadas rotinas, a fim de gerar a programação. Mais informações podem ser acessadas em Gerar Programação (MDTA190 - SIGAMDT).
Evento

Gerar Programação.

Retorno

Será considerado também na programação de exames, os tipos definidos no array do ponto de entrada.


04. DEMAIS INFORMAÇÕES

MDTRetAso cFil, cMat cFil (Filial do funcionário), cMat (Matrícula do funcionário)aAsos ( a numeração dos atestados do funcionário)
Função:MDTA1901()
Parâmetros:Não há.
Retorno:

aRetPE - Array contendo

os tipos de exames a serem considerados na programação.

Bloco de código
themeEclipse
titleExemplo
#include "protheus.ch"

User Function MDTRetAso( cFil, cMat MDTA1901()

	Local aAsosaRetPE := {}
	Local cFicha := ''

	Default cFil := xFilial( 'TM0' )

	cFicha := Posicione( 'TM0'//Adiciona as opções 1, 3, cFile +4 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 aAsosaos tipos de exames considerados na programação de exames
aAdd( aRetPE , { 1 , 3 , 4 } )

Return aRetPE


Templatedocumentos


HTML
<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á.