FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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!!!! |
#2
|
||||
|
||||
Saludos.
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
#3
|
||||
|
||||
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
Última edición por marcoszorrilla fecha: 28-12-2007 a las 20:29:16. Razón: Etiquetas Delphi |
#4
|
||||
|
||||
Saludos.
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
#5
|
||||
|
||||
ok
ahora esta este error Incompatible types 'Sting' and 'TDate' |
#6
|
||||
|
||||
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!!!! |
#7
|
||||
|
||||
No Hay de que Amigo Chino, estamos aqui para ayudar.
Saludos.
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
#8
|
||||
|
||||
Hola!!!
Le pido excusa pero ahora el tiempo de ejecucion me sale el siquiente mensaje Type Mismatch in expression como soluciono este porblema Gracias!!! |
#9
|
|||
|
|||
Cita:
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#10
|
||||
|
||||
No Amigo
El error sale en tiempo de ejecucion |
#11
|
|||
|
|||
Muy bien, entonces el problema es el formato de fecha que estas usando en tu base de datos, para resolver esto deberias usar la funcion ShortDateFormat() ajustandolo a como lo requieres.
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#12
|
||||
|
||||
como lo ago me puedo mustar el codigo completo
|
#13
|
|||
|
|||
Solo coloca el código que te mostré en tu procedimiento, por ejemplo:
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney Última edición por egostar fecha: 29-12-2007 a las 21:23:22. Razón: Puse ShortDateString y debia ser ShortDateFormat, :( |
#14
|
||||
|
||||
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; |
#15
|
|||
|
|||
Perdon, no era ShortDateString, es ShortDateFormat....
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#16
|
||||
|
||||
ok complilo pero coundo se realiza la el reporte sale este error
EDBEngineErrror with message Type mismatch in expression |
#17
|
|||
|
|||
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. |
#18
|
||||
|
||||
Cita:
Ya viste la fecha de este hilo... es de hace 2 meses
__________________
Web |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Consulta Rango de Fechas | soloriv | SQL | 7 | 23-06-2006 03:02:03 |
Rango de fechas | roberasturias | Varios | 2 | 23-05-2005 18:02:35 |
Consulta de rango de fechas con sql | Yanet | SQL | 2 | 12-02-2005 02:07:04 |
Consulta sql con rango de fechas | jgutti | SQL | 5 | 26-02-2004 18:51:54 |
Rango de fechas | JODELSA | Varios | 8 | 22-05-2003 20:45:43 |
|