Page 1 of 1
urgent bugs lastest FWH and SQLRDD
Posted: Mon Dec 30, 2019 8:27 pm
by MOISES
Hello,
- In datarow.prg, method savedbf(), at line 1332:
Code: Select all
if !( DbInfo( DBI_ISFLOCK ) .or. DbRecordInfo( DBRI_LOCKED, RECNO() ) )
It is not supported by SQLRDD.
- In xbrowse, vertical scroll bar does not work.
- Also, xbrowse is much slower in this version compared with FW 14.14.
These are current style settings:
Code: Select all
WITH OBJECT oBrowse
:nStretchCol := STRETCHCOL_LAST //WIDEST
:SetStyle( 2018 )
END
Thank you.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Dec 31, 2019 2:32 am
by nageswaragunupudi
- In datarow.prg, method savedbf(), at line 1332:
Code:
if !( DbInfo( DBI_ISFLOCK ) .or. DbRecordInfo( DBRI_LOCKED, RECNO() ) )
It is not supported by SQLRDD.
Then, how to know if the record or file is already locked?
- In xbrowse, vertical scroll bar does not work.
Is there any function equivalent to OrdKeyNo()?
Otherwise, how to know the relative position of the record in the database?
Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Dec 31, 2019 8:10 am
by MOISES
Hello,
Thanks for your quick reply.
DbInfo( DBI_ISFLOCK ) does work in SQLRDD. But not DbRecordInfo( DBRI_LOCKED, RECNO() ) )
This was working savedbf() method in FW 14.14, that worked great:
Code: Select all
METHOD SaveDBF() CLASS TDataRow
local n, nCols := ::FCount()
local lAppend := ( ::RecNo == 0 .or. ( bof() .and. eof() ) )
local nSaveRec
if ::lReadOnly .or. ! ::Modified()
return .f.
endif
if lAppend
::RecNo := 0
REPEAT
DbAppend()
UNTIL ! NetErr()
else
if ::RecNo != RecNo()
nSaveRec := RecNo()
endif
DbGoTo( ::RecNo )
do while ! DbRLock(); enddo
endif
if ::bSaveData == nil
for n := 1 to Len( ::aModiData )
TRY
FieldPut( FieldPos( ::aModiData[ n, 1 ] ), ::aModiData[ n, 2 ] )
CATCH
END
next n
else
Eval( ::bSaveData, Self )
endif
DbUnlock()
::ReadDBF( FW_ArrayAsList( ArrTranspose( ::aData )[ 1 ] ), .f., .t. )
if ! Empty( nSaveRec )
DbGoTo( nSaveRec )
endif
return .t.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Dec 31, 2019 8:25 am
by MOISES
ordkeyno() never has been supported by SQLRDD.
I think in previous xBrowse versions, you fixed like this:
Code: Select all
elseif ( ::cAlias )->( RddName() ) == "SQLRDD"
DEFAULT ::bKeyNo := ::bBookMark, ;
::bKeyCount := { || ( ::cAlias )->( LastRec() ) }
xBrowse from FW 14.14 works perfect with SQLRDD.
Thank you.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Jan 02, 2020 3:17 am
by Jimmy
MOISES wrote:ordkeyno() never has been supported by SQLRDD.
"think SQL" ...
when send a SQL Statement you can include a SQL Function to create a Unique Column like RECNO().
under PostgreSQL > 9.x it is Row_Number(), MySQL have RowNumber() which can used instead of OrKeyNo() under SQL
Re: urgent bugs lastest FWH and SQLRDD
Posted: Fri Jan 03, 2020 8:20 am
by MOISES
In Fwh 14.14 it worked perfect.
Thank you
Re: urgent bugs lastest FWH and SQLRDD
Posted: Sat Jan 04, 2020 7:44 am
by nageswaragunupudi
Does SQLRDD support
DBRLOCK( [nRec] ) and
DBRUNLOCK( [nRec] ) ?
Re: urgent bugs lastest FWH and SQLRDD
Posted: Sat Jan 04, 2020 8:18 am
by MOISES
I use rlock() and unlock.
Also, DbInfo( DBI_ISFLOCK ) works.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Jan 16, 2020 4:42 pm
by MOISES
Hello,
Any news about xBrowse bugs with SQLRDD?
Thank you.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Jan 16, 2020 9:06 pm
by nageswaragunupudi
Please give us a couple of days more time.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Feb 11, 2020 11:41 am
by MOISES
Up!.
Thank you
Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Feb 13, 2020 2:38 am
by nageswaragunupudi
We are unable to decide what changes are to be made because we do not have SQLRDD for testing at our end.
We shall be thankful if you can please provide us a modified method SetRDD() with changes applicable only for SQLRDD and we will incorporate the changes in the next release.
Whatever changes implemented till now were based on the recommendations of the users only.
Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Mar 05, 2020 4:36 pm
by MOISES
Up for xBrowse and SQLRDD: Thank you.