Como exportar una archivo txt

[HOUDEL]

Necesito crear un archivo txt con un formato especial que permita ser
leido por contpaq, me pueden ayudar con la estructura

me urge graxx

[[Delphius]]

Hola HOUDEL,
Como recién te inicias en los foros y sobre todo porque pides algo de urgencia te informo que existe una guia de estilo que hay que respetar.

Con respecto a tu problema, disculpame pero desconozco contpaq. ¿Que és?
Si puedes brindar mayor información te podremos ser de ayuda.

Saludos,

[[poliburro]]

Amigo por favor dale una leída a la guía de estilo

http://www.clubdelphi.com/foros/guiaestilo.php


Respecto a tu duda necesitas indicar más información.

[HOUDEL]

Gracias por contestarme,
la situacion es la siguiente Contpaq, es un sistema de contabilidad
que se utiliza mucho en las empresas,
tengo un sistema de contabilidad con polizas las cuales necesito pasarlas
a un archivo txt, tengo entendido que
con f:textfile y AssignFile(F, qry_Config.FieldByName('DIRTIC').AsString+'\'+'TicketIM.txt')
puedo creearlo ¿es esto correcto?
y con WriteLn(F,FnCentrar('',Dm_Ventas.Qry_BusEmpUsr.FieldbyName('NOMEMP').AsString,'',nAnchoDbl)); agregar ,
lo que no se es como delimitar los caracteres al insertarlos?
o necesito hacerlo desde el query?
Este es un ejemplo del archivo que debo crear apartir de un query.

P 20080202 1 1 1 0 ventas 1 1 0
M 04100-0006-0000 vent eq 1 700.00 0 0 ventas diarias
M 04100-0005-0000 bancos 0 700.00 0 0

hay alguna instruccion para dar espacios en el archivo, o que es lo que me
falta.

gracias.....

[marcoszorrilla]

Para exportar datos a un programa similar al que citas, yo me cree estas funciones, espero te sirvan:

Código Delphi [-]
Function FillSpacesLeft(cVar:String;nLen:Integer):String;
 begin
 Result:=StringOfChar(' ',nLen - Length(cVar))+cVar;
 end;

 Function FillSpacesRight(cVar:String;nLen:Integer):String;
 begin
 Result:=cVar+StringOfChar(' ',nLen - Length(cVar));
 end;

 Function FillZerosLeft(cVar:String;nLen:Integer):String;
 begin
 Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
 end;

Ejemplo de uso:

Código Delphi [-]
 spDatCli.Cod       :=FillSpacesRight(DmAni.CliCodigo.Value,12);
 spDatCli.Titulo    :=FillSpacesRight(DmAni.CliRSOCIAL.Value,40);
 spDatCli.Nif       :=FillSpacesRight(DmAni.CliNif.Value,15);

Un Saludo.

[HOUDEL]

Muchas gracias marcoszorrilla, me van ha servir
de mucho para controlar el tamaño de los campos a insertar en
el archivo.
me imagino que si es la forma correcta de crear el archivo o tienen
alguna otra idea?

nuevamente gracias y saludos

[HOUDEL]

las funciones que me paso marcoszorrilla, estan muy bien creo
que eso soluciona todo mi problema, ya que mi pregunta era si habia
alguna instruccion en delphi que me permitiera añadir y delimitar los
datos (informacion) del query, antes de pasarlos al archivo.

saludos cordiales, gracias por su ayuda
si necesitan de mi ayuda, que parece que no ustedes se las saben de todas
todas, bueno aqui estare.

hasta pronto

[[Delphius]]

Empezado por HOUDEL

las funciones que me paso marcoszorrilla, estan muy bien creo
que eso soluciona todo mi problema, ya que mi pregunta era si habia
alguna instruccion en delphi que me permitiera añadir y delimitar los
datos (informacion) del query, antes de pasarlos al archivo.

saludos cordiales, gracias por su ayuda
si necesitan de mi ayuda, que parece que no ustedes se las saben de todas
todas, bueno aqui estare.

hasta pronto

Bueno, no quisiera mal interpretar el mensaje... pero esto me ha picado mal.

Aqui nadie es perfecto. No soy un grandisimo experto en Delphi, ni es mi intención serlo.Disculpame si hay algo que desconozca. No sabía que aquí tiene que venir un experto en el tema a responderte. Yo ofrecí mi ayuda, en lo que pueda.

Saludos,

[richy08]

Empezado por HOUDEL

las funciones que me paso marcoszorrilla, estan muy bien creo
que eso soluciona todo mi problema, ya que mi pregunta era si habia
alguna instruccion en delphi que me permitiera añadir y delimitar los
datos (informacion) del query, antes de pasarlos al archivo.

saludos cordiales, gracias por su ayuda
si necesitan de mi ayuda, que parece que no ustedes se las saben de todas
todas, bueno aqui estare.

hasta pronto

Hola buenas tardes creo que ya hace un poco de tiempo del post pero estoy en el mismo problema necesito que mi aplicacion lleve los datos que genera al contpaq i amigo houdel me podrias responder unas preguntas:

1.- por que decidiste importar a un archivo txt y no insertarlos directamente sobre la bd.

2.- por que generas un txt por lo que he leido tiene la funcionalidad de leer hojas de calculo de excel.

3.- no tengo el contpaq i instalado en mi maquina y n ohe podido hacer pruebas :S pero me podrias explicar un poco el proceso de como hiciste para que leyera el archivo

por ultimo podrias comentar si lograste hacer la interfaz, y si encontraste mas informacion me podrias dar las pistas de donde le localizaste gracias por cualquier comentario.

[[Delphius]]

HOUDEL, siso sin comprender el problema.
No te termino de comprender... A ver... Tienes una Query que ejecutas y tu deseas armar un archivo txt con los resultados.

Hasta allí te comprendo. Vamos bien.

Luego preguntas esto:

lo que no se es como delimitar los caracteres al insertarlos?

¿Que caracteres?

Y nos informas de un ejemplo, que poco termino de comprender:

Este es un ejemplo del archivo que debo crear apartir de un query.

P 20080202 1 1 1 0 ventas 1 1 0
M 04100-0006-0000 vent eq 1 700.00 0 0 ventas diarias
M 04100-0005-0000 bancos 0 700.00 0 0

¿Que es cada cosa? Si pudieramos conocer mejor el código que estás empleando y la estructura de la/s tabla/s que estás empleando podríamos atinar mejor a la respuesta.

hay alguna instruccion para dar espacios en el archivo, o que es lo que me
falta.

Creería que no... podría bastar con un simple contanamiento del tipo:

UnTexto := UnTexto + ' ' + OtroTexto;

¿A eso te refieres?

No te sabría decir si es eso lo que te falta porque desconozco los errores y/o problemas que tienes con tu código.

Saludos,