::tocalc [Openoffice] not run!! Solved !!

[Eoeo]

ACTION Grid:ToCalc() not run ok it made this error !!!

Code: Select all  Expand view

Application
===========
   Path and name: C:\work\PRG\Family\main.Exe (32 bits)
   Size: 3,676,672 bytes
   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
   FiveWin  Version: FWHX 12.03
   Windows version: 5.1, Build 2600 Service Pack 2

   Time from start: 0 hours 0 mins 9 secs
   Error occurred at: 12-06-2012, 11:57:36
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: HUMANPRESENTABLENAME
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => HUMANPRESENTABLENAME( 0 )
   Called from: .\source\classes\XBROWSE.PRG => PASTEUNFORMATTEDTEXT( 7591 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWIN7:TOCALC( 7236 )
   Called from: source\PComuni.prg => (b)COMUNI( 257 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:EVALACTION( 1700 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:LBUTTONUP( 1398 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:HANDLEEVENT( 905 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 980 )
   Called from: source\main.prg => TAPPLICATION:ACTIVATE( 347 )
   Called from: source\main.prg => MAIN( 58 )

[anserkk]

Please make the following changes in xBrowse.Prg

Method ToCalc(), Line No:7076

Code: Select all  Expand view

DEFAULT nPasteMode:=1

Change to

Code: Select all  Expand view

DEFAULT nPasteMode:=2

Method ToCalc(), Line No : 7222

Code: Select all  Expand view

           if ! Empty( cText )
               cText += CRLF
            endif

Change to

Code: Select all  Expand view

           if ! Empty( cText )
               cText += Chr(13)
            endif

Method ToCalc(), Line No: 7255

Code: Select all  Expand view

oDispatcher:ExecuteDispatch(oBook:GetCurrentController():GetFrame(), ".uno:Paste", "", 0, aProp)

Change to

Code: Select all  Expand view

oDispatcher:ExecuteDispatch(oBook:GetCurrentController():GetFrame(), ".uno:Paste", "", 0, {})

Regards
Anser

[Eoeo]

ok NOW RUN !!!!

[Eoeo]

Antonio,
pls save this modifies for the next fwh version

[Antonio Linares]

Added for next build, thanks!