xbrowse+tmysql Blank record

[Francisco Horta]

hi forum,

somethig idea, i used xbrowse+tmysql(contrib) and this is my result, ever ever at the end append blank record, see image
oBrw2 := TXBrowse():New( oDlg )
oBrw2:SetMySql( oQry2, .F. )
http://imageshack.us/photo/my-images/825/recblank.jpg/


Uploaded with ImageShack.us

i'm freaky,
regards
paco

[nageswaragunupudi]

After creating xBrowse,

Code: Select all  Expand view

oBrw:bSkip := { |n,x| x := oBrw:oMySql:RecNo(), ;
                      oBrw:oMySql:GoTo( Max( 1, Min( oBrw:MySql:LastRec(), x + n ) ) ), ;
                      oBrw:oMySql:RecNo() - x }
 

Please try and let us know the result.

[Francisco Horta]

hi rao,

i have this error:
Error description: Error BASE/1081 Error de argumento: +
Args:
[ 1] = N 1
[ 2] = U

variable "x" is NIL
then no work..
regards
paco

[nageswaragunupudi]

Please try this revised code instead of the above:

Code: Select all  Expand view

oBrw:bSkip := { |n,x| x := oBrw:oMySql:RecNo(), ;
                      oBrw:oMySql:GoTo( Max( 1, ;
                      Min( oBrw:MySql:LastRec(), x + IfNil( n, 1 ) ) ) ), ;
                      oBrw:oMySql:RecNo() - x }
 

Please place this code after oBrw:SetMySql(...)
Please let us know if this works.

[Francisco Horta]

RRAAOO,,

many many thanks, simply amazing !!!!
Works fine!!!
where is the bug, in xbrowse.prg?
thanks
regards
paco

[Francisco Horta]

RAO,

in xbrowse.prg in methos setmysql change:
this -> DEFAULT ::bSkip := {| n | ::oMysql:Skip( n ) }

and put this -> DEFAULT ::bSkip := { |n,x| x := ::oMySql:RecNo(), ;
::oMySql:GoTo( Max( 1, Min( ::oMySql:LastRec(), x + IfNil( n, 1 ) ) ) ), ;
::oMySql:RecNo() - x }
like you said, and correct all browses automatically..
is correct?
thanks
paco

[nageswaragunupudi]

RAO,

in xbrowse.prg in methos setmysql change:
this -> DEFAULT ::bSkip := {| n | ::oMysql:Skip( n ) }

and put this -> DEFAULT ::bSkip := { |n,x| x := ::oMySql:RecNo(), ;
::oMySql:GoTo( Max( 1, Min( ::oMySql:LastRec(), x + IfNil( n, 1 ) ) ) ), ;
::oMySql:RecNo() - x }
like you said, and correct all browses automatically..
is correct?
thanks
paco

Yes, you are correct.
We have now modified xbrowse.prg. This change will be available from the next release.
I thank you for testing and confirming that this is working.
You may make this change in your copy of xbrowse.prg and use it for your work.