TPHExcel - Histórico de revisão

Tiago.liz: /* Procedimentos */

2023-08-24T16:58:12Z

‎Procedimentos

Admin: /* Procedimentos */

2023-08-20T21:33:23Z

‎Procedimentos

Admin em 21h29min de 20 de agosto de 2023

2023-08-20T21:29:25Z

Admin em 21h29min de 20 de agosto de 2023

2023-08-20T21:29:03Z

Admin: Criou página com 'A classe TPHExcel serve para realizar a importação de arquivos do excel com a extensão xlsx. A classe TPHExcel suporta execução no cliente e no servidor e o ambiente esco...'

2023-08-20T21:22:58Z

Criou página com 'A classe TPHExcel serve para realizar a importação de arquivos do excel com a extensão xlsx. A classe TPHExcel suporta execução no cliente e no servidor e o ambiente esco...'

Página nova

A classe TPHExcel serve para realizar a importação de arquivos do excel com a extensão xlsx. A classe TPHExcel suporta execução no cliente e no servidor e o ambiente escolhido requer a aplicação do Excel do office instalada. Para execução no servidor deve-se realizar implementação em um script especifico, e a chamada do script no cliente deverá ocorrer através do classe [[TPHProcScript|TPHProcScript]].

===Propriedades===
{| class="wikitable" style="width: 100%"
! Nome
!Tipo
!Descrição
|-
|ID
|Int64
|Corresponde ao ID do registro (Opcional).
|}

===Criação do Objeto===
* '''NewPHServerClass''': Cria o objeto, espera como parâmetro o nome do cadastro.
* '''NewPHServerClassName''': Cria o objeto, espera como parâmetro o nome da classe, utilizada para classes sem cadastro.

===Procedimentos===
* '''NovoRegistro''': Inicia o cadastro de um novo registro. Nesse ponto são consideradas as regras presentes no evento AfterInsert da classe e do script;
* '''CampoDoNome(Campo:String)''': Permite atribuir ou retornar valores para os campos. Exemplo: CampoDoNome('CODIGO').AsInteger := 1;
* '''Salvar''': Realiza gravação do registro. Nesse ponto são considerados as regras presentes nos eventos BeforePost e AfterPost da classe e do script;

===Exemplo Conversão para CSV===

{ Retornar CSV da planilha }
function RetornarCSV:String;
var
Excel:TPHExcel;
begin
Excel := NewPHExcel;
try
Excel.Importar('C:\Users\paulo\Área de Trabalho\teste.xlsx');
Result := Excel.RetornaCSV;
finally
Excel.Free;
end;
end;

begin
Informacao(RetornarCSV);
end.

@@ Linha 24: / Linha 24: @@
 *'''RetornaCelula(const pColuna:Integer;const pLinha:Integer):String''': Retorna o texto correspondente a célula da coluna e linha informados nos parâmetros do procedimento;
 *'''AtribuirCelula(const pColuna:Integer;const pLinha:Integer;pTexto:String)''': Atribuir o texto informado no parâmetro pTexto, na célula correspondente a coluna e linha informada;
-*'''Limpar''': Limpar propriedades do objeto da classe TPHExcel, quando houver um arquivo que já foi impostado.
+*'''Limpar''': Limpar propriedades do objeto da classe TPHExcel, quando houver um arquivo que já foi importado.
 ===Exemplo Conversão para CSV===

@@ Linha 22: / Linha 22: @@
 * '''Importar(pArquivoExcel:String)''': Realizar importação do arquivo com extensão xlsx informado no parâmetro do pArquivoExcel do procedimento;
 * '''RetornaCSV''': Após a importação do arquivo xlsx, é possível retornar o texto correspondente no formado CSV (Seperado por ponto e virgura);
 ===Exemplo Conversão para CSV===

@@ Linha 10: / Linha 10: @@
 |Integer
 |Quantidade de linhas do arquivo.
 |QtdColunas
 |Integer

@@ Linha 7: / Linha 7: @@
 !Descrição
 |-
-|ID
+|QtdLinhas
-|Int64
+|Integer
-|Corresponde ao ID do registro (Opcional).
+|Quantidade de linhas do arquivo.
 |}
 ===Criação do Objeto===
-* '''NewPHServerClass''': Cria o objeto, espera como parâmetro o nome do cadastro.
+* '''NewPHExcel''': Cria o objeto, espera como parâmetro o nome do cadastro.
 ===Procedimentos===
-* '''NovoRegistro''': Inicia o cadastro de um novo registro. Nesse ponto são consideradas as regras presentes no evento AfterInsert da classe e do script;
+* '''Importar(pArquivoExcel:String)''': Realizar importação do arquivo com extensão xlsx informado no parâmetro do pArquivoExcel do procedimento;
-* '''CampoDoNome(Campo:String)''': Permite atribuir ou retornar valores para os campos. Exemplo: CampoDoNome('CODIGO').AsInteger := 1;
+* '''RetornaCSV''': Após a importação do arquivo xlsx, é possível retornar o texto correspondente no formado CSV (Seperado por ponto e virgura);
 ===Exemplo Conversão para CSV===
@@ Linha 30: / Linha 31: @@
     Excel := NewPHExcel;
     try
-      Excel.Importar('C:\Users\paulo\Área de Trabalho\teste.xlsx');
+      Excel.Importar('C:\teste.xlsx');
       Result := Excel.RetornaCSV;
     finally
@@ Linha 36: / Linha 37: @@
     end;
   end;
   begin
     Informacao(RetornarCSV);
   end.