Exemplo pronto do uso da classe FWMSEXCEL

Sobre a classe FWMSEXCEL

A classe FWMSEXCEL tem como finalidade gerar um arquivo XML que posteriormente pode ser utilizado para ser aberto com o Excel.

Nesta classe,  o arquivo Excel fica mais elaborado e pode ser formatado com cores, tipos de dados, abas, etc. Diferentemente do CSV que não possuem nenhum tipo de formatação.

A desvantagem deste formato é que precisa de um Excel 2003 ou acima, além do arquivo ser bem maior do que um simples CSV.

Abaixo estou colando um exemplo completo que utilizei para exportar a planilha.

No site da Totvs (TDN) existe um exemplo bem completo explicando com detalhes o seu funcionamento.

Segue exemplo :

#INCLUDE "PROTHEUS.CH"

#include "TBICONN.CH"

#include "RWMAKE.CH"

#include 'topconn.ch'

#include "TbiCode.ch"

#DEFINE ENTER CHR(13)+CHR(10)

#DEFINE DIVISOR  ";"

USER FUNCTION Ckpt01

Local cQuery    := ""

Local cCaminho  := "\COCKPIT_OFFLINE

Local nConta    := 0

Local nContador := 0

Local cMensagem := ""

Local aEmail    

Local aTables   := { "SM0" }

Local oExcel := FWMSEXCEL():New()

// Montagem das colunas

oExcel:AddworkSheet("Contas a pagar")

oExcel:AddTable ("Contas a pagar","Relação de títulos em aberto",)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Filial",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Prefixo",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Titulo",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Parcela",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Tipo",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Natureza",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Cod.Forn",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Nome do fornecedor",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Emissão",1,4)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Vencimento real",1,4)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Valor do título",1,2)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Valor em reais",1,3)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Data da baixa",1,4)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Histórico do título",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Saldo do título",1,2,.F.)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Moeda",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Número da DI",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Número da PO",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Número da Invoice",1,1)

oExcel:AddColumn("Contas a pagar","Relação de títulos em aberto","Data da Invoice",1,4)

////////////////////

cQuery := "SELECT SE2010.E2_FILIAL, " + ENTER

cQuery += "       SE2010.E2_PREFIXO, " + ENTER

cQuery += "       SE2010.E2_NUM, " + ENTER

cQuery += "       SE2010.E2_PARCELA, " + ENTER

cQuery += "       SE2010.E2_TIPO, " + ENTER

cQuery += "       SE2010.E2_NATUREZ, " + ENTER

cQuery += "       SE2010.E2_FORNECE, " + ENTER

cQuery += "       SE2010.E2_NOMFOR, " + ENTER

cQuery += "       SE2010.E2_EMISSAO, " + ENTER

cQuery += "       SE2010.E2_VENCREA, " + ENTER

cquery += "       SE2010.E2_VALOR, " + ENTER

cQuery += "       SE2010.E2_VLCRUZ," + ENTER

cquery += "       SE2010.E2_BAIXA, " + ENTER

cquery += "       SE2010.E2_HIST, " + ENTER

cquery += "       SE2010.E2_SALDO, " + ENTER

cquery += "       DECODE(SE2010.E2_MOEDA,1,'REAL',2,'DOLAR') E2_MOEDA, " + ENTER

cquery += "       SE2010.E2_NUMDI, " + ENTER

cquery += "       SE2010.E2_NUMPO, " + ENTER

cQuery += "   SE2010.E2_INVOICE, " + ENTER

cQuery += "   SE2010.E2_DTENTRA " + ENTER

cQuery += "  FROM SE2010 SE2010 " + ENTER

cQuery += " WHERE SE2010.E2_SALDO > 0 " + ENTER

cQuery += "   AND SE2010.D_E_L_E_T_ = ' ' "+ ENTER

cQuery += " ORDER BY SE2010.E2_FILIAL, " + ENTER

cQuery += "          SE2010.E2_EMISSAO, " + ENTER

cQuery += "          SE2010.E2_PREFIXO, " + ENTER

cQuery += "          SE2010.E2_NUM, " + ENTER

cQuery += "          SE2010.E2_PARCELA, " + ENTER

