Dataset con parametros tipo arreglo.

[martinartaza]

Hola que tal foro, necesito de vuelta de su valiosa ayuda.
Lo que necesito en pocas palabras es:
1 - llenar un parametro de tipo array de un dataset.

Sino me entendieron, les cuento que estoy trabajando con:
postgresql y delphi 6.0 en mi trabajo, eh creado una función en postgresql para llenar un maestro detalle desde una sola vez, la función funciona bien, la probe desde postgres, esta funcion tiene como parametros, los campos de la tabla maestra, y del detalle (estos ultimos son un vector por cada columna de la tabla detalle). En fin para llamar a la función desde postgress hago lo siguiente y funciona de mil maravilla.

Código SQL [-]
select * from OrdenComprainsert(1, 1, 'Urgente', '2010-10-10', 1, 'Contado', 'Encomienda', 'Juan Perez', '2010-11-11', 
'proveedor eficas', 1, '2010-10-11', 2, array[1,2,3], array[5, 2.5, 3], array[3, 3.5, 2])

En delphi tengo un objeto llamado psinsert: TPSQLQuerie
que en su propiedad sql, tiene la misma consulta de arriba, pero con parametros.

a cada parametro le pongo su : correspondiente, no lo pongo aca porque me salen caritas.

Código SQL [-]
select * from OrdenComprainsert(Pemplea, Ptipo, Pecha, pidprovee, pformapago, Pformaenvio, 
pcontato, pfechaentrega, pnota, pnumerocot, pfecha1impr, Pultimacot, particulos, pcantidad, pprecio)

particulos un arreglo de enteros
pcantidad y pprecio un arreglo de numeric(8,2) o float.

Defino los parámetros según el tipo correspondiente (ftinteger, ftstring, y los de tipo vector los defino de tipo ftArray), cuando voy a cargar los parámetro hago.

Código Delphi [-]
with PSInsert do
   begin
   Close;
   ParamByName('Pemplea').AsInteger:= wg_idEmplea;
   ParamByName('Ptipo').AsString:= CBTipo.Text;
   ParamByName('Pfecha').AsDateTime:= E_Fecha.Date;
   ParamByName('Pidprovee').AsInteger:= StrToInt(E_Proveedor.Text);
   ParamByName('pformapago').AsString:= E_FormaPago.Text;
   ParamByName('pformaenvio').AsString:= E_FormaEnvio.Text;
   ParamByName('pcontato').AsString:= E_Contacto.Text;
   ParamByName('pfechaentrega').AsDateTime:= E_Fecha_Entrega.Date;
   ParamByName('pnota').AsString:= E_Nota.Text;
   ParamByName('pnumerocot').AsInteger:= StrToInt(E_NCotizacion.Text);
   ParamByName('pfecha1impr').AsDateTime:= E_FechaImpresion.Date;
   //debo ingresar los parametros :Pultimacot, articulos, cantidad, precio
   //que son vectores, no se como hacerlo.

   end;

Bueno, eso es lo que no puedo hacer, de vuelta como siempre busque tanto en google como por acá y en libros.

Desde ya muchas gracias.

[martinartaza]

Hola que tal, querido foro, al problema lo solucione de la siguiente manera:
Modifque el dataset y lo deje de la siguiente manera.

Código SQL [-]
select * from OrdenComprainsert(Pemplea, Ptipo, Pecha, pidprovee, pformapago, Pformaenvio, 
pcontato, pfechaentrega, pnota, pnumerocot, pfecha1impr, Pultimacot,

Luego en el procedimiento que llama al dataset declare variables de tipo String
y fui cargando las variables.

Código Delphi [-]
var
   vectarticulos: string;
   vectcantidad: string;
   vectprecio: string;
   addsql :string;
begin
vectarticulos := 'array [ ';
vectcantidad := 'array [ ';
vectprecio:= 'array [ ';

// Cargo los string con la tabla detalle.
with Qtempcot do //tabla de memoria, que tiene los datos del detalle.
   begin
   if not Eof then
      begin
         First;
         vectarticulos := vectarticulos + fieldbyname('numeronp').AsString;
         vectcantidad := vectcantidad + fieldbyname('cantidad').AsString;
         vectprecio:= vectprecio + fieldbyname('preciounitario').AsString;
         Next;
         while not Eof do
            begin
            vectarticulos := vectarticulos + ', ' + fieldbyname('numeronp').AsString;
            vectcantidad := vectcantidad + ', ' + fieldbyname('cantidad').AsString;
            vectprecio:= vectprecio + ', ' + fieldbyname('preciounitario').AsString;
            Next;
            end;
      vectarticulos:= vectarticulos + ' ]';
      vectcantidad:= vectcantidad + ' ]';
      vectprecio:= vectprecio + ' ]';
      addsql:= vectarticulos +', ' + vectcantidad + ', ' + vectprecio + ' ) ';
      end;
   end;
datasetquery.sql.add(addsql);

luego cargue los demas parametros.

Cuando realice la pregunta acá ya tenia en mente esa solución, pero no me gusta parchar el código, luego de buscar en el lado oscuro de delphi 4, y en la guia del desarrollador de delphi 5, finalmente en la Biblia de Delphi 7 y no encontrar nada sobre parametros de tipo vector; tuve que buscar en distintas pagina web y no encontre nada en Español y en ingles (lo poco que busque) tampoco, bueno lo dejo acá para que le sea de ayuda al que lo necesite.

[Casimiro Notevi]

Muchas gracias por dejar el código, seguro que a más de uno le viene bien