xBrowse com array problemas !

[AOKISANTOS]

Amigos, estou tento problemas quando preciso recarregar a ARRAY.

Acontece, que ao dar o comando:
uBrw:SetArray(bStruc,.t.)
uBrw:refresh()
Esta desconfigurando as colunas da browse.

fonte:

uBrw := TXBrowse():New( oDlp )

bStruc :={{"","Sim",0,CTOD(""),CTOD(""),0}}

uBrw:SetArray( bStruc, .t. )

uBrw:aCols[1]:cHeader := "Parcela"
ubrw:aCols[3]:nWidth := 50
uBrw:aCols[1]:cEditPicture := "999"
uBrw:aCols[1]:bClrEdit := uBrw:bClrStd
uBrw:aCols[1]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 1 ] := x }

uBrw:aCols[2]:cHeader := "Recebida"
ubrw:aCols[3]:nWidth := 60
uBrw:aCols[2]:nDataStrAlign := AL_LEFT
uBrw:aCols[2]:nHeadStrAlign := AL_LEFT
uBrw:aCols[2]:nEditType := EDIT_LISTBOX
uBrw:aCols[2]:aEditListTxt := {"Sim", "Não"}
uBrw:aCols[2]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 2 ] := x }
uBrw:aCols[2]:aEditListBound := {"Sim", "Não"}
uBrw:aCols[2]:bClrEdit := uBrw:bClrStd

uBrw:aCols[3]:cHeader := "Valor"
ubrw:aCols[3]:nWidth := 70
uBrw:aCols[3]:cEditPicture := "@E 999,999.99"
uBrw:aCols[3]:nDataStrAlign := AL_RIGHT
uBrw:aCols[3]:nHeadStrAlign := AL_RIGHT
uBrw:aCols[3]:bOnPostEdit := {|o,x| bStruc[uBrw:nArrayAt, 3 ] := x }
uBrw:aCols[3]:nEditType := EDIT_GET
uBrw:aCols[3]:bStrData := {|| TRANS(bStruc[uBrw:nArrayAt, 3 ] ,"@E 999,999.99")}

uBrw:aCols[4]:cHeader := padc("Vencimento",11)
ubrw:aCols[3]:nWidth := 80
uBrw:aCols[4]:nDataStrAlign := AL_CENTER
uBrw:aCols[4]:nHeadStrAlign := AL_CENTER
uBrw:aCols[4]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 4 ] := x }
uBrw:aCols[4]:nEditType := EDIT_GET

uBrw:aCols[5]:cHeader := padc("Data Pgto",11)
ubrw:aCols[3]:nWidth := 80
uBrw:aCols[5]:nDataStrAlign := AL_CENTER
uBrw:aCols[5]:nHeadStrAlign := AL_CENTER
uBrw:aCols[5]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 5 ] := x }
uBrw:aCols[5]:nEditType := EDIT_GET

uBrw:aCols[6]:cHeader := "Valor Pgto"
ubrw:aCols[6]:nWidth := 70
uBrw:aCols[6]:cEditPicture := "@E 999,999.99"
uBrw:aCols[6]:nDataStrAlign := AL_RIGHT
uBrw:aCols[6]:nHeadStrAlign := AL_RIGHT
uBrw:aCols[6]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 6 ] := x}
uBrw:aCols[6]:nEditType := EDIT_GET
uBrw:aCols[6]:bStrData := {|| TRANS(bStruc[uBrw:nArrayAt, 6 ],"@E 999,999.99")}


uBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
uBrw:nColDividerStyle := LINESTYLE_DARKGRAY
uBrw:lColDividerComplete := .t.
uBrw:nFooterLines := 2
uBrw:lFooter := .t.
uBrw:aCols[ 1 ]:cFooter := "Total:"

uBrw:bClrStd := { ||{ RGB(0,0,0), iif( uBrw:nArrayAt % 2 == 0, RGB(234,255,234) , RGB(255,255,255) ) } }
uBrw:nFreeze := 6
uBrw:lHScroll := .f.
uBrw:lVScroll := .f.
uBrw:lFastEdit := .T. //ENTER cod barras
uBrw:CreateFromResource( 101 )


***********************************************************
STATIC FUNCTION CRIA_TITULOS(cocond,iniciemis,tivalor,uBrw)
***********************************************************
LOCAL X,vvaltotal:=0,calcv:=0,ultparc

