Amigos, tengo un problema en el uso de TXBrowse. Puedo insertar una tabla con 2 columnas (c贸digo y descripci贸n) la TXBrowse me muestra todos los datos, pero el 煤ltimo registro, cuando trato de hacer clic en 茅l, se cambia la informaci贸n de resgistro anteriormente. A continuaci贸n se presenta el c贸digo:
local CbRWTELA
cmd:="SELECT * FROM CADFAB_GESTAO ORDER by CODIGO LIMIT 20"
if (select("fabricante")= 0)
use sql (cmd) new shared alias fabricante
fabricante->(dbgotop())
endif
dbselectarea('fabricante') //SETA O ARQUIVO
define dialog frmtelacad resource ("TELACAD") of frmcadproduto color nRgb(0,0,0),RGB(102,153,255) Font Afont[16]
redefine say oSayPesTelaCad id 4004; oSayPesTelaCad:ltransparent:=.t.
CbRWTELA := TXBrowse():New(frmtelacad)
CbRWTELA:CreateFromResource( 4001 )
CbRWTELA:nMarqueeStyle := MARQSTYLE_HIGHLROW //MARQSTYLE_HIGHLCELL
CbRWTELA:bClrSelFocus := {|| { CLR_WHITE, nRGB( 000, 100, 255 ) } }
CbRWTELA:nHeaderLines := 1
CbRWTELA:nColDividerStyle := 1 //LINESTYLE_BLACK
CbRWTELA:nRowDividerStyle := 1 //LINESTYLE_BLACK
CbRWTELA:lAllowColSwapping := .T.
CbRWTELA:lAllowRowSizing := .T.
CbRWTELA:lHScroll := .T.
CbRWTELA:lColDividerComplete := .t.
CbRWTELA:lRecordSelector := .f.
//CbRWTELA:bClrSel:= {CLR_RED,CLR_BLACK}
CbRWTELA:SetRDD(.F.)
CbRWTELA:cAlias := ("fabricante")
CbRWTELA:l2007 = .T.
CbRWTELA:lFooter := .f.
//CbRWTELA:bKeyDown :={|nKey| iif(nKey=13,(lnew:='2',novoproduto()),nil)}
oCol:= CbRWTELA:AddCol()
oCol:bStrData := { || fabricante->codigo }
oCol:cHeader := 'C贸digo'
oCol:nWidth := 110
oCol:= CbRWTELA:AddCol()
oCol:bStrData := { || fabricante->Descricao }
oCol:cHeader := 'Raz茫o Social'
oCol:nWidth := 435
for nFor := 1 to 2
CbRWTELA:aCols[ nFor ]:blDClickData := {|r,c,f,o| (odbf:Fabric:=fabricante->codigo,mDescFabric:=fabricante->descricao, oCodFab:refresh(), oSayTextFabric:refresh(), oCodForn:setfocus(),oCodForn:refresh(), frmtelacad:end()) }
next
CbRWTELA:refresh()
CbRWTELA:gotop()
CbRWTELA:refresh()
activate dialog frmtelacad
!Gracias
Germano Solter
