FiveTech Support Forums

#include 'fivewin.ch'
#include 'xbrowse.ch'

function main()

   local aData
   local oDlg, oBrw, oCol, oFont, oBrush
   local nTotal

    setkey( VK_F3, { || ACTUALICE( oBrw ) } )

   // Data sorted in the order of State, City
   // Array is used for this example
   aData := ReadData( @nTotal )

   DEFINE BRUSH oBrush COLOR CLR_WHITE //RESOURCE 'STONE'

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
   DEFINE DIALOG oDlg SIZE 560,680 PIXEL ;
      TITLE 'TXBrowse - Merged Cells' ;
      FONT oFont

   @ 10,10 XBROWSE oBrw ;
      HEADERS 'Stk_Pat', 'Detalle', 'Tramite', 'Importe', 'Comentario' ;
      SIZE 260,320 PIXEL ;
      COLSIZES ,100,,,100 ;
      PICTURES ,,,'@E 9,999,999' ;
      JUSTIFY AL_CENTER ;
      OF oDlg ARRAY aData FOOTERS AUTOCOLS LINES CELL

    oBrw:lKineticBrw := .f.

   // Other data not covered in the above command
   oBrw:bClrSelFocus    := { || { CLR_BLUE, nRGB( 230, 255, 230 ) } }
   oBrw:lColDividerComplete := .f.

   oBrw:oBrush := oBrush
   WITH OBJECT oBrw:stk_pat
      :nHeadStralign    := AL_CENTER
      :cFooter          := 'Grand Total'
      :bClrStd          := { || { CLR_BLACK, CLR_WHITE } }
      :AddResource( 'OPEN' )
      :bBmpData         := { || 1 }
   END
   oBrw:importe:nTotal   := nTotal

   // Following two lines for vertical cell merging
   oBrw:stk_pat:lMergeVert   := .t.

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont
   RELEASE BRUSH oBrush

return nil

static function ReadData( nTotal )

   nTotal   := 38520300

Return( { ;
   { '303635','GLADYS CECILIA                ','INSCRIPCION     ', 48680 , "COMENTARIO" }, ;
   { '303635','LINCOYAN  51                  ','P.CIRCULACION   ', 9651  , "" }, ;
    { '303635','                              ','SEGURO CREDITO  ', 9000  , "" }, ;
   { '303635','3434443434K                   ','                ',       , "" }, ;
   { '303635','COQUIMBO                      ','                ',       , "" }, ;
   { 'BLKT-XX','c.l.p PROBANDO...            ','INSCRIPCION     ', 21330 , "COMENTARIO" },;
    { 'BLKT-XX','BALMACEDA   56               ','IMPUESTO        ', 379500, "" },;
    { 'BLKT-XX','                             ','NOTARIA CREDITO ', 6000  , "" },;
    { 'BLKT-XX','LA SERENA                    ','PRENDA Y PROH   ', 379500, "" },;
    { 'BLKT-XX','123445565655                 ','                ',       , "" } } )

//----------------------------------------------------------------------------//

Function Actualice(oBrw )
local aMiArray

aMiArray := aClone(oBrw:aArrayData)

aadd( aMiArray,  { 'BLKT-XX','REGISTRO NUEVO              ','PRENDA Y PROH   ', 379500, "" } )

/*AEVAL( aMiArray, { |x| alert( x[1] ),;
                              alert( x[2] ),;
                              alert( x[3] ),;
                              alert( x[4] ),;
                              alert( x[5] ) } )*/

oBrw:aArrayData := aMiArray
oBrw:Refresh()
msgInfo( "Listo" )
Return NIL

Application
===========
   Path and name: C:\FWH\samples\p.exe (32 bits)
   Size: 1,685,504 bytes
   Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 01/07/10, 18:39:21
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... }
     [   2] = N   11

Stack Calls
===========
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:MERGEAREA(10424)
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(8918)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1347)

oBrw:aArrayData := aMiArray
oBrw:Adjust()
oBrw:Refresh()
msgInfo( "Listo" )
Return NIL