Problemas con NetErr()

Problemas con NetErr()

Postby Patricio Avalos Aguirre » 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

Code: Select all  Expand view  RUN
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  RUN
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
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 52 guests