diff --git a/Contabilidad2/RepAnexoCatalogo.aspx b/Contabilidad2/RepAnexoCatalogo.aspx
index 0fad8f8d2..26ea0ee59 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx
+++ b/Contabilidad2/RepAnexoCatalogo.aspx
@@ -42,7 +42,7 @@
Cuenta
-
+
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index 0a1b31544..14d6a8d8c 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -159,23 +159,7 @@ Partial Class AC2_RepAnexoCatalogo
End Sub
#Region "CARGA DATOS Y GRID"
- 'Public Function WSCuentas() As String
- ' Dim Str As New StringBuilder
- ' Dim i As Integer = 0
- ' Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
- ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-
- ' For Each dr As DataRow In dt.Rows
- ' i += 1
- ' Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
- ' Next
-
- ' End If
-
-
- ' Return Str.ToString
- 'End Function
Private Sub CargaTipoCuentas()
'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjTipoCuenta As New ClsContabilidad
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx
index fc12ba75c..57d34487d 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx
@@ -96,7 +96,7 @@
Cuenta:
-
+
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx
index d459f114b..07d55441a 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx
@@ -56,7 +56,7 @@
Cuenta
-
+
diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
index 856c8d68f..f137102a7 100644
--- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -145,23 +145,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
End Sub
#Region "CARGA DATOS Y GRID"
- 'Public Function WSCuentas() As String
- ' Dim Str As New StringBuilder
- ' Dim i As Integer = 0
- ' Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
- ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-
- ' For Each dr As DataRow In dt.Rows
- ' i += 1
- ' Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
- ' Next
-
- ' End If
-
-
- ' Return Str.ToString
- 'End Function
Private Sub CargaTipoCuentas()
'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjTipoCuenta As New ClsContabilidad
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
index 04022a204..353caed37 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -52,7 +52,7 @@
Cuenta: