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

App_Code/ClsVentas.vb

@@ -107,40 +107,40 @@ Public Class ClsVentas
         Data = New DataTable
     End Sub
 
-#Region "Conexiones"
+#Region "Conexiones"
 
-    Private Sub ConexionAdd()
-        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+    Private Sub ConexionAdd()
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters
                     .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
                     .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
                     .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
-                End With
-                SqlAdapter.Fill(Data)
-                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub ConexionClose()
-        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-
-            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
-
-            Try
-                SqlAdapter.Fill(Data)
-
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-            CveConexion = 0
-        End If
-
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+            CveConexion = 0
+        End If
+
     End Sub
 #End Region
 

Inventarios/EntregaAlmacen.aspx

@@ -398,7 +398,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>
                                 <div class="portlet-body form">

RH/Personal.aspx.vb

@@ -1002,9 +1002,9 @@ Partial Class RH_Personal
 
     Private Sub CargaTiposContrato()
         Dim dt As DataTable = GlobalDTTiposContrato
-        dt.Columns.Add("txtoddl", GetType(String), "CodigoTipoContrato + ' ' + TipoContrato")
-        DdlTipoContrato.DataSource = dt
-        DdlTipoContrato.DataBind()
+        'dt.Columns.Add("txtoddl", GetType(String), "CodigoTipoContrato + ' ' + TipoContrato")
+        'DdlTipoContrato.DataSource = dt
+        'DdlTipoContrato.DataBind()
     End Sub
 
     Private Sub CargaTurno()

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()