topic-31957

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

xBrowse con Tabla MariaDb
Posted: Tue Feb 16, 2016 02:06 PM

Gente;
Se me presenta un pequeño problema en el SAY de la búsqueda
O sea, el proceso se realiza correctamente. Lo que ocurre es que no se refresca el SAY donde se muestra el texto ingresado
A ver si la figura lo explica mejor

Aquí ingrese como texto de búsqueda RODRIGUEZ, y como dije, el puntero se posicionó correctamente. Luego, moví el cursor y el SAY no se limpió.
Tampoco lo hace si intento borrar con backspace.
Luego, ingrese el texto para otra búsqueda... y esto es lo que sucede

Uso FW 1204 (puede pasar por ahí el problema?)

El código

Code (fw): Select all Collapse

   REDEFINE XBROWSE oBrw ID BRW_XBRW OF oDlg AUTOSORT ;
            COLUMNS "dnit1", "tutor1",   "dnit2", "tutor2" ;
            HEADERS "dni1",  "apeynom1", "dni2",  "apeynom2" ;
            OBJECT ::oQryT
   ...
   REDEFINE SAY oBrw:oSeek PROMPT oBrw:cSeek ID 10 OF oDlg COLOR CLR_MARCO1 UPDATE

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: xBrowse con Tabla MariaDb
Posted: Wed Feb 17, 2016 02:27 AM

Proba con

Code (fw): Select all Collapse

REDEFINE SAY oBrw:oSeek PROMPT "" ID 10 OF oDlg COLOR CLR_MARCO1 UPDATE

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Wed Feb 17, 2016 03:29 AM

De esta forma me trabaja como quieres...

Code (fw): Select all Collapse

   REDEFINE SAY oBrw:oSeek VAR oBrw:cSeek ;  // BUSQUEDA INCREMENTAL
      COLOR nRGB( 255, 255, 255 ), nRGB( 128, 128, 255 ) ID 102 OF oDlg

mi consulta es, hay manera de que en vez de un SAY sea un GET con su cursor titilando.? esto del SAY a veces los usuarios cuando corrigen el texto escrito con el BACKSPACE no se nota bien visualmente ya que con el SAY no se muestra cursor retrocediendo, por lo menos como lo tengo hecho, gracias, saludos...

Dios no está muerto...

Gracias a mi Dios ante todo!

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Wed Feb 17, 2016 02:42 PM

CM... gracias; no lo resuelve

José: no veo la diferencia entre tu código y el mío (solo el orden de las cláusulas). Lo estas usando con MySQL?
Agrego y aclaro, lo uso desde hace bastante con otras aplicaciones con DBFs y funciona correctamente

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Thu Feb 18, 2016 02:37 AM

MarioG wrote:CM... gracias; no lo resuelve

José: no veo la diferencia entre tu código y el mío (solo el orden de las cláusulas). Lo estas usando con MySQL?
Agrego y aclaro, lo uso desde hace bastante con otras aplicaciones con DBFs y funciona correctamente

Si, lo uso con Mysql, fijate que no uso el PROMPT, pero no creo eso tenga algo q ver...revisastes bien tu Query.? saludos...

Dios no está muerto...

Gracias a mi Dios ante todo!

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: xBrowse con Tabla MariaDb
Posted: Thu Feb 18, 2016 12:21 PM

Mario
Lo tengo igual al tuyo

Code (fw): Select all Collapse

REDEFINE SAY oBrw:oSeek PROMPT oBrw:cSeek ID 114 OF oDlg UPDATE PICTURE "@!"

Me parece que es tu versión de FWH
Antes lo usaba con ésta función:

Code (fw): Select all Collapse

FUNCTION QSeek( c, oBrw, oSay )
   LOCAL oQry := oBrw:oMySql
   LOCAL cSortOrder, nStart
   LOCAL uData, nNum, lRet

   STATIC aLastRec := {}
  
   nNum := AScan( oBrw:aCols, {| o | !Empty( o:cOrder ) } )

   IF nNum < 1
     nNum:=1 
   ENDIF
   
   cSortOrder := oBrw:aCols[ nNum ]:cSortOrder
    
   IF Len( c ) == 1
      aLastRec := {}
   ENDIF
  
   IF Len( aLastRec ) < Len( c )
      IF Len( aLastRec ) == 0
         nStart := 1
      ELSE
         nStart := oQry:RecNo()
      ENDIF
      AAdd( aLastRec, nStart )
   ELSE
      ASize( aLastRec, Len( c ) - 1 )
      
      IF Len( aLastRec ) == 0
          nStart := 1
      ELSE
         nStart := ATail( aLastRec )
      ENDIF
   ENDIF

   lRet  := ( oQry:Seek( c, cSortOrder, nStart, oQry:LastRec(), .T., .T. ) != 0 )
   If !lRet
     Return .F.
   Endif
  
RETURN lRet

Espero te ayude.

Saludos,

Adhemar

Saludos,

Adhemar C.

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Thu Feb 18, 2016 01:15 PM

Gracias! gente
Me inclino por pensar que es mi version de FWH

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Thu Feb 18, 2016 02:52 PM

REPITO PREGUNTA:

mi consulta es, hay manera de que en vez de un SAY sea un GET con su cursor titilando.? esto del SAY a veces los usuarios cuando corrigen el texto escrito con el BACKSPACE no se nota bien visualmente ya que con el SAY no se muestra cursor retrocediendo, por lo menos como lo tengo hecho, gracias, saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Fri Feb 19, 2016 12:56 AM

José
Se me ocurre que quizás podes probar con SSay de R.Avendaño (tengo los fuentes).
Aunque no recuerdo si tiene opción de parpadeo

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: xBrowse con Tabla MariaDb
Posted: Fri Feb 19, 2016 04:42 AM

MarioG wrote:José
Se me ocurre que quizás podes probar con SSay de R.Avendaño (tengo los fuentes).
Aunque no recuerdo si tiene opción de parpadeo

Esta bien lo que me dices, pero igual eso no responde mi pregunta...creo seria mejor si fuese un GET...que hasta se le pudiese poner el boton action, como por lo menos crear el indice o no se..cualquier cosa buena se nos ocurrira, solo lo dejo como observacion para los expertos del xBrowse o para Mr. Rao, saludos...gracias...

Dios no está muerto...

Gracias a mi Dios ante todo!

FiveTech Support Forums

Continue the discussion