-- nombrecolumna cuenta formato

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