I would like to point out a small oversight in the XBROWSE program
Cargos instead of Cargo, as noted in the code snippet below.
The version of FWH is 23.07
Thank you
- Code: Select all Expand view
- for nFor := 1 to Len( ::aCols )
if ( n := AScan( aStruct, { |a| a[ 1 ] == Upper( ::aCols[ nFor ]:cHeader ) } ) ) > 0
if Empty( ::aCols[ nFor ]:cSortOrder )
::aCols[ nFor ]:cSortOrder := aStruct[ n ][ 8 ]
::aCols[ nFor ]:cOrdBag := ( cAlias )->( OrdBagName( ::aCols[ nFor ]:cSortOrder ) )
endif
elseif ( n := AScan( aStruct, { |a| a[ 1 ] == Upper( IfNil( ::aCols[ nFor ]:Cargo, "" ) ) } ) ) > 0
if Empty( ::aCols[ nFor ]:cSortOrder )
::aCols[ nFor ]:cSortOrder := aStruct[ n ][ 8 ]
::aCols[ nFor ]:cOrdBag := ( cAlias )->( OrdBagName( ::aCols[ nFor ]:cSortOrder ) )
endif
endif
next nFor
::Cargos := nil <------------------------------------------------------------------------------------------------- row 5823
DEFAULT ::bSeek := { |c,u| ( ::cAlias )->( ::RddIncrSeek( c, @u ) ) }
if ( ::cAlias )->( DbInfo( DBI_SHARED ) )
if ( ::cAlias )->( RddName() ) $ "DBFNTX,DBFCDX"
::bLock := { || ( ::cAlias )->( If( DbInfo( DBI_ISFLOCK ) .or. DbRecordInfo( DBRI_LOCKED, RECNO() ), ;
.t., lLocked := DbrLock( RECNO() ) ) ) }
::bUnlock := { || If( lLocked, ( ::cAlias )->( DbrUnlock( RECNO() ) ), nil ) }
else
::bLock := { || ( ::cAlias )->( DbrLock() ) }
::bUnlock := { || ( ::cAlias )->( DbrUnlock() ) }
endif
endif