FiveTech Software tech support forums

Mr Rao, This is the code I'm using with tdolphin, if I comment the line: bSeek does not work the field 'cedula' is int (10) and primary key METHOD DataBrowse() CLASS TMyApp  local oDlg  local oFont  local oBar  local lExit := FALSE  local oServer:= ::oSrv:oServer  ...

Mr Rao, You will have a small example of how to use the codeblock: bSeek? well with in DBFCDX used, : bSeek = {| c | (oBrw: cAlias​​) -> (DBSEEK (Upper (c). t.))} Thank you, Regards, The best and the right way of using XBrowse is NOT to define that code ...

Mr Rao,

You will have a small example of how to use the codeblock: bSeek?

well with in DBFCDX used,
: bSeek = {| c | (oBrw: cAlias​​) -> (DBSEEK (Upper (c). t.))}

Thank you,

Regards,

... nKey | KeyChar( oBrw, nKey ) } aGet[3]:bKeyDown := { | nKey | KeyChar( oBrw, nKey ) } aGet[4]:bKeyDown := { | nKey | KeyChar( oBrw, nKey ) } oBrw:bSeek := nil oBrw:bKeyChar := { |nKey| KeyChar( oBrw, nKey ) } opps I saw now it run only for first field

... also prepares a well tested codeblock for bOnPostEdit. Please note that the codeblocks automatically generated by XBrowse for example bOnPostEdit, bSeek etc are well tested and much better than what you may write and even other wise there is no point in writing them for each column of each browse ...

Estimado jbrita, como ya dije en otro post , el problema del bSeek es que no me toma el que yo hago, sino el de la clase. No se que versión de FWH estas usando pero con la 12.06 no puedo hacer lo que me dices porque nunca va a ir a la funcion BBus(), lo ...

... ON CHANGE SeOrden(oCbx,oLbx,nIndex) REDEFINE SAY oSay ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE oLbx:SetAdo(cMa_Ctes) oLbx:bSeek := {|c| BBus(c,cMa_Ctes,nIndex[cVar]) } oLbx:oSeek := oSay oLbx:bKeyDown := {|nKey| iif( nKey=13,(cKey := ADOField(cMa_Ctes,"ma_rutc"),oDlg:End() ...

Tan sólo una pregunta, ¿por qué la llamada a bSeek solo hace caso al bloque de código de la clase y no a la que el programador le indique? ¿Es por la clase en si?, ¿por el compilador (uso xHarbour) ? Correct bSeek codeblock is internally generated ...

Gracias Antonio lo había entendido así. Tan sólo una pregunta, ¿por qué la llamada a bSeek solo hace caso al bloque de código de la clase y no a la que el programador le indique? ¿Es por la clase en si?, ¿por el compilador (uso xHarbour) ? Por lo demás ya he corregido ...

... columnas del TxBrowse cuando quiero tener casillas de verificación. Por otro lado me gustaría, si es posible, me indicara el motivo por el que el bSeek de la clase no hace caso al bSeek que se le indica.

... Self (al no ser un Methodo) y colocar al final del Do Case EndCase la siguiente línea Self:cSeek := uSeek en mi caso lo hice así Línea 4196 ::bSeek := { |c| AdoSeek( ::oRs, c,, ::lSeekWild, Self ) } <------------------ Envío Self Static Function AdoSeek(( oRs, uSeek, lSoft, lWildSeek, oBrw) ...

... de que no casque y se pueda ver lo que el usuario escribe en un Say de un diálogo? :oops: He visto además que, aunque en el programa, a la data bSeek le de un valor de bloque de código con su función correspondiente de búsqueda, nunca toma ese valor, siempre toma el de la clase. :(

Hola Byron No funciona, lo único que hace es crearme una columna al final con el nombre de bUpdateBuffer. Lo que si he visto es que mi función de bSeek ni hace absolutamente nada, es decir no va a ella cuando inicio el tecleo de búsqueda. También he visto que la data oSeek solo se emplea en el ...

Francisco
La metodología funciona, muchas gracias!
Lo que me confunde es que en los samples (pocos), no usan :bSeek

Saludos

obrow:=bseek:={|v|odb2:SEEK(v,,{oquery:itemid+oquery:id2})}

Should be
obrow:bseek:={|v|oquery:SEEK(v,,{||oquery:itemid})}

Shuming Wang