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á.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas