Cat Clientes, Columna permite crédito, Guardar Personalización
This commit is contained in:
rakcsle
@@ -717,6 +717,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
|
||||
CveVentaSurtir = CveVenta
|
||||
CveOSSurtir = CveOS
|
||||
|
||||
If TipoDocto = "Ped" And CveOSSurtir <= 0 Then
|
||||
CveOSSurtir = drE("CveOS").ToString().ToEntero
|
||||
End If
|
||||
|
||||
CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero
|
||||
CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
|
||||
CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
|
||||
@@ -1062,7 +1067,8 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
If CargaBitacora Then
|
||||
CargaBitacoraSerie()
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -374,116 +374,135 @@
|
||||
</div>
|
||||
|
||||
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
|
||||
|
||||
<!-- Modal content-->
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<table class="table table-striped table-advance table-hover">
|
||||
<thead>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNombre" runat="server" Text="Nombre" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkTelefono" runat="server" Text="Teléfono" Checked="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkEstadoSis" runat="server" Text="Estado (Sis)" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkFechaIng" runat="server" Text="Fecha Captura (Sis)" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario Capturó (Sis)" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCodigo" runat="server" Text="Código" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNombreCorto" runat="server" Text="Nombre Corto" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td>
|
||||
<asp:UpdatePanel ID="UPPersonalizar" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNoExt" runat="server" Text="No Ext" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNoInt" runat="server" Text="No Int" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkColonia" runat="server" Text="Colonia" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCiudad" runat="server" Text="Ciudad" /></td>
|
||||
<!-- Modal content-->
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<table class="table table-striped table-advance table-hover">
|
||||
<thead>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNombre" runat="server" Text="Nombre" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkTelefono" runat="server" Text="Teléfono" Checked="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkEstadoSis" runat="server" Text="Estado (Sis)" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkFechaIng" runat="server" Text="Fecha Captura (Sis)" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario Capturó (Sis)" Checked="true" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCodigo" runat="server" Text="Código" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNombreCorto" runat="server" Text="Nombre Corto" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td>
|
||||
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkEstado" runat="server" Text="Estado" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkPais" runat="server" Text="País" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCP" runat="server" Text="C.P." /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkContacto" runat="server" Text="Contacto" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNoExt" runat="server" Text="No Ext" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkNoInt" runat="server" Text="No Int" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkColonia" runat="server" Text="Colonia" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCiudad" runat="server" Text="Ciudad" /></td>
|
||||
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkMail" runat="server" Text="Correo Envió Facturación" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRecepcionFacturas" runat="server" Text="Recepción Facturas" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRetISR" runat="server" Text="Ret. ISR" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkEstado" runat="server" Text="Estado" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkPais" runat="server" Text="País" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCP" runat="server" Text="C.P." /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkContacto" runat="server" Text="Contacto" /></td>
|
||||
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkPlazoCobranza" runat="server" Text="Plazo Cobranza" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkLimiteCredito" runat="server" Text="Límite Crédito" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCalle" runat="server" Text="Calle" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCelular" runat="server" Text="Celular" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCorreoCotizacion" runat="server" Text="Correo Envió Cotización" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkOtroTelefono" runat="server" Text="Otro Telefono" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Checked="true" Text="Permite Crédito" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="chkFechaLimiteCredito" runat="server" Checked="true" Text="Fecha Limite Crédito" /></td>
|
||||
|
||||
<td style="text-align: left">
|
||||
</td>
|
||||
<td style="text-align: left">
|
||||
</td>
|
||||
</tr>
|
||||
</thead>
|
||||
</table>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkMail" runat="server" Text="Correo Envió Facturación" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRecepcionFacturas" runat="server" Text="Recepción Facturas" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkRetISR" runat="server" Text="Ret. ISR" /></td>
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkPlazoCobranza" runat="server" Text="Plazo Cobranza" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkLimiteCredito" runat="server" Text="Límite Crédito" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCalle" runat="server" Text="Calle" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCelular" runat="server" Text="Celular" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCorreoCotizacion" runat="server" Text="Correo Envió Cotización" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkOtroTelefono" runat="server" Text="Otro Telefono" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Checked="true" Text="Permite Crédito" /></td>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="chkFechaLimiteCredito" runat="server" Checked="true" Text="Fecha Limite Crédito" /></td>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<td style="text-align: left"></td>
|
||||
<td style="text-align: left"></td>
|
||||
</tr>
|
||||
</thead>
|
||||
</table>
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6" style="text-align: left">
|
||||
<asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<%--<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>--%>
|
||||
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
<div id="DivUnificarCliente" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user