Problemas con NetErr()

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