xBrowse con Tabla MariaDb

xBrowse con Tabla MariaDb

Postby MarioG » Tue Feb 16, 2016 2: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
Image
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
Image

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

El código
Code: Select all  Expand view
  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
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: xBrowse con Tabla MariaDb

Postby cmsoft » Wed Feb 17, 2016 2:27 am

Proba con
Code: Select all  Expand view
REDEFINE SAY oBrw:oSeek PROMPT "" ID 10 OF oDlg COLOR CLR_MARCO1 UPDATE
User avatar
cmsoft
 
Posts: 1189
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: xBrowse con Tabla MariaDb

Postby joseluisysturiz » Wed Feb 17, 2016 3:29 am

De esta forma me trabaja como quieres...
Code: Select all  Expand view

   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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: xBrowse con Tabla MariaDb

Postby MarioG » Wed Feb 17, 2016 2: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
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: xBrowse con Tabla MariaDb

Postby joseluisysturiz » Thu Feb 18, 2016 2: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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: xBrowse con Tabla MariaDb

Postby acuellar » Thu Feb 18, 2016 12:21 pm

Mario
Lo tengo igual al tuyo
Code: Select all  Expand view

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: Select all  Expand view

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.
User avatar
acuellar
 
Posts: 1593
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: xBrowse con Tabla MariaDb

Postby MarioG » Thu Feb 18, 2016 1:15 pm

Gracias! gente
Me inclino por pensar que es mi version de FWH
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: xBrowse con Tabla MariaDb

Postby joseluisysturiz » Thu Feb 18, 2016 2: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!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: xBrowse con Tabla MariaDb

Postby MarioG » 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
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: xBrowse con Tabla MariaDb

Postby joseluisysturiz » Fri Feb 19, 2016 4: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!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 90 guests