DavidEcuador
2 Mensaje(s)
|
| Enviado - 22/11/2004 |
| ? |
nada ya hice lo q me dices pero nada......
Dim lcFormula As String
lcFormula = ""
crp.ReportFileName = App.Path + "\Reportes\ResultadoCalificacion1.rpt"
crp.Password = vbLf & "adm"
'DtpFin.Value = DtpFin.Value + 1
If cmbEstado <> "TODOS" Then
If cmbEstado <> "PENDIENTES" Then
lcFormula = "{DETA_OFICIAL_Asignado.fecha_finalizada} >= Date (" + Str(DtpIni.Year) + "," + Str(DtpIni.Month) + "," + Str(DtpIni.Day) + ") and {DETA_OFICIAL_Asignado.fecha_finalizada} <= Date (" + Str(DtpFin.Year) + "," + Str(DtpFin.Month) + "," + Str(DtpFin.Day) + ") "
lcFormula = lcFormula & " AND {DETA_OFICIAL_Asignado.estado} = '" & Mid(cmbEstado.Text, 1, 1) & "'"
Else
lcFormula = lcFormula & " {DETA_OFICIAL_Asignado.estado} = '" & Mid(cmbEstado.Text, 1, 1) & "'"
End If
crp.SelectionFormula = lcFormula
crp.DiscardSavedData = True
crp.WindowState = crptMaximized
crp.PrintReport
Else
' Crp.GroupSelectionFormula = "DateDiff ('d',Date('" & DTPicker1.Value & "'),{DETA_OFICIAL_Asignado.fecha_finalizada} ) >= 0 and DateDiff ('d',Date('" & DTPicker2.Value & "'),{DETA_OFICIAL_Asignado.fecha_finalizada} ) <= 0 "
lcFormula = "{DETA_OFICIAL_Asignado.fecha_finalizada} >= Date (" + Str(DtpIni.Year) + "," + Str(DtpIni.Month) + "," + Str(DtpIni.Day) + ") and {DETA_OFICIAL_Asignado.fecha_finalizada} <= Date (" + Str(DtpFin.Year) + "," + Str(DtpFin.Month) + "," + Str(DtpFin.Day) + ") "
crp.SelectionFormula = lcFormula
crp.DiscardSavedData = True
crp.WindowState = crptMaximized
crp.PrintReport
End If
es el codigo q estoy usando el reporte lo arme en el cristal |
| ? |
|
