FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Export to Calc problem
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM
Export to Calc problem
Posted: Thu Dec 10, 2015 09:40 AM

Hi all,
there is a problem exporting from xBrowse to Calc with this last FWH version.

See error:

Application

Path and name: K:\pigc\PIGC.Exe (32 bits)
Size: *** bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150830)
FiveWin Version: FWHX 15.09
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 36 secs
Error occurred at: 10/12/15, 10:36:50
Error description: Error BASE/1109 Argument error: $
Args:
[ 1] = C .
[ 2] = B {|| ... }

Stack Calls

Called from: K:\pigc\ADDON32\xbrowse.prg => TXBROWSE:TOCALC( 7962 )

The problem is related to this xbrowse code:

     CASE cType == 'N'

        cFormat     := If( FWNumFormat()[ 2 ], If( lxlEnglish, "#,##0", "#.##0" ), "0" )
        if oCol:cEditPicture != nil
           if "." $ oCol:cEditPicture && THIS IS THE LINE WHO GENERATE THE ERROR
              cFormat  += If( lXlEnglish, '.', ',' ) + StrTran( ;
                          StrTran( SubStr( oCol:cEditPicture, ;
                          At( '.', oCol:cEditPicture ) + 1 ), '9', '0' ), '#', '0' )
           endif
           if ( nAt := At( ' ', cFormat ) ) > 0
              cFormat  := Left( cformat, nAt ) + '"' + SubStr( cFormat, nAt + 1 ) + '"'
           endif
        endif
        oSheet:GetColumns():GetByIndex( nCol-1 ):NumberFormat:=GetNumberFormatId(oBook, cFormat, cType)
        oSheet:GetColumns():GetByIndex( nCol-1 ):HoriJustify = 3  // 3 Right Alignement

Any ideas ? Thank you in advance.

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Export to Calc problem
Posted: Thu Dec 10, 2015 10:12 AM
Thanks for pointing out.
For now, please change this line
Code (fw): Select all Collapse
if "." $ oCol:cEditPicture

as
Code (fw): Select all Collapse
if "." $ XEval( oCol:cEditPicture )


We shall fix this for next release and also review the need for this fix elsewhere too.
Regards



G. N. Rao.

Hyderabad, India
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM
Re: Export to Calc problem
Posted: Thu Dec 10, 2015 10:25 AM

Hi, thank you for the quick reply.
I tried but the problem still appear.

Application

Path and name: K:\pigc\PIGC.Exe (32 bits)
Size: *** bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150830)
FiveWin Version: FWHX 15.09
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 22 secs
Error occurred at: 10/12/15, 11:23:51
Error description: Error BASE/1109 Argument error: $
Args:
[ 1] = C .
[ 2] = U

Stack Calls

Called from: K:\pigc\ADDON32\xbrowse.prg => TXBROWSE:TOCALC( 7962 )
Called from: K:\pigc\CNDM01\mod103z.prg => (b)MOD103Z( 79 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 718 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 918 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1576 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3612 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1020 )
Called from: K:\pigc\CNDM00\MOD0.PRG => MOD0( 515 )
Called from: K:\pigc\CNDM00\PIGC.PRG => START( 1353 )

System

CPU type: Intel(R) Core(TM) i7-4800MQ CPU @ 2.70GHz 2700 Mhz
Hardware memory: 8098 megs

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

Windows total applications running: 7
1 ,
2 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855
3 , C:\Windows\syswow64\SHLWAPI.dll
4 DDE Server Window, C:\Windows\syswow64\OLE32.DLL
5 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18852_none_72d5ba7586659c
6 MCI command handling window, C:\Windows\system32\WINMM.DLL
7 xMate - K:\pigc\PIGC.xhp, K:\pigc\PIGC.Exe

Variables in use

Procedure Type Value
==========================
TXBROWSE:TOCALC
Local 1: U
Local 2: U
Local 3: N 2
Local 4: A Len: 0
Local 5: A Len: 5
Local 6: O Class: TXBROWSE
Local 7: O Class: TOLEAUTO
Local 8: O Class: TOLEAUTO
Local 9: O Class: TOLEAUTO
Local 10: O Class: TOLEAUTO
Local 11: U
Local 12: U
Local 13: O Class: TOLEAUTO
Local 14: N 1
Local 15: N 1
Local 16: O Class: TXBRWCOLUMN
Local 17: C "N"
Local 18: U
Local 19: U
Local 20: N 1
Local 21: N 1
Local 22: N 54
Local 23: U
Local 24: U
Local 25: U
Local 26: U
Local 27: C "0"
Local 28: U
Local 29: U
Local 30: U
Local 31: A Len: 0
Local 32: L .F.
Local 33: A Len: 1
Local 34: A Len: 3
Local 35: U
Local 36: O Class: TOLEAUTO
Local 37: L .T.
Local 38: C "."
Local 39: U
Local 40: U
Local 41: U
(b)MOD103Z
Param 1: O Class: TRBTN
TRBTN:CLICK
Local 1: O Class: TRBTN
TRBTN:LBUTTONUP
Param 1: N 38
Param 2: N 28
Param 3: O Class: TRBTN
Local 1: U
Local 2: L .T.
Local 3: L .T.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 2490396
Local 1: O Class: TRBTN
Local 2: U
TRBTN:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 2490396
Local 1: O Class: TRBTN
_FWH
Param 1: N 2490396
Param 2: N 514
Param 3: N 0
Param 4: N 2490396
Param 5: N 40
Local 1: O Class: TRBTN
WINRUN
Param 1: N 396736
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: B {|| ... }
Param 6: B {|| ... }
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MOD0
Local 1: C "PROCEDURA INTEGRATA GESTIONE CONDOMINIO 2015 [SQL Database]"
Local 2: C "PIGC"
START
Local 1: C ""
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: C " 243488379"

Linked RDDs

DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use

Classes in use:

 1 ERROR
 2 HASHENTRY
 3 HBCLASS
 4 HBOBJECT
 5 TSYSTEMINFO
 6 TSTRUCT
 7 TREG32
 8 TWINDOW
 9 TDIALOG
10 TBRUSH
11 TCONTROL
12 TRBTN
13 TFONT
14 TRECT
15 TMUTEX
16 TPRINTER
17 TSQLITESERVER
18 TSQLITEQRYARY
19 TCURSOR
20 TMDIFRAME
21 TMENU
22 TMENUITEM
23 TICON
24 TMDICLIENT
25 TCLIPBOARD
26 TBAR
27 TBTNBMP
28 TMSGBAR
29 TTIMER
30 TMSGITEM
31 TBITMAP
32 TSAY
33 TURLLINK
34 TBUTTON
35 TXBROWSE
36 TXBRWCOLUMN
37 TSCROLLBAR
38 TTITLE
39 TTITLETEXT
40 TTITLEIMG
41 TFOLDER
42 TSPLITTER
43 TOLEAUTO

Memory Analysis

  1951 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Export to Calc problem
Posted: Thu Dec 10, 2015 10:37 AM

It appears that you assigned a codeblock to oCol:cEditPicture.
If so when evaluated, the codeblock should return a valid picture as a character value. Instead it appears the codeblock is evaluating to NIL.
Can you check and if this is so, you may correct the codeblock.
If this is not the case, please let us know.

Regards



G. N. Rao.

Hyderabad, India
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Export to Calc problem
Posted: Tue Dec 22, 2015 11:58 AM

Nages,
and if I import from calc to dbf (xbrowse) how I must make ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion