Ver Mensaje Individual
  #2  
Antiguo 09-10-2010
martinartaza martinartaza is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 77
Reputación: 16
martinartaza Va por buen camino
Thumbs up [Solucionado] Un poco parchado.

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.
Responder Con Cita