consultas sql en delphi 2007

[nolo]

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;

[[Caral]]

Hola

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var    sQ: WideString;  
begin 
adsReporte.SQL.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'+
         'adsDatos1.CommandText := sQ;';
adsReporte.SQL.Add(sQ);
adsReporte.Open;
  end;
end.

No veo parametros por ningun lado.
Saludos

[[Delphius]]

Tal vez la pregunta que diré es un tanto tonta pero es necesaria: ¿Te aseguraste de que la consulta devuelve datos?

Prueba lanzar esta misma consulta desde el editor del motor que empleas.

O si no prueba con esto:

Código Delphi [-]
tuDataSet.Open;
if tuDataSet.RecordCount > 0
   then ShowMessage('Hay datos')
   else ShowMessage('No hay datos');

Y disculpa mi insistencia, pero creo que es conveniente emplear el TADOQuery, que es el componente más conveniente.

Saludos,

[[Caral]]

Hola
Ya vi los parametros:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
  var    sQ: WideString;  
begin 
adsReporte.SQL.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'+
         'adsDatos1.CommandText := sQ;';
adsReporte.SQL.Add(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

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

[ContraVeneno]

Empezado por nolo

y si lo hago segun tu estructura quedaria asi no??

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

Código Delphi [-]
with adsReporte do begin //Donde adsReporte es un TADOQuery
 If active then Close; 
 SQL.Clear; 
 SQL.Add('select V.fDocumento, C.sRazonSocial, V.idTipoDoc, ((V.rTotBruto+V.rTotDescuentos)*TD.iAplicStock*(-1)) as totBruto,');
  ....
 SQL.Add('ORDER BY V.idTipoDoc ASC, V.idPV ASC, V.idNumDoc ASC');
 Parameters.ParamByName('idVendedor').Value := TEdit1.AsInteger
 Parameters.ParamByName('FechaDesde').Value := dtpDesde.DateTime
 Parameters.ParamByName('FechaHasta').Value := dtpHasta.DateTime;
 Open;
end; //with

Edite un poco el código, esa sería la manera más adecuada de realizar la consulta que deseas. Y debería funcionar correctamente. Si te marca error en la linea "SQL.Clear", por favor, dinos cuál error es el que te marca para saber cuál es el problema.