topic-41040

Posts: 182

Joined: Wed Nov 08, 2006 11:44 PM

problema abriendo dbf con alias
Posted: Mon Nov 08, 2021 09:01 PM

hola amigos
quiero abrir una dbf con un alias y me da un error de apertura, estoy casi seguro que es por los indices que usa
Hace tiempo Mr.Rao habia explicado cual era el error en la construcción del indice que ocasionaba este problema, creo que eso ocurre cuando se incluye en la construccion del indice el nombre de la base de datos...alguien se acuerda de esto ?
abrazo

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: problema abriendo dbf con alias
Posted: Mon Nov 08, 2021 09:40 PM

Funciona de 1000.

Code (fw): Select all Collapse

#Include "Fivewin.Ch"

// LOCAL lPack      := .T.

FUNCTION Indexar()


   AEVAL(DIRECTORY( "CADGRUPO.cdx" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )

   USE CADGRUPO NEW EXCLUSIVE ALIAS CADGRUPO

   IF lPack = .T.  // checkbox en dialogo
      PACK
   ENDIF

   oMeter1:nTotal = RecCount()

   INDEX ON VAL(Field->GRUPOCOD) TAG GRUPOCOD TO CADGRUPO                 ;
         FOR .NOT. DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() )      ;
         EVERY 10

   INDEX ON Field->GRUPODESCR TAG GRUPODESCR TO CADGRUPO                  ;
         FOR .NOT. DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() )      ;
         EVERY 10

   INDEX ON Field->GRUPONOME TAG GRUPONOME TO CADGRUPO                    ;
         FOR .NOT. DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() )      ;
         EVERY 10

   CLOSE DATABASE

   AEVAL(DIRECTORY( "CADORSER.cdx" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )

   USE CADORSER NEW EXCLUSIVE ALIAS CADORSER

   IF lPack = .T.
      PACK
   ENDIF

   oMeter1:nTotal = RecCount()

   INDEX ON VAL(Field->TPSERCOD) TAG TPSERCOD TO CADORSER                 ;
         FOR .NOT. DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() )      ;
         EVERY 10

   INDEX ON Field->TPSERNOME TAG TPSERNOME TO CADORSER                    ;
         FOR .NOT. DELETED()                                              ;
         EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() )      ;
         EVERY 10

   CLOSE DATABASE

   //... continua.

RETURN NIL

FUNCTION APERTURA_BANCOS()

   PUBLIC DBCADGRUPO // asi para todos.

   IF NETERR()

      MsgStop( "ERRO DE REDE. IMPOSSÍVEL ABRIR OS BANCOS DE DADOS", ;
               "Atençao, Erro de Rede. Verifique o Servidor...   " )

      RETURN NIL

   ENDIF

   HB_GCALL( .F. )

   USE CADGRUPO NEW SHARED ALIAS CADGRUPO
   GO TOP

   DBCADGRUPO := ALIAS()

   //... continua...

RETURN NIL

https://imgur.com/UQxRdAp

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: problema abriendo dbf con alias
Posted: Mon Nov 08, 2021 09:42 PM

Code (fw): Select all Collapse

SELECT( DBCADGRUPO )
GO TOP

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: problema abriendo dbf con alias
Posted: Thu Nov 11, 2021 08:53 PM

Never build an index like this:

Code (fw): Select all Collapse

INDEX ON CUSTOMER->CITY ....

When you open the dbf CUSTOMER with another alias name, the RDD can not find the alias CUSTOMER and you get an error.
Unfortunately if there is another DBF open with the alias "CUSTOMER" in another areay, your index will run on another area

Best practice is not to use "->" while building indexes.

Recommended:

Code (fw): Select all Collapse

field CITY,STATE, ....

INDEX ON CITY TAG CITY
INDEX ON STATE TAB STATE
...

Note:
field ...
is a declaration like local, static

Regards

G. N. Rao.

Hyderabad, India

rterraz

Posts: 182

Joined: Wed Nov 08, 2006 11:44 PM

Re: problema abriendo dbf con alias
Posted: Thu Nov 11, 2021 11:47 PM

Thanks you Mr.Rao !!!

FiveTech Support Forums

Continue the discussion