Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Ketllen Luana Brinker Tognetti

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Ketllen Luana Brinker Tognetti

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:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Atestado ASO (aso) (MDTA200)
Ticket:não 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)
Bloco de código
themeEclipse
titleExemplo
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
Função:MDTMsAso()Retorno:Array
Bloco de código
themeEclipse
titleExemplo
Function MDTMsgAso()

	Local i
	Local xRet 

	aRet := MDTRetAso( 'D MG 01 ', '000028' ) //Aqui é passado por parâmetro a filial e o funcionário desejado
	cText := 'Listas de Asos' + chr( 13 ) + chr( 13 )

	For i := 1 To Len(aRet)
		cText +=  cValToChar( aRet[i] ) + chr( 13 )
	Next i 

	xRet := MsgInfo(cText, 'Lista de Asos')

Return xRet


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