- al consultar que se limpien los Gridviews de detalle

Bancos/RepCortes.aspx.vb

@@ -65,7 +65,9 @@ Partial Class Bancos_RepCortes
             txtFechaVI.Text = NowADS().ToShortDateString
             txtFechaVF.Text = NowADS().ToShortDateString
             Me.Form.DefaultButton = BtnConsultar.UniqueID
-            CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
+            Dim AplicaTodos As String = ""
+            If UsuarioActual.CveEmpresa.Contiene(140, 141) Then AplicaTodos = "Todos"
+            CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto, AplicaTodos:=AplicaTodos)
 
         End If
     End Sub
@@ -89,9 +91,16 @@ Partial Class Bancos_RepCortes
             GvDatos.Columns(13).Visible = True
         End If
 
+        GvP.DataBind()
+        GvDep.DataBind()
+        GvPorIVA.DataBind()
+        GvAnexo.DataBind()
+        GvD.DataBind()
+
         GvDatos.DataSource = DtCortes
         GvDatos.DataBind()
         UPDatos.Update()
+        UPPDetalle.Update()
     End Sub
 #End Region
 
@@ -232,10 +241,17 @@ Partial Class Bancos_RepCortes
         GvDep.DataBind()
         GvPorIVA.DataBind()
 
-        If UsuarioActual.CveEmpresa = 193 Then
+        If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) Then
             DivAnexo.Visible = True
+            Dim CveCuenta As Integer = 0
+            CveCuenta = If(UsuarioActual.CveEmpresa = 193, 186367, 0)
+            If DdlSubProyectos.SelectedValue = "12756" Then 'nav
+                CveCuenta = 188796
+            End If
+            If DdlSubProyectos.SelectedValue = "12755" Then 'hillo
+                CveCuenta = 188795
+            End If
 
-            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