01. DADOS GERAIS
Produto: | TOTVS Medicina e Segurança do Trabalho |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | RH |
Módulo: | TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT) |
Função: | Exames Por Função (MDTA450) |
País: | Brasil |
Ticket: | Não há. |
Issue: | Não há. |
02. DESCRIÇÃO
Criado o ponto de entrada MDTA4502 na rotina Exames por Função (MDTA450) para ser executado no momento da Cópia de Exames.
Ponto de Entrada | MDTA4502() |
---|---|
Chamada | Ao realizar a cópia de exames na rotina. |
Pré-Requisito | Possuir exames cadastrados na rotina Exames por Função (MDTA450). |
Evento | Não há |
Retorno | Não há. |
03. DEMAIS INFORMAÇÕES
Função | MDTA4502() |
---|---|
Parâmetros | Local aArea := GetArea(), Array, busca as informações da tabela TON (Exames por Função). Local aExames := {}, Array, adiciona no Array os exames a serem cadastrados como cópia. Local cOrigem, Função, função onde o exame deve ser copiado. |
Retorno | Não há. |
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. ASSUNTOS RELACIONADOS
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas