Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -5949,11 +5949,13 @@
|
||||
txt.value = toFixed(ToDouble(DifSaldo * TCC), 2);
|
||||
}
|
||||
|
||||
let difFinal = (DifSaldo - importevalue) * TCC;
|
||||
|
||||
if (txtComision !== undefined && txtComision !== null) {
|
||||
let difFinal = (DifSaldo - importevalue) * TCC;
|
||||
if (difFinal > 0 && difFinal < 1) {
|
||||
txtComision.value = toFixed(roundToTwo(difFinal), 2);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
} else {
|
||||
|
||||
@@ -9780,6 +9780,12 @@ Partial Class Compras_Compras
|
||||
Dim tTCFecha As Double = If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.CveEmpresa.Contiene(13, 83) Then
|
||||
|
||||
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("chkAnt(this,{0},{1},{2},{3},{4},{5},{6},{7});",
|
||||
e.Row.FCTextBox("TxtAnticipo").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
@@ -9793,8 +9799,6 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.CveEmpresa.Contiene(13, 83) Then
|
||||
|
||||
e.Row.FCTextBox("TxtAnticipo").Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1},{2},{3},{4},{5},{6});",
|
||||
e.Row.FCCheckBox("Chk").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
@@ -9813,6 +9817,17 @@ Partial Class Compras_Compras
|
||||
DdlMoneda.SelectedValue.ToEntero,
|
||||
e.Row.FCTextBox("TxtAnticipo").ClientID))
|
||||
Else
|
||||
|
||||
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("chkAnt(this,{0},{1},{2},{3},{4},{5},{6});",
|
||||
e.Row.FCTextBox("TxtAnticipo").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, CompraSaldo, ImporteAmortizacion),
|
||||
e.Row.DBCampo("CveMoneda"),
|
||||
e.Row.DBCampo("TCCompra").ToDouble,
|
||||
DdlMoneda.SelectedValue,
|
||||
IIf(DdlMoneda.SelectedValue = "1", 1, TxtTC.Text)
|
||||
)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
|
||||
e.Row.FCTextBox("TxtAnticipo").Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1},{2},{3},{4},{5});",
|
||||
e.Row.FCCheckBox("Chk").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
|
||||
@@ -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()
|
||||
@@ -1063,6 +1068,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
If CargaBitacora Then
|
||||
CargaBitacoraSerie()
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -4352,8 +4358,14 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
Private Sub RecargaporAlmacenes()
|
||||
If DdlAlmacen.SelectedValue <> "-1" Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
CargaGvDatos(False)
|
||||
Else
|
||||
CargaGvDatos()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnImprimirSugerencias_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -2646,6 +2646,10 @@ Partial Class OC_OC
|
||||
End Function
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
If Not ValidaTotales() Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'VALIDACIONES PARA GUARDAR
|
||||
If ValidaGuardar() Then Exit Sub
|
||||
|
||||
@@ -2653,6 +2657,8 @@ Partial Class OC_OC
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim MsgError As String = "Hubo un error al registrar"
|
||||
'VARIABLES
|
||||
Dim CveProveedorSucursal As Integer = -1
|
||||
@@ -3348,6 +3354,30 @@ Partial Class OC_OC
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function ValidaTotales() As Boolean
|
||||
|
||||
Dim Subtotal As Decimal = DtDetalle.SUMD("Total", "Total > 0") + DtDetalle.SUMD("Descuento")
|
||||
Dim Descuento As Decimal = DtDetalle.SUMD("Descuento").RoundSQL
|
||||
Dim SubTotalIEPSIVA As Decimal = DtDetalle.SUMD("IEPSPSIVA")
|
||||
Dim IVA As Decimal = DtDetalle.SUMD("IVA") + SubTotalIEPSIVA
|
||||
Dim SubTotalIEPS As Decimal = DtDetalle.SUMD("IEPSPS")
|
||||
Dim SubTotalRetIVA As Decimal = DtDetalle.SUMD("RetIVA")
|
||||
Dim SubTotalRetISR As Decimal = DtDetalle.SUMD("RetISR")
|
||||
|
||||
Dim Total As Decimal = (Subtotal - Descuento + IVA + SubTotalIEPS - SubTotalRetIVA - SubTotalRetISR)
|
||||
Dim Diferencia As Decimal = (Total - LblTotal.Text.ToDecimal).RoundSQL(2)
|
||||
|
||||
If Math.Abs(Diferencia) > 0 Then
|
||||
Alert($"Existe una diferencia de {Diferencia.ToString("###,###,###.00")} entre el Total y las Partidas.", TipoMensaje.MsgAdvertencia)
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Protected Function GeneraOrdenes(ByRef objOrdenCompra As ClsOC, Conta As ClsContPAQi, ByRef ObjInventarios As ClsInventarios) As Boolean
|
||||
|
||||
'If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
|
||||
|
||||
@@ -17,9 +17,7 @@
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar</asp:HyperLink>
|
||||
</li>
|
||||
<%--<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivCorporativo" ID="HyperLink1" runat="server"> <i class="fa fa-building"></i> Agregar Corporativo</asp:HyperLink>
|
||||
</li>--%>
|
||||
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivUnificarCliente" ID="ImgUnificar" runat="server" Visible="false"> <i class="fa fa-pencil"></i> Unificar Clientes</asp:HyperLink>
|
||||
</li>
|
||||
@@ -35,28 +33,27 @@
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="portlet solid grey-cascade portlet-filter">
|
||||
<div class="portlet-title portlet-filterT portletfiltrostitlee">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="LbFiltrar" runat="server" CausesValidation="true" CssClass=" btn btn-primary " Text="Consultar" ValidationGroup="GrpFiltrar"></asp:Button>
|
||||
|
||||
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||
|
||||
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||
</div>
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="font-size: medium; max-width: 100px!important">Nombre:</div>
|
||||
<div class="col-md-2 " style="max-width: 283px!important">
|
||||
<div class="row" style="height: 32px;">
|
||||
|
||||
<div class="col-md-1 truncate" >Nombre:</div>
|
||||
<div class="col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:TextBox ID="TxtNombre" runat="server" Style="display: inline-block;" CssClass=" form-control input-sm select2me" CausesValidation="true" MaxLength="30" ValidationGroup="GrpFiltrar" Width="100%"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 " style="font-size: medium; max-width: 100px!important">RFC:</div>
|
||||
<div class=" col-md-2 " style="max-width: 283px!important">
|
||||
<div class="col-md-1 truncate" >RFC:</div>
|
||||
<div class=" col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:TextBox ID="TxtRFC" runat="server" Style="display: inline-block;" CssClass=" form-control input-sm select2me" CausesValidation="true" MaxLength="40" ValidationGroup="GrpFiltrar" Width="100%"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 " style="font-size: medium; max-width: 100px!important">Estatus:</div>
|
||||
<div class=" col-md-2 " style="max-width: 283px!important">
|
||||
<div class="col-md-1 truncate" >Estatus:</div>
|
||||
<div class=" col-md-1 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
<asp:ListItem Selected="True" Value="1">Activo</asp:ListItem>
|
||||
@@ -64,8 +61,19 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1">
|
||||
<%--<div class="col-md-1">
|
||||
<asp:CheckBox runat="server" ID ="ChkPermiteCredito" CssClass="md-checksd" Text="Permite Crédito" />
|
||||
</div>--%>
|
||||
|
||||
<div class="col-md-1 truncate">
|
||||
Permite Crédito:
|
||||
</div>
|
||||
<div class="col-md-1 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlPermiteCredito" runat="server" CssClass=" form-control input-sm select2me" Width="100%">
|
||||
<asp:ListItem Selected="True" Value="-1">Todos</asp:ListItem>
|
||||
<asp:ListItem Value="1">Si</asp:ListItem>
|
||||
<asp:ListItem Value="0">No</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
@@ -75,18 +83,18 @@
|
||||
|
||||
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
|
||||
<div class="row">
|
||||
<div class="col-md-1 " style="font-size: medium; max-width: 100px!important">Sucursal:</div>
|
||||
<div class=" col-md-2 " style="max-width: 283px!important">
|
||||
<div class="col-md-1 truncate" >Sucursal:</div>
|
||||
<div class=" col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlSubProyecto" runat="server" DataValueField="CveSubProyecto" DataTextField="SubProyecto" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1 " style="font-size: medium; max-width: 100px!important">Clasif:</div>
|
||||
<div class=" col-md-2 " style="max-width: 283px!important">
|
||||
<div class="col-md-1 truncate" >Clasificación:</div>
|
||||
<div class=" col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1 " style="font-size: medium; max-width: 100px!important">Tipo:</div>
|
||||
<div class=" col-md-2 " style="max-width: 283px!important">
|
||||
<div class="col-md-1 truncate" >Tipo:</div>
|
||||
<div class=" col-md-1 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
|
||||
<asp:ListItem Value="-1">Todos</asp:ListItem>
|
||||
<asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
|
||||
@@ -94,10 +102,10 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 truncate" style="font-size: medium; max-width: 100px!important">
|
||||
<div class="col-md-1 truncate" >
|
||||
Vendedor:
|
||||
</div>
|
||||
<div class="col-md-2 " style="max-width: 283px!important">
|
||||
<div class="col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" ValidationGroup="GrpFiltrar" CssClass=" form-control input-sm select2me" Width="100%">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
@@ -105,6 +113,7 @@
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
@@ -121,8 +130,9 @@
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="portlet-body">
|
||||
<table class="table table-striped" style="border: 1px solid #D3D3D3; min-width: 985px; width: 100%; display: none;">
|
||||
|
||||
|
||||
<%-- <table class="table table-striped" style="border: 1px solid #D3D3D3; min-width: 985px; width: 100%; display: none;">
|
||||
<thead>
|
||||
<tr class="Titulos">
|
||||
<th width="100px">
|
||||
@@ -175,12 +185,13 @@
|
||||
</th>
|
||||
</tr>
|
||||
</thead>
|
||||
</table>
|
||||
</table>--%>
|
||||
|
||||
<div style="">
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Clientes registrados" ShowHeader="true"
|
||||
DataKeyNames="FechaLimiteCredito"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField Visible="true" ItemStyle-Width="100" HeaderText="Código">
|
||||
<ItemTemplate>
|
||||
@@ -319,13 +330,6 @@
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<%--<asp:TemplateField Visible="false">
|
||||
<HeaderTemplate>CIE</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCIE" runat="server" Text='<%# Eval("ConvenioCIE") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
|
||||
<asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Left">
|
||||
<HeaderTemplate>Calle</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
@@ -351,21 +355,30 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField Visible="true" ItemStyle-HorizontalAlign="center" ItemStyle-Width="100px">
|
||||
<HeaderTemplate>F Limite Crédito</HeaderTemplate>
|
||||
<HeaderTemplate>Permite Crédito</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaLimiteCredito" runat="server" ></asp:Literal>
|
||||
<asp:Literal ID="LtlPermiteCredito" runat="server" Text='<%# Eval("PermiteCreditoStr") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField Visible="true" ItemStyle-HorizontalAlign="center" ItemStyle-Width="100px">
|
||||
<HeaderTemplate>F Limite Crédito</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaLimiteCredito" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel ID="UPPersonalizar" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
@@ -454,28 +467,43 @@
|
||||
<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>
|
||||
<td style="text-align: left">
|
||||
</td>
|
||||
|
||||
<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">
|
||||
<asp:UpdatePanel ID="UpUnificar" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
@@ -553,7 +581,7 @@
|
||||
</asp:Panel>
|
||||
|
||||
|
||||
<%-- FIN OC X SURTIR --%>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
@@ -41,6 +41,10 @@ Partial Class CatClientes
|
||||
|
||||
|
||||
Me.Form.DefaultButton = LbFiltrar.UniqueID
|
||||
|
||||
|
||||
CargaPersonalizacion()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -55,7 +59,10 @@ Partial Class CatClientes
|
||||
|
||||
If TxtRFC.Text.Trim <> String.Empty Then RFC = TxtRFC.Text.Trim
|
||||
|
||||
If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then
|
||||
'If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then
|
||||
If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero) Then
|
||||
|
||||
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
DTDatos = ObjClientes.DtResultados
|
||||
Else
|
||||
@@ -124,48 +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 = chkFechaLimiteCredito.Checked
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
CargaDatos()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||
@@ -302,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