Como gerar um excel com a FWPrinterXLSX | Ti Responde 0081

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.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

2 Responses

  1. Gabriel Bravim Sales disse:

    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.

Deixe uma resposta

Terminal de Informação