Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Convertir DBF a HTML
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Convertir DBF a HTML
Divers
Thread ID:
00870744
Message ID:
00870744
Vues:
51
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
Répondre
Fil
Voir

Click here to load this message in the networking platform