select condicoes
dbsetorder(1)
if dbseek(cocond)
bStruc:={}
calcv :=round(tivalor/condicoes->co_parc,2)
Select TabCondicoes
dbsetorder(1)
dbseek(str(cocond,4,0))
do while TabCondicoes->pg_codi==cocond .and. TabCondicoes->(! eof())
iniciemis+=TabCondicoes->pg_praz
AADD(bStruc,{TabCondicoes->pg_nupa,"Sim",calcv,iniciemis,ctod(""),0})
TabCondicoes->(dbskip())
enddo
IF LEN(bStruc)>0
vvaltotal:=0
ultparc :=len(bStruc)
FOR X:=1 TO (LEN(bStruc)-1)
vvaltotal+=round(bStruc[x][3],2)
NEXT
bStruc[ultparc][3]:=round(tivalor-vvaltotal,2)
else
bStruc :={{"","Sim",0,CTOD(""),CTOD(""),0}}
ENDIF
uBrw:SetArray(bStruc,.t.) ***aqui o problema
uBrw:refresh() ***esta desconfigurando as colunas
endif
RETURN(.T.)


O que estou fazendo de errado?

Desde já agradeço

Aokisantos

[AOKISANTOS]

pocha! ninguem vai me dar uma ajuda?


AOKISANTOS

[Soares289]

Kra, eu não entendi direito esse código, oque ele está fazendo, mais eu fiz algo que acredito ter sido parecido de uma forma diferente.

Eu abre uma tabela com o nome do campo e a descrição do camop, e vou adicionando as colunas de uma outra tabela de acordo com a descrição dos campos.

No final, somente as colunas que eu escolhi serão adicionadas e ainda é possivel eu mudar o header ou outras propriedades da coluna individualmente.

Talvez você possa tentar, abaixo segue um exemplo.

Code: Select all  Expand view

   
a='select * from campos where file_name = "' + (::sTabela) + '" and SR_DELETED=" " order by indkey_001'//field_ord, sr_recno'
   use (A) alias oBrwcampos new via "SQLRDD"
   go top
   
   oBrw := TXbrowse():New( ::oFra )                  //Efeitos do browse
   oBrw:nMarqueeStyle      :=  ::nMarqueeStyle
   oBrw:nColDividerStyle   :=  ::nColDividerStyle
   oBrw:nRowDividerStyle   :=  ::nRowDividerStyle
   oBrw:lAllowRowSizing    :=  ::lAllowRowSizing
   oBrw:lAllowColHiding    :=  ::lAllowColHiding
   oBrw:lAllowColSwapping  :=  ::lAllowColSwapping
   oBrw:LVScroll           :=  ::LVScroll
   
    do while !eof()   
     
      wfname   := oBrwcampos->field_name
      wfdesc   := oBrwcampos->field_desc
      wflen    := oBrwcampos->field_len

      sele (::sTabela)
     
      oCol                 := TXBrwColumn():New( oBrw )
      oCol                 := oBrw:AddCol()
     
      oCol:bStrData        := { || &wfname }
      oCol:nWidth          := (wflen * 10) + 5
      oCol:cHeader         := (wfdesc)
      oCol:lAllowSizing    := .f.

      sele oBrwcampos
      skip
     
   enddo
   close oBrwcampos
   
   sele (::sTabela)

[Antonio Linares]

AOKISANTOS,

Vamos a revisarlo lo antes posible,

[AOKISANTOS]

MUITO OBRIGADO ROSSINE, VOCÊ É SHOW DE BOLA...PRATICAMENTE TODOS OS BUGS FORAM SOLUCIONADOS...


Rossine, vc é d+ !

Aokisantos

[jvargas]

Hola AOKISANTOS
Estoy empezando con xBrowse y tengo el mismo problema que no responde al oBrw:refresh() aunque haga SysRefresh(), y si vuelvo a hacer oBrw:setArray(tabla) se me desconfigura el oBrw. Ya no sé por donde buscar.
si te es posible puedes compartir tu solución?
muchas gracias por tu ayuda
Jorge Vargas

[AOKISANTOS]

Jorge, já está no seu email

LISTBOX.PRG
XBROWSE.PRG
TESTXBRW.PRG <-- Exemplo uso ARRAY

Anexe ao seu sistema... OK

Um abraço

Aokisantos