Salvo,
yes, please look the post from James.
But I don´t understand, why you pack a dbf without it´s indexes, you´ll always get inconsistent index files. I would pack a dbf only with open indexes.
kind regards
Stefan
Stefan
Salvo,
yes, please look the post from James.
But I don´t understand, why you pack a dbf without it´s indexes, you´ll always get inconsistent index files. I would pack a dbf only with open indexes.
Salvo,
An even better solution is to reuse deleted records instead of packing.
With my TData class there is an optional subclass to reuse deleted records automatically. This way you never have to PACK a DBF. You can find more information about TData on this page:
http://www.gointellitech.com/program.htm
Regards,
James
 set autopen on
  select parti
  set filter to upper(cod_contro+qualita)=upper(cCodFascicolo+STR_PARTI)
    seek upper(m->cCodFascicolo+STR_PARTI)
    select cparti
  set filter to upper(cod_contro+qualita)=upper(cCodFascicolo+STR_CPARTI)
    seek upper(m->cCodFascicolo+STR_CPARTI)
    select altri
  set filter to upper(cod_contro+qualita)=upper(cCodFascicolo+STR_ALTRI)
    seek upper(m->cCodFascicolo+STR_ALTRI)
    select nota_spe
  set order to tag codice
  set filter to upper(field->cod_pratic)=m->cCodPratica //nooptimize
    seek upper(m->cCodPratica)thanks a lot for advice,but pack is?
Second question : i have use set autopen on before seek, is right?
when you say "open file" you mean file .cdx?
thanks both, i have solved problem
!!