Hi,
I have a problem...I run xBrowsw, open my database table from MySql ... and my search has 50 lines. The first thing you see are rows 1 to 30 and when I click the left mouse for example 30 row, all move to the top so I was the first to see the 30 row and 31,32,33 ... How do you like that does not happen? So, I want that when I click the left mouse to mark a row and nothing more ...
Thanks a lot
Hi nebojsa, I see it's your first post. Welcome to FiveTech's forums support.
I have some mysql-fwh software and I have not noticed that behavior. You may be able to post your code for help you?
Regards.
REDEFINE xBrowse oBrw ID 101 OF oDlgBrows ALIAS 'Trz'
oBrw:nFreeze := 2
oBrw:nRowDividerStyle = LINESTYLE_NOLINES
oBrw:nColDividerStyle := 2
oBrw:nMarqueeStyle := 4
oCol := oBrw:AddCol()
oCol:bStrData := { || str(RB)}
oCol:cHeader := "RB"
oCol:nDataStrAlign := AL_CENTER
oCol:nHeadStrAlign := AL_CENTER
oCol := oBrw:AddCol()
oCol:bStrData := { || TRZ->POZICIJA}
oCol:cHeader := "POZICIJA"
oCol:nHeadStrAlign := AL_CENTER
oCol := oBrw:AddCol()
oCol:bStrData := { || TRZ->REFERENT}
oCol:cHeader := "REF."
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth :=30
oCol := oBrw:AddCol()
oCol:bStrData := { || dtoc(DATUM)}
oCol:cHeader := "DATUM"
oCol:nDataStrAlign := AL_CENTER
oCol:nHeadStrAlign := AL_CENTER
oCol := oBrw:AddCol()
oCol:bStrData := { || TRZ->UVOZNIK}
oCol:cHeader := "UVOZNIK"
oCol:nWidth :=120
oCol:nHeadStrAlign := AL_CENTER
oCol := oBrw:AddCol()
oCol:bStrData := { || TRZ->PROIZVODJ}
oCol:cHeader := "PROIZVOĐAČ"
oCol:nWidth :=200
oCol:nHeadStrAlign := AL_CENTER
oCol := oBrw:AddCol()
oCol:bStrData := { || TRZ->MESTO5}
oCol:cHeader := "MESTO"
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth :=100
oCol:nHeadStrAlign := AL_CENTER
oCol := oBrw:AddCol()
oCol:bStrData := { || TRZ->NAZPROIZ1}
oCol:cHeader := "NAZIV PROIZVODA"
oCol:nWidth :=350
oBrw:nStretchCol := STRETCHCOL_WIDEST
* oBrw:bLClicked = { | | TraPre(TRZ->RB) }
* oBrw:CreateFromCode()
oFont:End()
oBrw:bLDblClick = { | nRow, nCol | TraPre(TRZ->RB),oDlgBrows:End() }
oBrw:bKeyChar = { | nKey, nFlags | if( nKey==VK_RETURN,(TraPre(TRZ->RB),oDlgBrows:End()),NIL) }
When I click some row in middle, that row go to top, but I want only mark that row...
I want send you a picture to see you how that work but I dont now how...
I see no problem in your code. Maybe you want to display the code of the function TraPre ()?
Meanwhile, I leave these parts of code I use. I hope you serve as an example.
oLbx := TXBrowse():New( oDlg )
oLbx:SetMySql(oCatalogo,.f.)
oCol = oLbx:AddCol()
oCol:bEditValue = { || oCatalogo:Codicont }
oCol:cHeader = "Codigo Contable"
oCol:nWidth = 164
oCol = oLbx:AddCol()
oCol:bEditValue = { || oCatalogo:Nombre }
oCol:nDataStrAlign := 3
oCol:cHeader = "Nombre de la Cuenta"
oCol:nWidth = 350
oLbx:CreateFromResource(181)
oLbx:bLDblClick:={|| if(lGrabacion, (cCodic:=oCatalogo:Codicont, if(oCatalogo:nv="S",oDlg:End(),(cCodic:="",MsgStop("Codigo incompleto","Alto")) )),) }
ACTIVATE DIALOG oDlg CENTERED
oCatalogo:End()
It's nothing help...I tried to run the DBF database and so we work normally ... but when I run the SQL database is not working properly ... I do not know why!
function TraPre(cmm)
DBSelectArea("Trz")
OrdSetFocus("TRZISNO")
oNazPar :Refresh()
if mRat>0
mTxt2=""
mTxt3=""
oTxt3 :refresh()
oTxt4 :refresh()
endif
iNovi=.f.
mRB =Trz->RB
mPoz =Trz->POZICIJA
mRadJed_Id =Trz->RADJED
mRef_Id =Trz->REFERENT
mDat =Trz->DATUM
mJCI =Trz->JCI
mbr =Trz->BR
mPrelaz =Trz->PRELAZ
mNazProiz1 =Trz->NAZPROIZ1
mNazProiz2 =Trz->NAZPROIZ2
mBtto =Trz->BRUTO
mNeto =Trz->NETO
mBrOmo =Trz->BROMOTA
mPakovanje =Trz->PAKOVANJE
mPartner_Id =Trz->Partner_Id
*mNazPar =Trz->UVOZNIK
mKORISNIK =Trz->KORISNIK
mKorAdresa =Trz->ADRESA7
mKorMesto =Trz->MESTO7
mKorTelefon =Trz->TELEFON7
mKorMaticni =Trz->MATICNI7
mKorPIB =Trz->PIB7
mPROIZVODJAC =Trz->PROIZVODJ
mProMesto =Trz->MESTO5
mProDrzava =Trz->DRZAVA5
mDOBAVLJAC =Trz->INODOBAVLJ
mDobMesto =Trz->MESTO6
mDobDrzava =Trz->DRZAVA6
mStanica =Trz->STANICA
mPoreklo =Trz->POREKLO
mUtovarGrad =Trz->MESTUTOGRA
mUtovarDrzava =Trz->MESTUTODRZ
mIzvoznica =Trz->IZVOZNICA
mPrevozVrsta =Trz->VRSTA
mPrevozBroj =Trz->BROJ
mSmestajNaziv =Trz->SMESTAJ
mSmestajAdresa =Trz->ADRESA13
mSmestajGrad =Trz->MESTO13
mSmestajTelefon =Trz->TELEFON13
mVrednost =Trz->VREDNOST
mValuta =Trz->VALUTA
mRat =Trz->RAT
mGotovinski =Trz->GOTOVIN
mTxt2 =space(20)
if mRat>0
MsgInfo("POSTOJE TAKSE !!!")
mTxt2="TAKSIRANO!!!"
mTxt3="Ako radite NOVI predmet kliknite na KOPIRAJ!!!"
oTxt3 :refresh()
oTxt4 :refresh()
endif
if mGotovinski>0
MsgInfo("POSTOJE TAKSE !!!")
mTxt2="TAKSIRANO!!!"
mTxt3="Ako radite NOVI predmet kliknite na KOPIRAJ!!!"
oTxt3 :refresh()
oTxt4 :refresh()
endif
mRef_Id =space(3)
mNazRef =space(40)
mNazJed =space(30)
mNazPar =space(30)
oRB :refresh()
oPoz :refresh()
oRef_Id :refresh()
oRadJed_Id :refresh()
oDat :refresh()
oSifCar :refresh()
oBroj :refresh()
oCIULAZ :refresh()
oNazPos1 :refresh()
oNazPos2 :refresh()
oBtto :refresh()
oNeto :refresh()
oBrOmo :refresh()
oPakovanje :refresh()
oPartner_Id :refresh()
oNazPar :refresh()
oKORISNIK :refresh()
oKorAdresa :refresh()
oKorMesto :refresh()
oKorTelefon :refresh()
oKorMaticni :refresh()
oKorPIB :refresh()
oPROIZVODJAC :refresh()
oProMesto :refresh()
oProDrzava :refresh()
oDOBAVLJAC :refresh()
oDobMesto :refresh()
oDobDrzava :refresh()
oStanica :refresh()
oPoreklo :refresh()
oUtovarGrad :refresh()
oUtovarDrzava :refresh()
oIzvoznica :refresh()
oPrevozVrsta :refresh()
oPrevozBroj :refresh()
oSmestajNaziv :refresh()
oSmestajAdresa :refresh()
oSmestajGrad :refresh()
oSmestajTelefon :refresh()
oVrednost :refresh()
oValuta :refresh()
oRat :refresh()
oGotovinski :refresh()
oRef_Id :refresh()
oNazRef :refresh()
oRadJed_Id :refresh()
oNazJed :refresh()
oTxt3 :refresh()
oPoz:SetFocus()
return .t.
Mr Nebojsa
Are you trying to use SQLRDD with xBrowse?
If so what is the version of FWH you are using?
Yes, I use SQLRDD but still dont work... FWH is 12.08
XBrowse, by design, works with only such RDDs which support functions OrdKeyNo() and OrdKeyGoTo(x) also in addition to others.
Because SQLRDD does not support these two functions, (ordkeyno() returns 0 always) this RDD is not compatible with xBrowse. If xbrowse is used with SQLRDD, the behaviour is unpredictable.
But there are some users who are using xbrowse with sqlrdd in a limited way by tweaking xbrowse. You may search the forums for their postings.
TWBrowse and TCBrowse work with SQLRDD.
However, FWH is trying to provide limited support to SQLRDD from version 13.04 onwards.
