diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb
index 61ed491ad..91a685167 100644
--- a/Ventas/CatClientes.aspx.vb
+++ b/Ventas/CatClientes.aspx.vb
@@ -41,6 +41,10 @@ Partial Class CatClientes
Me.Form.DefaultButton = LbFiltrar.UniqueID
+
+
+ CargaPersonalizacion()
+
End If
End Sub
@@ -127,49 +131,7 @@ Partial Class CatClientes
End Sub
- Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
- GvDatos.Columns(0).Visible = ChkCodigo.Checked
- GvDatos.Columns(1).Visible = ChkNombre.Checked
- GvDatos.Columns(2).Visible = ChkRFC.Checked
- GvDatos.Columns(3).Visible = ChkSucursal.Checked
- GvDatos.Columns(4).Visible = ChkTelefono.Checked
- GvDatos.Columns(5).Visible = ChkVendedor.Checked
-
- GvDatos.Columns(6).Visible = ChkEstadoSis.Checked
- GvDatos.Columns(7).Visible = ChkFechaIng.Checked
- GvDatos.Columns(8).Visible = ChkUsuario.Checked
- GvDatos.Columns(9).Visible = ChkNombreCorto.Checked
- ' GvDatos.Columns(10).Visible = ChkVendedor.Checked
- GvDatos.Columns(10).Visible = ChkNoExt.Checked
- GvDatos.Columns(11).Visible = ChkNoInt.Checked
- GvDatos.Columns(12).Visible = ChkColonia.Checked
- GvDatos.Columns(13).Visible = ChkCiudad.Checked
- GvDatos.Columns(14).Visible = ChkEstado.Checked
- GvDatos.Columns(15).Visible = ChkPais.Checked
- GvDatos.Columns(16).Visible = ChkCP.Checked
- GvDatos.Columns(17).Visible = ChkContacto.Checked
- GvDatos.Columns(18).Visible = ChkMail.Checked
- GvDatos.Columns(19).Visible = ChkRecepcionFacturas.Checked
- GvDatos.Columns(20).Visible = ChkRetIVA.Checked
- GvDatos.Columns(21).Visible = ChkRetISR.Checked
- GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked
- GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked
- 'GvDatos.Columns(24).Visible = ChkCIE.Checked
- GvDatos.Columns(24).Visible = ChkCalle.Checked
- GvDatos.Columns(25).Visible = ChkCelular.Checked
- GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked
- GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked
- GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked
- GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked
-
-
-
-
-
- CargaDatos()
- UPDatos.Update()
- End Sub
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
@@ -306,7 +268,359 @@ Partial Class CatClientes
+#Region "P E R S O N A L I Z A R"
+ Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+
+ If ChkGuardarPersonalizacion.Checked Then
+ GuardaPersonalizacion()
+ End If
+
+ Personaliza()
+
+
+ End Sub
+
+
+ Private Sub GuardaPersonalizacion()
+ Dim objUsuario As New ClsSisUsuarios
+ Dim ListPersonalizada As New List(Of String)
+
+ If ChkCodigo.Checked Then
+ ListPersonalizada.Add("Codigo")
+ End If
+
+ If ChkNombre.Checked Then
+ ListPersonalizada.Add("Nombre")
+ End If
+
+ If ChkRFC.Checked Then
+ ListPersonalizada.Add("RFC")
+ End If
+
+ If ChkSucursal.Checked Then
+ ListPersonalizada.Add("Sucursal")
+ End If
+
+ If ChkTelefono.Checked Then
+ ListPersonalizada.Add("Telefono")
+ End If
+
+ If ChkVendedor.Checked Then
+ ListPersonalizada.Add("Vendedor")
+ End If
+
+ If ChkEstadoSis.Checked Then
+ ListPersonalizada.Add("EstadoSis")
+ End If
+
+ If ChkFechaIng.Checked Then
+ ListPersonalizada.Add("FechaIng")
+ End If
+
+ If ChkUsuario.Checked Then
+ ListPersonalizada.Add("Usuario")
+ End If
+
+ If ChkNombreCorto.Checked Then
+ ListPersonalizada.Add("NombreCorto")
+ End If
+
+ If ChkNoExt.Checked Then
+ ListPersonalizada.Add("NoExt")
+ End If
+
+ If ChkNoInt.Checked Then
+ ListPersonalizada.Add("NoInt")
+ End If
+
+ If ChkColonia.Checked Then
+ ListPersonalizada.Add("Colonia")
+ End If
+
+ If ChkCiudad.Checked Then
+ ListPersonalizada.Add("Ciudad")
+ End If
+
+ If ChkEstado.Checked Then
+ ListPersonalizada.Add("Estado")
+ End If
+
+ If ChkPais.Checked Then
+ ListPersonalizada.Add("Pais")
+ End If
+
+ If ChkCP.Checked Then
+ ListPersonalizada.Add("CP")
+ End If
+
+ If ChkContacto.Checked Then
+ ListPersonalizada.Add("Contacto")
+ End If
+
+ If ChkMail.Checked Then
+ ListPersonalizada.Add("Mail")
+ End If
+
+ If ChkRecepcionFacturas.Checked Then
+ ListPersonalizada.Add("RecepcionFacturas")
+ End If
+
+ If ChkRetIVA.Checked Then
+ ListPersonalizada.Add("RetIVA")
+ End If
+
+ If ChkRetISR.Checked Then
+ ListPersonalizada.Add("RetISR")
+ End If
+
+ If ChkPlazoCobranza.Checked Then
+ ListPersonalizada.Add("PlazoCobranza")
+ End If
+
+ If ChkLimiteCredito.Checked Then
+ ListPersonalizada.Add("LimiteCredito")
+ End If
+
+ 'If ChkCIE.Checked Then
+ ' ListPersonalizada.Add("CIE")
+ 'End If
+
+ If ChkCalle.Checked Then
+ ListPersonalizada.Add("Calle")
+ End If
+
+ If ChkCelular.Checked Then
+ ListPersonalizada.Add("Celular")
+ End If
+
+ If ChkCorreoCotizacion.Checked Then
+ ListPersonalizada.Add("CorreoCotizacion")
+ End If
+
+ If ChkOtroTelefono.Checked Then
+ ListPersonalizada.Add("OtroTelefono")
+ End If
+
+ If ChkPermiteCredito.Checked Then
+ ListPersonalizada.Add("PermiteCredito")
+ End If
+
+ If chkFechaLimiteCredito.Checked Then
+ ListPersonalizada.Add("FechaLimiteCredito")
+ End If
+
+
+
+ If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatClientes.aspx", String.Join("|", ListPersonalizada)) Then
+ 'Alert("Personalizacion guardada")
+ End If
+
+ objUsuario.Dispose()
+
+ End Sub
+
+ Private Sub CargaPersonalizacion()
+
+ Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatClientes.aspx")
+
+ If strBasePersonalizacion.Trim.Length > 0 Then
+
+
+ ChkCodigo.Checked = False
+ ChkNombre.Checked = False
+ ChkRFC.Checked = False
+ ChkSucursal.Checked = False
+ ChkTelefono.Checked = False
+ ChkVendedor.Checked = False
+ ChkEstadoSis.Checked = False
+ ChkFechaIng.Checked = False
+ ChkUsuario.Checked = False
+ ChkNombreCorto.Checked = False
+ ChkVendedor.Checked = False
+ ChkNoExt.Checked = False
+ ChkNoInt.Checked = False
+ ChkColonia.Checked = False
+ ChkCiudad.Checked = False
+ ChkEstado.Checked = False
+ ChkPais.Checked = False
+ ChkCP.Checked = False
+ ChkContacto.Checked = False
+ ChkMail.Checked = False
+ ChkRecepcionFacturas.Checked = False
+ ChkRetIVA.Checked = False
+ ChkRetISR.Checked = False
+ ChkPlazoCobranza.Checked = False
+ ChkLimiteCredito.Checked = False
+ ChkCalle.Checked = False
+ ChkCelular.Checked = False
+ ChkCorreoCotizacion.Checked = False
+ ChkOtroTelefono.Checked = False
+ ChkPermiteCredito.Checked = False
+ chkFechaLimiteCredito.Checked = False
+
+ Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
+
+ For Each personalizacion As String In Personalizaciones
+
+ Select Case personalizacion
+
+ Case "Codigo"
+ ChkCodigo.Checked = True
+ Exit Select
+ Case "Nombre"
+ ChkNombre.Checked = True
+ Exit Select
+ Case "RFC"
+ ChkRFC.Checked = True
+ Exit Select
+ Case "Sucursal"
+ ChkSucursal.Checked = True
+ Exit Select
+ Case "Telefono"
+ ChkTelefono.Checked = True
+ Exit Select
+ Case "Vendedor"
+ ChkVendedor.Checked = True
+ Exit Select
+ Case "EstadoSis"
+ ChkEstadoSis.Checked = True
+ Exit Select
+ Case "FechaIng"
+ ChkFechaIng.Checked = True
+ Exit Select
+ Case "Usuario"
+ ChkUsuario.Checked = True
+ Exit Select
+ Case "NombreCorto"
+ ChkNombreCorto.Checked = True
+ Exit Select
+ Case "NoExt"
+ ChkNoExt.Checked = True
+ Exit Select
+ Case "NoInt"
+ ChkNoInt.Checked = True
+ Exit Select
+ Case "Colonia"
+ ChkColonia.Checked = True
+ Exit Select
+ Case "Ciudad"
+ ChkCiudad.Checked = True
+ Exit Select
+ Case "Estado"
+ ChkEstado.Checked = True
+ Exit Select
+ Case "Pais"
+ ChkPais.Checked = True
+ Exit Select
+ Case "CP"
+ ChkCP.Checked = True
+ Exit Select
+ Case "Contacto"
+ ChkContacto.Checked = True
+ Exit Select
+ Case "Mail"
+ ChkMail.Checked = True
+ Exit Select
+ Case "RecepcionFacturas"
+ ChkRecepcionFacturas.Checked = True
+ Exit Select
+ Case "RetIVA"
+ ChkRetIVA.Checked = True
+ Exit Select
+ Case "RetISR"
+ ChkRetISR.Checked = True
+ Exit Select
+ Case "PlazoCobranza"
+ ChkPlazoCobranza.Checked = True
+ Exit Select
+ Case "LimiteCredito"
+ ChkLimiteCredito.Checked = True
+ Exit Select
+ 'Case "CIE"
+ ' ChkCIE.Checked = True
+ ' Exit Select
+ Case "Calle"
+ ChkCalle.Checked = True
+ Exit Select
+ Case "Celular"
+ ChkCelular.Checked = True
+ Exit Select
+ Case "CorreoCotizacion"
+ ChkCorreoCotizacion.Checked = True
+ Exit Select
+ Case "OtroTelefono"
+ ChkOtroTelefono.Checked = True
+ Exit Select
+ Case "PermiteCredito"
+ ChkPermiteCredito.Checked = True
+ Exit Select
+ Case "FechaLimiteCredito"
+ chkFechaLimiteCredito.Checked = True
+ Exit Select
+ Case Else
+ Exit Select
+ End Select
+
+ Next
+
+ Personaliza()
+
+ Else
+ PersonalizaDefault()
+ End If
+
+ UPPersonalizar.Update()
+
+ End Sub
+
+ Private Sub PersonalizaDefault()
+
+ End Sub
+ Private Sub Personaliza()
+
+
+ GvDatos.Columns(0).Visible = ChkCodigo.Checked
+ GvDatos.Columns(1).Visible = ChkNombre.Checked
+ GvDatos.Columns(2).Visible = ChkRFC.Checked
+ GvDatos.Columns(3).Visible = ChkSucursal.Checked
+ GvDatos.Columns(4).Visible = ChkTelefono.Checked
+ GvDatos.Columns(5).Visible = ChkVendedor.Checked
+
+ GvDatos.Columns(6).Visible = ChkEstadoSis.Checked
+ GvDatos.Columns(7).Visible = ChkFechaIng.Checked
+ GvDatos.Columns(8).Visible = ChkUsuario.Checked
+ GvDatos.Columns(9).Visible = ChkNombreCorto.Checked
+ ' GvDatos.Columns(10).Visible = ChkVendedor.Checked
+ GvDatos.Columns(10).Visible = ChkNoExt.Checked
+ GvDatos.Columns(11).Visible = ChkNoInt.Checked
+ GvDatos.Columns(12).Visible = ChkColonia.Checked
+ GvDatos.Columns(13).Visible = ChkCiudad.Checked
+ GvDatos.Columns(14).Visible = ChkEstado.Checked
+ GvDatos.Columns(15).Visible = ChkPais.Checked
+ GvDatos.Columns(16).Visible = ChkCP.Checked
+ GvDatos.Columns(17).Visible = ChkContacto.Checked
+ GvDatos.Columns(18).Visible = ChkMail.Checked
+ GvDatos.Columns(19).Visible = ChkRecepcionFacturas.Checked
+ GvDatos.Columns(20).Visible = ChkRetIVA.Checked
+ GvDatos.Columns(21).Visible = ChkRetISR.Checked
+ GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked
+ GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked
+ 'GvDatos.Columns(24).Visible = ChkCIE.Checked
+ GvDatos.Columns(24).Visible = ChkCalle.Checked
+ GvDatos.Columns(25).Visible = ChkCelular.Checked
+ GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked
+ GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked
+ GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked
+ GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked
+
+
+ CargaDatos()
+ UPDatos.Update()
+
+ End Sub
+
+#End Region
End Class