FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour C贸mo resetear oBrw:oseek [SOLUCIONADO]
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
C贸mo resetear oBrw:oseek [SOLUCIONADO]
Posted: Mon Nov 30, 2020 09:08 PM
Hola a todos
Ver茅is tengo dos base de datos relacioandas: Proveedores y productos y se muestran los datos en un Folderex, por una parte los datos del proveedors y en el otro los productos.
Al principio se muestran en xbrowse todo los proveedores por orden de c贸digo y he puesto un cuadro de b煤squeda incremental por c贸digo y por nombre. El de c贸digo me da error y, si bien el del nombre me funciona a la hora salir de la edici贸n se queda en el mismo registro y no se resetea el filtro. 驴Sab茅is c贸mo se puede resetear? Otra cosa: 驴hay alguna manera de que en los obrw:oseek el cursor?

El c贸digo es el siguiente:

#include "FiveWin.ch"
#include "ord.ch"
#include "XBrowse.Ch"

function TELEM()

local oDlg, obrw

USE PROVEEDOR NEW SHARED alias "PROVE"
index on PROVE->CODIGO_PRO to CODPROVE
Set index to CODPROVE

USE PRODUCTOS NEW SHARED alias "PRODU"
index on PRODU->CODIGO_PRO to CODPRODU
Set index to CODPRODU

SELE PROVE
SET RELATION TO PROVE->CODIGO_PRO INTO PRODU


DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100 TITLE "PROVEEDORES"

@ 1,1 XBROWSE oBrw SIZE 360, 160;
COLUMNS "CODIGO_PRO", "NOMBRE", "PROVINCIA" OF oDlg alias "PROVE";
HEADERS "C贸digo", "Denominaci贸n", "Provincia";
COLSIZES 200, 300, 70 NOBORDER FASTEDIT FOOTERS

@ 2,10 SAY "B煤squeda por c贸digo:" SIZE 100,10 PIXEL OF oDlg
@ 2,70 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW

@ 2,178 SAY "B煤squeda por nombre:" SIZE 100,10 PIXEL OF oDlg
@ 2,250 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW
/*
oBrw:lIncrFilter := .t.
oBrw:lSeekWild := .t.
oBrw:cFilterFld := "CODIGO_PRO"
oBrw:bChange := {|| oBrw:Refresh() <--- da error
*/
oBrw:lIncrFilter := .t.
oBrw:lSeekWild := .t.
oBrw:cFilterFld := "NOMBRE"
oBrw:bChange := {|| oBrw:Refresh() }


oBrw:CreateFromCode()

@ 11, 15 BUTTON "Nuevo " OF oDlg ACTION oBrw:EditSource( .t. )
@ 11, 25 BUTTON "Editar " OF oDlg ACTION EditPro(oBrw)
@ 11, 35 BUTTON "Eliminar" OF oDlg ACTION oBrw:Delete()
@ 11, 45 BUTTON "&Imprimir" OF oDlg ;
ACTION oBrw:Report( "Listado ", .t. ) ; // .t. --> wants preview
SIZE 40, 12
@ 11,55 BUTTON "&Terminar" OF oDlg ACTION oDlg:End() SIZE 40, 12
ACTIVATE DIALOG oDlg CENTERED

return nil

//***************** EDICION CON FOLDER---------------
Function editPro(oBrw)
Local oDlg, oFld, oLbx
local nProve, oProve, cNombre, oNombre,cProvincia, oProvincia

NProve :=PROVE->CODIGO_PRO
cNombre :=PROVE->NOMBRE
cProvincia:=PROVE->PROVINCIA

DEFINE DIALOG oDlg FROM 3, 3 TO 20,70 TITLE "Mantenimiento"

@ 10, 5 FOLDEREX oFld PIXEL PROMPT "&Proveedor", "&Datos mercanc铆as" SIZE 250,100

@ 20, 5 SAY "C贸digo:" OF oFld:aDialogs[ 1 ] SIZE 60,10 PIXEL
@ 20, 100 SAY oProve var nProve OF oFld:aDialogs[ 1 ] SIZE 60,10 PIXEL
@ 30, 5 SAY "Raz贸n social" OF oFld:aDialogs[ 1 ] SIZE 60,10 PIXEL
@ 30, 100 GET oNombre VAR cNombre OF oFld:aDialogs[ 1 ] SIZE 100,10 PIXEL
@ 40, 5 SAY "Provincia" OF oFld:aDialogs[ 1 ] SIZE 60,10 PIXEL
@ 40, 100 GET oProvincia VAR cProvincia OF oFld:aDialogs[ 1 ] SIZE 100,10 PIXEL
@ 60, 50 BUTTON "Grabar" OF oFld:aDialogs[1] SIZE 40,10 PIXEL action oDlg:end()
@ 60, 150 BUTTON "Salir" OF oFld:aDialogs[1] SIZE 40,10 PIXEL ACTION oDlg:End()

