Clipper/FiveWin - Grabar en Red

Muy buenas a todos:

En un programa en red, tengo la función con el fin de crear una numeración correlativa en el número de asientos contables. Esta funcíon el llamada justo en el momento de grabar el asiento:

FUNCTION ObtenAsiento()

Bloquea("Empresa")
aSient[1]:=Empresa->ASI+1
Empresa->ASI:=aSient[1]
Empresa->(DBUnlock())

RETURN (.T.)

donde Bloquea es:

FUNCTION Bloquea(cDbase)
DO WHILE .t.
IF (cDbase)->(RLOCK())
EXIT
ELSE
MsgAlert("Fichero Bloqueado por otro Usuario")
LOOP
ENDIF
ENDDO

RETURN (NIL)

El caso está en que trabanjando desde un ordenador, no hay problema, la variable aSient[1], se va sumando. No así cuando al mismo tiempo corren la misma aplicación en dos ordenadores diferentes.

Probé un Empresa->(DBCommit()), despues de Empresa->ASI:=aSient[1], pero me deja el fichero bloqueado, obligando a cerrar la aplicacion por completo.

Saludos y muchas gracias
Gabriel Martin. Mataró Spain

Gabriel,

Trabajando simultaneamente 2 o mas equipos con ese metodo te pasara lo mismo, te sugiero hagas lo siguiente :

Debes digitar toda la informacion del asiento contable y cuando oprimas la tecla para grabar ahi es donde bloqueas y pones el numero al asiento y despues obviamente liberas el fichero.

digamos que el correlativo es 3, hay tres equipos trabajando y capturando asientos, cuando uno de ellos finaliza captura automaticamente el correlativo e incrementa a 4 el mismo y libera el fichero, despues el otro equipo el otro etc en orden de sucesion y asi no tendras el problema,

ojala te sirva de algo,

Saludes desde Managua, Nicaragua,

Ramon Paredes

Buenas Ramón:

creo que no me expliqué bien, pero es eso justo lo que hace el programa. O sea, hasta que no se oprime el boton de OK, no se bloquea, obtiene, cambia y bloquea, el proceso de numeración, y aún y así, no siempre se ejecuta bien.

Es lo que no entiendo.

Gracias de todas formas por tu interés

Saludos Gabriel