Visual Foxpro : Codigo para agregar un registro

SELECT clientes
LOCK("0","clientes")
SELECT MAX(codcli) as maxcod FROM clientes INTO CURSOR temporal
vsigcod=temporal.maxcod+1
USE IN temporal
SELECT clientes
UNLOCK RECORD 0

Explicacion del codigo

→ Ir al tutorial de Funcion LOCK

Al especificar el número de registro 0 (cero), se bloquea el encabezado de la tabla sin bloquear ningún registro individual. Bloquear el encabezado de la tabla evita que otros usuarios agreguen registros, porque la cantidad de registros se almacena en el encabezado

LOCK("0","clientes")