Xbrowse function

[Otto]

Could someone please show me how to use aCols in the xBrowse function call?

Thanks in advance
Otto

Code: Select all  Expand view

acols := {TAGESDATEI->RGNR, TAGESDATEI->AUFNAME, TAGESDATEI->KELLNER ,  TAGESDATEI->ZEIT}

       //( uData, cTitle,                      lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit )
xbrowse(        , "Quittung No: " + str(nRGNr),         ,       , aCols,        ,        ,          )

[nageswaragunupudi]

Calling function directly:

Code: Select all  Expand view

XBrowse( "TAGESDATEI",  ;  // alias name, ObjectVar, aArray, or oRecSet
              "Quittung No: " + str(nRGNr), ; Title
              .f., ;   // autosort
              nil, ;  // bSetUp : can be { |oBrw| MySetUp( oBrw ) }
              {"RGNR", "AUFNAME", "KELLNER" , "ZEIT" } ) // column names
 

It is better to use command syntax:

Code: Select all  Expand view

XBROWSER "TAGESDATEI" ;
   TITLE "Quittung No: " + str(nRGNr) ;
   COLUMNS {"RGNR", "AUFNAME", "KELLNER" , "ZEIT" }
 

[Otto]

Dear Rao,
thank you very much.
May I ask you for your help with the sample-programs:
testmerge.prg and xbcoladj.prg.
I use version 2010.03 the FWlibs are form 1.4.2010.
Thanks in advance
Otto

testmerge.prg
I click into the cell (1,2) and hold the mouse and move down:

Application
===========
Path and name: C:\FWH\samples\testmerg.exe (32 bits)
Size: 1,816,064 bytes
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 04/18/10, 07:55:29
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:HASBORDER(10612)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1436)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1184)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1458)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10600)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(345)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:HASBORDER(10612)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1436)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1184)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1458)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10600)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: testmerg.prg => MAIN(53)




xbcoladj
Application
===========
Path and name: C:\FWH\samples\xbcoladj.exe (32 bits)
Size: 1,774,592 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/18/10, 08:03:56
Error description: Error BASE/1005 Message not found: TXBROWSE:LADJUSTLASTCOL
Args:

Stack Calls
===========
Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR(166)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:_LADJUSTLASTCOL(7004)
Called from: C:\FWH\samples\xbcoladj.prg => MAIN(37)

System
======
CPU type: Intel(R) Pentium(R) D CPU 3.00GHz 3000 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406)
Windows version: 6.1, Build 7600

[nageswaragunupudi]

Mr. Otto

testmerg.prg:

Merging columns is not compatible with Kinetic scrolling as of now.
Please disable kinetic scrolling in testmerg.prg by adding this line of code:

Code: Select all  Expand view

oBrw:lKineticBrw := .f.

xbcoladj.prg

Please change the line :

Code: Select all  Expand view

oBrw:lAdjustLastCol := .t.

as

Code: Select all  Expand view

  oBrw:nStretchCol  := STRETCHCOL_LAST

[Otto]

Dear Mr. Rao,
thank you. All is working.
Best regards,
Otto