FoxPro/Visual FoxPro - Error de registro de campos negativos

Me pongo en contacto con este foro por el siguiente motivo, tengo una tabla la cual guarda facturas que debo emitir las registra correctamente hasta que intento introducir el precio negativo que no me la registra en la BBDD y no encuentro el error. No entiendo mucho de Visual FoxPro con lo que me encuentro en un apuro a la hora de analizar el código, si alguien fuera tan amable de mirar este código y poderme guiar a la hora de analizarlo.Muchas gracias de antemano.

IF facte.ntotal <> 0
IF 6 = MESSAGEBOX ("¿Desea CREAR una nueva FACTURA?",36,"LudoSoft")
regis = facte.ncodigo
thisform.comun()
SELECT facte
= TABLEUPDATE(.T.)
SELECT lifacte
= TABLEUPDATE(.T.)
SELECT facte
SELECT iarticulo,ncantidad FROM lifacte WHERE lifacte.icodfact = facte.ncodigo INTO CURSOR actual
SELECT articulos
FOR x = 1 TO RECCOUNT("actual")
LOCATE FOR ncodigo = actual.iarticulo
stockan = nstock
REPLACE nstock WITH stockan - actual.ncantidad
IF nstock < 0
? CHR(7)
cmensa("NO HAY SUFICIENTES EXISTENCIAS DE " + ALLTRIM(UPPER(articulos.carticulo)))
ENDIF
SELECT actual
Skip 1
SELECT articulos
ENDFOR
IF USED("actual") = .T.
USE IN actual
ENDIF
SELECT facte
APPEND BLANK
SELECT lifacte
APPEND BLANK
SELECT facte
GO BOTTOM
thisform.text11.VALUE = ""
thisform.text1.VALUE = DATE()

thisform.text1.SETFOCUS()

thisform.gridampli.REFRESH()

thisform.REFRESH()
ENDIF
ELSE
cmensa("No se puede crear una nueva factura porque la actual está en blanco")
ENDIF