delphi con facturaplus

jaime cotino · #1 26-01-2004

Podria alguien decirme como abrir un archivo dbf de factutra plus . Tengo que generar desde delphi un mdx por ejemplo articulos.mdx que contiene los indices como este archivo no está me da error de indeces el código de la ayuda de delphi pone Table.IndexFiles := 'Articulos.MDX' pero me da un error de tipos TString y String y ahí me he quedado atascado si alguien sabe como hacelo le agradeceria me lo enviara a jcotino9@hotmail.com pues soy nuevo en los foros e igual no encuentro la respuesta.
Gracias

marcoszorrilla · #2 26-01-2004

Primero convendría que leyeras la Guia de Estilo de los Foros, verás que aquí no se resuelven las cosas en privado, puesto que puede ser que más gente esté interesada en saber como se soluciona esta cuestión y si se enviara a tí a tu correo personal, solamente tú conocerías la posible solución, además a la solución que se proponga, otro puede añadir algun comentario interesante.

Las Tablas del programa citado son del Tipo FoxPro, por lo tanto tienes que indicarlo en la propiedad TableName ttFoxPro y luego no tienes más que pulsar en la propiedad IndexName y verás aparecer todos los índices que tiene la tabla, no te queda más que elegir el que quieras.

Un Saludo.

Descendents · #3 27-01-2004

Buenas.

La empresa donde trabajo, trabaja con facturaplus, y puedo decirte, que con lo que te han indicado, ya tienes de sobra para trabajar con las tablas dbf de facturaplus.

Pero te aviso, que me encontrado con algunos problemas con las dos ultimas versiones de facturaplus.Hay un par o tres de tablas que me daban problemas.

Un saludo.

Bueno y también decirte que he trabajado en un par o 3 de cosas relacionadas con el.Es decir he tocado sus bases y tal.

Asi que si te puedo ayudar .......

jaime cotino · #4 27-01-2004

Cita:

Empezado por marcoszorrilla

Primero convendría que leyeras la Guia de Estilo de los Foros, verás que aquí no se resuelven las cosas en privado, puesto que puede ser que más gente esté interesada en saber como se soluciona esta cuestión y si se enviara a tí a tu correo personal, solamente tú conocerías la posible solución, además a la solución que se proponga, otro puede añadir algun comentario interesante.

Las Tablas del programa citado son del Tipo FoxPro, por lo tanto tienes que indicarlo en la propiedad TableName ttFoxPro y luego no tienes más que pulsar en la propiedad IndexName y verás aparecer todos los índices que tiene la tabla, no te queda más que elegir el que quieras.

Un Saludo.

Gracias por la respuesta pero no sabía si podria volver a llegar hasta aquí pues no había utilizado nunca los foros de delphi no era mas que por eso lo de poner mi dirección de correo siento haberlo hecho mal.
Gracias

marcoszorrilla · #5 27-01-2004

Bueno, pues como ya sabes el camino, te esperamos para que hagas más preguntas y eventualmente si te animas puedas ayudar a alguien con alguna respuesta.

Un Saludo.

jaime cotino · #6 27-01-2004

Cita:

Empezado por marcoszorrilla

Primero convendría que leyeras la Guia de Estilo de los Foros, verás que aquí no se resuelven las cosas en privado, puesto que puede ser que más gente esté interesada en saber como se soluciona esta cuestión y si se enviara a tí a tu correo personal, solamente tú conocerías la posible solución, además a la solución que se proponga, otro puede añadir algun comentario interesante.

Las Tablas del programa citado son del Tipo FoxPro, por lo tanto tienes que indicarlo en la propiedad TableName ttFoxPro y luego no tienes más que pulsar en la propiedad IndexName y verás aparecer todos los índices que tiene la tabla, no te queda más que elegir el que quieras.

Un Saludo.

En tableType escogo ttFoxPro en TableName Articulos.dbf y en indexFikes Articulo.cdx entonces al intentar abrir indexName me dice invalid index description. Pede ser que estas tablas sean de cliper?
Si alguien sabe como puedo cargarme el indice me valdria pues da lo mismo que lo elimine

Descendents · #7 28-01-2004

Prueba de no escojer el indice haber si te abre la tabla

Saludos

jaime cotino · #8 28-01-2004

Cita:

Empezado por Descendents

Prueba de no escojer el indice haber si te abre la tabla

Saludos

Gracias por el interes . Lo que pasa es que si tengo los cdx en la misma ruta que los dbf ya no puedo ni añadir los campos que quiero utilizar al Ttable, me dice que es invalido el indice , necesitaria tener algún archivo mas .
Yo pongo en tableType ttFoxPro
en TableName Articulo.dbf
IndexFiles escogo articulo.cdx
y cuando voy a escoger el indice ya no me deja seguir.

