BlackTDN :: TCustomReport ( R3 e TReport : 2 em 1)

Como prometido, a versão Demo (Beta 1) de TCustomReport já está pronta. As primeiras “vítimas” da conversão “2 em 1” foram os programas padrões IMPESP.PRX (Espelho do Ponto Customizado), ABSENT.PRX (Relatório de Absenteísmo) e PONQDHR.PRX (Relatório de Quadro de Horários) todos usando, por padrão, a impressão em R3 e a função IMPR(). Qualquer outro relatório poderá, também, ter a propriedade de ser impresso tanto em R3 quanto em TReport.

A figura ao lado (Espelho do Ponto) é um “instantâneo” da versão em TReport do mesmo relatório R3. Ele contém a targeta “BLACKTDN TCUSTOMREPORT DEMO” para provar que foi impresso usando a classe de impressão TReport.

A conversão de R3 pra TReport, usando TCustomReport é muito simples. Na maioria dos casos apenas duas linhas resolverão o problema.

Vamos utilizar “as vítimas” para exemplificar:

IMPESP.PRX

Neste ponto incluímos o arquivo de cabeçalho “TCUSTOMREPORT.CH” É ele o responsável pela “conversão” de um relatório em R3 para TReport. A partir daqui pouca alteração se faz necessária para ter a impressão disponível tanto em R3 quando em TReport.	Ativamos a Opção para impressão em TReport usando o comando TCUSTOMREPORT ACTIVATE e personalizamos a Fonte e o Tamanho das linhas do relatório, respectivamente: TCUSTOMREPORT SET FONT e TCUSTOMREPORT SET LINE HEIGHT
Considerando que IMPESP não faz referência Direta a Cabec às vezes fica difícil identificar a “Quebra” do relatório. Neste caso um TCUSTOMREPORT SET PAGE BREAK resolve o Problema.	IMPR não imprime o cabeçalho padrão. Possui um cabeçalho específico (sem logo e outras informações). Neste caso utizamamos o comando TCUSTOMREPORT HIDE DEFAULT HEADER para desabilitar o cabeçalho padrão.
TCUSTOMREPORT SET PAGE BREAK também para forçar a quebra de página.	O resultado, após 5 passos.

PONQDHR.PRX

Neste caso, bastaram 3 alterações para que o relatório fosse impresso tanto em R3 quanto em TReport. São elas: 1) A inclusão do arquivo de cabeçalho TCustomReport.CH; 2) TCUSTOMREPORT ACTIVATE para ativar a opção de impressão em TReport e; 3) TCUSTOMREPORT SET FONT "Courier New" SIZE 0,-9 para personalizar a Fonte de impressão (uma vez que na conversão os dados poderiam ser impressos fora da margem do relatório).  Uma outra opção seria redefinir os dados para impressão “Truncando-os” e/ou eliminando espaços em branco. Mas daria muito trabalho e não é o que queremos aqui.

e, finalmente:

ABSENT.PRX

	O trabalho para conversão de ABSENT.PRW foi “árduo”. Foram necessárias duas modificações para permitir que fosse impresso tanto em R3 quanto em TReport. 1) #include "TCUSTOMREPORT.CH" e;
	2) TCUSTOMREPORT ACTIVATE.
	Na grande maioria dos relatórios apenas as duas alterações feitas em ABSENT.PRX serão necessárias para a impressão tanto em R3 quanto em TReport.

TCUSTOMREPORT.CH

O arquivo de cabeçalho “TCustomReport.CH” apresentado anteriormente foi modificado. Acima alguns “instantâneos” das modificações efetuadas.

TCustomReport ainda tem muito a evoluir mas, nesta sua primeira versão, já nos permite a impressão em TReport com poucas alterações no código original em R3.

Desta vez não vou disponibilizar todo o código utilizado para desenvolver TCustomReport (por questões de compromisso comercial). Apenas os arquivos de cabeçalho e um “patch” com as funções a serem utilizadas no processo de impressão. Considerando que é uma versão de “Demo” não poderá ser utilizada comercialmente uma vez que a targeta  “BLACKTDN TCUSTOMREPORT DEMO” será impressa em praticamente todas as páginas dos relatórios.

TCustomReport foi encomendada à equipe do BlackTDN pela IT Advanced e acredito que ela deverá disponibilizar uma versão comercial para uso. Contate-os.

Interessado na versão “demo” clique aqui (por enquanto apenas Protheus 10 e 11 pt-br).

[]s

иαldσ dj