Ocultar filas en RAVE

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

[[egostar]]

Muy bien ArdiIIa, lo hice y efectivamente si me muestra los totales aunque no haya datos mayores a cero.

Ahora lo voy a implementar en Rave.

Salud OS y gracias

[[egostar]]

Bueno, yo sigo con mi inquietud, creo que ya se está convirtiendo en obsesión.

Pues efectivamente, lo que propones amigo ArdiIIa, está perfecto, solo que hay un detalle:

En el reporte si no hay datos mayores a cero me muestra todo bien, pero si existe al menos un dato mayor a cero, me duplica el registro o si hay mas de uno duplica el último registro.

Pues nada, sigo investigando.

Salud OS.

[[egostar]]

Bueno, al final quedo como pense al inicio, usando el evento OnBeforePrint, solo me faltaba un else anidado al final, pues nada, les pongo el código del evento y del SP para que pueda servir a alguien con la misma inquietud.

Código en el evento OnBeforePrint de RAVE:

{ Event for Detail.OnBeforePrint }
function Detail_OnBeforePrint(Self: TRaveDataBand);
begin
   if DataView1S_Ventas.AsInteger > 0 then
      Detail.visible := True;
   elseif DataView1S_Ventas.AsInteger = 0 then
      Detail.visible := False;
   else
      Detail.visible := True;
   end if;
end OnBeforePrint;

Y el Procedimiento Almacenado quedo así:

Código SQL [-]
begin
  FOR
    select Fecha, Agente, Ventas from VENTAS
    INTO :S_Fecha, :S_Agente, :S_Ventas DO
  suspend;
end

Muchas gracias amigo ArdiIIa.

Salud OS

[[ArdiIIa]]

Vale egostar
Seguramente obtenías valores duplicados porque en el procedure compartes variables de retorno a la hora de hacer el segundo suspend, bastaría con haberlas puesto a null antes de hacer el segundo select.
En cuanto al procedimiento del report, no veo la razón por la cual no funcionaría así:

Código Delphi [-]
{ Event for Detail.OnBeforePrint }
function Detail_OnBeforePrint(Self: TRaveDataBand);
begin
   if DataView1S_Ventas.AsInteger > 0   then
      Detail.visible := True;
   else
      Detail.visible := False;
   end if;
end OnBeforePrint;

[[egostar]]

Hola ArdiIIa, efectivamente, eso pienso, pero me quite de problemas y mejor comence de cero, seguro habia algo que no habia hecho bien, cosas de principiantes, invertí tres días en esto pero al final obtuve lo que queria.

Salud OS y muchas gracias.