- que se coloree , titulos y subtitulos

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -133,15 +133,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
     Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            'If e.Row.DBCampo("Id").ToEntero = IdCuenta Then
-            '    e.Row.ControlStyle.Font.Bold = True
-            '    'e.Row.ControlStyle.Font.Size = 9
-            '    'e.Row.ControlStyle.Height = 30
-            'Else
-            '    e.Row.ControlStyle.Font.Bold = False
-            'End If
-
-            If e.Row.DBCampo("CtaMayor") = "1" Or e.Row.DBCampo("CtaMayor") = "1" Then
+            If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then
                 e.Row.ControlStyle.Font.Bold = True
             End If
 
@@ -167,8 +159,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
             'Total general
             If e.Row.DBCampo("Id") = "" Then
-                'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.NotSet
-                'Dim TotSaldoID, TotSaldoIA As Double
+
                 e.Row.ControlStyle.Font.Bold = True
                 e.Row.ControlStyle.Font.Size = 9
                 e.Row.ControlStyle.Height = 30
@@ -192,33 +183,6 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
         ImprimirReporte()
 
-        'Using sw As New StringWriter()
-        '    Using hw As New HtmlTextWriter(sw)
-
-        '        Dim style As StringBuilder = New StringBuilder()
-        '        style.Append("<style> ")
-        '        style.Append(File.ReadAllText(ModExtensiones.DirectorioBaseEmpresas & "Styles\EstilosExcel.css"))
-        '        style.Append(" </style> ")
-        '        'To Export all pages
-        '        'Gv.AllowPaging = False
-        '        'Gv.DataBind()
-        '        Tbl.RenderControl(hw)
-        '        Dim sr As New StringReader(sw.ToString())
-        '        Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F)
-        '        Dim htmlparser As New HTMLWorker(pdfDoc)
-        '        PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
-        '        pdfDoc.Open()
-        '        htmlparser.Parse(sr)
-        '        pdfDoc.Close()
-
-        '        Response.ContentType = "application/pdf"
-        '        Response.AddHeader("content-disposition", "attachment;filename=BalanzaComprobacion.pdf")
-        '        Response.Cache.SetCacheability(HttpCacheability.NoCache)
-        '        Response.Write(style.ToString)
-        '        Response.Write(pdfDoc)
-        '        Response.[End]()
-        '    End Using
-        'End Using
 
     End Sub
     'No quitar porque no funciona el exporta PDF
@@ -228,7 +192,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        'GvDatos.ExportToExcel("BalanzaComprobacion")
+
         ImprimirReporte("Excel")
     End Sub