nuevo grid en Entrega almacen y Clientes para usaurios autorizados para entregar al clientte
This commit is contained in:
Antonio Gonzalez
@@ -840,6 +840,38 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Clientes Personal Entrega</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton runat="server" ID="BtnAgregarClientePersonalEntrega" data-toggle="tooltip" data-placement="right" title="Agregar dirección de envio." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<asp:UpdatePanel runat="server" ID="UpClentesPersonalEntrega" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvClentesPersonalEntrega" runat="server" Width="100%" GridLines="None" DataKeyNames="CvePersonalEntrega,PersonalEntrega,Nombre,CveUsuario,Usuario,FechaIng,Estatus,Estado"
|
||||
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de direcciones de envio">
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Personal" DataField="PersonalEntrega" ItemStyle-Width="80%"/>
|
||||
<asp:BoundField HeaderText="Estatus" DataField="Estado" ItemStyle-Width="10%"/>
|
||||
<asp:TemplateField HeaderText="Acciones" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="EditClientesPersonalEntrega_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="DeleteClientesPersonalEntrega_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -6185,6 +6217,45 @@
|
||||
</div>
|
||||
</div>
|
||||
<%-- FIN MODAL MODIFICAR PRECIOS PS --%>
|
||||
|
||||
<%--MODAL PARA AGREGAR Cliente Personal Entrega--%>
|
||||
<div id="DivModalClientePersonalEntrega" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpClientePersonalEntrega" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H3" runat="server">Cliente Personal Entrega</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox runat="server" ID="TxtPersonalEntrega" CssClass="form-control" MaxLength="70" CausesValidation="true" />
|
||||
<label for="TxtPersonalEntrega">Personal Entrega:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<label for="DdlUsuarioEntrega">Usuario:</label>
|
||||
<asp:DropDownList runat="server" ID="DdlUsuarioEntrega" DataTextField="Usuario" DataValueField="CveUsuario" CssClass="select2me" Width="100%"/>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<label for="ChkPersonalEntrega">Estatus:</label>
|
||||
<asp:CheckBox runat="server" ID="ChkPersonalEntrega" CssClass="make-switchsd" data-size="small" Text=" " />
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="LnkClientePersonalEntrega" runat="server" CssClass="btn btn-success" Text="Agregar" OnClick="LnkClientePersonalEntrega_Click"></asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
<%--FIN MODAL CLIENTE PERSONAL ENTREGA--%>
|
||||
</asp:Content>
|
||||
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
@@ -48,6 +48,15 @@ Partial Class Clientes
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveClientePersonalEntrega As Integer
|
||||
Get
|
||||
Return ViewState("CveClientePersonalEntrega").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveClientePersonalEntrega") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property Modalidad As String
|
||||
Get
|
||||
Return ViewState("Modalidad").ToString
|
||||
@@ -1743,6 +1752,9 @@ Partial Class Clientes
|
||||
|
||||
TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
|
||||
TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
|
||||
|
||||
CargarClientePersonalEntrega()
|
||||
CargarUsuariosEntrega()
|
||||
Else
|
||||
Existe = False
|
||||
Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -10216,5 +10228,67 @@ Partial Class Clientes
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargarUsuariosEntrega()
|
||||
DdlUsuarioEntrega.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
DdlUsuarioEntrega.DataBind()
|
||||
DdlUsuarioEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargarClientePersonalEntrega()
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
|
||||
GvClentesPersonalEntrega.DataBind()
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
|
||||
TxtPersonalEntrega.Text = ""
|
||||
DdlUsuarioEntrega.SelectedValue = "-1"
|
||||
ChkPersonalEntrega.Checked = False
|
||||
UpClientePersonalEntrega.Update()
|
||||
RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkClientePersonalEntrega_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If LnkClientePersonalEntrega.Text = "Agregar" Then
|
||||
If ObjVentas.AddClientesPersonalEntrega(TxtPersonalEntrega.Text, CveCliente, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then
|
||||
Alert("Usuario para entregar agregado correctamente")
|
||||
End If
|
||||
Else
|
||||
If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then
|
||||
Alert("Usuario para entregar actualizado correctamente")
|
||||
End If
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
RegistraScript("$('#DivModalClientePersonalEntrega').modal('hide');")
|
||||
CargarClientePersonalEntrega()
|
||||
UpClentesPersonalEntrega.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub EditClientesPersonalEntrega_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
||||
CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero
|
||||
TxtPersonalEntrega.Text = GvRow.DataKey("PersonalEntrega")
|
||||
DdlUsuarioEntrega.SelectedValue = GvRow.DataKey("CveUsuario")
|
||||
ChkPersonalEntrega.Checked = GvRow.DataKey("Estatus") = "True"
|
||||
LnkClientePersonalEntrega.Text = "Actualizar"
|
||||
UpClientePersonalEntrega.Update()
|
||||
RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub DeleteClientesPersonalEntrega_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.RemoveClientesPersonalEntrega(GvRow.DataKey("CvePersonalEntrega").ToEntero) Then
|
||||
Alert("Usuario para entregar eliminado correctamente")
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
CargarClientePersonalEntrega()
|
||||
UpClentesPersonalEntrega.Update()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user