DataSet a OpenDocument
 

Hola, acabo de crear una clase para crear a partir de uno (o varios) dataset un archivo en formato OpenDocument, especificamente .ods, para lo que yo lo necesito me va bien, lo dejo aquí porque creo que se le puede hacer varias mejoras, o en el mejor de los caso servir a alguién más...

Requiere del componente abbrevia

ya que tiene mucho texto, dejo el archivo como un adjunto y aquí explico como lo uso.

Se puede implementar algo así como:

Código SQL [-]
...
uses DataSetToOpenDocument;
...

...
procedure TForm1.Button1Click(Sender: TObject);
var
   Ds2Ods : TDataSetToOpenDocument;
begin

   if SaveDialog1.Execute then
   begin
      try
         Ds2Ods := TDataSetToOpenDocument.Create(Self);

          // dataSetAdd Agrega uno o Varios DataSet que se representan 
          // como una Hoja dentro del .ODS
          // Si no envía un titulo para la hoja tomará el nombre del DataSet
         Ds2Ods.dataSetAdd(TDataSet(IBTable1), '');
          // envía un titulo para la hoja
         Ds2Ods.dataSetAdd(TDataSet(IBTable2), 'TITULO_ENVIADO');
          // Su nombre lo dice todo no
         Ds2Ods.Ruta :=  SaveDialog1.FileName;
         Ds2Ods.Ejecutar;
      finally
         Ds2Ods.Free;
      end;
   end;
end;

Igual y digo una burrada, pero para tenerlo más claro, ¿sería como exportar un listado de datos a Excel, pero en este caso a OpenOffice? :)

De cualquier manera, muchas felicidades. Me resulta muy grato cuando algún colega crea un nuevo componente, con lo estupendo que es Delphi para hacer eso.

Prometo echarle un vistacillo el fin de semana. Se oye interesante. :)

Si, es para eso, aunque como tal no llega a componente, no se instala como VCL, solo es para un caso muy puntual que es la necesidad de exportar unos datos a Open Document donde el Open Officce no pudo abrir los documentos generados por el componente DataToXls