Rango de fechas
necesito un codigo para general un reporte en quickreport de delphi 5 por rangos de dos fechas usado los componentes TDateTimePicker.
Gracias!!!! |
Saludos. |
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
|
Saludos. |
ok
ahora esta este error Incompatible types 'Sting' and 'TDate' |
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!!!!:) |
No Hay de que Amigo Chino, estamos aqui para ayudar.
Saludos. |
Hola!!!
Le pido excusa pero ahora el tiempo de ejecucion me sale el siquiente mensaje Type Mismatch in expression como soluciono este porblema Gracias!!! |
Cita:
Salud OS |
No Amigo
El error sale en tiempo de ejecucion |
Cita:
Salud OS |
como lo ago me puedo mustar el codigo completo
|
Cita:
el formato depende como lo requiera tu base de datos, asi que podía asignarse cualquier valor 'dd/mm/yyyy' 'mm/dd/yyyy' 'dd.mm.yyyy' Salud OS |
no commpila muestra este error Undeclared Indentifier ShortDateString
Código Delphi [-] procedure TfrmTest.BtnAdmClick(Sender: TObject); begin ShortDateString := ('dd/mm/yyyy'); 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; |
Perdon, no era ShortDateString, es ShortDateFormat.... :o
Salud OS |
ok complilo pero coundo se realiza la el reporte sale este error
EDBEngineErrror with message Type mismatch in expression |
Tuve un problema similar con una mdb.
El formato de la base era mm/dd/yyyy y el de delphi (o sistema) dd/mm/yyyy. Lo solucioné, no se si del todo bien, cargando una variable string con los datos como los queria la base. Código Delphi [-] var Fecha:String; d,m,a:word; begin DecodeDate(dtpFecha.Date,a,m,d); Fecha:=IntToStr(m)+'/'+IntToStr(d)+'/'+IntToStr(a); Sql.add('SELECT * FROM OrdenCliente WHERE FECHAESTIMADA<#'+Fecha+'# AND Estado Is Null'); end; Puede que tenga problemas al cambiar de pc con otro formato en el sistema. |
Cita:
Ya viste la fecha de este hilo... es de hace 2 meses |
La franja horaria es GMT +2. Ahora son las 04:17:11. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi