si todas las variables zero, no imprima

[alcides]

Hola a todos,

delphi 7 y las tablas estan access.

utilizando Report Builder tengo lo siguiente.

Cuenta descripcion uno dos tres control c_control

=====================================================
1116 cuenta banco variable1 variable2 variable3 variable4 variable5

en el on print de cada una de las variables se realiza el calculo.

lo quiero es lo siguiente cuando se calcule la ultima variable que es la variable5 si todas las variables son igual a zero que no se imprima ese registro.

puede ser esto posible.


Gracias mil,


Alcides
Rep.Dom.

[Casimiro Notevi]

Tienes varias formas, lo más simple es ponerlas invisibles en caso de que sea cero y visibles en caso contrario.

Ejemplo, algo parecido a esto, en el BeforePrint de la variable5

 if value=0 then
 begin
   variable1.visible:=false;
   variable2.visible:=false;
   variable3.visible:=false;
   ...
   ...
 end
 else
 begin
   variable1.visible:=true;
    variable2.visible:=true;
    variable3.visible:=true;
    ...
   ...
 end;

[alcides]

Gracias Casimiro Notevi,

esto es lo que tengo:

Código PHP:

  if ((ppVariable2.value=0) and
        (ppVariable3.Value=0) and
          (ppVariable4.Value=0) and
            (ppVariable5.Value=0) and
              (ppVariable6.Value=0)) then begin
                 qry_catalogocuenta.Visible:= false;
                 qry_catalogodescripcion.Visible:=false;
               ppVariable2.visible:=false;
             ppVariable3.visible:=false;
           ppVariable4.visible:=false;
         ppVariable5.visible:=false;
       ppVariable6.visible:=false;
  end
  else
  begin
       qry_catalogocuenta.Visible:= true;
         qry_catalogodescripcion.Visible:=true;
          ppVariable2.visible:=true;
           ppVariable3.visible:=true;
            ppVariable4.visible:=true;
             ppVariable5.visible:=true;
              ppVariable6.visible:=true;
  end;
    ppReport1.Print; 


es correcto preguntar de esta forma por las variable que estan en zero, porque no me esta funcionando cuando todas las variables son zeroes.


Gracias mil,


Alcides
Rep.Dom.

[marcoszorrilla]

Por qué no las sumas todas y si el resultado es = 0 es que todas son 0 de esa manera te quedaría mas simple la comparación.

Un Saludo.

[alcides]

Gracias Marcoszorrilla,

buena idea, chequeare.


Gracias mil,


Alcides
Rep.Dom.

[alcides]

gracias Lepe,

en el onprint



Gracias Mil,

Alcides
Rep.Dom.

[[Lepe]]

Solo un detalle que no me queda claro porque no uso ReportBuilder; El cálculo lo realizas en ¿el Onprint o BeforePrint?

En principio, deberías pasarlo todo al BeforePrint, y en el BeforePrint de ppvariable5, añades esto:

Código Delphi [-]
procedure SetVisible(Values:Boolean);
begin
qry_catalogocuenta.Visible:= Values;
qry_catalogodescripcion.Visible:=Values;
ppVariable2.visible:=Values;
ppVariable3.visible:=Values;
ppVariable4.visible:=Values;
ppVariable5.visible:=Values;
ppVariable6.visible:=Values;
end;

//En el BeforePrint:

SetVisible( not((ppVariable2.value=0) and
          (ppVariable3.Value=0) and
          (ppVariable4.Value=0) and
          (ppVariable5.Value=0) and
          (ppVariable6.Value=0)));

saludos