Como hago para que el botón grabar no me repita un código

estoy usando este código y funciona

m_ok=.t.
IF m_ok
IF NOT USED("artículos")
USE artículos IN 1
ENDIF
SELECT artículos
IF!FOUND()
DO WHILE !FLOCK()
ENDDO
APPEND Blank
replace código With opciones.código
UNLOCK
ENDIF
DO WHILE !LOCK()
ENDDO
replace nombre With opciones.nombre
replace descripción with opciones.descripción
replace cantidad with opciones.cantidad
replace costo with opciones.costo
UNLOCK
ENDIF
thisform.m_codigo.value=""
thisform.m_nombre.value=""
thisform.m_descripcion.value=""
thisform.m_cantidad.value=""
thisform.m_costo.value=""
WAIT WINDOW TIMEOUT 1 AT _SCREEN.TOP+8.25,_SCREEN.LEFT+4 " la información fue procesada correctamente"
thisform.m_codigo.SetFocus()

Respuesta
1

Bueno dale una mirada estos fuentes que te guiara bastante para trabajar en modo multiusuario sin muchas complicaciones y también considera si hay otro usuario que esta registrando un cliente al mismo tiempo lastima que no termine el video explicativo de este form pero estudiando los fuentes podrás ubicarte. La idea principal es antes de guardar el código revisar en la tabla si hay el código repetido.

Se le artículos

set order to código

seek thisform.txtcodigo.value

if found()

messagebox('cod repetido')

else

repla ...

La tabla debe estar indexada por el código

PD. www.ingesoftsrl.net/fox

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas