[[ArdiIIa]]

Yo haría algo así:

Código SQL [-]
Begin
  FOR   select Fecha, Agente, Ventas from VENTAS
    where Ventas > 0
  INTO :S_Fecha, :S_Agentes, :S_Ventas DO
suspend;


FOR   select Fecha, COUNT(Fecha), SUM(Ventas) from VENTAS
    group by Fecha
  INTO S_FechaPaso, :S_Agentes, :S_TotalVentas DO
   suspend;

end