se aplicó retroalimentación sobre el nuevo grid en entradas de almacén

Ventas/Clientes.aspx

@@ -844,7 +844,7 @@
                                     <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>
+                                            <span class="caption-subject bold uppercase">Entregas solo a:</span>
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
@@ -6234,10 +6234,10 @@
                             <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">
+                        <%--<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>--%>
                         <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=" " />

Ventas/Clientes.aspx.vb

@@ -1754,7 +1754,6 @@ Partial Class Clientes
                 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)
@@ -10229,12 +10228,6 @@ Partial Class Clientes
 
     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
@@ -10246,8 +10239,8 @@ Partial Class Clientes
 
     Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
         TxtPersonalEntrega.Text = ""
-        DdlUsuarioEntrega.SelectedValue = "-1"
-        ChkPersonalEntrega.Checked = False
+        ChkPersonalEntrega.Checked = True
+        LnkClientePersonalEntrega.Text = "Agregar"
         UpClientePersonalEntrega.Update()
         RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');")
     End Sub
@@ -10255,11 +10248,11 @@ Partial Class Clientes
     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
+            If ObjVentas.AddClientesPersonalEntrega(TxtPersonalEntrega.Text, CveCliente, UsuarioActual.CveUsuario, ChkPersonalEntrega.Checked) Then
                 Alert("Usuario para entregar agregado correctamente")
             End If
         Else
-            If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then
+            If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, UsuarioActual.CveUsuario, ChkPersonalEntrega.Checked) Then
                 Alert("Usuario para entregar actualizado correctamente")
             End If
         End If
@@ -10273,7 +10266,6 @@ Partial Class Clientes
         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()