none
Error de campo "Hora de impresion" al exportar excel usando Crystal Reports RRS feed

  • Pregunta

  • Hola a todos =), yo uso Crystal Reports para exportar Excel ,PDF y Word, pero el problema que cuando uso campo especial que se llama "Hora de impresion" pero normal funciona con PDF y Word, con la hora del formato 1:23 pm, pero al exportar el excel sale asi..la hora asi "00/01/1900  12:22:43 p.m."..

    Te muestro la imagen, y ves el cuadrado de color rojo que dice "Hora de impresion" ahi sale error de formato de hora al exportar el excel.

    Y el codigo tambien te lo muestro... por favor alguien tiene alguna idea de solucionar osea puedes hacer una nueva formula.. o correguir el campo especial "Hora de impresion"..por favor ayudamee!!

    Gracias!.

    Private Sub Exportar(ByVal oRpt As ReportDocument, ByVal Tipo As String)
            Dim Extension As String = String.Empty
            Dim oStream As IO.MemoryStream = New IO.MemoryStream
            Select Case Tipo
                Case "PDF"
                    oStream = oRpt.ExportToStream(ExportFormatType.PortableDocFormat)
                    Response.ContentType = "application/pdf"
                    Extension = "PDF"
                Case "EXCEL"
                    oStream = oRpt.ExportToStream(ExportFormatType.Excel)
                    Response.ContentType = "application/vnd.ms-excel"
                    Extension = "XLS"
                Case "WORD"
                    oStream = oRpt.ExportToStream(ExportFormatType.WordForWindows)
                    Response.ContentType = "application/ms-word"
                    Extension = "DOC"
            End Select
            Response.AddHeader("Content-Disposition", "attachment;filename=" & Me.Page.Title.Replace(" ", String.Empty) & "." & Extension)
            Response.Clear()
            Response.Buffer = True
            Response.BinaryWrite(oStream.ToArray())
            Response.End()
        End Sub
        Protected Sub IB_EXCEL_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
            Dim objRpt As New ReportDocument()
            objRpt.Load(Server.MapPath("~/Reportes/RptTurnos.rpt"))
            objRpt.SetDataSource(VistaTabla)
            Exportar(objRpt, "EXCEL")
        End Sub
        Protected Sub IB_WORD_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
            Dim objRpt As New ReportDocument()
            objRpt.Load(Server.MapPath("~/Reportes/RptTurnos.rpt"))
            objRpt.SetDataSource(VistaTabla)
            Exportar(objRpt, "WORD")
        End Sub
        Protected Sub IB_PDF_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
            Dim objRpt As New ReportDocument()
            objRpt.Load(Server.MapPath("~/Reportes/RptTurnos.rpt"))
            objRpt.SetDataSource(VistaTabla)
            Exportar(objRpt, "PDF")
        End Sub

    • Cambiado Enrique M. Montejo martes, 29 de mayo de 2012 11:47 consulta sobre Crystal Reports (De:Lenguaje VB.NET)
    viernes, 25 de mayo de 2012 17:38