Pregunta sobre Clase TFileXLS con Ado cuando son fechas , me da un error
el Valor del Valtype da T , por eso genera este error, alguien tiene alguna solucion, lo raro cuando compilo con el Sistema Operatico Windows 7 Funcion y cuando compilo con Windows XP me genera dicho error.
Path and name: K:\proy_harb\plastwin.Exe (32 bits)
Size: 1,713,152 bytes
Time from start: 0 hours 0 mins 42 secs
Error occurred at: 09/02/2011, 17:34:09
Error description: Warning FileXLS/3 Data type XLS no support:
Type: T
Stack Calls
===========
Called from: .\TFILEXLS.PRG => TFILEXLS:SAY(689)
Called from: K:\PROY_H~1\PRG\pxprexls_1.prg => XLS0042_1:NEW(5110)
Called from: K:\PROY_H~1\PRG\pxplrep1.prg => PROG_REP_1(509)
Called from: K:\PROY_H~1\PRG\tclanave.prg => TBREPDLG:MYCLICK(2774)
Called from: K:\PROY_H~1\PRG\tclanave.prg => (b)TBREPDLG:TREE_MENU(2149)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1902)
Called from: .\source\classes\CONTROL.PRG => TTREEVIEW:LDBLCLICK(1716)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1701)
Called from: .\source\classes\TTREEVIE.PRG => TTREEVIEW:HANDLEEVENT(361)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => MENU01_1:EXPBAR_1(968)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => (b)MENU01_1:DIALBAR00(268)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(466)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(663)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1691)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1458)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(995)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => MENU01_1:DIALMEN00(174)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => MENU01_1:NEW(1112)
Called from: K:\PROY_H~1\PRG\pxpmenu.prg => MAIN(520)
Este es el metodo de la classe
el Valor del Valtype da T , por eso genera este error, alguien tiene alguna solucion, lo raro cuando compilo con el Sistema Operatico Windows 7 Funcion y cuando compilo con Windows XP me genera dicho error.
Path and name: K:\proy_harb\plastwin.Exe (32 bits)
Size: 1,713,152 bytes
Time from start: 0 hours 0 mins 42 secs
Error occurred at: 09/02/2011, 17:34:09
Error description: Warning FileXLS/3 Data type XLS no support:
Type: T
Stack Calls
===========
Called from: .\TFILEXLS.PRG => TFILEXLS:SAY(689)
Called from: K:\PROY_H~1\PRG\pxprexls_1.prg => XLS0042_1:NEW(5110)
Called from: K:\PROY_H~1\PRG\pxplrep1.prg => PROG_REP_1(509)
Called from: K:\PROY_H~1\PRG\tclanave.prg => TBREPDLG:MYCLICK(2774)
Called from: K:\PROY_H~1\PRG\tclanave.prg => (b)TBREPDLG:TREE_MENU(2149)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1902)
Called from: .\source\classes\CONTROL.PRG => TTREEVIEW:LDBLCLICK(1716)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1701)
Called from: .\source\classes\TTREEVIE.PRG => TTREEVIEW:HANDLEEVENT(361)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => MENU01_1:EXPBAR_1(968)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => (b)MENU01_1:DIALBAR00(268)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(466)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(663)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1691)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1458)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(995)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => MENU01_1:DIALMEN00(174)
Called from: K:\PROY_H~1\PRG\pxpmenbar.prg => MENU01_1:NEW(1112)
Called from: K:\PROY_H~1\PRG\pxpmenu.prg => MAIN(520)
@ nXlsLine,5 XLS SAY oDbfxls:Fields("numorden"):Value OF oFileXLS
@ nXlsLine,6 XLS SAY oDbfxls:Fields("fec_crea"):Value OF oFileXLS
@ nXlsLine,7 XLS SAY oDbfxls:Fields("cantidad"):Value OF oFileXLS
@ nXlsLine,8 XLS SAY oDbfxls:Fields("fec_soli"):Value OF oFileXLS
@ nXlsLine,9 XLS SAY oDbfxls:Fields("fec_conf"):Value OF oFileXLSEste es el metodo de la classe
METHOD Say( nRow, nCol, uVal, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament ) CLASS TFileXLS
local cType := ValType( uVal )
if cType == "B"
uVal := Eval( uVal )
cType := ValType( uVal )
endif
do case
case cType == "N"
::Number( nRow, nCol, uVal, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament )
case cType == "C" .or. cType == "M"
::String( nRow, nCol, uVal, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament )
case cType == "D"
::_Date( nRow, nCol, uVal, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament )
case cType == "L"
::Boolean( nRow, nCol, uVal, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament )
case cType == "U"
::Blank( nRow, nCol, ;
lHidden, lLocked, nFont, nFormat, lShaded, ;
nBorder, nAlignament )
otherwise
Eval( ErrorBlock(), _XLSGenError( DATATYPE_NOSUPPORT, ;
CHR(13)+CHR(10) + "Type: " + cType ) )
endcase
return nil