FoxPro/Visual FoxPro - Data Type mismach, textbox..xxxx en tiempo de replace

&&Subrutina que asigna # de prestamo por cliente (ID-cedula"

&&basado en año +mes+ secuencia numeria ( ejemplo 2020-04-XXXX)

Thisform.text1.Value = ALLTRIM(thisform.text1.Value)

Thisform.text1.Value = UPPER(thisform.text1.Value)

 *FECHA DEL SISTEMA DESCOMPOSICON *

  DIASYS = LEFT(DTOC(DATE()),2)

  MESSYS = SUBSTR(DTOC(DATE()),4,2)

  ANOSYS = RIGHT(DTOC(DATE()),4)

store 0 to numpre2

store '  ' to numpre8

STORE '001' TO NUMPRE9

store '  ' to m.numpres1

SELECT MTROCTES

SET ORDER TO Cedula  && CEDULA

SEEK ALLTRIM(thisform.text1.Value)

   IF FOUND()  then

 THISFORM.TEXT3.Value = nombre

 thisform.text6.Value = telefono

 thisform.text4.Value = direc

SELECT mtprestamo

SET ORDER TO CODPREST

DO WHILE .not. EOF()

THISFORM.TEXT2.VALUE = RIGHT(CODPREST,3)

M.NUMPRES1 = VAL(thisform.text2.value) + 1

NUMPRE2 = INT(M.NUMPRES1)

***

NUMPRE8 = STR(NUMPRE2)

If numpre2 =<  9

   numpre8 = '00' + alltrim(str(numpre2))

 else

If numpre2 >=  10

   numpre8 = '0' + alltrim(str(numpre2))

Endif

  Endif

   IF numpre2 > 99

store  ' '  to  numpre8

 numpre8 = numpre8 + alltrim(str(numpre2))

     Endif

NUMPRE4 = ANOSYS + MESSYS

numpre5 = SUBSTR(codprest,5,2)

 IF numpre5 = MESSYS

   NUMPRE4 = NUMPRE4 + ALLTRIM(numpre8)

     ELSE

   NUMPRE4 = NUMPRE4 + ALLTRIM(numpre9)

       ENDIF

 thisform.text2.Value = NUMPRE4

    skip

 ENDDO

 ELSE

 WAIT WINDOWS "VERIFIQUE BIEN CLIENTE NO EXISTE"

 STORE "" TO thisform.text1.Value, thisform.text2.Value

 ENDIF

 && STORE "" TO thisform.text1.Value, thisform.text2.Value

  thisform.refresh

WITH thisform.text7

	.Format = "D"

	.Value = {}

	.ControlSource = "Alias_Tabla.CampoFecha"

ENDWITH

* Metodo Configure

LPARAMETERS tcAlias

WITH thisform.text7

	.Format = "D"

	.Value = {}

	.ControlSource = m.tcAlias+".CampoFecha"

ENDWITH

lcCursor = SYS(2015)

SELECT * ;

	FROM MITABLA ;

	WHERE FECHA BETWEEN ldDesde AND ldHasta ;

	INTO CURSOR (lcCursor) READWRITE

IF !EMPTY(_Tally)

	thisform.Configure(m.lcCursor)

ELSE

	USE IN SELECT(m.lcCursor)

ENDIF

El textbox puede quedar bloqueado si el cursor o tabla no tiene al menos un registro. También se bloqueará si la tabla tiene en el campo correspondiente el valor NULL.

La función ISNULL() te permite saber si un valor es el valor NULL.