Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Convertir DBF a HTML
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Convertir DBF a HTML
Miscellaneous
Thread ID:
00870744
Message ID:
00870744
Views:
50
Saludos a todos.

Quiero compartirles un problema que me ha tenido loco desde hace un par de horas y aun no logro resolver.
Tengo VFP 8.0, en SOLUTIONS hay un ejemplo de conversion de una DBF a HTML, lo he aplicado a mi aplicacion y no me funciona.
Mi 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._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\TmpHtmlCal
No 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\TmpHtmlCal
Ojala puedan darme una namo.

Hasta pronto.
Mauricio Henao Romero
Analista de Proyectos Informaticos Editoriales
EL COLOMBIANO
Reply
Map
View

Click here to load this message in the networking platform