Problemas con NetErr()

Post Reply
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Problemas con NetErr()

Post by Patricio Avalos Aguirre »

Estimados

Desde que inicié clipper he utilizado este funcion de red, pero me he dado cuenta que no me esta funcionando con ADS LOCAL

Code: Select all

USE (cDbf) NEW ALIAS (cAlias) VIA "ADS" EXCLUSIVE

if !NetErr()
   dbSetIndex( cIndex )
   OrdSetFocus( 1 )
   dbGotop()
   return( .t. )
endif

MSgInfo( "Error al abrir "+cDbf )
return( .f. )
Esto funcionaba un día,que version no lo se, pero funcionaba

si la base cDbf esta abierta igualmente trata de abrirla y al ejecutar
dbgotop se cae, diciendo que no existe alias...

lo he solucionado momentaneamente asi

Code: Select all

if !NetErr() .and. !empty( alias() )
   dbSetIndex( cIndex )
   OrdSetFocus( 1 )
   dbGotop()
   return( .t. )
endif
Pero no es la idea, ya que la funcion Neterr() debiera controlar las funciones de red

Alguien le ha pasado

atentos a sus comentarios...
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Post Reply