Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 6 minutos


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:Controle de Evento (MDTA111)
País:Brasil
Ticket:Não há
Issue:Não há.

02. DESCRIÇÃO

Criado Ponto de Entrada MDTA111R para a utilização de relatórios personalizados de Eventos da CIPA:

  • Edital Inscrição (MDTR920)
  • Carta designação (MDTR921)
  • Avi. Eleições Cipa (MDTR922)
  • Ficha Inscr. Cipa (MDTR923)
  • Edital de Convocac (MDTR924)
  • Cédulas Votação (MDTR925)
  • Comprovante Votação (MDTR926)
  • Ata Eleição Cipa (MDTR927)
  • Ata Instalacao (MDTR928)
  • MDTR929(Calend. Reuniões)
  • Registro Cipa Drt (MDTR930)


Ponto de EntradaMDTA111R()
ChamadaNão há.
Pré-RequisitoPossuir eventos já cadastrados na rotina.
EventoRelatórios personalizados de Eventos da CIPA.
RetornoRetorna o relatório personalizado.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA111R()
Parâmetros

cTipoEvento, Caracter, contém o tipo de Evento da CIPA.

cCodMandato, Array, código do mandato. Só será passado como parâmetro caso o ponto de entrada seja chamado pela rotina de Eventos (MDTA111).

Retorno.T. or .F., lógico, se falso, o sistema utiliza o relatório padrão e se verdadeiro, o sistema utiliza o código personalizado.



Exemplo
#include "Protheus.ch"   

User Function MDTA111R()

    Local cCodMandato := ""
    Local cTipoEvento := ParamIXB[1][1]  // Tipo do evento selecionado
    
    // Verifica se o Código do mandato está carregado
    If Len(ParamIXB) > 1
        cCodMandato := ParamIXB[2][1]
    EndIf
    
    // Verifica se usuário deseja utilizar relatório próprio ou utilizar o padrão
    If MsgYesNo("Deseja Utilizar o código personalizado? Caso contrário será utilizada a rotina padrão.")
        
        // Verifica o relatório a ser chamado de acordo com o evento
        If cTipoEvento == "2"  // Edital de Convocação
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "3"  // Carta designação da comissão eleitoral
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "4"  // Aviso ao sindicato sobre Eleições
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "5"  // Ficha de Inscrição
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "7-1"  // Edital de Convocação para Eleições CIPA
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "7-2"  // Cédulas para votação
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "7-3"  // Folha de comprovante de votação
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "9"  // Ata de eleição com resultado Final
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "C"  // Ata de Instalação e Posse do novo mandato CIPA?
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "D"  // Calendário de reuniões ordinárias CIPA
            // Chamada para código Personalizado
        ElseIf cTipoEvento == "E"  // Registro da CIPA na DRT
            // Chamada para código Personalizado
        EndIf
        
        Return .T.  // Indica que será usado relatório próprio
    EndIf
    
    Return .F.  // Indica se usará relatório padrão


04. ASSUNTOS RELACIONADOS