sele produ

produ->(ordscope(0, nProve))
produ->(ordscope(1, nProve))
produ->(DBSKIP(0))

if produ->(ordKeyCount())==0
MsgInfo("No se encontraron productos")
endif

@ 1,1 XBROWSE oLbx SIZE 250, 65 PIXEL;
COLUMNS "CODIGO_PRO", "PRODUCTO", "PRECIO" OF oFld:aDialogs[ 2 ] alias "PRODU";
HEADERS "C贸digo proveedor", "Producto", "Precio";
COLSIZES 70,300,140;
JUSTIFY AL_RIGHT, AL_LEFT, AL_RIGHT;
PICTURES , , "@E 9,999,999.99" LINES NOBORDER FASTEDIT

oLbx:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED

Return nil
FWH 20.12 BCC7
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: C贸mo resetear oBrw:oseek
Posted: Mon Nov 30, 2020 09:55 PM

Aqu铆 adjunto los archivos dbf, prg y el exe:

https://drive.google.com/file/d/1uXyoOz ... sp=sharing

FWH 20.12 BCC7
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo resetear oBrw:oseek
Posted: Tue Dec 01, 2020 12:58 PM
Comente, porfa:

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "ord.ch"
#include "XBrowse.Ch"
 
FUNCTION TELEM()

   LOCAL oDlg, obrw, nKey := VK_RETURN
            
   USE PROVEEDOR NEW SHARED ALIAS "PROVE"
   INDEX ON PROVE->CODIGO_PRO TO CODPROVE
   SET INDEX TO CODPROVE
   
   USE PRODUCTOS NEW SHARED ALIAS "PRODU"
   INDEX ON PRODU->CODIGO_PRO TO CODPRODU
   SET INDEX TO CODPRODU
   
   SELE PROVE
   SET RELATION TO PROVE->CODIGO_PRO INTO PRODU
                             
   DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100 TITLE "PROVEEDORES"
    
   @ 1, 1 XBROWSE oBrw SIZE 360, 160;
      COLUMNS "CODIGO_PRO", "NOMBRE", "PROVINCIA" OF oDlg ALIAS "PROVE";
      HEADERS "C贸digo", "Denominaci贸n", "Provincia";
      COLSIZES 200, 300, 70 NOBORDER FASTEDIT FOOTERS

   @ 2, 10 SAY "B煤squeda por c贸digo:" SIZE 100, 10 PIXEL OF oDlg

   @ 2, 70 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100, 10 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW
 
   @ 2, 178 SAY "B煤squeda por nombre:" SIZE 100, 10 PIXEL OF oDlg

   @ 2, 250 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100, 10 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW

   /*
   oBrw:lIncrFilter      := .t.
   oBrw:lSeekWild        := .t.
   oBrw:cFilterFld       := "CODIGO_PRO"
   oBrw:bChange   := {|| oBrw:Refresh()    <--- da error
   */

   oBrw:lIncrFilter      := .T.
   oBrw:lSeekWild        := .T.
   oBrw:cFilterFld       := "NOMBRE"
   // oBrw:bChange   := {|| oBrw:Refresh() }
   oBrw:bChange   := {|| oBrw:oSeek( "" ) }
   oBrw:bKeyChar   := { |nKey| If( nKey == VK_ESCAPE, ( oBrw:Seek( "" ), oDlg:End() ), nil ) }
 
   oBrw:CreateFromCode()

   @ 11, 15 BUTTON "Nuevo   " OF oDlg  ACTION oBrw:EditSource( .T. )

   @ 11, 25 BUTTON "Editar  " OF oDlg  ACTION EditPro( oBrw )

   @ 11, 35 BUTTON "Eliminar" OF oDlg  ACTION oBrw:Delete()

   @ 11, 45 BUTTON "&Imprimir"  OF oDlg ;
      ACTION oBrw:Report( "Listado de SAT", .T. ) ;  // .t. --> wants preview
      SIZE 40, 12

   @ 11, 55 BUTTON "&Terminar" OF oDlg ACTION oDlg:End() SIZE 40, 12

   ACTIVATE DIALOG oDlg CENTERED                                             ;
      ON INIT ( oBrw:cSeek( "" ), oBrw:SetFocus(), .F. )

RETURN nil

//***************** EDICION CON FOLDER---------------

