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()
|
LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
|
||||||
CveVentaSurtir = CveVenta
|
CveVentaSurtir = CveVenta
|
||||||
CveOSSurtir = CveOS
|
CveOSSurtir = CveOS
|
||||||
|
|
||||||
|
If TipoDocto = "Ped" And CveOSSurtir <= 0 Then
|
||||||
|
CveOSSurtir = drE("CveOS").ToString().ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero
|
CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero
|
||||||
CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).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()
|
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
|
If CargaBitacora Then
|
||||||
CargaBitacoraSerie()
|
CargaBitacoraSerie()
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -374,116 +374,135 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
|
||||||
<div class="modal-dialog">
|
|
||||||
|
|
||||||
<!-- Modal content-->
|
<asp:UpdatePanel ID="UPPersonalizar" runat="server" UpdateMode="Conditional">
|
||||||
<div class="modal-content">
|
<ContentTemplate>
|
||||||
<div class="modal-header">
|
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
<div class="modal-dialog">
|
||||||
<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">
|
<!-- Modal content-->
|
||||||
<asp:CheckBox ID="ChkNoExt" runat="server" Text="No Ext" /></td>
|
<div class="modal-content">
|
||||||
<td style="text-align: left">
|
<div class="modal-header">
|
||||||
<asp:CheckBox ID="ChkNoInt" runat="server" Text="No Int" /></td>
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
</tr>
|
<h4 class="modal-title">
|
||||||
<tr>
|
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||||
<td style="text-align: left">
|
</div>
|
||||||
<asp:CheckBox ID="ChkColonia" runat="server" Text="Colonia" /></td>
|
<div class="modal-body">
|
||||||
<td style="text-align: left">
|
<table class="table table-striped table-advance table-hover">
|
||||||
<asp:CheckBox ID="ChkCiudad" runat="server" Text="Ciudad" /></td>
|
<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">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkEstado" runat="server" Text="Estado" /></td>
|
<asp:CheckBox ID="ChkNoExt" runat="server" Text="No Ext" /></td>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkPais" runat="server" Text="País" /></td>
|
<asp:CheckBox ID="ChkNoInt" runat="server" Text="No Int" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkCP" runat="server" Text="C.P." /></td>
|
<asp:CheckBox ID="ChkColonia" runat="server" Text="Colonia" /></td>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkContacto" runat="server" Text="Contacto" /></td>
|
<asp:CheckBox ID="ChkCiudad" runat="server" Text="Ciudad" /></td>
|
||||||
|
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkMail" runat="server" Text="Correo Envió Facturación" /></td>
|
<asp:CheckBox ID="ChkEstado" runat="server" Text="Estado" /></td>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkRecepcionFacturas" runat="server" Text="Recepción Facturas" /></td>
|
<asp:CheckBox ID="ChkPais" runat="server" Text="País" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
|
<asp:CheckBox ID="ChkCP" runat="server" Text="C.P." /></td>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkRetISR" runat="server" Text="Ret. ISR" /></td>
|
<asp:CheckBox ID="ChkContacto" runat="server" Text="Contacto" /></td>
|
||||||
|
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkPlazoCobranza" runat="server" Text="Plazo Cobranza" /></td>
|
<asp:CheckBox ID="ChkMail" runat="server" Text="Correo Envió Facturación" /></td>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkLimiteCredito" runat="server" Text="Límite Crédito" /></td>
|
<asp:CheckBox ID="ChkRecepcionFacturas" runat="server" Text="Recepción Facturas" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkCalle" runat="server" Text="Calle" /></td>
|
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
|
||||||
<td style="text-align: left">
|
<td style="text-align: left">
|
||||||
<asp:CheckBox ID="ChkCelular" runat="server" Text="Celular" /></td>
|
<asp:CheckBox ID="ChkRetISR" runat="server" Text="Ret. ISR" /></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>
|
|
||||||
|
|
||||||
</div>
|
<td style="text-align: left">
|
||||||
<div class="modal-footer">
|
<asp:CheckBox ID="ChkPlazoCobranza" runat="server" Text="Plazo Cobranza" /></td>
|
||||||
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
|
<td style="text-align: left">
|
||||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
<asp:CheckBox ID="ChkLimiteCredito" runat="server" Text="Límite Crédito" /></td>
|
||||||
</div>
|
</tr>
|
||||||
</div>
|
<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>
|
<td style="text-align: left"></td>
|
||||||
</div>
|
<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 id="DivUnificarCliente" class="modal ADS fade" role="dialog">
|
||||||
<div class="modal-dialog">
|
<div class="modal-dialog">
|
||||||
|
|||||||
@@ -41,6 +41,10 @@ Partial Class CatClientes
|
|||||||
|
|
||||||
|
|
||||||
Me.Form.DefaultButton = LbFiltrar.UniqueID
|
Me.Form.DefaultButton = LbFiltrar.UniqueID
|
||||||
|
|
||||||
|
|
||||||
|
CargaPersonalizacion()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -127,49 +131,7 @@ Partial Class CatClientes
|
|||||||
End Sub
|
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
|
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
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user