urgent bugs lastest FWH and SQLRDD

[MOISES]

Hello,

- In datarow.prg, method savedbf(), at line 1332:

Code: Select all  Expand view  RUN

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  Expand view  RUN

  WITH OBJECT oBrowse
      :nStretchCol      := STRETCHCOL_LAST //WIDEST

      :SetStyle( 2018 )

   END

Thank you.

[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?

[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  Expand view  RUN

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.
 

[MOISES]

ordkeyno() never has been supported by SQLRDD.

I think in previous xBrowse versions, you fixed like this:

Code: Select all  Expand view  RUN

elseif ( ::cAlias )->( RddName() ) == "SQLRDD"
DEFAULT ::bKeyNo := ::bBookMark, ;
::bKeyCount := { || ( ::cAlias )->( LastRec() ) }

xBrowse from FW 14.14 works perfect with SQLRDD.

Thank you.

[Jimmy]

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

[MOISES]

In Fwh 14.14 it worked perfect.

Thank you

[nageswaragunupudi]

Does SQLRDD support
DBRLOCK( [nRec] ) and
DBRUNLOCK( [nRec] ) ?

[MOISES]

I use rlock() and unlock.

Also, DbInfo( DBI_ISFLOCK ) works.

[MOISES]

Hello,

Any news about xBrowse bugs with SQLRDD?

Thank you.

[nageswaragunupudi]

Please give us a couple of days more time.

[MOISES]

Up!.
Thank you

[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.

[MOISES]

Up for xBrowse and SQLRDD: Thank you.