FUNCTION editPro( oBrw )

   LOCAL oDlg, oFld, oLbx
   LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia

   NProve    := PROVE->CODIGO_PRO
   cNombre   := PROVE->NOMBRE
   cProvincia := PROVE->PROVINCIA

   DEFINE DIALOG oDlg FROM 3, 3 TO 20, 70 TITLE "Mantenimiento"


   @ 10, 5 FOLDEREX oFld PIXEL PROMPT "&Proveedor", "&Datos mercanc铆as" SIZE 250, 100
 
   @ 20, 5 SAY "C贸digo:" OF oFld:aDialogs[ 1 ]  SIZE 60, 10 PIXEL

   @ 20, 100 SAY oProve var nProve OF oFld:aDialogs[ 1 ]  SIZE 60, 10 PIXEL

   @ 30, 5 SAY "Raz贸n social" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

   @ 30, 100 GET oNombre VAR cNombre OF oFld:aDialogs[ 1 ]  SIZE 100, 10 PIXEL

   @ 40, 5 SAY "Provincia" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

   @ 40, 100 GET oProvincia VAR cProvincia OF oFld:aDialogs[ 1 ]  SIZE 100, 10 PIXEL

   @ 60, 50 BUTTON "Grabar" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL action oDlg:end()

   @ 60, 150 BUTTON "Salir" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL ACTION  oDlg:End()

   SELE produ

   produ->( ordscope( 0, nProve ) )
   produ->( ordscope( 1, nProve ) )
   produ->( DBSKIP( 0 ) )

   IF produ->( ordKeyCount() ) == 0
      MsgInfo( "No se encontraron productos" )
   ENDIF
 
   @ 1, 1 XBROWSE oLbx SIZE 250, 65 PIXEL;
      COLUMNS "CODIGO_PRO", "PRODUCTO", "PRECIO" OF oFld:aDialogs[ 2 ] ALIAS "PRODU";
      HEADERS "C贸digo proveedor", "Produto", "Precio";
      COLSIZES 70, 300, 140;
      JUSTIFY AL_RIGHT, AL_LEFT, AL_RIGHT;
      PICTURES , , "@E 9,999,999.99" LINES NOBORDER FASTEDIT

   oLbx:CreateFromCode()
 
   ACTIVATE DIALOG oDlg CENTERED

RETURN nil


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: C贸mo resetear oBrw:oseek
Posted: Tue Dec 01, 2020 09:09 PM
Gracias,

Lo que buscaba es que al salir de la edici贸n del registro se reseteara el obrw:cseek y se mostraran de nuevo todos los registros.

Es decir, lo que est谩 en rojo:

FUNCTION editPro( oBrw )

LOCAL oDlg, oFld, oLbx, Lsalir:=.f.
LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia

NProve := PROVE->CODIGO_PRO
cNombre := PROVE->NOMBRE
cProvincia := PROVE->PROVINCIA

DEFINE DIALOG oDlg FROM 3, 3 TO 20, 70 TITLE "Mantenimiento"


@ 10, 5 FOLDEREX oFld PIXEL PROMPT "&Proveedor", "&Datos mercanc铆as" SIZE 250, 100

@ 20, 5 SAY "C贸digo:" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 20, 100 SAY oProve var nProve OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 30, 5 SAY "Raz贸n social" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 30, 100 GET oNombre VAR cNombre OF oFld:aDialogs[ 1 ] SIZE 100, 10 PIXEL

@ 40, 5 SAY "Provincia" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 40, 100 GET oProvincia VAR cProvincia OF oFld:aDialogs[ 1 ] SIZE 100, 10 PIXEL

@ 60, 50 BUTTON "Grabar" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL action oDlg:end()

@ 60, 150 BUTTON "Salir" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL ACTION (lSalir:=.t., oDlg:End())

SELE produ

produ->( ordscope( 0, nProve ) )
produ->( ordscope( 1, nProve ) )
produ->( DBSKIP( 0 ) )

IF produ->( ordKeyCount() ) == 0
MsgInfo( "No se encontraron productos" )
ENDIF

@ 1, 1 XBROWSE oLbx SIZE 250, 65 PIXEL;
COLUMNS "CODIGO_PRO", "PRODUCTO", "PRECIO" OF oFld:aDialogs[ 2 ] ALIAS "PRODU";
HEADERS "C贸digo proveedor", "Produto", "Precio";
COLSIZES 70, 300, 140;
JUSTIFY AL_RIGHT, AL_LEFT, AL_RIGHT;
PICTURES , , "@E 9,999,999.99" LINES NOBORDER FASTEDIT

oLbx:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED valid lSalir

if lsalir
oBrw:cSeek( "" )
OBrw:refresh()
oBrw:SetFocus()
endif

RETURN nil
FWH 20.12 BCC7
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: C贸mo resetear oBrw:oseek
Posted: Sat Dec 05, 2020 11:39 AM
Hola, de nuevo
Hace unos d铆as, plante茅 un tema de c贸mo refrescar el oBrw:oseek despu茅s de editar un registro. Me ayud贸 mucho Jo茫o, pero me da la impresi贸n de que en mi respuesta posterior a una parte de mi planteamiento no me expliqu茅 bien y puse en rojo el c贸digo que yo pretend铆a que funcionara. Tambi茅n plante茅 c贸mo hacer que se vea el cursor en cuando est谩 el foco en SAY oBrw: oBuscar VAR oBrw: cBuscar

Es decir, que despu茅s de buscar un registro con SAY oBrw: oBuscar VAR oBrw: cBuscar , editarlo con editPro(oBrw) y despu茅s, al terminar de editarlo, volver a oBrw con todos los registros, no solo los buscados:

El c贸digo es el siguiente:

#include "FiveWin.ch"
#include "ord.ch"
#include "XBrowse.Ch"

FUNCTION TELEM()

LOCAL oDlg, obrw, nKey := VK_RETURN

USE PROVEEDOR NEW SHARED ALIAS "PROVE"
INDEX ON PROVE->CODIGO_PRO TO CODPROVE
SET INDEX TO CODPROVE

USE PRODUCTOS NEW SHARED ALIAS "PRODU"
INDEX ON PRODU->CODIGO_PRO TO CODPRODU
SET INDEX TO CODPRODU

SELE PROVE
SET RELATION TO PROVE->CODIGO_PRO INTO PRODU

DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100 TITLE "PROVEEDORES"

@ 1, 1 XBROWSE oBrw SIZE 360, 160;
COLUMNS "CODIGO_PRO", "NOMBRE", "PROVINCIA" OF oDlg ALIAS "PROVE";
HEADERS "C贸digo", "Denominaci贸n", "Provincia";
COLSIZES 200, 300, 70 NOBORDER FASTEDIT FOOTERS

@ 2, 10 SAY "B煤squeda por c贸digo:" SIZE 100, 10 PIXEL OF oDlg

@ 2, 70 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100, 10 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW

@ 2, 178 SAY "B煤squeda por nombre:" SIZE 100, 10 PIXEL OF oDlg

@ 2, 250 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100, 10 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW

/*
oBrw:lIncrFilter := .t.
oBrw:lSeekWild := .t.
oBrw:cFilterFld := "CODIGO_PRO"
oBrw:bChange := {|| oBrw:Refresh() <--- da error
*/

oBrw:lIncrFilter := .T.
oBrw:lSeekWild := .T.
oBrw:cFilterFld := "NOMBRE"
// oBrw:bChange := {|| oBrw:Refresh() }
oBrw:bChange := {|| oBrw:oSeek( "" ) }
oBrw:bKeyChar := { |nKey| If( nKey == VK_ESCAPE, ( oBrw:oSeek( "" ), oDlg:End() ), nil ) }

oBrw:CreateFromCode()

@ 11, 15 BUTTON "Nuevo " OF oDlg ACTION oBrw:EditSource( .T. )

@ 11, 25 BUTTON "Editar " OF oDlg ACTION EditPro( oBrw )

@ 11, 35 BUTTON "Eliminar" OF oDlg ACTION oBrw:Delete()

@ 11, 45 BUTTON "&Imprimir" OF oDlg ;
ACTION oBrw:Report( "Listado de SAT", .T. ) ; // .t. --> wants preview
SIZE 40, 12

@ 11, 55 BUTTON "&Terminar" OF oDlg ACTION oDlg:End() SIZE 40, 12

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oBrw:cSeek( "" ), oBrw:SetFocus(), .F. )

RETURN nil

//***************** EDICION CON FOLDER---------------

FUNCTION editPro( oBrw, oDlg )

LOCAL oDlg1, oFld, oLbx, Lsalir:=.f.
LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia

NProve := PROVE->CODIGO_PRO
cNombre := PROVE->NOMBRE
cProvincia := PROVE->PROVINCIA

DEFINE DIALOG oDlg1 FROM 3, 3 TO 20, 70 TITLE "Mantenimiento"


@ 10, 5 FOLDEREX oFld PIXEL PROMPT "&Proveedor", "&Datos mercanc铆as" SIZE 250, 100

@ 20, 5 SAY "C贸digo:" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 20, 100 SAY oProve var nProve OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 30, 5 SAY "Raz贸n social" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 30, 100 GET oNombre VAR cNombre OF oFld:aDialogs[ 1 ] SIZE 100, 10 PIXEL

@ 40, 5 SAY "Provincia" OF oFld:aDialogs[ 1 ] SIZE 60, 10 PIXEL

@ 40, 100 GET oProvincia VAR cProvincia OF oFld:aDialogs[ 1 ] SIZE 100, 10 PIXEL

@ 60, 50 BUTTON "Grabar" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL action oDlg1:end()

@ 60, 150 BUTTON "Salir" OF oFld:aDialogs[1] SIZE 40, 10 PIXEL ACTION (lSalir:=.t., oDlg1:End())

SELE produ

produ->( ordscope( 0, nProve ) )
produ->( ordscope( 1, nProve ) )
produ->( DBSKIP( 0 ) )

IF produ->( ordKeyCount() ) == 0
MsgInfo( "No se encontraron productos" )
ENDIF

@ 1, 1 XBROWSE oLbx SIZE 250, 65 PIXEL;
COLUMNS "CODIGO_PRO", "PRODUCTO", "PRECIO" OF oFld:aDialogs[ 2 ] ALIAS "PRODU";
HEADERS "C贸digo proveedor", "Produto", "Precio";
COLSIZES 70, 300, 140;
JUSTIFY AL_RIGHT, AL_LEFT, AL_RIGHT;
PICTURES , , "@E 9,999,999.99" LINES NOBORDER FASTEDIT

oLbx:CreateFromCode()

ACTIVATE DIALOG oDlg1 CENTERED valid lSalir


if lsalir
oBrw:oSeek( "" )
oBrw:refresh()
oBrw:Update()
oBrw:SetFocus()
endif

RETURN nil


Lo que est谩 en rojo es lo que pretendo que haga al salir de la edici贸n del registro, es decir, que se muestre el oBrw con todos los registros y no los buscados y que el cursor se vuelva a poner en el campo de b煤squeda y adem谩s, como comentaba antes, que se vea el cursor, porque con say confunde mucho y parece que el cursor se ha perdido.

No s茅 si me he explicado bien.
FWH 20.12 BCC7
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo resetear oBrw:oseek
Posted: Sat Dec 05, 2020 12:30 PM
Ramon, haga un ZIP 贸 RAR con los bancos de datos y ponga en:

https://mega.nz/

Y post el link para download para que los usu谩rios hagan pruebas, si?

Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM
Re: C贸mo resetear oBrw:oseek
Posted: Sun Dec 06, 2020 02:36 PM

viewtopic.php?f=3t=30651hilit=clear+oseek

&&

Marc Venken

Using: FWH 23.08 with Harbour
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: C贸mo resetear oBrw:oseek
Posted: Sun Dec 06, 2020 09:38 PM
Muchas gracias, Jo茫o y Marc.

Creo que ya lo tengo. Es un poco casero, pero funciona. Os dejo el enlace de descarga de los ficheros prg, exe y dbf de ejemplo de b煤squeda incremental.

Me gustar铆a que el cursor se visualizara cuando est谩 el foco en cseek, pero por lo dem谩s funciona bien.

https://mega.nz/file/p1pVmIyQ#5_ZFaiqK2Su8Hvx2IJrfdUGy3YoUEtxDTw-tbhfSDr0

Un saludo
FWH 20.12 BCC7
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: C贸mo resetear oBrw:oseek
Posted: Wed Dec 09, 2020 03:42 AM
Cancel oSeek
Code (fw): Select all Collapse
oBrw:Seek( "" )


Code (fw): Select all Collapse
@ 2,250 SAY oBrw: oSeek VAR oBrIZE: cSeek 100,10 PIXEL OF oDlg COLOR CLR_HRED, CLR_YELLOW

This is a SAY control and so can not get focus and does not have cursor.

It is possible if this is a Get control, but this is possible in the next version yet to be released.
viewtopic.php?f=3&t=39723
Regards



G. N. Rao.

Hyderabad, India
Ram贸n J.
Posts: 152
Joined: Mon Feb 13, 2006 08:23 PM
Re: C贸mo resetear oBrw:oseek
Posted: Thu Dec 10, 2020 04:21 PM

Muchas gracias, Nageswaragunupudi

Tengo la versi贸n FWH1804 y mi situaci贸n econ贸mica no me permite efectuar un desembolso de 170 euros para actualizarla a la versi贸n m谩s reciente, solo por, en principio, hacer una b煤squeda incremental con get en lugar de say.

De todas maneras se agradece la respuesta.

Un saludo

FWH 20.12 BCC7

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions