Delphi - Report Builder

   
Vista:

Report Builder

Publicado por Hèctor Guerrero (1 intervención) el 18/02/2008 18:34:43
Buen Dìa a todos,

Estoy iniciando la utilizacion del report builder ver 10.04 ( bases de datos firebird ), el asunto es que tengo el siguiente evento para ser desplegado en el detalle del reporte en una variable; haber si me explico,

quiero que en base al mes de la fecha de ingreso de x empleado me arroje su fecha de vencimiento de contrato ( que son de 28 dias )

var
d, m, y: Integer;
Fecha: TDateTime;
begin
Fecha := Empleados_Activos['Fecha de ingreso'];
d := d + 28;
DecodeDate(Fecha, y, m, d);
if (m = 1) then
begin
if (d > 31) then
begin
d := d - 31
m := 2
Text := 'IntToStr(d) + ' '+ FormatDateTime('mmm.', Fecha) + ' '+ IntToStr(y) \ ERROR ESPERADO " NOT " O "OR" Y EN SU LUGAR HALLADO "TEXT"
end
else
Text := 'IntToStr(d) + ' '+ FormatDateTime('mmm.', Fecha) + ' '+ IntToStr(y);
end
else if (m = 2) then
begin
Text := IntToStr(d) + ' '+ FormatDateTime('mmm.', Fecha) + ' '+ IntToStr(y)
end
else
Text := IntToStr(d) + ' '+ FormatDateTime('mmm.', Fecha) + ' '+ IntToStr(y);
end;


GRACIAS DE ANTEMANO POR SU APOYO
Hèctor Guerrero
hguerrerov71@hotmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder