Error en búsqueda sobre xbrowse

[Claudio Roldan]

Hola a Todos, sigo investigando con SQLADO.prg

y me encuentro con un problema que no se pude/supe resolver.

Hice una busqueda incremental sobre la xbrowse principal pero perdía las sincronizaciones con las otras xbrowses , buscando y leyendo en los pocos ejemplos que encontré se redefinen el browse con LIKE, bueno corregí el prg y funciona permitiendo editar el los campos establecidos.

Pero al realizar una búsqueda, que se hace correctamente ya no me permite la edición en el xbrowse de la búsqueda, entiendo que al redefinir el recordset se pierde la "configuración" de los campos editables (por el título del error)

y acá está mi problema que nose como resolverlo.

Adjunto el error y el prg. 

Cualquier ayuda es bien recibida.

Gracias.

Claudio Roldan.

Libre de virus.www.avast.com

[avazq...@gmail.com]

Buenas

Renombra el prg pq me lo bloquea Outlook por la extensión
Saludos

 

 

Antonio Vázquez

avazq...@gmail.com

 

 

 

Libre de virus.www.avast.com

--
Has recibido este mensaje porque estás suscrito al grupo "ADO Harbour" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a ado-harbour...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/ado-harbour/CAP_n%2B3Gu6wjOM-zCNUGLPf18QYxsWup1GOvQuc6QStgLoR-j4w%40mail.gmail.com.

[Claudio Roldan]

Subo renombrado.

Gracias.

Claudio Roldan

Libre de virus.www.avast.com

Para ver este debate, visita https://groups.google.com/d/msgid/ado-harbour/019e01dc10f3%240b3f7e00%2421be7a00%24%40gmail.com.

[David Field]

Hola Claudio,

El problema es que estás cerrando el RecordSet principal (oRs) y creando uno nuevo.

Las variables oRs y cResult1 las tienes definidas como privadas por lo que son accesibles en todo el prg por lo tanto puedes hacer lo siguiente y solo actualizar los datos del Recordset

Function BuscarPorDescripcion(oConn, cTexto)

   If f!EMPTY(cTexti)

      oRs:Refresh(cResult1+ " WHERE UPPER(descripcio) LIKE '%" + Upper(AllTrim(cTexto)) + "%'")

      Form_1.xSTA11.Refresh()

      // si no se actualizan los otros xbrowse, entonces agrega la siguiente linea

      EVAL(Form_1.xSTA11.OnChange)

Endif
Return

Saludos,

David Field

[Claudio Roldan]

David:

Gracias por tu consejo, funcionó bien.

el eval() fue necesario para mantener la sincronización con los otros browses.

le saque el if empty(cTexto) para que, al ingresar cTexto en blanco, vuelva a ver toda la base en el caso que lo deseen.

nuevamente gracias

Claudio Roldan.

Libre de virus.www.avast.com

--

Has recibido este mensaje porque estás suscrito al grupo "ADO Harbour" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a ado-harbour...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/ado-harbour/c22e3384-3a63-451c-bdac-762256ae1ab2n%40googlegroups.com.