Descendents · #9 28-01-2004

ok,ok, ok ya se que te pasa.
lee mi mensaje anterior que decia que tuve problemas con las ultimas versiones de facturaplus.

Pues exactamente ese problema que tienes, es el que yo tuve.

Esto con las versiones de antes del 2000 iba perfectamente a partir de la 2000 me pasa lo mismo.

y no se si pasa con muchas tablas, pero a mi me paso con la de Articulo también

Bueno Yo encontre una solución, que no es la correcta.

Hable con los del gruposp, hable con un foro que hay del grupo sp en internet.De todas maneras.Y no se porque la tabla articulo le pasa esto.Igual hay mas tablas.

Ya veras, coge DBU(programa para abrir DBF) y hazle un ZAP o BORRADO a la tabla.Y veras (al menos a mi me pasa) que te deja accerder a la tabla, y cuando reindexas , veras que ya te da otra vez el error.

Hacen algo en el reindexado, que no se que es, pero que da este error.Ellos los del grupo sp son conscientes de que les pasa esto, pero no se porque, no lo arreglan o no se.

Mi solución es que tengo un componente en forma de tabla que me consigue abrirla.

Si encontraras la solución decente a través de BDE o de ADO seria perfecto.Y te agradeceria que me la comentaras.Porque como puedes ver perdi horas y horas y dias intentando conseguir algo y al final encontre un componente que lo abria todo.Pero por los compoentnes normales que lleva delphi de bases de datos nada.

Otra cosa, no si hay mas tablas con este problema.

En la web que te comente me dijeron que por mi lenguaje de programación no tenia las ordenes adecuadas para poder trabajar con este tipo de archivos.La verdad es que no quise entrar en discusión y no se si tenia o no razón pero bueno.

La finalidad es que facturaplus tiene un problema con esto.

Por cierto existe un programa como el prometehus que lo abre todo y veras que te abre la tabla

El componente usado no me acuerdo donde lo encontre, pero su nombre es Tdbf y cuando lo instalas se te pone en la pestaña Data Access.

Trabajo con delphi 7 y windows XP y por ahora la ultima version de facturaplus

Saludos

gescriba · #10 14-01-2005

Quizas no es el foro adecuado pero entiendo que sabeis mogollon de los archivos de facturaplus.. Antes es decir hace tres meses vinculaba sin problemas las tablas de facturaplus y trabaja en access con ellas.. Ahora cuando voy a hacer lo mismo me pide los indices.. que no se que son... y no puedo hacerlo...Tengo la carpeta los dbf y los cdx pero el me pide archivos ndx o mdx.. Por favor ayuda porque tengo que actulizar precios y en access es mushíiisimo mas rápido..

Un slaudo

pfsoft · #11 03-02-2004

Nosotros utilizamos para gestionar DBFs y CDX, en concreto con los ficheros generados por facturaplus y contaplus, un componente de VistaSoftware llamado Apollo VCL 6. http://www.vistasoftware.net

Va de escándalo, incluso puedes tratar los dbfs, como si fueran tablas de un server SQL, con sentencias SQL.

Un Saludo.

Pedro J.Fdez.
San Fernando (Cádiz) ESPAÑA
desarrollo@pfsoftware.net
pedrofernandez@pfsoftware.net
http://www.pfsoftware.net

pfsoft · #12 03-02-2004

http://www.vistasoftware.com (Perdón)

marcoszorrilla · #13 13-02-2004

Esta es la solución que he econtrado utilizando una función que no recuerdo ni de donde saqué, se trata de disvincular los índices, así la tabla se puede abrir desde Delphi, obviamente habría que guardar la cabecera antigua para una vez acabada la conexión restaurarla, ese código lo dejo para vosotros.

Código:

procedure MnuDelAllMDX(fname : string);
type
 THeader = record
            ID,y,m,d     : byte;
            recs         : longint;
            hdsize,rsize : word;
            dummy        : array[1..20] of byte;
          end;
Var
  hDBF  : integer;
  Header: THeader;
begin
if MessageDlg('¿Esta seguro de que desea eliminar todos los indices?', mtConfirmation , [mbYes, mbNo],0)=mrYes then
 begin
  DeleteFile(ChangeFileExt(fname,'.mdx'));
  hDBF  := FileOpen( fname, fmOpenReadWrite or fmShareDenyNone);
  FileRead( hDBF, Header, SizeOf(Header) );
  Header.dummy[17] := 0;  // no index
  FileSeek(hDBF, 0,0);
  FileWrite(hDBF, Header, SizeOf(Header) );
  FileClose(hDBF);
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MnuDelAllMDX('Articulo.dbf');
end;

Un Saludo.