-- se depuró/limpió la variables idctaXXX

Compras/RepCxPDetalle.aspx.vb

@@ -343,38 +343,8 @@ Partial Class RepCxPDetalle
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
         UPFiltros.Update()
-    End Sub
-
-    Private Function CargaCuentasContables(DT As DataTable) As DataTable
-
-        Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
-        Try
-            If ObjConpaq.GetCuentas(-1, -1, -1) Then
-                DTCuentasContables = ObjConpaq.DtResultados
-
-                For Each Proveedor As DataRow In DT.Rows
-                    If Proveedor("IdCtaContProveedores").ToString.ToEntero > 0 Then
-
-                        If Not DTCuentasContables.FiltraParametros($"Id = {Proveedor("IdCtaContProveedores").ToString }") Is Nothing Then
-                            Proveedor("Cuenta") = DTCuentasContables.FiltroPrimeroValor("CuentaFormato", $"id = {Proveedor("IdCtaContProveedores").ToString.ToEntero }")
-                        End If
-
-                    End If
-                Next
-
-                DT.AcceptChanges()
-            Else
-                DTCuentasContables = New DataTable
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al cargar las cuentas contables", ex)
-        End Try
-        ObjConpaq.Dispose()
-
-        Return DT
-
-    End Function
-
+    End Sub
+
     Private Sub CargaDatos()
         Dim ObjMovtos As New ClsMovimientos()
         Try
@@ -406,15 +376,12 @@ Partial Class RepCxPDetalle
                 TMP_DTDatos.Columns.Add("Cuenta")
 
                 If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.TipoContabilidad = 2 Then 'cuando es grupo por proveedor, se muestra la cuneta contable
-                    TMP_DTDatos = CargaCuentasContables(TMP_DTDatos)
+                    'TMP_DTDatos = CargaCuentasContables(TMP_DTDatos)
                     GvDatos.Columns(13).Visible = True
                 Else
                     GvDatos.Columns(13).Visible = False
                 End If
-
                 DtDatos = TMP_DTDatos
-
-
                 GvDatos.DataSource = DtDatos
                 HplProgramar.NavigateUrl = $"/Bancos/RepProgramarRecursos.aspx{HttpContext.Current.Request.Url.PathAndQuery.Replace("/Compras/RepCxPDetalle.aspx", "")}"