[[Caral]]

Hola
Estoy mas ciego que una cabra.
Nunca he trabajado con dataset, asi que supongo que sera asi, no me hagan mucho caso.

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var    sQ: WideString;  
begin 
adsReporte.CommandText.Clear;     
sQ := 'SELECT V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,'+
         'RIGHT('+QuotedStr('0000')+'+CAST(V.idPV AS VARCHAR),4)+'+QuotedStr(' - ')+
         'RIGHT('+QuotedStr('00000000')+'+CAST(V.idNumDoc AS VARCHAR),8) as Numero, '+
         '( SELECT SUM((rSubBruto+rSubDescuentos)*TID.iAplicStock*(-1)*(rComisionAPagar)) AS Comision'+
         'FROM VentasItems VI, TiposDoc TID'+
         'WHERE VI.idTipoDoc = TID.idTipoDoc'+
         'AND VI.idTipoDoc = V.idTipoDoc'+
         'AND VI.idPV = V.idPV'+
         'AND VI.idNumdoc = V.idNumDoc ) AS Comision'+
         'FROM Ventas V'+
         'INNER JOIN Clientes C ON V.idCliente = C.idCliente'+
         'INNER JOIN TiposDoc TD ON V.idTipoDoc = TD.idTipoDoc'+
         'WHERE V.fDocumento >= :FechaDesde'+
         'AND V.fDocumento <= :FechaHasta' +
         'AND V.idVendedor := :idVendedor'+
         'AND V.bAnulado = 0'+
         'ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC';
adsReporte.CommandText := sQ;
adsReporte.Parameters.ParamByName('idVendedor').Value := TEdit1.Text;
adsReporte.Parameters.ParamByName('FechaDesde').Value := DateTostr(dtpDesde.DateTime);
adsReporte.Parameters.ParamByName('FechaHasta').Value := DateToStr(dtpHasta.DateTime);
adsReporte.Open;
  end;
end.

Saludos