cQuery += "          SE2010.E2_TIPO " + ENTER

If Select("QRY") > 0

QRY->( dbCloseArea() )

EndIf

    

//cArquivo := AllTrim(cCaminho) + "\" + "Contas_Pagar_01_" + DTOS(DATE()) + "_.csv"

cArquivo := AllTrim(cCaminho) + "\" + "Contas_Pagar_01_" + DTOS(DATE()) + "_.XML"

    

If !File(ALLTRIM(cArquivo))

    //nHandle :=MSFCreate(ALLTRIM(cArquivo))

Else

    fErase(ALLTRIM(cArquivo))

    Conout("..... Limpando arquivo temporário .....")

    //nHandle:= MSFCreate(ALLTRIM(cArquivo))

Endif

 

ConOut("..... Abrindo tabela temporária ....." )

//RPCSetType( 3 )

//RpcSetEnv ( "01", "01", Nil, Nil, "FAT", Nil, aTables )

    

dbUseArea( .T., "TopConn", TCGenQry(,,cQuery), "QRY", .F., .F. )

    

QRY->(dbEval({|| nConta++})) // Contador de linhas da tabela acima.

QRY->( dbGoTop() )   

    

ConOut("..... Gerando arquivo CSV ....." )

    

// Montagem do cabeçalho do relatório

//cLinha  := "Filial;Prefixo;Titulo;Parcela;Tipo;Natureza;Cod.Forn.;Nome Fornecedor;Data Emissao;Vencimento Real" + ENTER

    

While QRY->( !Eof() )

oExcel:AddRow("Contas a pagar","Relação de títulos em aberto",{AllTrim(QRY->E2_FILIAL),;

AllTrim(QRY->E2_PREFIXO),;

AllTrim(QRY->E2_NUM),;

AllTrim(QRY->E2_PARCELA),;

AllTrim(QRY->E2_TIPO),;

AllTrim(QRY->E2_NATUREZ),;

AllTrim(QRY->E2_FORNECE),;

AllTrim(QRY->E2_NOMFOR),;

AllTrim(u_xSTtoSF(QRY->E2_EMISSAO)),;

AllTrim(u_xSTtoSF(QRY->E2_VENCREA)),;

QRY->E2_VALOR,;

QRY->E2_VLCRUZ,;

AllTrim(u_xSTtoSF(QRY->E2_BAIXA)),;

AllTrim(QRY->E2_HIST),;

QRY->E2_SALDO,;

AllTrim(QRY->E2_MOEDA),;

AllTrim(QRY->E2_NUMDI),;

AllTrim(QRY->E2_NUMPO),;

AllTrim(QRY->E2_INVOICE),;

AllTrim(u_xSTtoSF(QRY->E2_DTENTRA));

})

    nContador ++

    QRY->( dbSkip() )

    ConOut("..... Andamento : " + AllTrim(Str(ROUND(100 / nConta * nContador,2))) + " %")

Enddo

ConOut("..... Salvando arquivo XML  ....." )

oExcel:Activate()

oExcel:GetXMLFile(cArquivo)

   

If Select("QRY") > 0

QRY->( dbCloseArea() )

EndIf

    

//fclose(nHandle)

ConOut("..... Gerando e-mail  ....." )    

// Envia o e-mail para o usuário

cMensagem   := "Email enviado automaticamento pelo Protheus " + ENTER + ENTER

cMensagem   += "Relatório de títulos do contas a pagar emitido dia " + dToc(DATE()) + ENTER + ENTER

cMensagem   += "OBS : ABRIR COM O EXCEL 2003 EM DIANTE OU SIMILAR " + ENTER + ENTER

cMensagem   += "Relatório disponível no caminho \\BONETE\PROTHEUS11\PROTHEUS_DATA" + cArquivo 

    

aEmail := StrTokArr(AllTrim(GetMv("MV_COCKT01")), ";")

for i:=1 to Len(aEmail)

U_xEEmail(cMensagem,"Relatório Cockpit Pagar gerado ",AllTrim(aEmail[i]))

    ConOut("..... Email enviado para " + aEmail[i])

next i

    

RETURN