mostrar renglón con el saldo contable en Corte. solo para rol=1, de la cuenta de caja chica

Bancos/RepCortes.aspx.vb

@@ -174,6 +174,7 @@ Partial Class Bancos_RepCortes
             DtCortesVentasResumen = Vn.DtResultados
         End If
         If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
+            DivIVA.Visible = True
             If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                 GvPorIVA.DataSource = Vn.DtResultados
             End If
@@ -181,6 +182,9 @@ Partial Class Bancos_RepCortes
 
         If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDep.DataSource = Vn.DtResultados
+            If Vn.DtResultados.Rows.Count > 0 Then
+                DivDep.Visible = True
+            End If
         End If
 
         If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
@@ -199,10 +203,26 @@ Partial Class Bancos_RepCortes
         End If
         Vn.Dispose()
         Vent.Dispose()
+
+
         GvD.DataBind()
         GvP.DataBind()
         GvDep.DataBind()
         GvPorIVA.DataBind()
+
+        If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then
+            DivAnexo.Visible = True
+
+            Dim CveCuenta As Integer = 186367
+            Using ObjConta As New ClsContabilidad
+                If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
+                    GvAnexo.DataSource = ObjConta.DtResultados
+                End If
+            End Using
+
+            GvAnexo.DataBind()
+        End If
+
         UPPDetalle.Update()
         UpAcciones.Update()
     End Sub