Cita:
Empezado por delphi.com.ar
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.