FiveTech Software tech support forums

Hola tecnisoftware

a mi me esta pasando lo mismo, pero al parecer es la funcion
neterr()

http://fivetechsoft.com/forums/viewtopic.php?t=7316

... cAlias ) If lAppend nMode := MODE_APPEND Else nMode := MODE_RECORD EndIf Do While .T. Do Case Case nMode == MODE_APPEND DbAppend() If !NetErr() Return .T. Endif Case nMode == MODE_RECORD If RLock() Return .T. EndIf EndCase nCnt := nCnt + 1 SysWait(1) If nCnt > 5 If !MsgYesNo( "No ...

... pero me he dado cuenta que no me esta funcionando con ADS LOCAL USE (cDbf) NEW ALIAS (cAlias) VIA "ADS" EXCLUSIVE if !NetErr() dbSetIndex( cIndex ) OrdSetFocus( 1 ) dbGotop() return( .t. ) endif MSgInfo( "Error ...

... DirChange(OldDir) //Luego voy a abrir las tablas que estan en otro directorio llamado TABLAS Dbusearea(.t.,,'tablas\Clientes','Cli',.f.) If !Neterr() ? "Tablas abiertas...." Else ? "Error...." Endif Si ejecuto la aplicacion desde otro PC me da el error OPEN ERROR DOS 3 o sea que los ficheros ...

... ( FOREVER .OR. WAIT_TIME > 0 ) IF LOPENMODE USE ( CDATABASE ) via "DBFCDX" EXCLUSIVE ELSE USE ( CDATABASE ) via "DBFCDX" SHARED ENDIF IF .NOT. NETERR() RETURN(.T.) ENDIF INKEY(1) WAIT_TIME-- ENDDO * lock failed, ask to continue IF MsgYesNo( "Cannot lock " + CDATABASE + ", retry ?" ) ELSE EXIT ...

... haciendo lo siguiente: Primero pack: *************** if lalb=.T. dbusearea(.f.,,Publicas:cUnidad+Publicas:cSubd+"\Albaran",,.f.) // Exclusiva if !neterr() pack treg+=(albaran->(reccount())*10) endif ****************** Después index **************** index on _field->Albaran tag "Albaran" ...

... static function Genera_index(oMeter, oMeter1,base,campo,indice) local cExpr local sw:=.t. nAvance:=0 nArch++ do while sw use &base IF NETERR() MSGBEEP();MSGBEEP();MSGBEEP() ALERT('!CUIDADO! Algun Usuario esta ocupando el archivo '+base) sw:=.t. else sw:=.f. endif enddo cExpr := base+campo ...

... local lIsWinNT := IsWinNT() // by default, division by zero yields zero if ( e:genCode == EG_ZERODIV ) return 0 end // for network open error, set NETERR() and subsystem default if ( e:genCode == EG_OPEN .and. ; ( e:osCode == 32 .or. e:osCode == 5 ) .and. ; e:canDefault ) NetErr( .t. ) return .f. ...

... fichero bloqueado por usuario desde ya mucha gracias Fabian Databaselab2002@yahoo.com.ar sele 15 USE ARTICULO alias articulo shared if .not. neterr() index on upper(articulo->descri) to articulo set index to articulo else alert("archivo Bloqueado por otro usuario") endif REDEFINE LISTBOX ...

... y del propio usuario, pero igualmente podría ser una dbf vacia. Si el dbf ya esta abierto, aborta el programa. USE IMPRESOR EXCLUSIVE NEW IF NETERR() ALERT(" ¡¡¡ El programa está ya abierto") QUIT ENDI De esta manera, duplicar el exe en la misma carpeta, pero te permite aperturarlo desde ...

Osvaldo, Prueba a NO llamar a NetErr(). No te hace falta, ya que si no se abriese la base de datos, Harbour generaría un error. Y tal vez ahí esté la pérdida de tiempo. Me equivoqué al indicarte implib.exe, ya que se generaría una LIB en ...

... si estoy bien. Si no habro el indice es rapido, pero si lo abro el indice, se tarda siglos USE (ventas_dir+"05051207.DBF") ALIAS DIARIO NEW if ! NETERR() GO TOP USE ( files_dir+"ARTICUL.DBF") ALIAS ARTICUL NEW if ! neterr() SET INDEX TO ( files_dir+"ARTICUL3.NTX" ) GO TOP DEFINE WINDOW oWnd TITLE ...

Hy everybody.
Function NETERR() doesn't work. Has anybody got any solution?
Thanks a lot
Eugenio

... cDvr = "DBFCDX" CASE UPPER(cDb)=="ARHOLD" cDvr = "DBFCDX" ENDCASE // Open.... DbUseArea( .T., cDvr, cDir+cDb, cAlias, ! lExclusive ) ENDIF IF NETERR() cErr := "You are not the only one in this Module." + CHR(13)+CHR(10) cErr += CHR(13)+CHR(10) cErr += "Everyone else must exit before you can ...