Relatório para espelho do ponto

Este recurso não está disponível no Gestão de Pessoas | HCM GO UP. Saiba mais.

Para customizar um modelo de relatório para a Assinatura Eletrônica é recomendado fazer uma cópia de um modelo já existente e, assim, necessário realizar as seguintes alterações no modelo:

Parâmetros de entrada

Ajuste os parâmetros com a seguinte nomenclatura e estrutura:

Nome da variável	Descrição da variável	Tipo	Tamanho	Edição	Tabela.Campo	Abrangência	Senha	Relacionar SQL	Valores	Util. Val.	Ignorar
EDatCmp	Competência	Data	0	MM/YYYY		Não	Não	Sim		Não	Não
EDatInR	Data Início Apuração	Data	0	DD/MM/YYYY		Não	Não	Sim		Não	Não
EDatFiR	Data Início Apuração	Data	0	DD/MM/YYYY		Não	Não	Sim		Não	Não
EVisRel	Modo de exibição	Cadeia de Caracteres	1	U		Não	Não	Sim	Lista	Não	Não
EAbrEmp	Empresa	Cadeia de Caracteres	099	A[99]	R034FUN.NUMEMP	Sim	Não	Sim		Não	Não
EAbrTcl	Tipo Colaborador	Cadeia de Caracteres	099	A[99]	R034FUN.TIPCOL	Sim	Não	Sim		Não	Não
EAbrCad	Colaborador	Cadeia de Caracteres	099	A[99]	R034FUN.NUMCAD	Sim	Não	Sim		Não	Não
ELisDem	Listar demitidos	Cadeia de Caracteres	1	U		Não	Não	Sim	Lista	Não	Não

Os valores esperados para a variável EVisRel são: “A - Assinar”, “V - Visualizar” e “R - Reprovar”.

Nota

Os parâmetros EAbrEmp, EAbrTcl e EAbrCad normalmente já existem nos modelos de relatório;
Se você quiser listar colaboradores demitidos através da tela de Gestão das assinaturas do espelho do ponto, será necessário incluir o campo ELisDem na tela de entrada do modelo conforme as parametrizações (tabela Parâmetros de entrada).

Seção Detalhe

Altere a Seção Detalhe do modelo e inclua o seguinte trecho de regra no evento Antes Imprimir:

<div class="Code">...xNumEmp = r034fun.numemp;xTipCol = r034fun.tipcol;xNumCad = r034fun.numcad;...</div>

Seção adicional

Inclua uma seção adicional para exibir as informações da assinatura eletrônica do colaborador.

Nesta seção é necessário adicionar os campos DTexto, DData, DHora, DUsuario, DEmail e DIp, os quais receberão as informações da assinatura no relatório que será gerado. Remova o espaço para assinatura manual, caso exista.

Inclua o seguinte trecho de regra no evento Antes Imprimir:

<div class="Code">Definir alfa EVisRel;/* Visualizar */Se (EVisRel = "V")Cancel (1);/* Assinar */Se (EVisRel = "A") {Definir Alfa xData;Definir Alfa xHora;Definir Alfa xUsuario;Definir Alfa xEmail;Definir Alfa xIp;AssinaturaDigitalPonto(xNumEmp, xTipCol, xNumCad, EDatCmp, EVisRel,xData, xHora, xUsuario, xEmail, xIp);AlteraControle("DTexto", "Descrição", "Assinado digitalmente em");AlteraControle("DData", "Descrição", xData);AlteraControle("DHora", "Descrição", xHora);AlteraControle("DUsuario", "Descrição", xUsuario);AlteraControle("DEmail", "Descrição", xEmail);AlteraControle("DIp", "Descrição", xIp);}/* Reprovar */Se (EVisRel = "R") {Definir Alfa xData;Definir Alfa xHora;Definir Alfa xUsuario;Definir Alfa xEmail;Definir Alfa xIp;AssinaturaDigitalPonto(xNumEmp, xTipCol, xNumCad, EDatCmp, EVisRel,xData, xHora, xUsuario, xEmail, xIp);AlteraControle("DTexto", "Descrição", "Reprovado digitalmente em");AlteraControle("DData", "Descrição", xData);AlteraControle("DHora", "Descrição", xHora);AlteraControle("DUsuario", "Descrição", xUsuario);AlteraControle("DEmail", "Descrição", xEmail);AlteraControle("DIp", "Descrição", xIp);}</div>

Através desta regra será feito o preenchimento das informações da assinatura.

Nota

Para listar esta seção, é necessário utilizar a função ListaSecao().

<div class="Code">/* Tratamento para Demitidos */Se (ELisDem = "N") {Definir alfa sqlaux;sqlaux = " AND NOT EXISTS ( \SELECT 1 FROM R038AFA WHERER038AFA.NUMEMP = R034FUN.NUMEMP ANDR038AFA.TIPCOL = R034FUN.TIPCOL ANDR038AFA.NUMCAD = R034FUN.NUMCAD ANDR038AFA.DATAFA = (SELECT MAX(R038AFA.DATAFA) FROM R038AFA,R010SIT WHERER038AFA.NUMEMP = R034FUN.NUMEMP ANDR038AFA.TIPCOL = R034FUN.TIPCOL ANDR038AFA.NUMCAD = R034FUN.NUMCAD ANDR038AFA.DATAFA <= " + dataFinalAlfa + " ANDR038AFA.SITAFA = R010SIT.CODSIT ANDR010SIT.TIPSIT = 7))";InsSQLWhereSimples ("Colaboradores", sqlaux);}Essa regra faz com que, quando a variável ELisDem estiver definida como "N", os colaboradores demitidos não sejam listados no relatório.</div>

PORTAL DE DOCUMENTAÇÃO
Gestão de Pessoas \| HCM - versão 6.10.4