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.

[[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,

[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,

[HOUDEL]

hola delphius

disculpame si en algo te ofendi no era mi intencion, agradesco que me hayas
brindado tu ayuda, otra vez muchas gracias.

la neta pues tienes razon nadie es perfecto, y pues parece que yo no se
redaccion pero no hay bronca, nos estas viendo .



saludos

[[egostar]]

Empezado por Delphius

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,

, creo que te estas liando amigo Delphius, el problema es una coma o un punto que faltó

Empezado por HOUDEL

si necesitan de mi ayuda, que parece que no,/.
ustedes se las saben de todas todas, bueno aqui estare.

Salud OS

[[Delphius]]

A bueno asi pues si.

Entonces yo soy el que debe dar las disculpas. Disculpame HOUDEL si fui demasiado agreviso con mis comentarios.

Que se haga la paz.
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.

[HOUDEL]

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

Respuesta:no tengo acceso a la estructura de la base de datos de compaq i
pero hasta hoy se que los distribuidores autorizados cuentan con esa infromación (tambien en la ayuda jeje).

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

Respuesta: si es verdad tambien lee archivos en excel, solo que mi jefe me lo pidio en un archivo txt, supongo yo porque es menos pesado en tamaño.

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

Respuesta: me pasaron un archivo en exel con la estructura de cada uno de los datos que deberia contener el txt con espacios y tipo de datos que a los
que se referian(en mi caso una poliza).
asi que solo tuve que ordenar los datos en base a esa estructura, como habia ciertos tipos que puede ser varibles utilice las funciones que muy amablemente me pasaron por aqui.
Como tu mensionas hace tiempo de eso, pero recuerdo que internet encontre un archivo de exel con los datos que se suben a contpaq, ahora no los tengo a la mano pero si te interesa un ejemplo... pues dejamelo de tarea y con mucho gusto te lo paso. jejej(me traen de un ala con el trabajo).

 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.

El sistema contabilidad o interfaz con las polizas de que generaba los datos es uno que se desarrollo en el lugar donde trabajo, ya existia asi que solo tome los que necesitaba.

saludos, espero que te sirva y disculpame que no te haya podido ayudar mas por el momento.... pero si necesitas mas solo dime

[richy08]

no tengo acceso a la estructura de la base de datos de compaq i
pero hasta hoy se que los distribuidores autorizados cuentan con esa infromación (tambien en la ayuda jeje).

Bueno no se jeje si estoy alucinando pero se crea sobre una instancia del mssql 2005 creo que todo mundo quetenga acceso al servidor con las herramientas puede entrar y hacer moño la base de datos como guste no??(perdon si me equivoco)

Respuesta: me pasaron un archivo en exel con la estructura de cada uno de los datos que deberia contener el txt con espacios y tipo de datos que a los
que se referian(en mi caso una poliza).
asi que solo tuve que ordenar los datos en base a esa estructura, como habia ciertos tipos que puede ser varibles utilice las funciones que muy amablemente me pasaron por aqui.

si la verdad te agradeceria que me pasaras esa estructura.

 saludos, espero que te sirva y disculpame que no te haya podido ayudar mas por el momento.... pero si necesitas mas solo dime:)[/quote]
.

no claro que si me ayudas me vas dando una idea de como entrarle jjeeje creo que optare por generar un archivo y dejarme de lios insertando cosas raras en la base de datos

[HOUDEL]

hola

pues como todo buen programador que baja info de internet y con ello virus jaja le di mate a mi pc, pero pasame tu correo porque el tamaño permitido
no me deja subir el archivo por aqui.

saludos, y mira que dedique un rato de mi tiempo a explicarte lo poco que se jajaj