Page 1 of 1

xbrowse com um só registro

Posted: Mon Jul 25, 2016 6:44 pm
by Wanderson
Ola,

Tenho um xbrowse de um arquivo vazio. Quando gravo alguns registro neste arquivo e refresco o xbrowse me mostra somente o primeiro registro.
Alguma idéia?

...

oTemp072:Zap()

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 4047 )
oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS
oBrw:lColDividerComplete := .T.
oBrw:nHeaderHeight :=30
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:bClrRowFocus := { || { CLR_BLACK, RGB( 150,231,70 ) } }
oBrw:cAlias("TEMP072")
oBrw:l2007:=.t.
oBrw:bClrSel:={ || { CLR_BLACK, RGB(185,220,255) } }


oCol := oBrw:AddCol()
oCol:AddResource("CHECKON")
oCol:AddResource("CHECKOFF")
oCol:cHeader := ""
oCol:bBmpData := { || iif( TEMP072->MARCADO, 1, 2) }
oCol:bStrData := nil
oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.)

oCol := oBrw:AddCol()
oCol:bStrData := { || TEMP072->BOLETO}
oCol:cHeader := "Nº BOLETO"

........

For x = 1 to 32
oTemp072:Blank()
oTemp072:Boleto := strzero(x,6,0)
oTemp072:Append()
oTemp072:Save()
Next x
oTemp072:Commit()

oBrw:Refresh() <<<<<---------------------- aqui so mostra 1 registro no xbrowse



Gracias.

Re: xbrowse com um só registro

Posted: Mon Jul 25, 2016 9:39 pm
by cmsoft
Si haces oTemp072:GoTop() o oBrw:GoTop() para que vaya al principio del archivo de nuevo?
Porque la rutina que pusiste el registro queda parado en el ultimo.

Re: xbrowse com um só registro

Posted: Tue Jul 26, 2016 1:09 am
by Wanderson
cmsoft wrote:Si haces oTemp072:GoTop() o oBrw:GoTop() para que vaya al principio del archivo de nuevo?
Porque la rutina que pusiste el registro queda parado en el ultimo.
Gracias no funciona veja:

Image