From 439ddb5213d4eab667da1906778e3045fa48cf4c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 23 Oct 2020 15:55:41 -0700 Subject: [PATCH] =?UTF-8?q?se=20aplic=C3=B3=20retroalimentaci=C3=B3n=20sob?= =?UTF-8?q?re=20el=20nuevo=20grid=20en=20entradas=20de=20almac=C3=A9n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 54 ++++++++++++++++----------------- Inventarios/EntregaAlmacen.aspx | 2 +- RH/Personal.aspx.vb | 6 ++-- Ventas/Clientes.aspx | 6 ++-- Ventas/Clientes.aspx.vb | 16 +++------- 5 files changed, 38 insertions(+), 46 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e3bb58624..df81cf748 100644 --- a/App_Code/ClsVentas.vb +++ b/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 diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 87402f558..4c5689593 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -398,7 +398,7 @@
- Clientes Personal Entrega + Entregas solo a:
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index bd3cbb7b5..f5ce3f4ae 100644 --- a/RH/Personal.aspx.vb +++ b/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() diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 2949da84e..10dc598a2 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -844,7 +844,7 @@
- Clientes Personal Entrega + Entregas solo a:
@@ -6234,10 +6234,10 @@
-
+ <%--
-
+
--%>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ef37eadcd..1b31514dd 100644 --- a/Ventas/Clientes.aspx.vb +++ b/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()