Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:Medicina e Segurança do Trabalho
Função:Exames por Função (MDTA450)
Ticket:Não há.
Issue:DNG-13183


02. SITUAÇÃO/REQUISITO

Solicitação de Ponto de Entrada na rotina de Exames por Função (MDTA450) a ser executado no momento da Cópia dos Exames.

03. SOLUÇÃO

Criado o ponto de entrada MDTA4502:


Exemplo
#include "protheus.ch"

User Function mdta4502()

    Local aArea := GetArea()
	Local aExames := {}

    Local cOrigem := SRJ->RJ_FUNCAO // Função de onde serão copiados os exames

	dbSelectArea( 'TON' )
	dbSetOrder( 1 )
	dbGoTop()
	If dbSeek( xFilial( 'TON' ) + cOrigem ) // Posiciona no exame que deve ser copiado

		While ( 'TON' )->( !Eof() ) .And. AllTrim( TON->TON_CODFUN ) == AllTrim( cOrigem )

			If AllTrim( TON->TON_MULTFI ) == '1'

				// Adiciona no array os exames a serem cadastrados como cópias
				aAdd( aExames, { TON->TON_CODEXA, TON->TON_FAIXA, TON->TON_CLIENT, TON->TON_LOJA, TON->TON_TIPOEX } ) 

			EndIf

			( 'TON' )->( dbSkip() )

		End

	EndIf

    RestArea( aArea )

Return


04. DEMAIS INFORMAÇÕES

Não há.


05. ASSUNTOS RELACIONADOS

Não há.