Type mismatch; wanted resultfield, got void instead
PRIVATE SUB Cuerpo(Query AS result, Fichero AS String)
....
...
FOR EACH Campo IN Query >>>>> aca es donde se detiene (donde genera el error)
PRINT #F, "<td align='center' width='" & Campo.length & "'" & ">" & Campo.name & "</td> "
NEXT
....
....
END
....
...
FOR EACH Campo IN Query >>>>> aca es donde se detiene (donde genera el error)
PRINT #F, "<td align='center' width='" & Campo.length & "'" & ">" & Campo.name & "</td> "
NEXT
....
....
END
Campo tiene el valor NULL
La llamada a la clase la programe así :
PUBLIC SUB imprimir_Click()
DIM reportea AS reporte
DIM repor AS String
basededatos.conectar
basededatos.ejecutarconulta(var.consultareportehtml)
reportea = NEW reporte
repor = reportea.InformeHTML("cliente", basededatos.$Con.exec(var.consultareportehtml), TRUE)
basededatos.cerrar
END
DIM reportea AS reporte
DIM repor AS String
basededatos.conectar
basededatos.ejecutarconulta(var.consultareportehtml)
reportea = NEW reporte
repor = reportea.InformeHTML("cliente", basededatos.$Con.exec(var.consultareportehtml), TRUE)
basededatos.cerrar
END
La clase completa la pueden ver aquí
saludos