Busqueda incremental campo CUIT, formato text 99-9999999-9

[dar...@gmail.com]

tengo este codigo que no consigo que refresque el grid, he probado distintos cambios, alguna idea?

LOCAL lc, lnRecno

* Normalizo para comparar
lc = STRTRAN(cuit, "-", "")

* Guardo el registro actual
lnRecno = RECNO()

* Comparación corregida (siempre sin guiones)
IF STRTRAN(cuit,"-","") >= lc

    IF NOT BOF()
        SKIP -1
    ENDIF

    * Si nos pasamos, volver al registro original
    IF STRTRAN(cuit,"-","") < lc
        IF lnRecno <= RECCOUNT()
            GO lnRecno
        ELSE
            GO BOTTOM
        ENDIF
        RETURN
    ENDIF

    * Búsqueda con índice
    IF NOT EMPTY(ORDER())
        SEEK lc
    ELSE
        GO TOP
        LOCATE REST FOR ;
            STRTRAN(cuit,"-","") = lc ;
            WHILE STRTRAN(cuit,"-","") <= lc ;
            NOOPTIMIZE
    ENDIF

ENDIF

* Si el registro cambió, ajustar foco
IF lnRecno # RECNO()
LOCAL lcSource
DOEVENTS
lcSource = THISFORM.Grid1.RecordSource
THISFORM.Grid1.RecordSource = ""
THISFORM.Grid1.RecordSource = lcSource
ENDIF

NODEFAULT
RETURN

[integral]

Que tal Colega

Buenos dias

Seguir los siguientes pasos para actualizar el Grid

Dejo un par de link relaciones al tema con el Grid.

https://groups.google.com/g/publicesvfoxpro/c/36WJiW2jWGw

https://learn.microsoft.com/es-es/previous-versions/troubleshoot/visualstudio/foxpro/refreshed-grid-does-not-display-data

Saludos,

Integral

[Zarlu]

Buenos días  dardapu!

No veo ningún refresh al GRID. 

Y también prueba dándole el foco

Refrescar implica que se ubique en el registro deseado?

Creo que tomar el RECNO() no es lo ideal. Sería mejor con el ID del registro 

Suerte

zarlu

Chetumal, Quintana Roo, México