-- limpieza código comentado

Ventas/Clientes.aspx.vb

@@ -1044,9 +1044,6 @@ Partial Class Clientes
 #Region "C A R G A S"
 
 
-
-
-
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1194,10 +1191,6 @@ Partial Class Clientes
             DdlCtaContableAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
         End If
 
-        'DdlCtaContableRetIVA.Attributes.Add("onclick", "CargaCuentas(3);")
-        'DdlCtaContableRetISR.Attributes.Add("onclick", "CargaCuentas(4);")
-        'DdlCtaContableFondoGarantia.Attributes.Add("onclick", "CargaCuentas(5);")
-
         If UsuarioActual.Empresa.Funcionalidad(248).ToEntero() > 0 Then
             DdlCtaContableCompClientes.Attributes.Add("onclick", "CargaCuentas(6);")
         End If
@@ -1244,47 +1237,8 @@ Partial Class Clientes
         End Select
         UpFiscalContable.Update()
 
-        ' Las funcionalidades 246, 247 y 248 para DdlCtaContableClientes, DdlMonedaExtranjeraClientes y DdlCtaContableCompClientes tienen prioridad sobre las demas.
-        'If UsuarioActual.Empresa.UsaContabilidad Then CargaCuentasContablesClientes()
-
-
     End Sub
 
-    'Private Sub CargaCuentasContablesClientes()
-    '    If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub
-    '    ' Verifica si la empresas tienen las funcionalidades 246, 247 y 248
-    '    Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-
-    '    If UsuarioActual.Empresa.Funcionalidad(246).Toentero() > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(246).Toentero(), "-1", 1) Then
-    '            DdlCtaContableClientes.Items.Clear()
-    '            DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
-    '            DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
-    '            DdlCtaContableClientes.DataBind()
-    '        End If
-    '    End If
-
-    '    If UsuarioActual.Empresa.Funcionalidad(247).Toentero() > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(247).Toentero(), "-1", 1) Then
-    '            DdlMonedaExtranjeraClientes.Items.Clear()
-    '            DdlMonedaExtranjeraClientes.Items.Add(New ListItem("Seleccione", "0"))
-    '            DdlMonedaExtranjeraClientes.DataSource = ObjContabilidad.DtResultados
-    '            DdlMonedaExtranjeraClientes.DataBind()
-    '        End If
-    '    End If
-
-    '    If UsuarioActual.Empresa.Funcionalidad(248).Toentero() > 0 Then
-    '        If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(248).Toentero(), "-1", 1) Then
-    '            DdlCtaContableCompClientes.Items.Clear()
-    '            DdlCtaContableCompClientes.Items.Add(New ListItem("Seleccione", "0"))
-    '            DdlCtaContableCompClientes.DataSource = ObjContabilidad.DtResultados
-    '            DdlCtaContableCompClientes.DataBind()
-    '        End If
-    '    End If
-
-    '    ObjContabilidad.Dispose()
-
-    'End Sub
     Private Sub CargaDdlCuentasContables(Ddl As DropDownList, Optional CveFuncionalidad As Integer = -1)
         Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
         If ObjContabilidad.GetCuentasRecursiva(CveFuncionalidad, 1) Then
@@ -1506,23 +1460,13 @@ Partial Class Clientes
                 Dim RetSC As Boolean = CargaSucursalesCliente()
 
                 CargaUsuariosPortal()
-                'CargaPersonalAsignado()
-                'CargaOrdenesServiciosCliente()
                 CargaImpuestosLocales()
                 CargaCuentasContablesDdls()
                 CargaResponsables()
                 CargaCondicionesEntrega()
-                'CargaClasificaciones()
-                ' CargaGridRetenciones()
-                ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
                 CargaSubProyectosSuscursales()
-                'CargaMetodosPago33()
-                'CargaFormaPago33()
-                'CargaComboCFDI()
-                'CargarPagosNoBancarios()
-
 
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -1774,12 +1718,6 @@ Partial Class Clientes
 
                 DdlAdminTrayecto.SelectedValueExist(ObjClientes.DtResultados(0)("CveAdminTrayecto").ToString())
                 DdlAdminTrayecto_SelectedIndexChanged(DdlAdminTrayecto, EventArgs.Empty)
-                'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
-                'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
-                'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
-
-
-
 
                 'DIAS DE PAGO
                 If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
@@ -1806,15 +1744,7 @@ Partial Class Clientes
 
                 'Horario
                 TxtHorario.Text = ObjClientes.Horario
-                'If ObjClientes.Horario <> "" Then
-                '    Dim arrayHorario As String() = ObjClientes.Horario.Split(New Char() {"|"c})
-                '    If arrayHorario.Count = 1 Then
-                '        TxtHorario1.Text = arrayHorario(0)
-                '    End If
-                '    If arrayHorario.Count = 2 Then
-                '        TxtHorario2.Text = arrayHorario(1)
-                '    End If
-                'End If
+
 
                 TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
                 TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
@@ -1872,24 +1802,7 @@ Partial Class Clientes
                     Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
                 End If
 
-                'watch.Stop()
-                'Alert(watch.ElapsedMilliseconds.ToString())
-                'watch.Start()
-
-
                 CargaEventoBitacora()
-                'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
-                '    CargaCuentasConceptos()
-                '    divCuentas.Visible = True
-                '    divCuentasContp.Visible = False
-                'Else
-                '    divCuentas.Visible = False
-                '    divCuentasContp.Visible = True
-                'End If
-
-                'watch.Stop()
-                'Alert(watch.ElapsedMilliseconds.ToString())
-                'watch.Start()
 
                 If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                     CargaCuentasConceptos()