Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #13  
Antiguo 07-04-2011
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Poder: 21
mRoman Va por buen camino
Duda al generar DBF

Cita:
Empezado por delphi.com.ar Ver Mensaje
Hola raf.rsr, te comento que el componente al que haces referencia es de mi autoría, y hace poco abrí los fuentes (expsuitsrc.zip). Puedes ver el código y verás que internamente la clase TDataToXLS utiliza otra clase llamada TBiffFile, precisamente esta clase esta separada para poder crear un archivo Excel sin el formato que impone TDataToXLS, puedes crear algo totalmente personalizado, con los formatos de un BIFF5 (Como en las versiones viejas de Excel).
Podrás ver que el diseño de la clase es algo arcaico, ya que esta programada para compilar en todas las versiones de Delphi, se aceptan sugerencias!

PD: Excepto lo de agregar filas antes de los datos, el resto puedes cambiar el formato con el TDataToXLS

Saludos!
Que tal Delphi.com.ar, me puse a buscar tu nick para preguntarte algo relacionado con los archivos DBF que exporta tu componente.

Tengo un componenten TQuery en donde ejecuto el siguiente codigo sql:

Código SQL [-]
select a.lecher as clavelech,
       0 as extension,
       b.en_operacion as operacion,
       case b.ml_tventa
           when 3 then 24
           when 1 then c.dias_habiles
       end as DIASVENTA,
       coalesce(a.total_ventas,0) as venta,
       coalesce(a.total_dotacion,0) as surtimient,
       coalesce(a.total_rotos,0) as rotos,
       0 as ventalista,
       0 as ventalibre,
       coalesce(a.existencia_inicial,0) as invinicial,
       coalesce(a.existencia_final,0)   as invfinal,
       coalesce(a.venta_libro_retiro,0) as ventalibro,
       0 as contingen
from COMPORTAMIENTO_VENTA a,
     LECHERIA b,
     PRODUCTO p,
     CALENDARIO_DISTRIBUCION c
where a.mes_periodo=:mes
  and a.anio_periodo=:anio
  and a.lecher=b.lecher
  and a.cve_producto=p.cve_producto
  and p.tipo_producto=1
  and a.mes_periodo||a.anio_periodo=c.mes_periodo||c.anio_periodo
order by a.lecher

El cual le tengo relacionado a tu componente TDataToDBF y lo grabo de la siguinte manera:

dbfFile.SaveToFile(cArchivo);

Donde "cArchivo" le asigne con anterioridad la nomenclatura o nombre del archivo con el cual se grabara.

HE AQUI EL PROBLEMA:

Si lo abro en Excel no tengo problema me muestra los datos.
Si lo abro en FoxPro solo tiene 1 registro, los campos y el primer registro, cuando en Excel me presenta 300 registros.....

tu sabes por que esta pasando esto?

Te agradezco me puedas ayudar....si requieres mas información me comentas. AHHH...trabajo con FireBird 1.5.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Exportar a Excel erasmorc OOP 4 04-08-2006 15:03:50
Exportar .gdb a Excel Novata2006 Firebird e Interbase 0 16-05-2006 10:52:08
Exportar directo a excel mikexxi2 Servers 9 12-04-2005 04:56:26
exportar a excel ? Enrique Impresión 2 01-09-2004 00:18:47
Exportar a Excel pruz Varios 8 01-07-2004 15:47:37


La franja horaria es GMT +2. Ahora son las 04:08:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi