wbrowse scopes...

[pymsoft]

wbrowse (el original de FW) en un dialogo dentro de un folder en determinadas situaciones que explicaré a continuación, me quita los scopes.

Abro el dialogo y muestro los datos con el scope sin problemas, me muevo con la rueda del mouse arriba y abajo, con las teclas, sin problemas.
Cuando pongo una ventana adelante y luego me muevo con la rueda del mouse me doy cuenta que me quitó el scope. O cuando hago click para redimensionar la columna y luego me muevo con la rueda del mouse el scope no está mas definido, y no depende de mis funciones, visto que no quito el scope en ningun momento (solo cuando cierro el dialogo).

puse este codigo para cuando pierde el focus para resolver el asunto

Code: Select all  Expand view  RUN

          oLBXPrzAlt:bGotFocus := {|| prz_alt->( ordSetFocus(4) ),;
                                      prz_alt->( ordScope( TOPSCOPE, cCodCpc ) ),;
                                      prz_alt->( ordScope( BOTTOMSCOPE, cCodCpc ) ),;
                                      prz_alt->( dbGoTop() )  }


pero me es util solo cuando pierde el focus y luego lo retoma, no cuando redimensiono la columna y luego me muevo con la ruedita del mouse...


A alguien le pasa?

Buscando en la wbrowse no veo en ninguna parte que elimine el scope, asi que estará en algunas de las funciones en C, que no las entiendo...

Saludos

[pymsoft]

Sorry... wrong language...

[James Bott]

Pedro,

Try also setting bLogicLen:

oLBXPrzAlt:bLogicLen := prz_alt->( ordKeyCount() )

Also make sure you are specifying the alias when you build the browse.

Why are you setting the scope when getting focus? This is very unusual.

Regards,
James

[Enrico Maria Giordano]

Try also setting bLogicLen:

oLBXPrzAlt:bLogicLen := prz_alt->( ordKeyCount() )

You missed the codeblock.

EMG

[pymsoft]

James,

Is very unusual... but the problem is that twbrowse lost the scopes. Not always, but when dialog lost the focus and press the mouse in the adjust column, the scope say good bye... not all the time...

this is my code for the browse:

Code: Select all  Expand view  RUN

          oV:cScopeCliente1 := cCodCpc
          oV:cScopeCliente2 := cCodCpc
          prz_alt->( ordSetFocus(4) ) // codice cliente
          prz_alt->( ordScope( TOPSCOPE, oV:cScopeCliente1 ) )
          prz_alt->( ordScope( BOTTOMSCOPE, oV:cScopeCliente1 ) )
          prz_alt->( dbGoTop() )

          REDEFINE LISTBOX oLBXPrzAlt FIELDS IIF( !EMPTY( prz_alt->cat_cod ) .OR. !EMPTY( prz_alt->codfor ), IIF( EMPTY( prz_alt->codfor ), NameCateg( prz_alt->cat_cod ), ( ALLTRIM( NameCateg( prz_alt->cat_cod ) ) + "-" + NameCLF( prz_alt->codfor ) ) ), NameArt( prz_alt->cod_art ) ),;
                   TRANSFORM( prz_alt->prezzo, "@e 999,999.99"),;
                   TRANSFORM( prz_alt->sc1, "@e 999.99"),;
                   TRANSFORM( prz_alt->sc2, "@e 999.99"),;
                   TRANSFORM( prz_alt->sc3, "@e 999.99"),;
                   TRANSFORM( prz_alt->netto, "@e 999,999.99"),;
                   TRANSFORM( prz_alt->data, "@d" );
                   ALIAS "prz_alt";
                   HEADERS "Articolo/Categoria/Forn.", "Prezzo", "SC1", "SC2", "SC3", "Netto", "Data";
                   ON LEFT DBLCLICK NewPrzAlt( oLBXPrzAlt, .F. );
                   ID 201;
                   OF oFld:aDialogs[4]
          // this is to solve (temporaly) the problem
          oLBXPrzAlt:bGotFocus := {|| prz_alt->( ordSetFocus(4) ),;
                                      prz_alt->( ordScope( TOPSCOPE, cCodCpc ) ),;
                                      prz_alt->( ordScope( BOTTOMSCOPE, cCodCpc ) ),;
                                      prz_alt->( dbGoTop() ),;
                                      oLBXPrzAlt:refresh(.T.)  }


          // this is for test
          oLBXPrzAlt:bRClicked := {||  msginfo( PADR( prz_alt->( ordSetFocus() ), 20 ) + CRLF +;
                                                PADR( prz_alt->( dbOrderInfo( DBOI_SCOPEBOTTOM  ) ), 20 ) + CRLF +;
                                                PADR( prz_alt->( dbOrderInfo( DBOI_SCOPETOP  ) ), 20 ) + CRLF + ;
                                                PADR( prz_alt->( recno() ), 20 )             )  }




Thank you for your time.

[James Bott]

Pedro,

OK, you using bGotFocus just as a workaround for the problem. So let's try to find the problem. I suggest commenting out your bGotFocus and putting in this line:

oLBXPrzAlt:bLogicLen := {|| prz_alt->( ordKeyCount() ) }

(as Enrico pointed out it needs to be a codeblock).

Also try commenting out this line:

ON LEFT DBLCLICK NewPrzAlt( oLBXPrzAlt, .F. );

I don't know what is going on in NewPrzAlt() but you are passing the browse object so let's eliminate that as a source of the problem.

If the problem still is there, perhaps you can build us a small sample that we can use to recreate the problem?

Regards,
James

[pymsoft]

James,

It's my fault...

I have a timer that import data from a database every 45 seconds... and save and retrieves the work areas... recno, focus, selected...

the class twbrowse don't lost the scopes...

Thank you again.


Regards

[James Bott]

Pedro,

Glad you found the problem.

> have a timer that import data from a database every 45 seconds... and save and retrieves the work areas... recno, focus, selected...

I just open a new copy of the database rather than trying to save and restore the state. Unlike the old days when memory was a real issue, today it isn't.

You may want to consider using a database class--they are so much easier to program. FW has one and I have one that is more advanced. My TData class automatically opens a database in a new area so you never have to deal with areas. More info here:

http://ourworld.compuserve.com/homepages/jbott/program.htm

>the class twbrowse don't lost the scopes...

I'm glad to hear that too.

Regards,
James

[pymsoft]

James,

I'll try to open a copy of the database with diferent aliases to solve the problem.
I will try to use a database class.

Thanks again

Regards,

[James Bott]

Pedro,

>I will try to use a database class.

Even if you don't use my database class, there are some articles about using database classes on my website that may help you understand them.

Regards,
James