No vídeo de hoje, vamos demonstrar em como criar um arquivo do Excel (inclusive com imagens) usando a classe FWPrinterXLSX.
A dúvida de hoje, nos perguntaram, se seria possível criar um arquivo do Excel e dentro dele colocar uma imagem e já formatar o conteúdo mudando fonte e cores.
Pensando nisso, montamos esse exemplo, onde demonstramos a utilização da classe FWPrinterXLSX que tem inúmeros recursos e funcionalidades.
Segue abaixo o vídeo exemplificando:
E abaixo o código fonte desenvolvido:
//Bibliotecas #Include "Totvs.ch" /*/{Protheus.doc} User Function zVid0081 Teste FWPrinterXLSX @author Atilio @since 08/01/2024 @version 1.0 @type function @see https://tdn.totvs.com/display/public/framework/FwPrinterXlsx /*/ User Function zVid0081() Local aArea := FWGetArea() Local aPergs := {} Local cPedDe := Space(TamSX3('C6_NUM')[1]) Local cPedAte := StrTran(cPedDe, ' ', 'Z') Local cProdDe := Space(TamSX3('C6_PRODUTO')[1]) Local cProdAte := StrTran(cProdDe, ' ', 'Z') //Adicionando os parametros do ParamBox aAdd(aPergs, {1, "Pedido De", cPedDe, "", ".T.", "SC5", ".T.", 60, .F.}) // MV_PAR01 aAdd(aPergs, {1, "Pedido Até", cPedAte, "", ".T.", "SC5", ".T.", 60, .T.}) // MV_PAR02 aAdd(aPergs, {1, "Produto De", cProdDe, "", ".T.", "SB1", ".T.", 80, .F.}) // MV_PAR03 aAdd(aPergs, {1, "Produto Até", cProdAte, "", ".T.", "SB1", ".T.", 80, .T.}) // MV_PAR04 //Se a pergunta for confirmada, chama o preenchimento dos dados do .dot If ParamBox(aPergs, 'Informe os parâmetros', /*aRet*/, /*bOk*/, /*aButtons*/, /*lCentered*/, /*nPosx*/, /*nPosy*/, /*oDlgWizard*/, /*cLoad*/, .F., .F.) Processa({|| fGeraExcel()}) EndIf FWRestArea(aArea) Return /*/{Protheus.doc} fGeraExcel Criacao do arquivo Excel na funcao zVid0081 @author Atilio @since 08/01/2024 @version 1.0 @type function /*/ Static Function fGeraExcel() Local aArea := FWGetArea() Local oPrintXlsx Local dData := Date() Local cHora := Time() Local cCodUsr := RetCodUsr() Local cArquivo := GetTempPath() + 'zVid0081' + dToS(dData) + '_' + StrTran(cHora, ':', '-') + '.rel' Local cLogo := "" Local cConteudo := "" Local oFileRead Local cQryDad := "" Local nAtual := 0 Local nTotal := 0 Local aCampos := {} Local aColunas := {} Local oExcel Local cFonte := FwPrinterFont():Arial() Local nTamFonte := 12 Local lItalico := .F. Local lNegrito := .T. Local lSublinhado := .F. Local nCpoAtual := 0 Local oCellHoriz := FwXlsxCellAlignment():Horizontal() Local oCellVerti := FwXlsxCellAlignment():Vertical() Local cHorAlinha := "" Local cVerAlinha := "" Local lQuebrLin := .F. Local nRotation := 0 Local cCustForma := "" Local cCampoAtu := "" Local cTipo := "" Local nTamanho := 0 Local cTitulo := "" Local cMascara := "" Local cCorFundo := "" //Montando consulta de dados cQryDad := "SELECT " + CRLF cQryDad += " C6_NUM, " + CRLF cQryDad += " C6_ITEM, " + CRLF cQryDad += " C6_PRODUTO, " + CRLF cQryDad += " C6_DESCRI, " + CRLF cQryDad += " C6_ENTREG, " + CRLF cQryDad += " C6_QTDVEN, " + CRLF cQryDad += " C6_PRCVEN, " + CRLF cQryDad += " C6_VALOR " + CRLF cQryDad += "FROM " + CRLF cQryDad += " " + RetSQLName("SC6") + " SC6 " + CRLF cQryDad += "WHERE " + CRLF cQryDad += " C6_FILIAL = '" + FWxFilial("SC6") + "' " + CRLF cQryDad += " AND C6_NUM >= '" + MV_PAR01 + "' " + CRLF cQryDad += " AND C6_NUM <= '" + MV_PAR02 + "' " + CRLF cQryDad += " AND C6_PRODUTO >= '" + MV_PAR03 + "' " + CRLF cQryDad += " AND C6_PRODUTO <= '" + MV_PAR04 + "' " + CRLF cQryDad += " AND SC6.D_E_L_E_T_ = ' '" + CRLF cQryDad += "ORDER BY " + CRLF cQryDad += " C6_NUM, " + CRLF cQryDad += " C6_ITEM " + CRLF //Executando consulta e setando o total da regua PlsQuery(cQryDad, "QRY_DAD") DbSelectArea("QRY_DAD") //Somente se houver dados If ! QRY_DAD->(EoF()) //Definindo o tamanho da regua Count To nTotal ProcRegua(nTotal) QRY_DAD->(DbGoTop()) aCampos := QRY_DAD->(DbStruct()) //Vamos percorrer os campos e montar a estrutura das colunas For nAtual := 1 To Len(aCampos) cCampoAtu := aCampos[nAtual][1] cTipo := aCampos[nAtual][2] nTamanho := aCampos[nAtual][3] cTitulo := Alltrim(GetSX3Cache(cCampoAtu, "X3_TITULO")) cMascara := "" //Se o título tiver vazio, pega do nome do campo mesmo If Empty(cTitulo) cTitulo := Alltrim(cCampoAtu) EndIf //Se for data, vai ser centralizado If cTipo == "D" nAlinhamento := 2 //Se for numérico, vai ser a direita ElseIf cTipo == "N" nAlinhamento := 1 //Busca a máscara do campo, caso não encontre, monta máscara manual cMascara := Alltrim(GetSX3Cache(cCampoAtu, "X3_PICTURE")) If Empty(cMascara) cMascara := "@E 999,999,999.99" EndIf //Senão, por default (caractere, memo, outros) será a esquerda Else nAlinhamento := 0 EndIf //Se o texto do título for maior que o tamanho da coluna, muda a variável If Len(cTitulo) > nTamanho nTamanho := Len(cTitulo) EndIf aAdd(aColunas, {; cTitulo,; //01 - Título do Campo no dicionário nTamanho * 1.5,; //02 - Largura em pixels usada no Excel nAlinhamento,; //03 - Alinhamento (0=Esquerda, 1=Direita, 2=Centralizado) cMascara; //04 - Máscara, em caso de campos numéricos }) Next //Instancia a classe, e tenta criar o arquivo .rel oPrintXlsx := FwPrinterXlsx():New() If oPrintXlsx:Activate(cArquivo) //Adiciona uma worksheet oPrintXlsx:AddSheet("Vendas") //Agora vamos ler o logo e pegar o conteúdo dele cLogo := "\x_imagens\logo.png" oFileRead := FwFileReader():New(cLogo) If oFileRead:Open() cConteudo := oFileRead:FullRead() EndIf oFileRead:Close() //Vamos colocar o logo na linha 1, coluna 1 e vamos redimensionar deixando 64 de largura por 64 de altura oPrintXlsx:AddImageFromBuffer(1, 1, "logo", cConteudo, 64, 64) //Vamos definir a fonte padrão usada como Arial oPrintXlsx:SetFont(cFonte, nTamFonte, lItalico, lNegrito, lSublinhado) //Agora vamos colocar algumas informações resumidas no cabeçalho (todos na coluna 3) oPrintXlsx:SetText(1, 3, "Fonte: zVid0081.prw") oPrintXlsx:SetText(2, 3, "Data: " + dToC(dData)) oPrintXlsx:SetText(3, 3, "Hora: " + cHora) oPrintXlsx:SetText(4, 3, "Usuário: " + cCodUsr + " - " + UsrRetName(cCodUsr)) //Depois de imprimir os textos do cabeçalho, vamos colocar a fonte como normal nTamFonte := 10 lNegrito := .F. oPrintXlsx:SetFont(cFonte, nTamFonte, lItalico, lNegrito, lSublinhado) //Na primeira linha do cabeçalho, vamos definir como tudo centralizado, a cor do texto verde e de fundo branca cHorAlinha := oCellHoriz:Center() cVerAlinha := oCellVerti:Center() oPrintXlsx:SetCellsFormat(cHorAlinha, cVerAlinha, lQuebrLin, nRotation, "22B14C", "FFFFFF", cCustForma) //Percorre agora as colunas e vem setando o tamanho delas e colocando o nome nLinExcel := 6 For nAtual := 1 To Len(aColunas) oPrintXlsx:SetColumnsWidth(nAtual, nAtual, aColunas[nAtual][2]) oPrintXlsx:SetText(nLinExcel, nAtual, aColunas[nAtual][1]) Next //Define que as colunas terão opção de filtrar (da coluna 1 até a quantidade de campos) oPrintXlsx:ApplyAutoFilter(nLinExcel, 1, nLinExcel, Len(aCampos)) //Percorrendo os dados da query nAtual := 0 While !(QRY_DAD->(EoF())) //Incrementando a regua nAtual++ IncProc("Adicionando registro " + cValToChar(nAtual) + " de " + cValToChar(nTotal) + "...") //Se for ímpar, o fundo vai ser verde claro, senão vai ser branco If nAtual % 2 != 0 cCorFundo := "EBF1DE" Else cCorFundo := "FFFFFF" EndIf //Incrementa a linha no Excel nLinExcel++ //Percorre as colunas For nCpoAtual := 1 To Len(aCampos) cCampoAtu := aCampos[nCpoAtual][1] cTipo := aCampos[nCpoAtual][2] xConteud := &("QRY_DAD->" + cCampoAtu) //Se for data, vai ser centralizado If cTipo == "D" xConteud := dToC(xConteud) //Se for numérico, vai ser a direita ElseIf cTipo == "N" //Se tem máscara, aplica num transform If ! Empty(aColunas[nCpoAtual][4]) xConteud := Alltrim(Transform(xConteud, aColunas[nCpoAtual][4])) //Senão converte de numérico para texto Else xConteud := cValToChar(xConteud) EndIf //Senão, apenas tira espaços do campo Else xConteud := Alltrim(xConteud) EndIf //Se o alinhamento for a direita If aColunas[nCpoAtual][3] == 1 cHorAlinha := oCellHoriz:Right() //Se for centralizado ElseIf aColunas[nCpoAtual][3] == 2 cHorAlinha := oCellHoriz:Center() //Senão, será a esquerda Else cHorAlinha := oCellHoriz:Left() EndIf //Reseta a formatação oPrintXlsx:ResetCellsFormat() //Em seguida, define a formatação da coluna, sendo que o texto será preto oPrintXlsx:SetCellsFormat(cHorAlinha, cVerAlinha, lQuebrLin, nRotation, "000000", cCorFundo, cCustForma) //Adiciona a informação na linha do excel na coluna do campo oPrintXlsx:SetText(nLinExcel, nCpoAtual, xConteud) Next QRY_DAD->(DbSkip()) EndDo //Vamos finalizar o arquivo oPrintXlsx:ToXlsx() oPrintXlsx:DeActivate() //E agora vamos abrir ele cArquivo := ChgFileExt(cArquivo, ".xlsx") If File(cArquivo) oExcel := MsExcel():New() oExcel:WorkBooks:Open(cArquivo) oExcel:SetVisible(.T.) oExcel:Destroy() EndIf EndIf Else FWAlertError("Não foi encontrado registros com os filtros informados!", "Falha") EndIf QRY_DAD->(DbCloseArea()) FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
Boa Tarde Atílio!
Usando o fator 1.5 algumas células ficam pequenas e outras muito largas, existe alguma forma de redimensiona-las depois, tipo o comando de “autofit” que existe no vba?
Bom dia Gabriel, tudo joia?
Não sei dizer se a classe FWPrinterXLSX tem algum método que simule o “autofit”, tentei pesquisar aqui mas não encontrei. Se eu encontrar algo, eu atualizo aqui o comentário.
Essas que ficaram muito largas, foi devido ao tamanho do campo? Por exemplo, vamos supor que eu tenha um campo, A1_NOME, com o tamanho 100 caracteres (no X3_TAMANHO), mas ai o máximo preenchido são 40 caracteres. Se for esse cenário, daria para dar um MAX() de RTRIM() via SQL Server nessa coluna para pegar esses 40 no lugar do 100.
Já para o cenário que estão muito curtas, daria para colocar um tamaho minimo, por exemplo, se o campo for 4 caracteres, o minimo para considerar na conta serão 10.
Tenha uma ótima e abençoada quarta feira.
Um grande abraço.