this.Value=0 LOCAL lcSourceFile,lcOutFile,loObjRef SELECT * from TblDatCalen INTO TABLE c:\temp\TmpHtmlCal lcSourceFile= 'c:\temp\TmpHtmlCal.dbf' IF !FILE(lcSourceFile) RETURN ENDIF lcOutFile = FORCEEXT(lcSourceFile,"HTM") loObjRef = THISFORM._DBF2HTML * Aqui dice que la pripiedad DBF2HTML no existe, pero tengo incluida la clase de manera correcta WITH loObjRef .cSource = lcSourceFile .cOutFile = "c:\temp\"+lcOutFile .nGenOutput = 2 .cStyle = 1 .cScope = 1 .GenHTML() ENDWITH THISFORM.Navigate(lcOutFile) DELETE FILE c:\temp\TmpHtmlCalNo se que pasa, funciona bien en mi .APP con el codigo:
this.Value=0 LOCAL lcSourceFile,lcOutFile,loObjRef SELECT * from TblDatCalen INTO TABLE c:\temp\TmpHtmlCal lcSourceFile= 'c:\temp\TmpHtmlCal.dbf' IF !FILE(lcSourceFile) RETURN ENDIF lcOutFile = FORCEEXT(lcSourceFile,"HTM") loObjRef = THISFORM._DBF2HTML1 *Asi funciona bien, pero no funciona en el .EXE WITH loObjRef .cSource = lcSourceFile .cOutFile = "c:\temp\"+lcOutFile .nGenOutput = 2 .cStyle = 1 .cScope = 1 .GenHTML() ENDWITH THISFORM.Navigate(lcOutFile) DELETE FILE c:\temp\TmpHtmlCalOjala puedan darme una namo.