Page 1 of 1

Problemas con NetErr()

PostPosted: Mon Jun 18, 2007 4:55 pm
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  Expand view
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  Expand view
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...