Libro diario, mayor,

Contabilidad/RepOrigenAplicacion.aspx.vb

@@ -89,6 +89,9 @@ Partial Class Contabilidad_RepOrigenAplicacion
                 TdFI.Visible = False
                 tdTipoReporte.Visible = False
 
+                GvOrigenAplicacionSIG.Visible = True
+                GvDatos.Visible = False
+
             End If
 
         End If
@@ -162,25 +165,26 @@ Partial Class Contabilidad_RepOrigenAplicacion
             Dim AnioAnteior As Integer = AnioActual - 1
 
 
-            GvDatos.Columns(1).Visible = True
-            GvDatos.Columns(2).Visible = True
+            GvOrigenAplicacionSIG.Columns(1).Visible = True
+            GvOrigenAplicacionSIG.Columns(2).Visible = True
 
-            GvDatos.Columns(1).HeaderText = AnioAnteior.ToString
-            GvDatos.Columns(2).HeaderText = AnioActual.ToString
+            GvOrigenAplicacionSIG.Columns(1).HeaderText = AnioAnteior.ToString
+            GvOrigenAplicacionSIG.Columns(2).HeaderText = AnioActual.ToString
 
             Dim ObjConta As New ClsContabilidad
-
+            'GvOrigenAplicacionSIG
             If ObjConta.GetRepOrigenAplicacion(TxtFechaAl.Text.ToDate, UsuarioActual.CveEmpresa) Then
-                GvDatos.DataSource = ObjConta.DtResultados
+                GvOrigenAplicacionSIG.DataSource = ObjConta.DtResultados
 
                 If ObjConta.DtResultados.Rows.Count > 0 Then
                     LnkExcel.Visible = True
                 End If
             Else
-                GvDatos.DataSource = Nothing
+                GvOrigenAplicacionSIG.DataSource = Nothing
             End If
             ObjConta.Dispose()
-            GvDatos.DataBind()
+            GvOrigenAplicacionSIG.DataBind()
+
 
         Else
 
@@ -214,6 +218,31 @@ Partial Class Contabilidad_RepOrigenAplicacion
     End Sub
 
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            'Titulo y Sumatoria de cambios
+            If e.Row.DBCampo("Orden3").ToString.ToEntero = 10 Or e.Row.DBCampo("Orden3").ToString.ToEntero = 30 Then
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+            End If
+
+            'CUENTAS
+            If e.Row.DBCampo("Orden3").ToString.ToEntero = 20 Then
+                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
+            End If
+
+            'TOTAL
+            If e.Row.DBCampo("Nombre").ToString.Trim = "" Then
+                e.Row.Attributes.Add("style", "border-top: 1px solid; margin-top:10px;")
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+                e.Row.FCLabel("LbNombre").Font.Italic = True
+                e.Row.FCLabel("LbNombre").Text = "TOTAL"
+            End If
+
+        End If
+    End Sub
+
+
+    Protected Sub GvOrigenAplicacionSIG_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOrigenAplicacionSIG.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             'Titulo y Sumatoria de cambios
@@ -251,6 +280,12 @@ Partial Class Contabilidad_RepOrigenAplicacion
 
         End If
     End Sub
+
+
+
+
+
+
 #End Region