xBrowse with ADS

[thefull]

Antonio, i have simple xBrowse, from version Fivewin 8.04, i have at error very stupid, using ADS;
( And yes, I put REQUEST ADS...etc...etc.. )

FUNCTION Exclusiones()
Local oDlg, oDbf, oBrw, oTdbf, oDbKSegOri

USE TEST NEW SHARED
DATABASE oDbKSegOri

DEFINE DIALOG oDlg NAME "EXCLUIR" TITLE "Exclusion del kiosko"

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

oBrw:CreateFromResource( 101 )
oBrw:SetRDD()

oBrw:aCols[ 1 ]:cHeader = "CODIGO"
oBrw:aCols[ 2 ]:cHeader = "TIPO"
oBrw:bClrStd := {|| { CLR_BLACK, ChoiseColor( oDbKSegOri:TIPO ) } }

ACTIVATE DIALOG oDlg CENTER

oTDbf:Close()

RETURN NIL

STATIC FUNCTION ChoiseColor( cTipo )
Local uColor := CLR_WHITE

do case
case cTipo = "A"
uColor := CLR_HRED
case cTipo = "H"
uColor := CLR_HGREEN
case cTipo = "O"
uColor := CLR_YELLOW
case cTipo = "S"
uColor := CLR_HBLUE
end case

RETURN uColor

But I found error if I move column , i have this error;
Application
===========
Path and name: C:\ULYWIN\HOTELS\hotels32.exe (32 bits)
Size: 4,720,640 bytes
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 07/07/08, 10:38:39
Error description: Error BASE/1004 Class: 'NIL' has no exported method: NLEN
Args:
[ 1] = U

Stack Calls
===========
Called from: => NLEN(0)
Called from: xbrowse.prg => (b)TXBROWSE:SETRDD(2523)
Called from: xbrowse.prg => TXBROWSE:REFRESH(696)
Called from: xbrowse.prg => TXBRWCOLUMN:RESIZEEND(4317)
Called from: xbrowse.prg => TXBROWSE:LBUTTONUP(2244)

Well, I see exist this DATA nLen, but, i not find where is the problemn...

[Antonio Linares]

Rafa,

It was fixed in FWH 8.05. Please add these extra parameters in method Refresh() call to Eval():

nKeyNo = Eval( ::bKeyNo,,Self )

Si usas un objeto database, entonces has de usar oXBrowse:SetoDbf( oDbf [, aFldNames] )

[thefull]

Rafa,

It was fixed in FWH 8.05. Please add these extra parameters in method Refresh() call to Eval():

nKeyNo = Eval( ::bKeyNo,,Self )

Si usas un objeto database, entonces has de usar oXBrowse:SetoDbf( oDbf [, aFldNames] )

Thanks Antonio, but in this version Fivewin , i found another bug.

Please, users Fivewin of version 8.04, replace method PageUp()

if Eval( ::bkeyno ) < ::nRowSel
Eval( ::bKeyNo, ::nRowSel )
endif
by
if Eval( ::bkeyno,,Self ) < ::nRowSel
Eval( ::bKeyNo, ::nRowSel, Self )
endif

[Antonio Linares]

Rafa,

Thanks!