Problemas con NetErr()
Posted: Mon Jun 18, 2007 4:55 pm
Estimados
Desde que inicié clipper he utilizado este funcion de red, pero me he dado cuenta que no me esta funcionando con ADS LOCAL
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
Pero no es la idea, ya que la funcion Neterr() debiera controlar las funciones de red
Alguien le ha pasado
atentos a sus comentarios...
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. )
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
Alguien le ha pasado
atentos a sus comentarios...