Rango de fechas

[chino150]

este es el codigo que estoy usando, como puedo hacer para que la fecha se muestre en dos componentes QrLabel llamados cutfecha3 y cutfecha4 en el reporte de quick report

Código Delphi [-]
 
      procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
 qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
     qrFondos.sql.add('select * from Ofrendas');
     qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
     Case CutStatus.ItemIndex of
          0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
          1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
          end;
     qrFondos.open;
end;
if (CutBox.checked=true) then begin
   qrFondos.sql.add('select * from Ofrendas');
   Case CutStatus.ItemIndex of
       0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
       1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
       end;
   qrFondos.open;
   end;
  begin
QrAdm.preview;
end;
end;
 
end.

[[enecumene]]

Código Delphi [-]
procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
 qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
     qrFondos.sql.add('select * from Ofrendas');
     qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
     Case CutStatus.ItemIndex of
          0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
          1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
          end;
     qrFondos.open;
     Form1.cutfecha3.Caption := Cutfecha1.date;
     Form1.cutfecha4.Caption := Cutfecha2.date;
  end;
if (CutBox.checked=true) then begin
   qrFondos.sql.add('select * from Ofrendas');
   Case CutStatus.ItemIndex of
       0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
       1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
       end;
   qrFondos.open;
   Form1.cutfecha3.Caption := Cutfecha1.date;
   Form1.cutfecha4.Caption := Cutfecha2.date;
   end;
  begin
QrAdm.preview;
end;
end;
 
end.

Saludos.

[chino150]

ok

ahora esta este error Incompatible types 'Sting' and 'TDate'

[chino150]

Gracias Solucione el problem
Codigo Delphi (-)

procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
qrFondos.sql.add('select * from Ofrendas');
qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
Case CutStatus.ItemIndex of
0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
end;
qrFondos.open;
QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
QrAdm.cutfecha4.Caption := DateToStr(CutFecha2.Date);
end;
if (CutBox.checked=true) then begin
qrFondos.sql.add('select * from Ofrendas');
Case CutStatus.ItemIndex of
0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
end;
qrFondos.open;
QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
QrAdm.cutfecha4.Caption := DatetoStr(cutfecha2.date);
end;
begin
QrAdm.preview;
end;
end;

end.

Muchas Gracias por su ayuda!!!!

[[enecumene]]

No Hay de que Amigo Chino, estamos aqui para ayudar.

Saludos.

[chino150]

Hola!!!

Le pido excusa pero ahora el tiempo de ejecucion me sale el siquiente mensaje Type Mismatch in expression como soluciono este porblema



Gracias!!!

[[egostar]]

Empezado por chino150

Hola!!!

Le pido excusa pero ahora el tiempo de ejecucion me sale el siquiente mensaje Type Mismatch in expression como soluciono este porblema

Gracias!!!

Seguro que este código no te muestra un error al compilarlo?

Código Delphi [-]
procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
   qrFondos.close;
   qrFondos.SQL.clear;
   if (CutBox.checked=false) then begin
       qrFondos.sql.add('select * from Ofrendas');
       qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
       Case CutStatus.ItemIndex of
           0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
           1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
       end;
       qrFondos.open;
       QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
       QrAdm.cutfecha4.Caption := DateToStr(CutFecha2.Date);
   end;
   if (CutBox.checked=true) then begin
       qrFondos.sql.add('select * from Ofrendas');
       Case CutStatus.ItemIndex of
          0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
          1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
       end;
       qrFondos.open;
       QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
       QrAdm.cutfecha4.Caption := DatetoStr(cutfecha2.date);
   end;
//**********************************************
   begin //??????
       QrAdm.preview; 
   end;  //??????
//**********************************************
end;

Salud OS