Ver Mensaje Individual
  #12  
Antiguo 16-09-2017
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Supongo que en ese caso puedes jugar con la propiedad Visible del componente TQRDBtext.
No utilizo QuickReport, pero seguro que tiene esta posibilidad.
Lo que no estoy seguro es dónde establecer el valor para esa propiedad.

Código:
         [QRDBText1]       [QRDBText2]  [QRDBText3]
---------------------------------------------------
cesion   descripcion       noteval(I)   noteval(II)
   I     descripcion 1         123
   II    descripcion 2                        456
   I     descripcion 3         789
...
Código Delphi [-]
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
   if ADOQuery1.FieldValues['cession'] ='II' then
   begin
      FRMRELEVE.QRDBText3.Visible := True;
      FRMRELEVE.QRDBText2.Visible := False;
   end 
   else
   if ADOQuery1.FieldValues['cession'] ='I' then
   begin
      FRMRELEVE.QRDBText3.Visible := False;
      FRMRELEVE.QRDBText2.Visible := True;
   end;
end;

Última edición por duilioisola fecha: 16-09-2017 a las 11:25:11.
Responder Con Cita