FiveTech Software tech support forums

... //================================ LOCAL mSioNo, Regre Do While .T. If ftipo = .t. Use (fBase) Exclusive Else Use (fbase) Shared Endif If !NetErr() Regre = .T. Exit Else mSioNo = MsgNoYes("La base de datos " + fbase +" esta siendo utilizada por otro usuario, Desea Volver a Intentar? " , ...

... evitar éste último error me sugirieron que realizara estos cambios: SET AUTOPEN OFF DBUSEAREA(.T., "DBFCDX",".\PROVEDOR", "PROVEDOR",.F.,.F.) IF !NETERR() FERASE(".\PROVEDOR.CDX") PreIndex( oMeter, nRec, "PROVEDOR") INDEX ON STRZERO(PROVEDOR->NumId,5) TAG NumId FOR ! DELETED() EVAL( oMeter:SETPOS( ...

... ) .and. SALDOS->cta = ncta sald_ant = SALDOS->saldo DO WHILE .t. IF SALDOS-> ( DbRLock() ) SALDOS->( DbAppend() ) IF ! SALDOS->( Neterr() ) REPLACE SALDOS->cta WITH ncta REPLACE SALDOS->fecha WITH wfecha REPLACE SALDOS->saldo WITH sald_ant+wmonto SALDOS->( DBCommit() ...

... claro no le tengo incorporado METER... pero me genera los CDX sin problemas...saludos SET AUTOPEN OFF // IMPIDE APERTURA AUTOMATICA DE LOS BAG IF NETERR() // CONTROL NADIE USE SISTEMA MSGALERT("Existen Usuarios en el Sistema,"+CHR(13)+"deben Salir todos para Indexar"," ATENCIÓN") RETURN .F. ENDIF ...

... STATIC FUNCTION METER(oMeter) IF !FILE(".\CLIENTES.CDX") SET UNIQUE OFF DBUSEAREA(.T., "DBFCDX",".\CLIENTES.DBF", "CLIENTES",.T.,.F.) IF !NETERR() SYSREFRESH() PreIndex( oMeter, nRec, "CLIENTES" ) INDEX ON STRZERO( IdCliente, 10 ) TAG IdCliente FOR ! DELETED() EVAL( oMeter:SETPOS( nRec++ ...

... actualizar el registro"+Chr(13)+; "Reintentar nuevamente") nSegundos := 1 Endif EndDo Endif Case cTipo == "A" ( cAlias )->( dbappend() ) If !NetErr() Return TRUE Endif Do While TRUE nSegundos++ Inkey(1) ( cAlias )->( dbappend() ) If !Neterr() Return TRUE Endif If nSegundos >= 5 MsgAlert("No ...

A ver



FUNCTION TRASBODE(d,CRUTA7)


Deberias poner
USE (cRuta7) ALIAS "BODEGT" SHARED

Creo que estas lineas estan demas:

*WHILE NETERR()
*USE (cRuta7) ALIAS "BODEGT"
*end while

... no me manda ningun error, pero // no me indexa los datos FUNCTION TRASBODE(d,CRUTA7) USE (cRuta7) ALIAS "BODEGT" //via "dbfntx" SHARED NEW WHILE NETERR() USE (cRuta7) ALIAS "BODEGT" //via "dbfntx" SHARED NEW end while msginfo(bodegt->id) INDEX ON BODEGT->ID TAG ID TO BODEGT SET ORDER TO ...

... IF ! FILE( "client.dbf") DbCreate( "client.dbf", { { "data", "C", 50, 0 } } ) ENDIF pfad := '\' cDb := 'client' USE (pfad+cDb) NEW SHARED IF NETERR() MsgAlert( 'Unable to open ' + pfad + cDb, cTitle ) RETURN (.F.) ENDIF IF client->( reccount() ) < 1 APPEND BLANK ENDIF GO TOP cWmsData ...

I am testing the TmySqlServer
If I compile this function
with xHArbour nSocket = 3678264
with FW nSocket = -2

Many thanks
MAurizio

Function MAin()
oServer := TMySQLServer():Ne("www.freesql.org", "myuser", "mypass")
if oServer:NetErr()
quit
endif
? oServer:nSocket
Return nil

... function GetNewFolio(cDbf, cField) Local nFolio:= 0, cAlias:=alias() if file(cDbf) dbusearea(.t.,, cDbf, "FOL", .t.) If NetErr(); msgalert("Error al intentar abrir: "+CRLF+cDbf, "Abortando!"); return(nil); endif FOL->( nFolio:= &(cField) + 1, dbclosearea() ) if( ...

... tenga èxito (previendo que otro usuario de la red estè en ese momento grabando su correlativo). ej. DO WHILE .T. USE CORRELAT EXCLUSIVE IF .NOT. NETERR() EXIT ENDIF ENDDO ..... (o cualquier cosa parecida)

... , alguien me podria orientar como solucionarlo Gracias Fabian databaselab2002@yahoo.com.ar Sele 21 Use Clientet alias clientet shared IF .NOT. NETERR() INDEX ON UPPER(CLIENTEt->DENOMI) TO CLIENTE1 INDEX ON UPPER(CLIENTEt->DIRECC) TO CLIENTE2 Else alert("Archivo Bloqueado por otro usuario",,"Archivo") ...

... , alguien me podria orientar como solucionarlo Gracias Fabian databaselab2002@yahoo.com.ar Sele 21 Use Clientet alias clientet shared IF .NOT. NETERR() INDEX ON UPPER(CLIENTEt->DENOMI) TO CLIENTE1 INDEX ON UPPER(CLIENTEt->DIRECC) TO CLIENTE2 Else alert("Archivo Bloqueado por otro usuario",,"Archivo") ...

A NetErr la llama para el caso de Append() y el problema lo tengo cuando quiero modificar.

Saludos!