With IBQuery4 do
begin
Close;
SQL.Clear;
SQL.Add('select extract(year from fafch) anio1, extract(month from fafch) meses1, sum(facantidad) as total_mes');
SQL.Add('from ARTICULOS a inner join FACTURADT b on (b.FAARID = a.ARID) ');
SQL.Add('inner join FACTURAS c on (c.FAID = b.FAID) and (c.FAESTADO <> :estado) and (c.FAFCH between :fecha1 and :fecha2) ');
SQL.Add('where a.ARCODIGO = :cod group by 1, 2');
SQL.Add('order by 1, 2');
ParamByname('cod').asString := Codigo_Prod.Text;
ParamByname('estado').asString := 'A'; ParamByname('fecha1').AsDate := dtp1.Date; ParamByname('fecha2').AsDate := dtp2.Date; Prepare;
Open;
end;