Export to Calc problem

[Marco Turco]

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.

[nageswaragunupudi]

Thanks for pointing out.
For now, please change this line

Code: Select all  Expand view

if "." $ oCol:cEditPicture

as

Code: Select all  Expand view

if "." $ XEval( oCol:cEditPicture )

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

[Marco Turco]

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


[nageswaragunupudi]

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.

[Silvio.Falconi]

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