From 20e28967035dab92747fb7e802ab7a7b75057ffc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 22 Oct 2020 18:53:59 -0700 Subject: [PATCH] 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