FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ::tocalc [Openoffice] not run!! Solved !!
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
::tocalc [Openoffice] not run!! Solved !!
Posted: Tue Jun 12, 2012 09:57 AM
ACTION :-)Grid:ToCalc() not run ok it made this error !!!




Code (fw): Select all Collapse
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 )
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: ::tocalc [Openoffice] not run!!
Posted: Wed Jun 13, 2012 06:06 AM
Please make the following changes in xBrowse.Prg

Method ToCalc(), Line No:7076

Code (fw): Select all Collapse
DEFAULT nPasteMode:=1

Change to
Code (fw): Select all Collapse
DEFAULT nPasteMode:=2


Method ToCalc(), Line No : 7222

Code (fw): Select all Collapse
            if ! Empty( cText )
               cText += CRLF
            endif

Change to
Code (fw): Select all Collapse
            if ! Empty( cText )
               cText += Chr(13)
            endif


Method ToCalc(), Line No: 7255
Code (fw): Select all Collapse
oDispatcher:ExecuteDispatch(oBook:GetCurrentController():GetFrame(), ".uno:Paste", "", 0, aProp)

Change to
Code (fw): Select all Collapse
oDispatcher:ExecuteDispatch(oBook:GetCurrentController():GetFrame(), ".uno:Paste", "", 0, {})

Regards
Anser
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: ::tocalc [Openoffice] not run!! Solved !!!
Posted: Wed Jun 13, 2012 07:32 AM

ok NOW RUN !!!!

Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: ::tocalc [Openoffice] not run!! Solved !!
Posted: Thu Jun 14, 2012 08:06 AM

Antonio,
pls save this modifies for the next fwh version

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: ::tocalc [Openoffice] not run!! Solved !!
Posted: Thu Jun 14, 2012 03:38 PM

Added for next build, thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion