Versões comparadas
Chave
- Esta linha foi adicionada.
- Esta linha foi removida.
- A formatação mudou.
O que é?
Classe responsável por auxiliar a printer.exe
na geração de arquivos .xlsx. Esta classe faz o processo de escrever o arquivo intermediário com as instruções a serem convertidas e que gerarão o arquivo .xlsx.
Aviso |
---|
O recurso depende primariamente da Classe disponível na lib com label igual ou superior a |
Métodos
New()
Cria a instância de um objeto da classe FwPrinterXlsx
.
Permite a configuração se deve excluir o arquivo auxiliar .rel
de construção da planilha .xlsx
.
Sintaxe: FwPrinterXlsx():New(lDelBase) → objeto FwPrinterXlsx
Parâmetros:
Nome
Tipo
Obrigatório
Default
Referência
Descrição
Caso seja utilizada versão anterior será lançada uma exceção
Obs.: O binário da printer precisa estar atualizado no servidor e também no cliente, pois conforme condições, a impressão pode utilizar um ou outro. |
Aviso |
---|
Classe disponível na lib com label igual ou superior a |
Métodos
New()
Cria a instância de um objeto da classe FwPrinterXlsx
.
Permite a configuração se deve excluir o arquivo auxiliar .rel
de construção da planilha .xlsx
.
Sintaxe: FwPrinterXlsx():New(lDelBase) → objeto FwPrinterXlsx
lDelBase
Lógico.F.indica se deve apagar o arquivo base após o comando para geração do .xlsx
Exemplo:
Bloco de código | ||
---|---|---|
| ||
local oFwXlsx := FwPrinterXlsx():New() |
Activate()
Prepara o objeto para realizar a escrita do arquivo base. O resultado do método indica se conseguiu preparar com sucesso o arquivo base.
Permite a configuração do objeto utilizado na escrita considerando como base a classe FwFileWriter
.
Sintaxe: FwPrinterXlsx():Activate(cFile, oFile) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
cFile
lDelBase |
Lógico |
oFile
objetoobjeto FwFileWriter()
xobjeto para realizar a escrita dos comandos no arquivo base.F. | indica se deve apagar o arquivo base após o comando para geração do .xlsx |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
local cPathoFwXlsx := "\spool\" // /spool/ para uma geração no server local cArquivo := cPath + "xls_class_rel.rel" lRet := oXlsx:Activate(cArquivo) // informando o FwFileWriter // oFileW := FwFileWriter():New(cFilename) // lRet := oXlsx:Activate(cFilename, oFileW) |
Aviso | ||
---|---|---|
| ||
Informe caminhos de diretórios completos (a partir do cliente ou do rootpath) para não ter comportamentos inesperados com a execução da printer no final. Prefira o uso de diretório e nomes de arquivos como: |
toXlsx()
Faz a criação do arquivo .xlsx depois de ter completado o preenchimento e configuração das informações na classe.
Sintaxe: FwPrinterXlsx():toXlsx() → nil
Bloco de código | ||
---|---|---|
| ||
lRet := oFwXlsx:Activate(cGenFile)
oFwXlsx:toXlsx()
cGenFile := StrTran(cGenFile, ".rel", ".xlsx")
if file(cGenFile)
CpyS2T(cGenFile, cDestFile)
else
// arquivo não gerado
endif |
Aviso | ||
---|---|---|
| ||
Fica sob responsabilidade do programa/código cliente verificar se o arquivo foi .xlsx gerado onde desejado e eventualmente mover para um destino desejado como a máquina da pessoa ou diretório compartilhado. |
EraseBaseFile()
FwPrinterXlsx():New() |
Activate()
Prepara o objeto para realizar a escrita do arquivo base. O resultado do método indica se conseguiu preparar com sucesso o arquivo base.
Permite a configuração do objeto utilizado na escrita considerando como base a classe FwFileWriter
.
Sintaxe: FwPrinterXlsx():Activate(cFile, oFile) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
cFile | caractere | x | caminho do arquivo para o .rel e .xlsx final | ||
oFile | objeto | objeto FwFileWriter() | x | objeto para realizar a escrita dos comandos no arquivo base |
Bloco de código | ||
---|---|---|
| ||
local cPath := "\spool\" // /spool/ para uma geração no server
local cArquivo := cPath + "xls_class_rel.rel"
lRet := oXlsx:Activate(cArquivo)
// informando o FwFileWriter
// oFileW := FwFileWriter():New(cFilename)
// lRet := oXlsx:Activate(cFilename, oFileW) |
Aviso | ||
---|---|---|
| ||
Informe caminhos de diretórios completos (a partir do cliente ou do rootpath) para não ter comportamentos inesperados com a execução da printer no final. Prefira o uso de diretório e nomes de arquivos como: |
toXlsx()
Faz a criação do arquivo .xlsx depois de ter completado o preenchimento e configuração das informações na classeExclui o arquivo base .rel gerado com uma instância da classe FwPrinterXlsx.
Sintaxe: FwPrinterXlsx():EraseBaseFiletoXlsx() → nil
DeActivate()
Remove os elementos preparados com a criação e escrita do arquivo no Activate.
Sintaxe: FwPrinterXlsx():DeActivate() → nil
Destroy()
Remove os recursos conhecidos que prendem memória em múltiplas execuções da classe.
Sintaxe: FwPrinterXlsx():Destroy() → nil
SetFont()
Bloco de código | ||
---|---|---|
| ||
lRet := oFwXlsx:Activate(cGenFile)
oFwXlsx:toXlsx()
cGenFile := StrTran(cGenFile, ".rel", ".xlsx")
if file(cGenFile)
CpyS2T(cGenFile, cDestFile)
else
// arquivo não gerado
endif |
Aviso | ||
---|---|---|
| ||
Fica sob responsabilidade do programa/código cliente verificar se o arquivo foi .xlsx gerado onde desejado e eventualmente mover para um destino desejado como a máquina da pessoa ou diretório compartilhado. |
EraseBaseFile()
Exclui o arquivo base .rel gerado com uma instância da classe FwPrinterXlsxFaz a indicação da fonte para ser utilizada nas novas atribuições de conteúdos que acontecer nas células.
Sintaxe: FwPrinterXlsx():SetFont(cFont, nSize, lItalic, lBold, lUnderlinedEraseBaseFile() → lRet
Parâmetros:
nil
DeActivate()
Remove os elementos preparados com a criação e escrita do arquivo no Activate.
Sintaxe: FwPrinterXlsx():DeActivate() → nil
Destroy()
Remove os recursos conhecidos que prendem memória em múltiplas execuções da classe.
Sintaxe: FwPrinterXlsx():Destroy() → nil
SetFont()
Faz a indicação da fonte para ser utilizada nas novas atribuições de conteúdos que acontecer nas células.
Sintaxe: FwPrinterXlsx():SetFont(cFont, nSize, lItalic, lBold, lUnderlined) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Nome | Tipo | Obrigatório | Default | Referência | Descrição |
cFont | caractere | x | código da fonte - Utilize a classe FwPrinterFont como referência | ||||||
nSize | numérico | x | tamanho da fonte | ||||||
lItalic | lógico | x | deve exibir em itálico? | ||||||
lBold | lógico | x | deve exibir em negrito? | ||||||
lUnderlined | lógico | x | deve exibir sublinhado? |
Exemplo:
Bloco de código | ||||
---|---|---|---|---|
| ||||
// cFont := FwPrinterFont():getFromName("Calibri") cFont := FwPrinterFont():Calibri() nSize := 14 lItalic := .T. lBold := .T. lUnderlined := .T. // Comando 'Fonte' com Calibri 14, itálico, negrito e sublinhado lRet := oXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) |
ResetFont()
Redefine a fonte padrão para uma planilha.
A fonte padrão é Calibri, tamanho 11 e sem itálico, sem negrito e sem sublinhado.
Sintaxe: FwPrinterXlsx():ResetFont() → lRet
SetFontConfig()
Faz a definição de uma fonte através de um objeto de configuração.
Facilita os casos de troca repetida de fontes, permitindo ter um objeto pré configurado com as características desejadas. Internamente é utilizado o método setFont
.
O objeto de configuração é o retorno do método estático da classe FwXlsxPrinterConfig:MakeFont()
.
Sintaxe: FwPrinterXlsx():SetFontConfig(jFont) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
jFont | objeto JsonObject | x | configuração configuração com as propriedades para fontes [
|
Exemplo:
Bloco de código | ||
---|---|---|
| ||
jFontItalic := FwXlsxPrinterConfig():MakeFont() jFontItalic['italic'] := .T. jFontBold := FwXlsxPrinterConfig():MakeFont() jFontBold['bold'] := .T. lRet := self:oPrintXlsx:SetFontConfig(jFontItalic) // escreve no arquivo lRet := self:oPrintXlsx:SetFontConfig(jFontBold) // escreve novamente no arquivo |
SetColumnsWidth()
Define a largura para uma lista de colunas.
O valor da largura segue a especificação de unidade do excel e o valor padrão das colunas é de 8,43
.
Sintaxe: FwPrinterXlsx():SetColumnsWidth(nColFrom, nColTo, nWidth) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nColFrom | numérico | x | determina a partir de qual coluna aplicar o ajuste de largura | ||
nColTo | numérico | x | determina até qual coluna deve aplicar o ajuste de largura | ||
nWidth | numérico | x | determina a nova largura |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
// Largura 23,71 lRet := oXlsx:SetColumnsWidth(5, 10, 23.71) |
SetRowsHeight()
Define a altura para uma lista de linhas.
Este valor segue a especificação de unidade do excel e o valor padrão das linhas é de 15.00
.
Sintaxe: FwPrinterXlsx():SetRowsHeight(nRowFrom, nRowTo, nHeight) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRowFrom | numérico | x | determina a partir de qual linha aplicar o ajuste de altura | ||
nRowTo | numérico | x | determina até qual linha deve aplicar o ajuste de altura | ||
nHeight | numérico | x | determina a nova altura |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
nRowFrom := 26 nRowTo := 30 nHeight := 18.75 // Altura 18,75 nas linhas 26 a 30 lRet := oXlsx:SetRowsHeight(nRowFrom, nRowTo, nHeight) |
SetCellsFormat()
Define a formatação a ser aplicada nas células.
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescrição, aplicando alinhamento, cores e formatação dos valores.
Os alinhamentos de conteúdo possuem classes de apoio para a recuperação dos códigos a serem utilizados. As classes são FwXlsxCellAlignment
, FwXlsxHorizontalAlignment
e FwXlsxVerticalAlignment
.
Os valores para as cores seguem o padrão RGB contudo sem a marcação
Sintaxe: FwPrinterXlsx():SetCellsFormat(cHorAlign, cVertAlign, lTextWrap, nRotDegrees, cTextColor, cBgColor, cCustomFormat)→ lRet
Exemplo:
ResetCellsFormat()Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
Exemplo:
SetCellsFormatConfig()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
MergeCells()
Aplica a unificação de um conjunto de células que esteja no intervalo matricial informado (células de - até).
Sintaxe: FwPrinterXlsx():MergeCells(nRowFrom, nColFrom, nRowTo, nColTo) → lRet
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãocHorAlign | caractere | x | determina o alinhamento horizontal do conteúdo veja: FwXlsxHorizontalAlignment | ||
cVertAlign | caractere | x | determina o alinhamento vertical do conteúdo veja: FwXlsxVerticalAlignment | ||
lTextWrap | lógico | x | deve aplicar quebra de linha? | ||
nRotDegrees | numérico | x | define a rotação do texto em graus 0 - 359 | ||
cTextColor | caractere | x | define a cor para o texto na célula | ||
cBgColor | caractere | x | define a cor de fundo da célula | ||
cCustomFormat | caractere | "" | determina tipo personalizado de formatação do conteúdo |
Exemplo:
Bloco de código |
---|
static oCellHorAlign := FwXlsxCellAlignment():Horizontal()
static oCellVertAlign := FwXlsxCellAlignment():Vertical()
cHorAlignment := oCellHorAlign:Center()
cVertAlignment := oCellVertAlign:Center()
lWrapText := .F.
nRotation := 270
cCustomFormat := ""
// Seta texto vermelho com alinhamento horizontal e vertical centralizado e com rotação de texto vertical
lRet := oXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "FF0000", "FFFFFF", cCustomFormat) |
ResetCellsFormat()
Redefine para a formatação padrão de células.
O padrão das células é alinhamento horizontal e vertical Default sem quebra de texto, sem rotação, texto na cor preta e fundo da célula na cor branca e sem formatação de conteúdo
Sintaxe: FwPrinterXlsx():ResetCellsFormat()→ lRet
SetCellsFormatConfig()
Aplica as configurações de formatação utilizando um objeto com as propriedades necessárias.
Sintaxe: FwPrinterXlsx():SetCellsFormatConfig(jFormat) → lRet
nRowFrom
numéricoxindica a partir de qual linha aplicar a unificaçãonColFrom
numéricoxindica a partir de qual coluna aplicar a unificaçãonRowTo
numéricoxindica até qual linha aplicar a unificaçãonColTo
numéricoxindica até qual coluna aplicar a unificaçãoExemplo:
Bloco de código | ||
---|---|---|
| ||
nRowFrom := 2
nColFrom := 2
nRowTo := 21
nColTo := 3
// Mescla intervalo B2:C21
lRet := oXlsx:MergeCells(nRowFrom, nColFrom, nRowTo, nColTo) |
SetBorder()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
ResetBorder()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetBorderConfig()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
ApplyFormat()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
AddSheet()Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
Exemplo:
SetValue()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãojFormat | objeto JsonObject | x | configuração com as propriedades para fontesFwXlsxPrinterConfig():MakeFormat() |
Exemplo:
Bloco de código |
---|
jFormat := FwXlsxPrinterConfig():MakeFormat()
jFormat['hor_align'] := oCellHorAlign:Center()
jFormat['vert_align'] := oCellVertAlign:Center()
// formatação para todas as células a seguir
lRet := oXlsx:SetCellsFormatConfig(jFormat) |
MergeCells()
Aplica a unificação de um conjunto de células que esteja no intervalo matricial informado (células de - até).
Sintaxe: FwPrinterXlsx():MergeCells(nRowFrom, nColFrom, nRowTo, nColTo) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRowFrom | numérico | x | indica a partir de qual linha aplicar a unificação | ||
nColFrom | numérico | x | indica a partir de qual coluna aplicar a unificação | ||
nRowTo | numérico | x | indica até qual linha aplicar a unificação | ||
nColTo | numérico | x | indica até qual coluna aplicar a unificação |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
nRowFrom := 2
nColFrom := 2
nRowTo := 21
nColTo := 3
// Mescla intervalo B2:C21
lRet := oXlsx:MergeCells(nRowFrom, nColFrom, nRowTo, nColTo) |
SetBorder()
Determina as bordas para as próximas células que receberão conteúdo.
Sintaxe: FwPrinterXlsx():SetBorder(lLeft, lTop, lRight, lBottom, cStyle, cColor)
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
lLeft | lógico | x | deve usar borda à esquerda? | ||
lTop | lógico | x | deve usar borda superior? | ||
lRight | lógico | x | deve usar borda à direita? | ||
lBottom | lógico | x | deve usar borda inferior? | ||
cStyle | caractere | x | define qual o tipo de borda (FwXlsxBorderStyle ) | ||
cColor | caractere | x | define a cor para as bordas |
Exemplo:
Bloco de código |
---|
lTop := .T.
lBottom := .T.
lLeft:= .T.
lRight := .T.
cStyle := FwXlsxBorderStyle():DashDot()
cColor := "008000"
// Borda
lRet := oXlsx:SetBorder(lLeft, lTop, lRight, lBottom, cStyle, cColor) |
ResetBorder()
Redefine para as bordas de células para o padrão.
O padrão das bordas é sem indicação de uso de bordas (falso para os quatro lados), estilo None (não aplica estilo algum) e cor de linha preta.
Sintaxe: FwPrinterXlsx():ResetBorder() → lRet
SetBorderConfig()
Aplica as configurações de borda utilizando um objeto com as propriedades necessárias.
Sintaxe: FwPrinterXlsx():SetBorderConfig(jBorder) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
jBorder | objeto JsonObject | x | configuração com as propriedades para as bordasFwXlsxPrinterConfig():MakeBorder() |
Exemplo:
Bloco de código |
---|
// Bordas para o header
jBorderHeader := FwXlsxPrinterConfig():MakeBorder()
jBorderHeader['top'] := .T.
jBorderHeader['bottom'] := .T.
jBorderHeader['border_color'] := "B1B1B1"
jBorderHeader['style'] := FwXlsxBorderStyle():Double()
lRet := oXlsx:SetBorderConfig(jBorderHeader) |
AddSheet()
Adiciona uma aba à planilha. Este é um dos comandos obrigatórios para a geração de uma planilha.
Sintaxe: FwPrinterXlsx():AddSheet(cSheetName) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
cSheetName | caractere | nil | nome para a aba |
Exemplo:
Bloco de código |
---|
// Nova aba
lRet := oXlsx:AddSheet("Minha Plan2")
// lRet := oXlsx:AddSheet() |
ApplyFormat()
Comando que força a aplicação de uma formatação à célula.
Este comando pode ser usado para atribuir um formato às células e minimizar a quantidade de escrita no arquivo base.
A formatação envolvida são: configuração de bordas, formatação de conteúdo, alinhamento e cor e definição de fonte.
Sintaxe: FwPrinterXlsx():ApplyFormat(nRow, nCol) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | número da linha da célula para aplicar as formatações | ||
nCol | numérico | x | número da linha da célula para aplicar as formatações |
Exemplo:
Bloco de código |
---|
lTop := .T.
lBottom := .T.
lLeft:= .T.
lRight := .T.
cStyle := FwXlsxBorderStyle():DashDot()
cColor := "008000"
// Borda
lRet := oXlsx:SetBorder(lLeft, lTop, lRight, lBottom, cStyle, cColor)
nRow := 12
nCol := 1
// blank - Usado somente para aplicar a formatação
lRet := oXlsx:ApplyFormat(nRow, nCol) |
SetValue()
Atribuição genérica de um valor para a célula conforme os tipos do Advpl, a atribuição é redirecionada internamente para o tipo de atribuição apropriada por exemplo, caractere → setText
e numérico → setNumber
.
Nenhum dos comandos de atribuição de valor aplica a formatação para o tipo, ou seja é necessário que indique o formato que queira exibir o conteúdo na célula antes da atribuição ou então aplique depois de ter atribuído o valor com o método ApplyFormat
para cada uma das células escritas antes.
Sintaxe: FwPrinterXlsx():SetValue(nRow, nCol, xValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
xValue | caractere | data | lógico | numérico | x | valor para atribuição de algum dos tipos: caractere, numérico, data ou lógico de Advpl |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
lRet := oXlsx:SetValue(1, 3, "Mês")
lRet := oXlsx:SetValue(2, 3, 1)
lRet := oXlsx:SetValue(3, 3, .F.)
lRet := oXlsx:SetValue(4, 3, STOD("20200827")) // ficará sem formatação de data
cHorAlignment := oCellHorAlign:Default()
cVertAlignment := oCellVertAlign:Default()
lWrapText := .F.
nRotation := 0
cCustomFormat := "dd-mm-yyyy"
// Seta formato de data dd-mm-yyyy
lRet := oXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat)
lRet := oXlsx:SetValue(5, 3, STOD("20200827")) // terá formatação de data |
SetText()
Atribui um valor de texto a uma célula.
Sintaxe: FwPrinterXlsx():SetText(nRow, nCol, cValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
cValue | caractere | x | texto para atribuição |
SetNumber()
Atribui um valor numérico a uma célula.
Sintaxe: FwPrinterXlsx():SetNumber(nRow, nCol, nValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
nValue | numérico | x | número para atribuição |
SetFormula()
Atribui uma fórmula a uma célula. Esta fórmula não tem sua validade consistida na atribuição.
Sintaxe: FwPrinterXlsx():SetFormula(nRow, nCol, cValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
cValue | caractere | x | fórmula para atribuição |
Exemplo:
SetDate()
Atribui o valor de data do Advpl a uma célula.
Sintaxe: FwPrinterXlsx():SetDate(nRow, nCol, dValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
dValue | data | x | data para atribuição |
SetDateTime()
Atribui o valor de data e hora a uma célula.
Espera que este valor no formato aceito pela printer.exe.
Veja a classe FwXlsxDateFormat
para os detalhes de como gerar o formato da printer para data e hora.
Sintaxe: FwPrinterXlsx():SetDateTime(nRow, nCol, cValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
cValue | caractere | x | valor formatado para atribuição ver: FwXlsxDateFormat():toPrinterFormat() |
Exemplo:
Bloco de código |
---|
cHorAlignment := oCellHorAlign:Default()
cVertAlignment := oCellVertAlign:Default()
lWrapText := .F.
nRotation := 0
cCustomFormat := "dd/mm/yy hh:mm:ss.000"
// Define o formato de data e hora dd/mm/yy hh:mm:ss.000
lRet := oXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat)
nRow := 6
nCol := 3
oXlsxDate := FwXlsxDateFormat():New()
oXlsxDate:SetYear("2019")
oXlsxDate:SetMonth("8")
oXlsxDate:SetDay("23")
oXlsxDate:SetHour("17")
oXlsxDate:SetMinute("55")
oXlsxDate:SetSeconds("43.123")
cValue := oXlsxDate:toPrinterFormat()
// data e hora completas na célula
lRet := oXlsx:SetDateTime(nRow, nCol, cValue) |
SetHyperlink()
Atribui um hiperlink interno ou externo (URL) a uma célula.
Sintaxe: FwPrinterXlsx():SetHyperlink(nRow, nCol, cValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
cValue | caractere | x | url ou hiperlink para o documento para atribuição |
SetBoolean()
Atribui um valor lógico a uma célula.
Sintaxe: FwPrinterXlsx():SetBoolean(nRow, nCol, lValue) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para atribuição do valor | ||
nCol | numérico | x | coluna da célula para atribuição do valor | ||
lValue | lógico | x | valor lógico para atribuição |
AddImageFromBuffer()
Adiciona uma imagem para a planilha a partir de uma string contendo os bytes da imagem (buffer).
O tamanho da imagem está limitado à 999.999 bytes
(aproximadamente 976Kb), caso a imagem ultrapasse este tamanho é necessário informar o endereço de diretório absoluto para a imagem com o método AddImageFromAbsolutePath
.
Apesar de receber a indicação de célula (linha e coluna) a renderização das imagens no arquivo gerado não será reduzida ao tamanho da célula. A imagem será exibida em seu tamanho original, podendo ser indicado os novos valores em pixels para a largura e altura com os parâmetros nWidthResize
e nHeightResize
.
Sintaxe: FwPrinterXlsx():AddImageFromBuffer(nRow, nCol, cImageId, cBuffer, nWidthResize, nHeightResize) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para início da exibição da imagem | ||
nCol | numérico | x | coluna da célula para início da exibição da imagem | ||
cImageId | caractere | x | id da imagem para referências futuras com o método UseImageFromBuffer | ||
cBuffer | caractere | x | string com o buffer da imagem | ||
nWidthResize | numérico | 0 | nova largura para a imagem | ||
nHeightResize | numérico | 0 | nova altura para a imagem |
Informações |
---|
Um ponto de atenção é a configuração do limite para o tamanho de strings no Appserver e no Smartclient, pois a leitura de arquivo de imagens pode facilmente exceder os limites configurados. |
Exemplo:
Bloco de código |
---|
cImgRel := 'logo'
nHndImagem:= fOpen(cImgDir, FO_READ)
nLenImagem := 0
nLenImagem := fSeek( nHndImagem, 0, FS_END)
fSeek( nHndImagem, 0, FS_SET)
fRead( nHndImagem, @cBuffer, nLenImagem)
lRet := oXlsx:AddImageFromBuffer(5, 8, cImgRel, cBuffer, 0, 0) |
UseImageFromBuffer()
Usa uma imagem já adicionada à planilha através do método AddImageFromBuffer
anteriormente no arquivo.
Sintaxe: FwPrinterXlsx():UseImageFromBuffer(nRow, nCol, cImageId, nWidthResize, nHeightResize) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para início da exibição da imagem | ||
nCol | numérico | x | coluna da célula para início da exibição da imagem | ||
cImageId | caractere | x | id da imagem adicionada por buffer anteriormente | ||
nWidthResize | numérico | 0 | nova largura para a imagem | ||
nHeightResize | numérico | 0 | nova altura para a imagem |
Exemplo:
Bloco de código |
---|
cImgId := 'id_de_imagem_adicionada_por_buffer'
lRet := oPrtXlsx:UseImageFromBuffer(20, 8, cImgId, 114, 33) |
AddImageFromAbsolutePath()
Adiciona uma imagem à planilha a partir de um endereço de diretório absoluto.
Este método tem seu resultado influenciado pelo local/endereço de geração do arquivo base .rel. Os comportamentos possíveis são:
- Quando o arquivo é gerado no servidor (
/spool/
,/system/
ou qualquer outro diretório norootpath
) o endereço absoluto da imagem precisa ser desde a unidade do disco local do servidor. Por exemplo, com o .rel no endereço/planilhas/arquivo.rel
a imagem precisa ser eme:\totvs\protheus\protheus_data\minhas_imagens\imagem_que_quero_usar.png
oul:/opt/totvs/protheus/protheus_data/minhas_imagens/imagem_que_quero_user.png.
- Quando o arquivo .rel é gerado local (endereço do cliente/terminal/smartclient) o endereço absoluto da imagem precisa ser a partir do disco local da máquina cliente. Por exemplo, com o .rel no endereço
c:\planilhas\minha_planilha.rel
a imagem precisa estar em um diretório acessível pela máquina cliente comoc:\temporários\imagens\imagem.png
.
Sintaxe: FwPrinterXlsx():AddImageFromAbsolutePath(nRow, nCol, cImgPath, nWidthResize, nHeightResize) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | linha da célula para início da exibição da imagem | ||
nCol | numérico | x | coluna da célula para início da exibição da imagem | ||
cImgPath | caractere | x | diretório absoluto da imagem | ||
nWidthResize | numérico | 0 | nova largura para a imagem | ||
nHeightResize | numérico | 0 | nova altura para a imagem |
Exemplo:
Bloco de código |
---|
// usando imagem no server no mesmo endereço do .rel
cRootPath := 'C:\Especif\Protheus12\sistemico\protheus_data_27'
cPath := "\spool\" // /spool/ para uma geração no server
cArquivo := cPath + "base_planilha.rel"
cImgDir := cRootPath + cPath + 'protheus_logo.png'
lRet := oXlsx:Activate(cArquivo)
lRet := oXlsx:AddImageFromAbsolutePath(10, 8, cImgDir, 200, 100)
// usando imagem no cliente/local no mesmo endereço do .rel
cPath := GetClientDir() // diretório do smartclient
cArquivo := cPath + "base_planilha.rel"
cImgDir := cPath + "protheus_logo.png"
lRet := oXlsx:Activate(cArquivo)
lRet := oXlsx:AddImageFromAbsolutePath(10, 8, cImgDir, 200, 100) |
ApplyAutoFilter()
Aplica um auto filtro no conjunto de células da matriz (de célula até célula).
Sintaxe: FwPrinterXlsx():ApplyAutoFilter(nRowFrom, nColFrom, nRowTo, nColTo) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRowFrom | numérico | x | linha da célula inicial (superior esquerda) | ||
nColFrom | numérico | x | coluna da célula inicial (superior esquerda) | ||
nRowTo | numérico | x | linha da célula final (inferior direita) | ||
nColTo | numérico | x | coluna da célula final (inferior direita) |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
// Aplica auto filtro no intervalo A1:C7
lRet := oXlsx:ApplyAutoFilter(1,1,7,3) |
SetVerticalBarCodeContent()
Adiciona um código de barras vertical.
Sintaxe: FwPrinterXlsx():SetVerticalBarCodeContent(nRow, nCol, cContent) → lRet
Parâmetros:
Nome | Tipo | Obrigatório | Default | Referência | Descrição |
nRow | numérico | x | posição de linha da célula para atribuição | ||
nCol | numérico | x | posição de coluna da célula para atribuição | ||
cContent | caractere | x | conteúdo para a montagem do código de barras |
Exemplo:
Bloco de código | ||
---|---|---|
| ||
nRow := 23
nCol := 13
cContent := "01005000000001001010111010001010111000111011101000101000111010111000101000111011100010101000111000101010111000111010"
lRet := oXlsx:SetVerticalBarCodeContent(nRow, nCol, cContent) // Comando 'Código de barra vertical' |
Outros códigos de barras
Os demais códigos de barras suportados são indicados a seguir. Estes são atribuições de conteúdos do tipo texto com fontes e valores específicos a cada um dos tipos.
Como a atribuição é do tipo texto, o controle da fonte fica sob responsabilidade do programa que está usando a FwPrinterXlsx
.
Code128
Possui as fontes Code128b e Code128c como opções para a impressão do código de barras.
Exemplo:
Bloco de código | ||
---|---|---|
| ||
// cFont := FwPrinterFont():getFromName('code128b')
cFont := FwPrinterFont():Code128b()
nSize := 50
lItalic := .F.
lBold := .F.
lUnderlined := .F.
// Fonte Code 128 (para código de barras)
lRet := oPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined)
nRow := 2
nCol := 13
// Texto para o código de barras Code128
lRet := oPrtXlsx:SetText(nRow, nCol, "Ò,BX'hÓ") |
QrCode
Possui a fonte QrCode disponível para uso.
Exemplo:
Bloco de código | ||
---|---|---|
| ||
// cFont := FwPrinterFont():getFromName('qrcode')
cFont := FwPrinterFont():QrCode()
nSize := 50
lItalic := .F.
lBold := .F.
lUnderlined := .F.
// Fonte QRCode (para código de barras 2D)
lRet := oPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined)
nRow := 6
nCol := 13
// Texto para o código de barras QRCode
lRet := oPrtXlsx:SetText(nRow, nCol, "QRCode gerado para o Excel") |
DataMatrix
Possui a fonte Datamatrix disponível para uso.
Exemplo:
Bloco de código | ||
---|---|---|
| ||
// cFont := FwPrinterFont():getFromName('datamatrix')
cFont := FwPrinterFont():DataMatrix()
nSize := 50
lItalic := .F.
lBold := .F.
lUnderlined := .F.
// Fonte DataMatrix (para código de barras 2D)
lRet := oPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) |
SetTypeDisplayLineGrid
Informa o tipo de visualização de linhas do grid, esse método está disponível na lib 20231009
Exemplo:
Bloco de código | ||
---|---|---|
| ||
lRet := oPrtXlsx:SetTypeDisplayLineGrid( totvs.framework.xlsx.LinesGridDisplay():getHideAll() ) |
GetStatusPrinter
Retorna o status da printer sobre a geração do XLSX, esse método está disponível na lib 20231009. Esse status não deve ser utilizado para validar a geração bem sucedida do XLSX.
Exemplo:
Bloco de código | ||
---|---|---|
| ||
nStatus := oPrtXlsx:GetStatusPrinter() |
PDF417
Possui a fonte pdf417 disponível para uso.
Exemplo:
Bloco de código | ||
---|---|---|
| ||
// cFont := FwPrinterFont():getFromName('PDF417')
cFont := FwPrinterFont():PDF417()
nSize := 300
lItalic := .T.
lBold := .F.
lUnderlined := .F.
// Fonte PDF417 (para código de barras 2D)
lRet := oPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) |
Exemplo:
SetText()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetNumber()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetFormula()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetDate()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetDateTime()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetHyperlink()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetBoolean()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
AddImageFromBuffer()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
UseImageFromBuffer()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
AddImageFromAbsolutePath()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
SetVerticalBarCodeContent()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:
ApplyAutoFilter()
Parâmetros:
NomeTipoObrigatórioDefaultReferênciaDescriçãoExemplo:Exemplos
Uso simples
O exemplo a seguir mostra como gerar uma planilha simples.
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch' function u_basicoxlsx() local oXlsxoPrtXlsx as object local cFilename as character // local oFileW as object local lRet as logical cFilename := '/system/'+cValToChar(ThreadId())+'_teste_poc.rel' ferase(cFilename) // oFileW := FwFileWriter():New(cFilename) oXlsxoPrtXlsx := FwPrinterXlsx():New() // lRet := oXlsxoPrtXlsx:Activate(cFilename, oFileW) lRet := oXlsxoPrtXlsx:Activate(cFilename) lRet := oXlsxoPrtXlsx:AddSheet("1 - Plan") lRet := oXlsxoPrtXlsx:SetText(1, 1, "Valor na célula") lRet := oXlsxoPrtXlsx:toXlsx() oXlsxoPrtXlsx:DeActivate() Return |
Planilha com todos os recursos
O exemplo de planilha a seguir implementa todos os recursos disponíveis.
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "protheus.ch" #include "fileio.ch" static oCellHorAlign := FwXlsxCellAlignment():Horizontal() static oCellVertAlign := FwXlsxCellAlignment():Vertical() function u_fwprtxlsx() classe() alert('terminou') return static function classe() static function classe() // Antes de rodar este programa coloque uma imagem válida nos diretórios mencionados a seguir // ou indique um caminho válido para uma imagem local cRootPath := 'C:\Especif\Protheus12\sistemico\protheus_data_27' local cPath := "\spool\" // /spool/ para uma geração no server local cArquivo := cPath + "xls_class_relexemplo.rel" local cImgRel := 'logo' local cImgDir := cRootPath + cPath + 'protheus_logo.png' local cBuffer:= "" local lRet := .F. local oFileW := FwFileWriter():New(cArquivo) local oPrtXlsx := FwPrinterXlsx():New() local oXlsx := FwPrinterXlsx():New()nHndImagem := 0 local nLenImagem := 0 local jFontHeader local jFontNum local jFontText local jBorderHeader local jBorderLeft local jBorderCenter local jBorderRight local jFormat locallRet nHndImagem:= fOpenoPrtXlsx:Activate(cImgDircArquivo, FO_READoFileW) locallRet nLenImagem:= oPrtXlsx:= 0AddSheet("Minha Plan1") local jFontHeader local jFontNum local jFontText// Atenção, antes de remover os comentários dos comandos a seguir local// jBorderHeader confira o endereço para locala jBorderLeftimagem local// jBorderCenter nHndImagem := local jBorderRightfOpen(cImgDir, FO_READ) local jFormat // if nHndImagem < 0 // return MsgStop("Não foi possível abrir " + cImgDir) // endIfendif // nLenImagem := fSeek( nHndImagem, 0, FS_END) // fSeek( nHndImagem, 0, FS_SET) // fRead( nHndImagem, @cBuffer, nLenImagem) lRet := oXlsx:Activate(cArquivo, oFileW) // lRet := oXlsx:AddSheet("Minha Plan1") lRet := oXlsx:oPrtXlsx:AddImageFromBuffer(5, 8, cImgRel, cBuffer, 0, 0) // lRet := oXlsxoPrtXlsx:AddImageFromAbsolutePath(10, 8, cImgDir, 200, 100) // lRet := oXlsxoPrtXlsx:UseImageFromBuffer(20, 8, cImgRel, 114, 33) // cFont := FwPrinterFont():getFromName("Calibri") cFont := FwPrinterFont():Calibri() nSize := 14 lItalic := .T. lBold := .T. lUnderlined := .T. // Comando 'Fonte' com Calibri 14, itálico, negrito e sublinhado lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 // Comando 'Formato de Célula' com cor de texto e fundo personalizadas lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "FF0000", "C0C0C0", "" ) nColFrom := 1 nColTo := 5 nWidth := 24 lRet := oXlsxoPrtXlsx:SetColumnsWidth(nColFrom, nColTo, nWidth) nRow := 1 nCol := 1 // Texto em A1 lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "Texto na célula") // cFont := FwPrinterFont():getFromName("Calibri") cFont := FwPrinterFont():Calibri() nSize := 11 lItalic := .F. lBold := .F. lUnderlined := .F. // Calibri 11 lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) lRet := oXlsxoPrtXlsx:ResetCellsFormat() nRow := 2 nCol := 1 lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "00123") nRow := 3 nCol := 1 // Número 008 lRet := oXlsxoPrtXlsx:SetNumber(nRow, nCol, 8) nRow := 4 nCol := 1 // Número 04 lRet := oXlsxoPrtXlsx:SetNumber(nRow, nCol, 4) nRow := 5 nCol := 1 // Fórmula que soma os dois números anteriores lRet := oXlsxoPrtXlsx:SetFormula(nRow, nCol, "=SUM(A3:A4)") cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "#,##0" // Comando 'Formato de Célula' com cor de texto e fundo personalizadas lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 4 nCol := 2 // Número com formato customizado (123.123.123) lRet := oXlsxoPrtXlsx:SetNumber(nRow, nCol, 123123123) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "0.00%" // Comando 'Formato de Célula' com cor de texto e fundo personalizadas lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 4 nCol := 3 // Número com formato customizado (4,27%) lRet := oXlsxoPrtXlsx:SetNumber(nRow, nCol, 0.0427) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "R$ #,##0.00;[Red]-R$ #,##0.00" // Seta formato numérico R$ #,##0.00;[Red]-R$ #,##0.00 lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 4 nCol := 4 // Número com formato customizado (R$ 1234,56) lRet := oXlsxoPrtXlsx:SetNumber(nRow, nCol, 1234.56) nRow := 4 nCol := 5 // Número com formato customizado (R$ 1234,56) lRet := oXlsxoPrtXlsx:SetNumber(nRow, nCol, -1234.56) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "dd/mm/yyyy" // Seta formato de data dd/mm/yyyy lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 6 nCol := 1 dValue := STOD("20190823") // Data "ano, mês, dia, hora, minuto, segundo" no padrão: yyyy,mm,dd,hh,mm,ss.sss lRet := oXlsxoPrtXlsx:SetDate(nRow, nCol, dValue) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "hh:mm" // Seta formato de hora hh:mm lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 6 nCol := 2 oXlsxDateoPrtXlsxDate := FwXlsxDateFormat():New() oXlsxDateoPrtXlsxDate:SetHour("17") oXlsxDateoPrtXlsxDate:SetMinute("55") cValue := oXlsxDateoPrtXlsxDate:toPrinterFormat() // 17:55 lRet := oXlsxoPrtXlsx:SetDateTime(nRow, nCol, cValue) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "dd/mm/yy hh:mm:ss.000" // Seta formato de data e hora dd/mm/yy hh:mm:ss.000 lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 6 nCol := 3 oXlsxDateoPrtXlsxDate := FwXlsxDateFormat():New() oXlsxDateoPrtXlsxDate:SetYear("2019") oXlsxDateoPrtXlsxDate:SetMonth("8") oXlsxDateoPrtXlsxDate:SetDay("23") oXlsxDateoPrtXlsxDate:SetHour("17") oXlsxDateoPrtXlsxDate:SetMinute("55") oXlsxDateoPrtXlsxDate:SetSeconds("43.123") cValue := oXlsxDateoPrtXlsxDate:toPrinterFormat() // data e hora completas lRet := oXlsxoPrtXlsx:SetDateTime(nRow, nCol, cValue) nRow := 6 nCol := 4 oXlsxDateoPrtXlsxDate := FwXlsxDateFormat():New() oXlsxDateoPrtXlsxDate:SetYear("2019") oXlsxDateoPrtXlsxDate:SetMonth("8") oXlsxDateoPrtXlsxDate:SetDay("23") oXlsxDateoPrtXlsxDate:SetHour("17") oXlsxDateoPrtXlsxDate:SetMinute("55") oXlsxDateoPrtXlsxDate:SetSeconds("43.123") cValue := oXlsxDateoPrtXlsxDate:toPrinterFormat() // data e hora completas lRet := oXlsxoPrtXlsx:SetDateTime(nRow, nCol, cValue) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "mmm-yyyy" // Seta formato de data mmm-yyyy lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 6 nCol := 5 dValue := STOD("20190823") // Data "ano, mês, dia, hora, minuto, segundo" no padrão: yyyy,mm,dd,hh,mm,ss.sss lRet := oXlsxoPrtXlsx:SetDate(nRow, nCol, dValue) // cFont := FwPrinterFont():getFromName("Calibri") cFont := FwPrinterFont():Calibri() nSize := 11 lItalic := .F. lBold := .F. lUnderlined := .T. // Calibri sublinhada para url lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .F. nRotation := 0 cCustomFormat := "" // Seta formato com texto azul lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "0000FF", "FFFFFF", cCustomFormat) nRow := 7 nCol := 1 // url lRet := oXlsxoPrtXlsx:SetHyperlink(nRow, nCol, "http://www.totvs.com.br") nRow := 8 nCol := 1 // url lRet := oXlsxoPrtXlsx:SetHyperlink(nRow, nCol, "http://www.google.com") // Texto de exibição da url inserida no comando anterior lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "Google") nRow := 9 nCol := 1 // URIs locais são suportadas para referências lRet := oXlsxoPrtXlsx:SetHyperlink(nRow, nCol, "internal:'Minha Plan1'!A2") nRow := 10 nCol := 1 // URIs locais são suportadas para referências lRet := oXlsxoPrtXlsx:SetHyperlink(nRow, nCol, "internal:'Minha Plan2'!B2") // cFont := FwPrinterFont():getFromName("Calibri") cFont := FwPrinterFont():Calibri() nSize := 11 lItalic := .F. lBold := .F. lUnderlined := .F. // Calibri 11 lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) nRow := 11 nCol := 1 // lógico lRet := oXlsxoPrtXlsx:SetBoolean(nRow, nCol, .T.) nRow := 11 nCol := 2 // lógico lRet := oXlsxoPrtXlsx:SetBoolean(nRow, nCol, .F.) cHorAlignment := oCellHorAlign:Fill() cVertAlignment := oCellVertAlign:Justify() lWrapText := .T. nRotation := 0 cCustomFormat := "" // Formato lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "FF00FF", "808080", cCustomFormat) lTop := .T. lBottom := .T. lLeft:= .T. lRight := .T. cStyle := FwXlsxBorderStyle():DashDot() cColor := "008000" // Borda lRet := oXlsxoPrtXlsx:SetBorder(lLeft, lTop, lRight, lBottom, cStyle, cColor) nRow := 12 nCol := 1 // blank - Usado somente para aplicar a formatação lRet := oXlsxoPrtXlsx:ApplyFormat(nRow, nCol, "") nRow := 12 nCol := 2 // blank - Usado somente para aplicar a formatação ??? o que acontece quando tem valor ??? lRet := oXlsxoPrtXlsx:ApplyFormat(nRow, nCol, "1") // cFont := FwPrinterFont():getFromName('code128b') cFont := FwPrinterFont():Code128b() nSize := 50 lItalic := .F. lBold := .F. lUnderlined := .F. // Fonte Code 128 (para código de barras) lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) nRow := 2 nCol := 13 // Texto para o código de barras Code128 (o texto é codificado pela FWMSPrinter) lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "Ò,BX'hÓ") // cFont := FwPrinterFont():getFromName('qrcode') cFont := FwPrinterFont():QrCode() nSize := 50 lItalic := .F. lBold := .F. lUnderlined := .F. // Fonte QRCode (para código de barras 2D) lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) nRow := 6 nCol := 13 // Texto para o código de barras QRCode lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "QRCode gerado para o Excel") // cFont := FwPrinterFont():getFromName('datamatrix') cFont := FwPrinterFont():DataMatrix() nSize := 50 lItalic := .F. lBold := .F. lUnderlined := .F. // Fonte DataMatrix (para código de barras 2D) lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) nRow := 11 nCol := 13 // Texto para o código de barras Datamatrix lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "Datamatrix gerado para o Excel") // cFont := FwPrinterFont():getFromName('PDF417') cFont := FwPrinterFont():PDF417() nSize := 300 lItalic := .T. lBold := .F. lUnderlined := .F. // Fonte PDF417 (para código de barras 2D) lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) nRow := 16 nCol := 13 // Texto para o código de barras PDF417 lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "PDF417 gerado para o Excel") // cFont := FwPrinterFont():getFromName('calibri') cFont := FwPrinterFont():Calibri() nSize := 11 lItalic := .F. lBold := .F. lUnderlined := .F. // Calibri 11 lRet := oXlsxoPrtXlsx:SetFont(cFont, nSize, lItalic, lBold, lUnderlined) nRow := 23 nCol := 13 cContent := "01005000000001001010111010001010111000111011101000101000111010111000101000111011100010101000111000101010111000111010" lRet := oXlsxoPrtXlsx:SetVerticalBarCodeContent(nRow, nCol, cContent) // Comando 'Código de barra vertical' // Nova página lRet := oXlsxoPrtXlsx:AddSheet("Minha Plan2") cHorAlignment := oCellHorAlign:Center() cVertAlignment := oCellVertAlign:Center() lWrapText := .F. nRotation := 270 cCustomFormat := "" // Seta texto vermelho com alinhamento horizontal e vertical centralizado e com rotação de texto vertical lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "FF0000", "FFFFFF", cCustomFormat) nRowFrom := 2 nColFrom := 2 nRowTo := 21 nColTo := 3 // Mescla intervalo B2:C21 lRet := oXlsxoPrtXlsx:MergeCells(nRowFrom, nColFrom, nRowTo, nColTo) nRow := 2 nCol := 2 // Texto das células mescladas (apontando sempre para a primeira célula do intervalo) lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "Células Mescladas") lTop := .T. lBottom := .T. lLeft:= .F. lRight := .F. cStyle := FwXlsxBorderStyle():Medium() cColor := "0000FF" // Borda azul, superior e inferior lRet := oXlsxoPrtXlsx:SetBorder(lLeft, lTop, lRight, lBottom, cStyle, cColor) cHorAlignment := oCellHorAlign:Default() cVertAlignment := oCellVertAlign:Default() lWrapText := .T. nRotation := 0 cCustomFormat := "" // Seta texto texto com quebra de linha lRet := oXlsxoPrtXlsx:SetCellsFormat(cHorAlignment, cVertAlignment, lWrapText, nRotation, "000000", "FFFFFF", cCustomFormat) nRow := 24 nCol := 2 // Texto da célula com borda lRet := oXlsxoPrtXlsx:SetText(nRow, nCol, "Texto com quebra de linha") nRowFrom := 26 nRowTo := 30 nHeight := 18.75 // Altura 18,75 nas linhas 26 a 30 lRet := oXlsxoPrtXlsx:SetRowsHeight(nRowFrom, nRowTo, nHeight) // Largura 23,71 lRet := oXlsxoPrtXlsx:SetColumnsWidth(5, 10, 23.71) lRet := oXlsxoPrtXlsx:ResetBorder() // Limpa o formato lRet := oXlsxoPrtXlsx:ResetCellsFormat() // Nova planilha // Pequena planilha para testar o AutoFiltro lRet := oXlsxoPrtXlsx:AddSheet("AutoFiltro") jFontHeader := FwXlsxPrinterConfig():MakeFont() jFontHeader['font'] := FwPrinterFont():TimesNewRoman() jFontHeader['size'] := 15 jFontHeader['bold'] := .T. jFontHeader['underline'] := .T. jFontNum := FwXlsxPrinterConfig():MakeFont() jFontNum['font'] := FwPrinterFont():CourierNew() jFontNum['size'] := 12 jFontText := FwXlsxPrinterConfig():MakeFont() jFontText['font'] := FwPrinterFont():ArialBlack() jFontText['size'] := 12 jFontText['italic'] := .T. jFormat := FwXlsxPrinterConfig():MakeFormat() jFormat['hor_align'] := oCellHorAlign:Center() jFormat['vert_align'] := oCellVertAlign:Center() // Bordas para o header jBorderHeader := FwXlsxPrinterConfig():MakeBorder() jBorderHeader['top'] := .T. jBorderHeader['bottom'] := .T. jBorderHeader['border_color'] := "B1B1B1" jBorderHeader['style'] := FwXlsxBorderStyle():Double() jBorderLeft := FwXlsxPrinterConfig():MakeBorder() jBorderLeft['left'] := .T. jBorderLeft['border_color'] := "FF0000" jBorderLeft['style'] := FwXlsxBorderStyle():Dashed() jBorderCenter := FwXlsxPrinterConfig():MakeBorder() jBorderCenter['left'] := .T. jBorderCenter['right'] := .T. jBorderCenter['border_color'] := "00FF00" jBorderCenter['style'] := FwXlsxBorderStyle():Dashed() jBorderRight := FwXlsxPrinterConfig():MakeBorder() jBorderRight['right'] := .T. jBorderRight['border_color'] := "0000FF" jBorderRight['style'] := FwXlsxBorderStyle():Dashed() // formatação para todas as células a seguir lRet := oXlsxoPrtXlsx:SetCellsFormatConfig(jFormat) // fonte e borda para o cabeçalho lRet := oXlsxoPrtXlsx:SetFontConfig(jFontHeader) lRet := oXlsxoPrtXlsx:SetBorderConfig(jBorderHeader) lRet := oXlsxoPrtXlsx:SetValue(1, 2, "Produto") // A1 lRet := oXlsxoPrtXlsx:SetValue(1, 3, "Mês") lRet := oXlsxoPrtXlsx:SetValue(1, 4, "Total") // fonte e borda para coluna esquerda lRet := oXlsxoPrtXlsx:SetFontConfig(jFontNum) lRet := oXlsxoPrtXlsx:SetBorderConfig(jBorderLeft) lRet := oXlsxoPrtXlsx:SetValue(2, 2, 1) lRet := oXlsxoPrtXlsx:SetValue(3, 2, 1) lRet := oXlsxoPrtXlsx:SetValue(4, 2, 2) lRet := oXlsxoPrtXlsx:SetValue(5, 2, 2) lRet := oXlsxoPrtXlsx:SetValue(6, 2, 3) lRet := oXlsxoPrtXlsx:SetValue(7, 2, 3) // fonte e borda para coluna central lRet := oXlsxoPrtXlsx:SetFontConfig(jFontText) lRet := oXlsxoPrtXlsx:SetBorderConfig(jBorderCenter) lRet := oXlsxoPrtXlsx:SetValue(2, 3, "Janeiro") lRet := oXlsxoPrtXlsx:SetValue(3, 3, "Março") lRet := oXlsxoPrtXlsx:SetValue(4, 3, "Janeiro") lRet := oXlsxoPrtXlsx:SetValue(5, 3, "Março") lRet := oXlsxoPrtXlsx:SetValue(6, 3, "Fevereiro") lRet := oXlsxoPrtXlsx:SetValue(7, 3, "Março") // fonte e borda para coluna central jFormat['custom_format'] := "#,##0.00" lRet := oXlsxoPrtXlsx:SetCellsFormatConfig(jFormat) lRet := oXlsxoPrtXlsx:SetFontConfig(jFontNum) lRet := oXlsxoPrtXlsx:SetBorderConfig(jBorderRight) lRet := oXlsxoPrtXlsx:SetValue(2, 4, 1100.10) lRet := oXlsxoPrtXlsx:SetValue(3, 4, 1150) lRet := oXlsxoPrtXlsx:SetValue(4, 4, 1200.22) lRet := oXlsxoPrtXlsx:SetValue(5, 4, 1150) lRet := oXlsxoPrtXlsx:SetValue(6, 4, 1100.14) lRet := oXlsxoPrtXlsx:SetValue(7, 4, 1100) // C7 // Aplica auto filtro no intervalo A1:C7 lRet := oXlsxoPrtXlsx:ApplyAutoFilter(1,1,7,3) lRet := oXlsxoPrtXlsx:toXlsx() return |
Templatedocumentos |
---|
HTML |
---|
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } .aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { background: #FF9900; !important } .menu-item.active-tab { border-bottom: none !important; } </style> |
Assuntos relacionados
- PrinterVersion
- FWFileWriter
- FwPrinterFont
- FwXlsxPrinterConfig
- FwXlsxCellAlignment | FwXlsxHorizontalAlignment | FwXlsxVerticalAlignment
- totvs.framework.xlsx.LinesGridDisplay
Índice
Índice | ||||
---|---|---|---|---|
|