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

[[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!