[RESUELTO] Problemas con macro para crear informe

[Joan Terrassa]

Buenas tardes,
Intentaré ser lo mas claro posible, he copiado y adaptado una macro de la aplicación Gestfactura del amigo RMG, al cual le agradezco la ayuda que obtengo con su aplicación. La macro en cuestión me funciona correctamente si la BD es una base incrustada, pero me da error si la quiero utilizar en una BD en Postgresql, la macro es la siguiente :

Código: Seleccionar todo

Sub ImprimirFactura( Evento )
Dim oReporte As Object	
Dim oConsulta As Object
Dim oCampoID As Object
Dim oForm As Object
	'El formulario activo
	oForm = Evento.Source.Model.Parent	
	'El campo con el Id
	oCampoID = oForm.GetByName("ID_Factura")	
	'Debe ser mayor a cero
	If oCampoID.BoundField.Int < 0 Then Exit Sub
		'La consulta en la que se basa el reporte
		oConsulta = ThisDatabaseDocument.DataSource.QueryDefinitions.getByName ("conFiltro")	
		'Modificamos la consulta de modo que tome el registro actual				
		oConsulta.Command = "SELECT ""ID_Factura"",""Numero"" FROM ""tabFacturas"" WHERE ""ID_Factura"" = " & oCampoID.BoundField.Int
		'El informe a mostrar
		oReporte = ThisDatabaseDocument.ReportDocuments.getByName ("InformeFactura" )	
		'Mostramos el reporte
		oReporte.Open
End Sub

el error que da es el siguiente :

pq_driver: [PGRES_FATAL_ERROR]ERROR: no existe la relación «tabBestretaPersonal»
LINE 1: SELECT "ID_BestPer", "Data" FROM "tabBestretaPersonal" WHERE...
^
(caused by statement 'SELECT "ID_BestPer", "Data" FROM "tabBestretaPersonal" WHERE "ID_BestPer" = 4')

Es un problema de drivers ?

Trabajo con Windows 10 y LibreOffice 5.1.6.2

Muchas gracias por vuestra atención.

Un saludo

Perdón se me olvidaba, la versión de PostgreSQL es la 9.5

[mauricio]

No, no es problema de driver... el mensaje es bastante claro:

Código: Seleccionar todo

no existe la relación «tabBestretaPersonal»

Si te funciona bien en una base de datos incrustada, quiere decir que la estructura en Postgres es diferente o esta incompleta. Asegurate de que las dos estructuras sean "exactamente" iguales.

Saludos

[Joan Terrassa]

Gracias, repasaré todo esto.

[Joan Terrassa]

Hola a todos,
No se que buscar mas, deben ser mis pocos conocimientos en todo esto, pero he repasado un montón de veces, las tablas, las relaciones , las consultas y no soy capaz de ver en donde me equivoco. Me tiene muy desconcertado, que el problema radica en que el error lo da al abrir y leer la consulta en donde se incluye como criterio el campo índice, para filtrar el correspondiente registro, en cambio si edito la consulta y simplemente le doy a guardar, funciona correctamente.
Alguien puede darme una pista de como solucionar esto, o decirme que es lo que hago mal.
Muchas gracias

[RMG]

Hola,

En la macro, la sentencia SQL hace referencia a la tabla Facturas e ID_Factura, parece que tu BD no tiene esa tabla. Quizá vayan por ahí los tiros.

Saludos

[Joan Terrassa]

Hola,

La macro la he adaptado a los campos de la tabla que estoy utilizando, no es ese el problema.
Seguiré investigando, haber si soy capaz de encontrar que es lo que no hago bien.

Gracias.

Saludos

[Joan Terrassa]

Hola,
El error lo tenia en la orden SQL de la consulta, al no poner correctamente la tabla, ponia ""esquema.nombreTabla"" en lugar de ""esquema"".""nombreTabla"", un error de principiante.
Muchas gracias a todos por vuestro tiempo.
Saludos.

[RMG]

Hola Joan,

Si lo consideras recuerda poner poner como resuelto. Ayuda a mantener un foro más organizado.

https://forum.openoffice.org/es/forum/v ... f=3&t=2668

Saludos

[Joan Terrassa]

Hola,

Perdón, se me habia pasado. Ya lo he corregido.

Saludos