diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index f2506fff7..dcb1ca78e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2849,6 +2849,72 @@ Public Class ClsGenerales Return Retorno End Function + Public Function GetMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("Gral_MotivoRechazoPaqueteriaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddMotivoRechazoPaqueteria(Descripcion As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("Gral_MotivoRechazoPaqueteriaAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("Gral_MotivoRechazoPaqueteriaDelete") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, Optional Descripcion As String = "-1") As Boolean + Dim Retorno As Boolean = False + DataAdapter("Gral_MotivoRechazoPaqueteriaUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria + .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al modificar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #End Region #Region "P A Q U E T E R I A S G U I A S D E T A L L E S" diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 2aa435c09..20d2c9d8f 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -2532,7 +2532,23 @@ Public Class ClsOC End Function #End Region + Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_VentaRelacionada") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la venta relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #Region " IDisposable Support " ' IDisposable diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c856c52ed..cfe34dbcd 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3668,6 +3668,7 @@ Public Class ClsPaginas PaginaDict.Add("/Sistemas/CatPlataformas.aspx".ToUpper(), -1) PaginaDict.Add("/Sistemas/PopUpAddUsuario.aspx".ToUpper(), -1) PaginaDict.Add("/General/JAMComparativos.aspx".ToUpper(), 643) + PaginaDict.Add("/General/CatMotivoRechazoGuias.aspx".ToUpper(), 729) '-------------------------------------------Q U I T A R---------------------------------- #Region "Q U I T A R" diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e9f7496a6..c348cebec 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4462,6 +4462,21 @@ Public Class ClsVentas End Try Return retorno End Function + + Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la orden de compra relacionada", 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/General/CatMotivoRechazoGuias.aspx b/General/CatMotivoRechazoGuias.aspx new file mode 100644 index 000000000..2628a6266 --- /dev/null +++ b/General/CatMotivoRechazoGuias.aspx @@ -0,0 +1,74 @@ +<%@ Page Title="General - Catálogo de motivo de rechazo de guías" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMotivoRechazoGuias.aspx.cs" Inherits="General_CatMotivoRechazoGuias" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Catálogo de Motivos de Rechazo de Paquetes + + + + +
  • + +
    • + +     +     +     + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/General/CatMotivoRechazoGuias.aspx.cs b/General/CatMotivoRechazoGuias.aspx.cs new file mode 100644 index 000000000..73f3ca210 --- /dev/null +++ b/General/CatMotivoRechazoGuias.aspx.cs @@ -0,0 +1,96 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; + +public partial class General_CatMotivoRechazoGuias : ClsPaginas +{ + private int CveMotivoRechazoPaqueteria + { + get + { + return ViewState["CveMotivoRechazoPaqueteria"].ToString().ToEntero(); + } + + set + { + ViewState["CveMotivoRechazoPaqueteria"] = value; + } + } + + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + CargaDatos(); + UpDatos.Update(); + } + } + + private void CargaDatos() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.GetMotivoRechazoPaqueteria(-1,UsuarioActual.CveEmpresa)) + { + GvDatos.DataSource = ObjGeneral.DtResultados; + GvDatos.DataBind(); + } + ObjGeneral.Dispose(); + } + + protected void BtnAgregarMotivoD_Click(object sender, EventArgs e) + { + BtnAgregarTiposDModal.Text = "Agregar"; + UpModalTiposD.Update(); + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")); + } + + protected void LnkEditar_Click(object sender, EventArgs e) + { + BtnAgregarTiposDModal.Text = "Actualizar"; + GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CveMotivoRechazoPaqueteria = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero(); + DescripcionTxt.Text = GvRow.DataKey("Descripcion"); + UpModalTiposD.Update(); + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")); + } + + protected void BtnAgregarTiposDModal_Click(object sender, EventArgs e) + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (BtnAgregarTiposDModal.Text == "Agregar") + { + if (ObjGeneral.AddMotivoRechazoPaqueteria(DescripcionTxt.Text,UsuarioActual.CveEmpresa)) + { + Alert("Motivo Agregado Correctamente"); + } + }else + { + if (ObjGeneral.UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria, DescripcionTxt.Text)) + { + Alert("Motivo Actualizado Correctamente"); + } + } + ObjGeneral.Dispose(); + CargaDatos(); + UpDatos.Update(); + } + + protected void LnkEliminar_Click(object sender, EventArgs e) + { + GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + int CveMotivoRechazoPaqueteriaAux = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero(); + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteriaAux)) + { + Alert("Motivo Eliminado con Correctamente"); + } + ObjGeneral.Dispose(); + CargaDatos(); + UpDatos.Update(); + } +} \ No newline at end of file diff --git a/OC/OC.aspx b/OC/OC.aspx index 340dca446..54e04febc 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -591,7 +591,7 @@ Cliente:
    - + <%-- --%>
    @@ -856,7 +856,7 @@ - @@ -1503,6 +1503,25 @@ +
    +
    +
    +
    + + Venta Relacionada +
    +
    + +
    +
    + + + + + +
    +
    @@ -2558,8 +2577,8 @@
    <%----%> - -<%-- + + <%-- --%>
    @@ -2589,7 +2608,7 @@
    - + @@ -2613,11 +2632,11 @@
    -
    - +
    +

    -
    +
    diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 7e6042a87..5e3c087b2 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -518,6 +518,8 @@ Partial Class OC End If CargaDatos(CveOrdenCompra) + 'CARGA VENTA RELACIONADA + CargaVentaRelacionada() Else EsNuevo = True InicializarValores() @@ -7911,4 +7913,23 @@ Partial Class OC ' Alert("Moneda actualizada con exito") 'End If End Sub + + Private Sub CargaVentaRelacionada() + Dim GridViewPSAux As GridView = GvD + Dim CveOCDetalle As New StringBuilder() + For Each vd As GridViewRow In GridViewPSAux.Rows + Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle") + CveOCDetalle.AppendFormat("{0},", CveVentaDetalle) + Next + Dim ObjVentas As New ClsOC() + If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then + Dim V As DataTable = ObjVentas.DtResultados + If V.Rows.Count > 0 Then + DivVentaRelacionada.Visible = True + GvVentaRelacionadas.DataSource = V + GvVentaRelacionadas.DataBind() + End If + End If + ObjVentas.Dispose() + End Sub End Class diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 280423c98..1e6d4ba18 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3294,6 +3294,19 @@ + + Ordenes de Compra Relacionadas:  + + + + + + + + + + Tipo de Entrega:  diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ae5e7372b..f4e8cc241 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2106,6 +2106,8 @@ Partial Class Ventas DivDevAlm.Visible = True End If + 'CARGA GV DE OC RELACIONADAS + CargarOCRelacionadas() End If Else If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then @@ -25699,4 +25701,24 @@ Partial Class Ventas MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC) MailCls = Nothing End Sub + + Private Sub CargarOCRelacionadas() + Dim GridViewPSAux As GridView = GvPS + Dim CveVentasDetalle As New StringBuilder() + For Each vd As GridViewRow In GridViewPSAux.Rows + Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle") + CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle) + Next + Dim ObjVentas As New ClsVentas() + If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then + Dim OC As DataTable = ObjVentas.DtResultados + If OC.Rows.Count > 0 Then + trOCRelacionadasLabel.Visible = True + trOCRelacionadas.Visible = True + GvOCRelacionadas.DataSource = OC + GvOCRelacionadas.DataBind() + End If + End If + ObjVentas.Dispose() + End Sub End Class \ No newline at end of file