FiveTech Software tech support forums

... zvtncaja With ncajax, zvtboli With boleta_inicialx,; zvtbolf With boleta_finalx Dbcommit(); Dbunlock() Func sumreg Dbappend() If Neterr() pmsgx=Savescreen(13,10,20,67); msgbox(MSGp01_028,,,32,0) While Neterr(); linkey(.3); Dbappend() enddo Restscreen(13,10,20,67,pmsgx) Endif Return

... := .F. cFile := <su_DBF> IF Select( cFile ) > 0 dbSelectArea( cFile ) ELSE dbUseArea( .T., cDriver, cFile, cFile, lShared, lReadOnly ) IF NetErr() ... ... etcétera ENDIF ENDIF RETURN .T.

... Prueba así a ver si hay suerte: SET AUTOPEN OFF FOR EACH cTabla IN aTablas USE (cTabla) EXCLUSIVE NEW ALIAS TEMP ?cTabla, Alias(), OrdCount() IF !NetErr() IF TEMP->( OrdCount() ) > 0 REINDEX ENDIF ELSE MsgAlert( "Error en reindexado de " + cTabla + FINL + AdsGetLastError() ) ENDIF ...

... Company1 With "PQR Co." Replace Direct1 With ".\data2" EndIf if (Select("Comname1") == 0) use Comname1 new If (neterr()) msginfo("File is locked by another user") Close Databases return endif else select Select("Comname1") endif goto top DEFINE ...

... case errortype == "RLOCK" if (RLock()) return .T. endif do while (!RLock()) InKey(3) enddo case errortype == "APPEND" if (!neterr()) onerror("RLOCK") return .T. endif do while (neterr()) InKey(3) append blank enddo onerror("RLOCK") endcase return .T. ...

... case errortype == "RLOCK" if (RLock()) return .T. endif do while (!RLock()) InKey(3) enddo case errortype == "APPEND" if (!neterr()) onerror("RLOCK") return .T. endif do while (neterr()) InKey(3) append blank enddo onerror("RLOCK") endcase return .T. ...

... sus indices. Puedes probar con lo siguiente: 1- Lo cierras. 2- Trata de abrirlo en exclusivo, comprobando si otro usuario lo tiene abierto con NetErr(). Por supuesto, si algun otro usuario lo tiene abierto, te devolverá .t., por lo que debes devolverlo a su estado anterior (compartido) + sus ...

... hBitMap1, hBitMap2, hBitMap3, hBitMap4 local aArray:={} if (Select("abc") == 0) dbusearea(.T., Nil, "abc", Nil, Nil, .F.) if neterr() msginfo("File in use, please try again") close databases return endif set index to abci else select Select("abc") endif ...

... the file is available only for read access, use the READONLY clause on the USE command. CA-Clipper's default error handler (Errorsys.prg) will set NETERR() to true (.T.) and will ask DBFNDX to default if the error was due to a sharing violation on the network.

... Called from IDEBROWSE:CREATE(846) This is also a baffling one. It only throws up when same table is tried to open again. I am checking NetErr() but it seems RTE is always generated. I will report it to Przemek. In the meantime, surrounding this code under BEGIN/END SEQUENCE. Next commit ...

Antivirus?
exclude the folder and retry
bye

Can you test using a little program like this?

FUNCTION MAIN()
SET EXCLUSIVE OFF
USE customer
? neterr()
RETURN NIL

Michel,

>To my opinion NetErr() only return .T. or .F., doesn't it ?

Yes, you are correct. I must have been thinking of ferror().

James

James,

To my opinion NetErr() only return .T. or .F., doesn't it ?

Thanks.

Michel,

Maybe it would help if you put in a msgInfo(neterr()) so you can see what the error is. As your code is now, all neterr()s just show that the file can't be opened, but not why.

Regards,
James

... DBDELETE EXTERNAL DBGOTO EXTERNAL SELECT EXTERNAL DBSELECTAREA EXTERNAL SET EXTERNAL ORDSETFOCUS EXTERNAL DBAPPEND EXTERNAL DBRLOCK EXTERNAL NETERR EXTERNAL DBUNLOCK EXTERNAL RECNO EXTERNAL ORDCONDSET EXTERNAL ORDCOUNT EXTERNAL ORDLISTADD EXTERNAL ORDNAME EXTERNAL ORDKEY EXTERNAL ORDFOR EXTERNAL ...