como pasar a un stored procedure un conjunto de datos en FB 1.5

[[Crandel]]

yo lo que haria seria crear un procedimiento que resuelva para un solo ID

Código SQL [-]
CREATE PROCEDURE INFORME_FACT (ID integer)
.....

Luego llamas a este procedimiento deste Delphi mediante una instruccion SQL, uniendo los diferentes informes

asi:

Código SQL [-]
select * from INFORME_FACT(3) union select * from  INFORME_FACT(4)

Espero que te guste esta solucion

[pvizcay]

desde ya gracias a los dos por haber leido y contestado..
bueno estuve averiguando y pareciera que lo de la tabla temporaria es la mejor manera de ir, por lo visto FB no soporta tablas temporarias por lo que tendre que usar la variable CURRENT_TRANSACTION para asegurarme que no haya conflictos en un entorno multiusuario.. lo de los unions esta bueno pero tiene el inconveniente que tenés que modificar dinámicamente el texto de la consulta (si no entendí mal..), si son 3 IDS serían tres UNIONs y así sucesivamente.. mi idea era desacoplar completamente esto de la aplicación..

[pvizcay]

lo cual me lleva a la conclusión de que no encontré manera de manejar esto de forma limpia en firebird (lo de limpio es cuestión de gustos obviamente) pero es obvio que esta solución no escala bien.. demasiadas tablas "temporarias" sin sentido (una para cada TIPO_FACTURA, TIPO_CHEQUE, TIPO_CAMBIO, TIPO_MONEDA, etc etc.) creo yo..

[[Crandel]]

otra idea (no parece muy limpia pero por ahi te gusta), pasale los parametros como registros de una tabla auxiliar de la base de datos.

Luego en un procedimiento vas creando las uniones dinamicamnete de acuerdo a la cantidad de registros de la tabla.

[[RONPABLO]]

se me ocurre una un poco diferente y es algo como lo siguiente:

Código SQL [-]
     codigos = '1,3,5,12';
     cadena = '';
     numero=0;
     j=1;
     i = strlen(:codigos);
     while(j<=i) do
        begin
          c = substr(FACTURA,j,j);
          if (c between '0' and '9') then
             begin
                cadena = cadena || cast(:c as varchar(1));
             end
          else if ((c=',') or (j=i)) then
          begin
             numero = cast(:cadena as integer);             
        select * from INFORME_FACT(:numero);
             cadena = '';
          end;
          j=j+1;
        end

ya el problema es cuando se manden muchos codigos en la cadena (como tal es algo q se me ocurrio y debe de tener muchos errores pero es solo una idea)

[[Lepe]]

lo más fácil desde mi punto de vista es un sql del tipo:

Código SQL [-]
select * from facturas where nfactura in (3, 4, 5, 6, 7);

Si te ayudas de un TStringList, puedes usar su propiedad commaText para hacer la tira 3, 4, 5, 6. Yo utilicé un Combobox para que el usuario añada las facturas, así tienes el CommaText a mano y además el usuario tiene comodidades para añadir y eliminar las facturas que quiere ver.

Este SQL puedes almacenarlo en un archivo .inc como se hace en la mayoría de paquetes, así puedes modificar el SQL en el ordenador de tu cliente sin tener que recompilar la aplicación. O incluso (y es lo que yo hago), guardas el SQL en una tabla de tu programa, así lo cargas dinámicamente.

Hay otros trucos, por ejemplo:

Código Delphi [-]
const sqlFacturas = 'select * from facturas where nfactura in %s';

....
query1.sql.text := format(sqlfacturas, ['(3,4,56)']);
query1.Open;

Esa constante puedes almacenarla en la BBDD, archivo .inc etc.

Inconveniente, no estará compilada nunca en FB.

Saludos

[pvizcay]

hola,
tal vez a alguno le sirva este artículo de la borland developer network al respecto aunque en vez de un SP lo trata con querys..

http://bdn.borland.com/article/32076

saludos!