xbrowse com um só registro

Post Reply
Wanderson
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

xbrowse com um só registro

Post 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.
User avatar
cmsoft
Posts: 653
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: xbrowse com um só registro

Post 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.
Wanderson
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Re: xbrowse com um só registro

Post 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
Post Reply