From 20e28967035dab92747fb7e802ab7a7b75057ffc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 22 Oct 2020 18:53:59 -0700 Subject: [PATCH 1/7] nuevo grid en Entrega almacen y Clientes para usaurios autorizados para entregar al clientte --- App_Code/ClsVentas.vb | 69 ++++++++++++++++++++++++ Inventarios/EntregaAlmacen.aspx | 84 +++++++++++++++++++++++------- Inventarios/EntregaAlmacen.aspx.vb | 24 +++++++-- Ventas/Clientes.aspx | 71 +++++++++++++++++++++++++ Ventas/Clientes.aspx.vb | 74 ++++++++++++++++++++++++++ 5 files changed, 301 insertions(+), 21 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 474a9d366..e3bb58624 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4591,6 +4591,75 @@ Public Class ClsVentas End Try Return retorno End Function + + Public Function GetClientesPersonalEntrega(CvePersonalEntrega As Integer, CveCliente As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalEntrega", SqlDbType.Int).Value = CvePersonalEntrega + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los clientes personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function AddClientesPersonalEntrega(PersonalEntrega As String, CveCliente As Integer, CveUsuario As Integer, Estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@PersonalEntrega", SqlDbType.NVarChar).Value = PersonalEntrega + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function UpdateClientesPersonalEntrega(CvePersonalEntrega As Integer, PersonalEntrega As String, CveUsuario As Integer, Estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaUpdate", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalEntrega", SqlDbType.Int).Value = CvePersonalEntrega + .Add("@PersonalEntrega", SqlDbType.NVarChar).Value = PersonalEntrega + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function RemoveClientesPersonalEntrega(CvePersonalEntrega As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ClientesPersonalEntregaDelete", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalEntrega", SqlDbType.Int).Value = CvePersonalEntrega + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el personal entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function #Region "Conciliación emitidas SAT" Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index f3198fa5e..87402f558 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" enableEventValidation="false" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" EnableEventValidation="false" %> @@ -31,12 +31,12 @@ .gvEscondeColumna tr td:nth-child(3) { display: none; - width:0px; + width: 0px; } .gvEscondeColumna tr th:nth-child(3) { display: none; - width:0px; + width: 0px; } .btn.default:hover { @@ -69,6 +69,10 @@ + + + + <%----%> @@ -76,6 +80,10 @@ + + + + @@ -244,14 +252,14 @@ - - - - - - - ver detalle de entrega - + + + + + + + ver detalle de entrega + @@ -292,6 +300,10 @@ + + + + Sucursal: @@ -379,6 +391,39 @@ + + <%--PERSONAL ENTREGA--%> +
+
+
+
+ + Clientes Personal Entrega +
+
+
+ + + + + + <%----%> + <%-- + + + + + --%> + + + + + +
+ +
+
@@ -408,7 +453,7 @@
- +
@@ -437,10 +482,10 @@ - + <%--GV DATOS--%> + DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None"> @@ -452,11 +497,11 @@ - + - + - + @@ -721,6 +766,7 @@
Cantidad +
@@ -763,6 +809,8 @@ Cant.: + +
@@ -885,7 +933,7 @@ # Cajas: - + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index ec68fe2b0..ae40df21d 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -575,6 +575,7 @@ Partial Class Inventarios_EntregaAlmacen CveContrato = DtDatos.Rows(0)("CveContrato").ToString.ToEntero CveVendedor = DtDatos.Rows(0)("CveVendedor").ToString.ToEntero CveCliente = DtDatos.Rows(0)("CveCliente").ToString.ToEntero + ClienteEntregaPersonal(CveCliente) CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString.ToEntero EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString) @@ -3774,8 +3775,25 @@ Partial Class Inventarios_EntregaAlmacen ElseIf RbEntregaInterna.Checked Then 'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')") End If - End Sub + End Sub #End Region - - + +#Region "Cliente entrega personal" + Private Sub ClienteEntregaPersonal(CveCliente As Integer) + Dim ObjVentas As New ClsVentas() + If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, 1) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados + GvClentesPersonalEntrega.DataBind() + DivPersonalEntrega.Visible = True + Else + DivPersonalEntrega.Visible = False + End If + End If + ObjVentas.Dispose() + UpClentesPersonalEntrega.Update() + End Sub +#End Region + + End Class diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index a52d606c4..2949da84e 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -840,6 +840,38 @@
+
+
+
+ + Clientes Personal Entrega +
+
+
+ +
+
+
+
+ + + + + + + + + + + + + + + + +
+
@@ -6185,6 +6217,45 @@ <%-- FIN MODAL MODIFICAR PRECIOS PS --%> + + <%--MODAL PARA AGREGAR Cliente Personal Entrega--%> + + <%--FIN MODAL CLIENTE PERSONAL ENTREGA--%> diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e52200ec9..ef37eadcd 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -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 From f305e59824cb04261c6e232b9d1041615c8a374a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 21:28:10 -0700 Subject: [PATCH 2/7] --globaldtbancoscuentas, filtro de tipocuenta --- App_Code/ClsPaginas.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a1583a93a..09df9fe34 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1490,7 +1490,7 @@ Public Class ClsPaginas ' Application("GlobalDTBancosCuentas") = value ' End Set 'End Property - Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) 'sino existe, recarga los datos @@ -1506,6 +1506,7 @@ Public Class ClsPaginas Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario) + If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta) If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta) If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo")) From 225d25708b600ed873d95ac89b019f56f4480ca0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 23:27:19 -0700 Subject: [PATCH 3/7] -- cambio en carga de proyecciones --- Inventarios/KardexAlmacenHorizontal.aspx | 6 +++--- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 6e64d0cb0..3ccaa1725 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -93,7 +93,7 @@ Generar Excel
  • - +
    • @@ -200,8 +200,8 @@
    - - + +
    diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 105d2bca4..9179c58de 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -344,7 +344,7 @@ Partial Class Inventarios_KardexAlmacen End Sub - Protected Sub LnkProyectos_Click(sender As Object, e As EventArgs) + Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion")) End Sub From ba44cd7046e93837b5427077e048d6f991b85b66 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 23:28:04 -0700 Subject: [PATCH 4/7] -- filtro de globaldtbancoscuetnas, filtro por tipo de cuenta -- correcion de error de usaAC, para el registro incompleto de poliza contable --- Ventas/ClientesAbonar.aspx.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 522572c9d..98735344f 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar Private Sub CargaCuentas() DdlCuenta.Items.Clear() - Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2) If ChkPagarPesos.Checked Then dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) @@ -1730,9 +1730,14 @@ Partial Class Ventas_ClientesAbonar ErrorAC = True End If - ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) + If Not ErrorAC Then + ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) + End If + + If Not ErrorAC Then + ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) + End If - ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) End If End If From 7b150c69db0ab012aaff6cab87da9bb360a0bc2e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 23 Oct 2020 12:59:15 -0700 Subject: [PATCH 5/7] --- Nomina/Aguinaldo.aspx.cs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index 51805038c..c0d0f5939 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -111,6 +111,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas int CvePeriodo; decimal ImporteGravado = 0; decimal ImporteExento = 0; + decimal ImporteValor = 0; //string NombrePersonal = ""; int CveMetodoPago = 0; int CveNomina = 0; @@ -167,6 +168,8 @@ public partial class Nomina_Aguinaldo : ClsPaginas Importe = row["Aguinaldo"].ToString().ToDecimal(); ImporteGravado = row["AguinaldoGravado"].ToString().ToDecimal(); ImporteExento = Importe - ImporteGravado; + ImporteValor = row["DiasLaborados"].ToString().ToDecimal(); + if (CvePersonal > 0 && Importe>0 && row["CveNomina"].ToString().ToEntero()==0) { @@ -196,7 +199,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas if (CveNomina > 0) { - if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, UsuarioActual.CveUsuario)) + if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario)) { continuar = false; } From 439ddb5213d4eab667da1906778e3045fa48cf4c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 23 Oct 2020 15:55:41 -0700 Subject: [PATCH 6/7] =?UTF-8?q?se=20aplic=C3=B3=20retroalimentaci=C3=B3n?= =?UTF-8?q?=20sobre=20el=20nuevo=20grid=20en=20entradas=20de=20almac=C3=A9?= =?UTF-8?q?n?= 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() From f88a4bdb3e3a9d0893027ececb5ddd698b0bc8a7 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 23 Oct 2020 18:25:30 -0700 Subject: [PATCH 7/7] nuevo campo de tiempo caducidad agregado --- App_Code/ClsProductosServicios.vb | 6 ++++-- Ventas/ProductosServicios.aspx | 20 ++++++++++++++------ Ventas/ProductosServicios.aspx.vb | 22 +++++++++++++++++++--- 3 files changed, 37 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 9d400ef08..159317562 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -404,7 +404,7 @@ Public Class ClsProductosServicios Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, - Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Integer + Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -483,6 +483,7 @@ Public Class ClsProductosServicios .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion + .Add("@TiempoCaducidad", SqlDbType.SmallInt).Value = TiempoCaducidad End With Try @@ -629,7 +630,7 @@ Public Class ClsProductosServicios Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, - Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Boolean + Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -710,6 +711,7 @@ Public Class ClsProductosServicios .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion + .Add("@TiempoCaducidad", SqlDbType.SmallInt).Value = TiempoCaducidad End With Try diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index e3ff10271..9ce597ef4 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -849,6 +849,14 @@
    +
    + +
    + + + +
    +
    @@ -861,16 +869,16 @@
    - +
    -
    - +
    +
    - - - + + +
    diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index ae6e57cc4..09381fd6c 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1190,6 +1190,16 @@ Partial Class ProductosyServicios Dim CveMarca As Integer = 0 If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero + Dim TiempoCaducidad As Integer = -1 + If ChkCaducidad.Checked Then + If TxtTiempoCaducidad.Text.Length > 0 AndAlso IsNumeric(TxtTiempoCaducidad.Text) Then + TiempoCaducidad = TxtTiempoCaducidad.Text.ToEntero() + Else + Alert("Falta indicar el tiempo de caducidad", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + If CvePS = -1 Then Dim PSS As String = TxtPS.Text.Trim.Replace("|", "") If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper @@ -1204,7 +1214,7 @@ Partial Class ProductosyServicios CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, - ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked) > 0 Then + ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1250,7 +1260,7 @@ Partial Class ProductosyServicios CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, - AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked) Then + AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True @@ -1411,7 +1421,7 @@ Partial Class ProductosyServicios Dim ObjAliasDelete As New ClsProductosServicios Dim TieneError = False - If ObjAliasDelete.RemovePSAlias(GVAlias.Rows(e.RowIndex).DataKey("CvePS").ToString.ToEntero, GVAlias.Rows(e.RowIndex).DataKey("PSAlias").ToString) Then + If ObjAliasDelete.RemovePSAlias(GVAlias.Rows(e.RowIndex).DataKey("CvePS").ToString.ToEntero, GVAlias.Rows(e.RowIndex).DataKey("PSAlias").ToString, -1) Then GVAlias.EditIndex = -1 CargarAlias() UPGVAlias.Update() @@ -2731,4 +2741,10 @@ Partial Class ProductosyServicios End If Return Existencia > 0 End Function + + Protected Sub ChkCaducidad_CheckedChanged(sender As Object, e As EventArgs) + Dim Activar As Boolean = ChkCaducidad.Checked + DivTiempoCaducidad.Visible = Activar + RfvTxtTiempoCaducidad.Enabled = Activar + End Sub End Class