Mudança nos relatórios Excel para Office e LibreOffice

Recentemente a empresa onde trabalho passou por umas mudanças onde algumas filiais tiveram o Office da Microsoft trocado pelo LibreOffice que atende muito bem as necessidades.

O problema é que todos os relatórios nos últimos dois anos foram feitos para serem gerados em Excel seguindo as dicas postadas nesses posts:

• Excel e Progress – Guia completo
• Comandos para Excel
• Gerar relatório em Excel de forma simples

Ao tentar gerar os mesmos relatórios no Calc do LibreOffice surge um erro dizendo que a aplicação não está devidamente registrada no servidor.

Hoje trabalhamos com sistema Totvs e felizmente eles disponibilizaram uma integração onde podemos gerar o mesmo relatório tanto para Excel quanto para Calc fazendo pequenas mudanças no código.

Mais dados desta integração podem ser acessados aqui.

Vou lista-las abaixo:

Declarações dos objetos: Nas declarações dos objetos que vão instanciar o Excel devemos alterar da seguinte maneira

DEFINE VARIABLE chExcelApp  AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkBook  AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkSheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chRange     AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chChart     AS COM-HANDLE NO-UNDO.

para

DEFINE VARIABLE chExcelApp  AS office.iface.excel.ExcelWrapper NO-UNDO.
DEFINE VARIABLE chWorkBook  AS office.iface.excel.WorkBook     NO-UNDO.
DEFINE VARIABLE chWorkSheet AS office.iface.excel.WorkSheet    NO-UNDO.
DEFINE VARIABLE chRange     AS office.iface.excel.Range        NO-UNDO.
DEFINE VARIABLE chChart     AS office.iface.excel.Chart        NO-UNDO.

Instancia do Excel: O comando que instancia o Excel no objeto chExcelApp vai ser trocado pela include, ao contrario do comando CREATE que pode ser executado várias vezes dentro do programa a include deve ser instanciada uma unica vez.

CREATE "Excel.Application" chExcelApp.

para

{office/office.i Excel chExcelApp}

O parâmetro VALUE que insere valor na célula agora só recebe valores do tipo carácter, se não desejar alterar o tipo para carácter use a função setValue()

chWorkSheet:Range("A4"):VALUE = "Teste".
chWorkSheet:Range("B4"):SetValue(1433000).
chWorkSheet:Range("C4"):SetValue("Também funciona").

O parâmetro MERGE virou uma função MERGE()

Para gráficos o tipo de gráfico mudou de chChart:Type  para chChart:ChartType

E alguns parâmetros passam a ser tratados como função assim como Borders:LineStyle que agora deve informar parenteses no fim Borders():LineStyle

Importante: Relatórios que abrem no MS Office não costuma dar erro más no LibreOffice se o relatório for executado mais de uma vez na mesma tela aberta pode gerar um erro de handle já existente, uma solução é gravar nulo nas variáveis criadas antes da instanciação:

    assign
        chExcelApp  = ?
        chWorkBook  = ?
        chWorkSheet = ?.

    {office/office.i Excel chExcelApp}