Ver Mensaje Individual
  #10  
Antiguo 25-10-2008
nolo nolo is offline
Miembro
 
Registrado: oct 2008
Posts: 12
Reputación: 0
nolo Va por buen camino
y si lo hago segun tu estructura quedaria asi no??

Código Delphi [-]
adsReporte.Close;
adsReporte.SQL.Clear;
adsReporte.SQL.Add('select V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,);
adsReporte.SQL.Add('RIGHT('+QuotedStr('0000')+'+CAST(V.idPV AS VARCHAR),4)+'+QuotedStr(' - '));
adsReporte.SQL.Add(' + RIGHT('+QuotedStr('00000000')+'+CAST(V.idNumDoc AS VARCHAR),8) as Numero, ');
adsReporte.SQL.Add('( SELECT SUM((rSubBruto+rSubDescuentos)*TID.iAplicStock*(-1)*(rComisionAPagar)) AS Comision ');
adsReporte.SQL.Add('FROM VentasItems VI, TiposDoc TID');
adsReporte.SQL.Add('WHERE VI.idTipoDoc = TID.idTipoDoc');
adsReporte.SQL.Add('AND VI.idTipoDoc = V.idTipoDoc');
adsReporte.SQL.Add('AND VI.idPV = V.idPV');
adsReporte.SQL.Add('AND VI.idNumdoc = V.idNumDoc ) AS Comision');
adsReporte.SQL.Add('from'FROM Ventas V');
adsReporte.SQL.Add('INNER JOIN Clientes C ON V.idCliente = C.idCliente');
adsReporte.SQL.Add('INNER JOIN TiposDoc TD ON V.idTipoDoc = TD.idTipoDoc');
adsReporte.SQL.Add('whereWHERE V.fDocumento >= dtpDesde.DateTime');
adsReporte.SQL.Add('AND V.fDocumento <= dtpHasta.DateTime');
adsReporte.SQL.Add('AND V.idVendedor := edtidVendedor.AsInteger');
adsReporte.SQL.Add('AND V.bAnulado = 0');
adsReporte.SQL.Add('ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC');
adsReporte.Parameters.ParamByName('idVendedor').Value := TEdit1.AsInteger
adsReporte.Parameters.ParamByName('FechaDesde').Value := dtpDesde.DateTime
adsReporte.Parameters.ParamByName('FechaHasta').Value := dtpHasta.DateTime;
adsReporte.Open;

me tira error en la segunda linea, osea aca
adsReporte.SQL.Clear;
Responder Con Cita