How to solve the following:
Application
Path and name: C:\test\test1.exe (32 bits)
Size: *** bytes
Time from start: 0 hours 0 mins 11 secs
Error occurred at: 10/12/07, 02:10:20
Error description: Error BASE/3104 Argument error: SWITCH
Args:
[ 1] = U
Stack Calls
Called from: => XLSFONT(0)
Called from: .\c13.prg => EXCELFAB(6110)
Called from: .\c13.prg => (b)EXCELFAA(6067)
Called from: .\source\function\MSGRUN.PRG => (b)MSGRUN(0)
Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG(0)
Called from: => TDIALOG:DISPLAY(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: .\source\function\MSGRUN.PRG => MSGRUN(0)
Called from: .\c13.prg => EXCELFAA(6067)
Called from: .\c13.prg => (b)EXCELFA(6047)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: .\c13.prg => EXCELFA(6056)
Called from: .\c11.prg => (b)EXCELTRAN(7105)
Called from: => TWINDOW:LBUTTONDOWN(0)
Called from: => TBITMAP:LBUTTONDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TBITMAP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: .\c11.prg => EXCELTRAN(7237)
Called from: .\ec.prg => (b)BUILDMENU2(4012)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: .\test1.prg => MAIN(146)
The Code:
FUNCTION excelfab()
include "fivewin.ch"
include "FileXLS.ch"
define BORDER_UP nOr( BORDER_TOP )
define BORDER_DOWN nOr( BORDER_BOTTOM )
DEFINE TRUE .T.
DEFINE FALSE .F.
static oFileXLS
Local nFont1, nFont2
Local nFormat1, nFormat2,nXlsLine:=0
Public Drive:="D:\",Directory:="TempXLS",Start:="\"
lChDir("D:\")
lMkDir("TempXLS")
lChDir("TempXLS")
DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD <- Why Argument error: SWITCH
Please help
