Ver Mensaje Individual
  #5  
Antiguo 15-08-2006
janexa janexa is offline
Miembro
 
Registrado: ago 2006
Posts: 28
Reputación: 0
janexa Va por buen camino
Question Resp QuickReport

THANK YOU a todos los ke me contestaron... BuenaOnda] Hola..

hice lo ke me mandaron pero ke creen si funciona con el afterOpen pero no del todo ya ke si me cambia el valor qrdtext con el evento ONPrint y en quickreport ANTES me apareceCIA:
NOMBRE-ARCHIVAR-INFORMAR-NINGUNO ARRIBA <---
XYZ TRUE FALSE TRUE
ACE FALSE TRUE TRUE

AHORA ME SALE EN EL QUICKREPORT:
NOMBRE-ARCHIVAR-INFORMAR-NINGUNO
XYZ * *
ACE * *

PERO PARA CUANDO SON MAS CAMPOS HACIA ABAJO NO CAMBIA, LOS DEJA IGUAL A LOS DE ARRIBA Y DEBERIA DE HACER ALGO ASI:
NOMBRE-ARCHIVAR-INFORMAR-NINGUNO
XYZ * *
ACE * *

ESTE ES MI QUERY SI FUNCIONA PORKE ANTES SALIA LO DE ARRIBA <---
UTILIZO SQL SERVER
select A.* ,P.per_nombre
from tmp_asignacion_per2 A,personal P
where A.CE_Folio_id2=:ce_folio_id AND A.CE_a
ño_id2=:CE_año_id AND A.djs_id2=:djs_id AND A.rpe_id2=P.rpe_id

Y MIS CODIGOS EN DELPHI
procedure TDMCorrespondencia.QAsignacion_ceAfterOpen(DataSet: TDataSet);
begin
IF QAsignacion_cectrl_mod2.AsBoolean=true THEN
ctrl:=3
ELSE
ctrl:=4;
END;
END;
--------------------
procedure TFReporte.QRDBText13Print(sender: TObject; var Value: String);
begin
// FEntradas.e1.text:=inttostr(ctrl);
if ctrl=3 then
begin
value:='*';
end
else
begin
value:=' ';
end;
end;

Y AHORA COMO LE HAGO??????
HELP ME PLEASE....SE LO AGRADECERE MUCHO
__________________


~~JÅn€xå~~
Responder Con Cita