POR DEFECTO DEBES TENER un archivo (TABLA) CON UN CAMPO QUE MANEJE LAS SECUENCIAS
SELE CONTADOR && tabla de secuencias
num=secuencia && esta secuencia es un campo de la tabla de contenedores, en lo que va en
&& ese momento el contador
nume=regsecue(2,num)
esta variable 'nume' la grabas en tus archivos, como la secuencia siguiente y no
corres riesgo de que otro usuario te repita este numero.
*--------------------
FUNCTION REGSECUE
parameters claa,consesi
DO CASE
CASE claa=1
consesi=secuencia+1
CASE claa=2
DO WHILE .T.
IF consesi>secuencia and RLOCK()
cam_can('secuencia',consesi)
exit
ELSE
consesi=consesi+1
ENDIF
ENDDO
ENDCASE
RETURN consesi
*--------------------
FUNCTION CAM_CAN
PARAMETERS nca,nva
DO WHILE .T.
IF RLOCK()
REPL &nca. with nva
UNLOCK
EXIT
ENDIF
ENDDO
RETURN
!!ESPERO TE SIRVA. alexcoinc@gmail.com (Colombia - Caldas - Manizales)