diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 86d87a132..177d8cb61 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -113,11 +113,11 @@ Partial Class Bancos_RepCortes
                 End If
             Else
                 If UsuarioActual.CveRol = 1 Then
-                    If e.Row.DBCampo("VentasCorte").ToDecimal.RoundSQL <> e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal.RoundSQL Then
+                    If e.Row.DBCampo("VentasCorte").ToDecimal <> e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal Then
                         e.Row.Cells(2).ForeColor = Drawing.Color.Red
                         e.Row.Cells(2).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal)).ToString
                     End If
-                    If e.Row.DBCampo("VentasCorte").ToDecimal.RoundSQL <> e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal.RoundSQL Then
+                    If e.Row.DBCampo("VentasCorte").ToDecimal <> e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal Then
                         e.Row.Cells(6).ForeColor = Drawing.Color.Red
                         e.Row.Cells(6).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal)).ToString
                     End If
@@ -280,18 +280,29 @@ Partial Class Bancos_RepCortes
         GvP.DataBind()
         GvDep.DataBind()
         GvPorIVA.DataBind()
-        GvIngresosRetiros.DataBind()
-
+        GvIngresosRetiros.DataBind()
+
         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
+            'obtener relación contable
+            Dim objC As New ClsContabilidad
+            If objC.GetCuentasAsignaciones(UsuarioActual.CveEmpresa, 30) Then
+                'obtengo la cvecuentabancaria
+                Dim tCveBancoCuenta As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1, CveTipoCuenta:=1).FiltroPrimeroValor("CveCuenta", $"CveSubProyecto = {DdlSubProyectos.SelectedValue}").ToEntero
+                CveCuenta = objC.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveBancoCuenta = {tCveBancoCuenta}").ToEntero
             End If
+            objC.Dispose()
+
+            DivAnexo.Visible = True
+
+            '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
+            'obtener la cuen
 
             Using ObjConta As New ClsContabilidad
                 If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then