topic-38297

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

urgent bugs lastest FWH and SQLRDD
Posted: Mon Dec 30, 2019 08:27 PM

Hello,

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

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 (fw): Select all Collapse

   WITH OBJECT oBrowse
      :nStretchCol      := STRETCHCOL_LAST //WIDEST

      :SetStyle( 2018 )

   END

Thank you.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Dec 31, 2019 02:32 AM

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

Regards

G. N. Rao.

Hyderabad, India

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Dec 31, 2019 08:10 AM

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 (fw): Select all Collapse

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.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Dec 31, 2019 08:25 AM

ordkeyno() never has been supported by SQLRDD.

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

Code (fw): Select all Collapse

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

xBrowse from FW 14.14 works perfect with SQLRDD.

Thank you.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Jan 02, 2020 03:17 AM

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

greeting,

Jimmy

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Fri Jan 03, 2020 08:20 AM

In Fwh 14.14 it worked perfect.

Thank you

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Sat Jan 04, 2020 07:44 AM

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

Regards

G. N. Rao.

Hyderabad, India

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Sat Jan 04, 2020 08:18 AM

I use rlock() and unlock.

Also, DbInfo( DBI_ISFLOCK ) works.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Jan 16, 2020 04:42 PM

Hello,

Any news about xBrowse bugs with SQLRDD?

Thank you.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Jan 16, 2020 09:06 PM

Please give us a couple of days more time.

Regards

G. N. Rao.

Hyderabad, India

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Tue Feb 11, 2020 11:41 AM

Up!.
Thank you

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Feb 13, 2020 02:38 AM

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.

Regards

G. N. Rao.

Hyderabad, India

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: urgent bugs lastest FWH and SQLRDD
Posted: Thu Mar 05, 2020 04:36 PM

Up for xBrowse and SQLRDD: Thank you.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

FiveTech Support Forums

Continue the discussion