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:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Diagnóstico Médico (MDTA156)
País:Brasil
Ticket:Não há.
Issue:Não há.

02. DESCRIÇÃO

Criado o ponto de entrada MDTA1551 na rotina Diagnóstico Médico (MDTA156) onde após confirmar uma inclusão, o ponto de entrada será chamado.

03. SOLUÇÃO


Ponto de EntradaMDTA1551()

Chamada

Após confirmar a inclusão de um diagnóstico médico na rotina.
Pré-RequisitoIncluir um diagnóstico.
EventoNão há.
RetornoNão há.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA1551()
ParâmetrosNão há.
RetornoNão há.



Exemplo
#Include "Protheus.ch"  

User Function MDTA1551()

    DbSelectArea("SX3")
    DbSetOrder(2)

    If DbSeek("TMT_TIPDEF") .AND. DbSeek("TMT_CIDDEF")
        DbSelectArea("TM0")
        DbSetOrder(1)

        If DbSeek(xFilial("TM0") + TMT->TMT_NUMFIC)
            Reclock("TM0", .F.)
            TM0->TM0_TIPDEF := TMT->TMT_TIPDEF
            TM0->TM0_CODCID := TMT->TMT_CIDDEF
            Msunlock("TM0")
        EndIf
    EndIf

Return


04. ASSUNTOS RELACIONADOS