Exemplo de xbrowse com array

[Wellington Vieira]

Boa tarde,

A quem possa me auxiliar, preciso de um exemplo de xbrowse com array, para a inserção neste array de mesas de restaurante,bares com imagens, pois até o presente momento só trabalhei com listbox, e quem puder me ajudar com um exemplo em código, pois a partir dai eu possa evoluir.

Obrigado.

[Jmsilva]

Sugestão, porque vc não usa um dbf temporário em memória, mesmo efeito de array e é muito mais simples para trabalhar. Consulte a função Hb_DbCreateTemp(). No fórum tem vários exemplos.

[crisvam]

vEJA AI

 

Redefine Xbrowse oBrw ID 112 OF oDnfe CELL LINES FOOTERS;
  Columns {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17};
  Head {"Documento","Itens","Codio EAN_13","Nome do produto","NCM/SH",;
        "C.S.T","CFOP","Unid","Qtde","Vlr. Unit.","Desconto","Frete","BC_Icms",;
          "Vlr. Icms","Vlr. IPI","Aliq. Icms","Aliq IPI"} Array mDad;
  Picture {"@R 999.999.999","999",,,,"999",,,"@R ##,###.###","@R ##,###.##",;
           "@R ##,###.##","@R ##,###.##","@R ##,###.##","@R ##,###.##",;
              "@R ##,###.##","@R ###.##","@E ###.##"};          
oBrw:aCols[1]:nEditType  := EDIT_GET
oBrw:aCols[2]:nEditType  := EDIT_GET
oBrw:aCols[3]:addbmpfile("\Pvenda\Bitmap\adddbf.bmp")
oBrw:aCols[3]:lBtnTransparent := .t.
oBrw:aCols[3]:nBtnBmp := 1
oBrw:aCols[3]:nEditType  := EDIT_BUTTON