Xbrowse error

Xbrowse error

Postby Silvio » Mon Feb 05, 2007 12:50 am

when I Dblclick on a record the program go out !!!!
and not create error.log
try it please www.nonsolosport.net/test_xbrowse.zip



---------------------
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby Otto » Mon Feb 05, 2007 11:11 am

oBrw:bChange := { || if (lChange=.t.,( lChange=.f., RefreshCont("QUOTE",cSocio,@lChange),oBrw:GoTop(),oBrw:refresh() ), ) }



static FUNCTION RefreshCont(cdbf,cSocio,lChange)
cKey:=cSocio

(cdbf)->(OrdScope(0,cKey))

(cdbf)->(OrdScope(1,cKey))
sysrefresh()
lChange:=.f.
return NIL
User avatar
Otto
 
Posts: 6327
Joined: Fri Oct 07, 2005 7:07 pm

Postby Silvio » Mon Feb 05, 2007 11:25 am

Now I can see the records but then the program go out and it not make error.log
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby Silvio » Mon Feb 05, 2007 11:52 am

perhaps there is an error on this functions

oBrw:bGoTop :={|| GoToTop(Alias(),csocio)}
oBrw:bGoBottom:={|| GoToBot(Alias(),csocio)}
oBrw:bSkip :={|n| MovePtr(Alias(),csocio,n)} <-------

I must use xbrowse but with wbrowse of hernan it run ok
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby Otto » Mon Feb 05, 2007 2:55 pm

Can you test with my exe

www.atzwanger.com/silvio/test.zip

Otto
User avatar
Otto
 
Posts: 6327
Joined: Fri Oct 07, 2005 7:07 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 59 guests