Ver Mensaje Individual
  #2  
Antiguo 21-11-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Reputación: 26
ContraVeneno Va por buen camino
Código Delphi [-]
with TuQuery do begin
 if active then close;
 sql.clear;
 SQL.Add('SELECT F.NumFactura, F.Fecha, F.Clicod, F.Emplecod, F.SubTotal, F.Descuento, F.importetotal, ');
 SQL.Add('C.Clinom, C.Clidom, C.Clicuit, C.Clitel,');
 SQL.Add('FD.Codipro,  FD.Concepto, FD.Cantidad, FD.Precio');
 SQL.Add('FROM Stock S ');
 SQL.Add('JOIN Facturadetalle FD ON S.Procod = FD.Codipro');
 SQL.Add('JOIN Factura F ON (FD.Tipofac = F.Tipofac AND FD.Numfactura = F.Numfactura) ');
 SQL.Add('JOIN Clientes C ON F.Clicod = C.Clicod');
 SQL.Add('WHERE F.Numfactura= :Nrofact AND F.Tipofac= :TipoFact ');
 ParamByName('NroFact').AsString := NumFact;
 ParamByName('TipoFact').AsInteger := TipoFact;
 Open;
end; //with
__________________

Responder Con Cita