xBrowse with Merge RESOURCE

[ronaldo]

Mr. Linares, the merge using xBrowse "RESOURCE" does not work.

ex:

oBrw:City:lMergeVert := .t.

return error method City...

[nageswaragunupudi]

This has nothing to do with Resource.
If there is a column with header 'city', this works.

Example code:

Code: Select all  Expand view

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

REQUEST DBFCDX

function Main()

   local oDlg, oBrw

   USE CUSTOMER NEW ALIAS 'CUST' SHARED VIA 'DBFCDX'
   SET ORDER TO TAG CITY
   GO TOP

   DEFINE DIALOG oDlg RESOURCE 'TEST'

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
      COLUMNS 'City', 'First' ;
      ALIAS 'CUST' ;
      CELL LINES

   oBrw:City:lMergeVert := .t.

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Resource:

Code: Select all  Expand view

TEST DIALOG 6, 15, 306, 227
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TXBrowse demo"
FONT 8, "MS Sans Serif"
{
 DEFPUSHBUTTON "OK", IDOK, 252, 211, 50, 14
 CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 4, 5, 297, 202
}
 

Screenshot:

[fraxzi]

Dear Mr. RAO,

Is there any limitation or rules to follow when using oBrw:field:lMergeVert := .T. ..?

oBrw:field must be index/the controlling index?
obrw:field must be the first column?


I tried to use it and here's some pieces of code:

Code: Select all  Expand view

...
REDEFINE XBROWSE oSupplier ID 1301 OF oFldRE:aDialogs[2] UPDATE;
         AUTOCOLS LINES CELL FASTEDIT;
         ALIAS 'supplier';
         HEADERS '_ID', 'Supplier', 'Address', 'City', 'Country', 'Last Update', 'Uploaded', 'Status';
         COLUMNS 'supplier_id', 'supplier', 'address', 'city', 'country', 'lastupdate','luploaded', 'ldeletion'
         COLSIZES 70, 350, 245, 140, 80, 200, 70;
         ON RIGHT CLICK uSupplierMenu( nRow, nCol, oSupplier )
...


MENUITEM "Arrange by CITY" ACTION ( oBrw:CITY:lMergeVert := .T. , oBrw:Adjust() ) //I tried oBrw:FullPaint() and oBrw:Refresh(.T.)


...
 

got this message after selecting the "arrange by CITY" menu




Regards,
Frances

[nageswaragunupudi]

oBrw:field must be index/the controlling index? ... YES
obrw:field must be the first column? ... NOT NECESSARY

While creating the Browse, it is enough to say oCol:lMergeVert := .t.
If you want to do it at runtime,

oCol:lMergeVert := .t.
oBrw:lMergeVert := .t.
oCol:WorkMergeData() // call this method also
oBrw:Refresh()

[fraxzi]

Dear Mr. RAO,

Now I can arrange with lmergevert on runtime.


Thanks so much!


Regards,
Frances

[ronaldo]

I will do another test!

as it was in a hurry, I saw code

thanks
Ronaldo