Árvore de páginas

Carregando...


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 EntradaMDTA4502()
ChamadaAo realizar a cópia de exames na rotina.
Pré-RequisitoPossuir exames cadastrados na rotina Exames por Função (MDTA450).
EventoNão há
RetornoNão há.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA4502()
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.

RetornoNã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