Ver Mensaje Individual
  #10  
Antiguo 13-07-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Reputación: 27
egostar Va camino a la fama
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:

Código:
{ 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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 13-07-2007 a las 07:35:40.
Responder Con Cita