diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index b47b3d317..177fb986e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2659,11 +2659,12 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #Region "P A Q U E T E R I A S G U I A S" Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, - Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True) As Integer + Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True, + Optional EsEntregaInterna As Boolean = False) As Integer Dim Retorno As Integer = -1 @@ -2689,6 +2690,8 @@ Public Class ClsGenerales .Add("@ImplicaCosto", SqlDbType.Bit).Value = IIf(ImplicaCosto = True, 1, 0) .Add("@CvePaqueteriaGuiaTipo", SqlDbType.SmallInt).Value = CvePaqueteriaGuiaTipo + .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -2794,9 +2797,43 @@ Public Class ClsGenerales End Try Return Retorno - End Function -#End Region + End Function + + Public Function GetEntregasPorRealizar(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_EntregasPorRealizarGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_AsignarEntregasPorRealizar") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener entregas por realizar.", 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" Public Function AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia As Integer, CveVenta As Integer, CveOC As Integer, CveMovimiento As Integer, Optional CveCompra As Integer = -1) As Boolean diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 389d0dbed..8d894b822 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4275,6 +4275,7 @@ Public Class ClsPaginas PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) + PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727) #End Region #Region "GPS" @@ -4404,6 +4405,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891) PaginaDict.Add("/Inventarios/AjustesSeccionAlmacen.aspx".ToUpper(), 892) PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688) + PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728) #End Region #Region "MF" diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 9781142c1..07b34e090 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1939,8 +1939,8 @@ Partial Class Contratos_Default LimitarCantidad = Gv.Rows(e.RowIndex).FCCheckBox("ChkLimitarCantidad").Checked Observaciones = Gv.Rows(e.RowIndex).FCTextBox("TxtObservacion").Text.ToString Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalle))(0) - - If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna Then + Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True" + If row("CantidadContratada").ToString.ToEntero <> Cantidad OrElse row("PU").ToString.ToEntero <> PU OrElse CveUM <> row("CveUM").ToString.ToEntero OrElse row("NoIdentificacion").ToString <> NoIdentificacion OrElse row("OCInterna").ToString <> OCInterna OrElse LimitarCantidadValidator <> LimitarCantidad Then Dim ObjContratos As New ClsContratos If ObjContratos.UpdateContratosDetalle(CveContratoDetalle, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, LimitarCantidad, OCInterna, Observaciones) Then @@ -2922,9 +2922,9 @@ Partial Class Contratos_Default End If - If e.Row.DBCampo("SerieLote").ToString = "-1" Then - e.Row.Cells(7).Text = "" - End If + 'If e.Row.DBCampo("SerieLote").ToString = "-1" Then + ' e.Row.Cells(7).Text = "" + 'End If End If End Sub diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx b/General/PopUpPaqueteriasGuiasInternas.aspx new file mode 100644 index 000000000..9b0b9d319 --- /dev/null +++ b/General/PopUpPaqueteriasGuiasInternas.aspx @@ -0,0 +1,127 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="PopUpPaqueteriasGuiasInternas.aspx.cs" Inherits="General_PopUpPaqueteriasGuiasInternas" %> + + + + + + + + + <%--Paqueterías Guías--%>Entrega Interna + + + + + + + + + + + + + + +
<%--Guías Vinculadas--%> Entrega Local
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Estatus: + + <%-- --%> + + + + + + <%-- + --%> +
Fecha: +
+ + + + + + + + + +
+
Fecha Estimada: +
+ + + + + + + +
+
# Cajas: + + +
Observaciones: + +
+ + + + +
+ + + + + + diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx.cs b/General/PopUpPaqueteriasGuiasInternas.aspx.cs new file mode 100644 index 000000000..da9c3af0c --- /dev/null +++ b/General/PopUpPaqueteriasGuiasInternas.aspx.cs @@ -0,0 +1,136 @@ +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; +using System.Text; + +public partial class General_PopUpPaqueteriasGuiasInternas : ClsPaginas +{ + private int CveVenta + { + get + { + return ViewState["CveVenta"].ToString().ToEntero(); + } + + set + { + ViewState["CveVenta"] = value; + } + } + + private int CveSubProyecto + { + get + { + return ViewState["CveSubProyecto"].ToString().ToEntero(); + } + + set + { + ViewState["CveSubProyecto"] = value; + } + } + + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + ((BaseMasterPage)this.Master).EsPopup = true; + RecuperaCve(); + } + } + + protected void RecuperaCve() + { + if (Request["CveVenta"] != null && !Request["CveVenta"].ToString().Equals("") && Request["CveVenta"].ToEntero() > 0) + { + ViewState["CveVenta"] = Request["CveVenta"]; + } + else + { + ViewState["CveVenta"] = -1; + } + + if (Request["CveSubProyecto"] != null && !Request["CveSubProyecto"].ToString().Equals("") && Request["CveSubProyecto"].ToEntero() > 0) + { + ViewState["CveSubProyecto"] = Request["CveSubProyecto"]; + } + else + { + ViewState["CveSubProyecto"] = -1; + } + } + + protected void LimpiaCampos() + { + DdlEstatus.SelectedValue = "1"; + TxtFecha.Text = ""; + TxtFechaEstimada.Text = ""; + TxtNoCajas.Text = ""; + TxtObservaciones.Text = ""; + } + + protected void AgregarNuevaGuia() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + + Boolean TieneError = false; + + ObjGeneral.IniciaTransacSQL(); + + int CveEstatus = DdlEstatus.SelectedValue.ToEntero(); + + String Fecha = TxtFecha.Text; + String FechaEstimada = TxtFechaEstimada.Text == "" ? "-1" : TxtFechaEstimada.Text; + + int NoCajas = TxtNoCajas.Text.ToEntero(); + + String Observaciones = TxtObservaciones.Text; + + int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true); + + if (CvePaqueteriaGuia > 0) + { + if (CveVenta > 0 || CveSubProyecto > 0 ) + { + TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, CveSubProyecto, -1); + } + } + else + { + TieneError = true; + } + + if (TieneError) + { + ObjGeneral.RollBack(); + }else + { + ObjGeneral.Commit(); + LimpiaCampos(); + Alert("Se agrego la paquetería guía correctamente"); + } + ObjGeneral.Dispose(); + } + + public void BtnAgregarGuia_Click(Object sender, EventArgs e) + { + + } + + public void BtnCrearGuia_Click(Object sender, EventArgs e) + { + AgregarNuevaGuia(); + } + + public void BtnLimpiar_Click(Object sender,EventArgs e) + { + LimpiaCampos(); + } +} \ No newline at end of file diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index d81474caf..7928e67d6 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -5,19 +5,19 @@ @@ -48,7 +48,7 @@ -
  • +
  •  
    • @@ -64,10 +64,12 @@
    - +
    @@ -172,7 +174,7 @@
    -
    Cliente: @@ -127,7 +129,7 @@
    Folio: - + <%----%>
    +
    - - - + + + - + - + + + +
    Almacén: @@ -191,7 +193,7 @@ - + @@ -214,13 +216,13 @@
    Transitorio: +
    Transitorio: -
    @@ -229,12 +231,21 @@
    - +
    +
    + + + +
    +
    @@ -269,6 +280,7 @@   + Sucursal: @@ -298,7 +310,7 @@ - + @@ -329,7 +341,7 @@ - + <%--ADVERTENCIA--%>
    @@ -341,20 +353,20 @@
    - - - - - - - - - - - - - - + + + + + + + + + + + + + +
    @@ -410,14 +422,14 @@
    -
    - -
    +
    + +
    <%--GV DATOS--%> - @@ -428,11 +440,11 @@     - + - + @@ -440,8 +452,8 @@ - - + + @@ -450,7 +462,7 @@ - + @@ -459,12 +471,12 @@ - - - - - - + + + + + + @@ -655,7 +667,7 @@ - + @@ -699,6 +711,7 @@
    Cantidad +
    @@ -740,6 +753,7 @@ Cant.: +
    @@ -760,7 +774,7 @@ - +
    -
    - +
    +
    - - + + @@ -785,13 +799,13 @@
    - +
    - +
    @@ -824,7 +838,7 @@ $('#TxtCodigoPS').focus() } - + function playsonidito(NomArchivo) { var URL = /Sonidos/ + NomArchivo @@ -833,7 +847,7 @@ snd.currentTime = 0; } - + function CantidadEspecial() { MuestraCantidadEspecial(); //$('#ModalCantidad').modal('show'); diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 6a429e8f0..d67ae98cc 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -3085,6 +3085,18 @@ Partial Class Inventarios_EntregaAlmacen #End Region +#Region "TipoEntrega" + + Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs) + If RbEntregaExterna.Checked Then + RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')") + ElseIf RbEntregaInterna.Checked Then + RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')") + 'CveVentaSurtir + End If + End Sub + +#End Region End Class diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx new file mode 100644 index 000000000..b660206b0 --- /dev/null +++ b/Inventarios/EntregasPorRealizar.aspx @@ -0,0 +1,102 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="EntregasPorRealizar.aspx.cs" Inherits="Inventarios_EntregasPorRealizar" %> + + + + + + + + + <%--Paqueterías Guías--%>Entrega Interna + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    PERSONAL QUE ENTREGA:
    +
    + +
    +
    +
    +
    +
    +     +     + + + +
    +
    + + ASIGNACIÓN DE ENTREGAS +
    +
    + +
    +
    +
    + + + + +   + + + + +   + + + + + +   + + + + +   + + + + +   + + + + +
    +     +     +     +     + + diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs new file mode 100644 index 000000000..8616bb8d3 --- /dev/null +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -0,0 +1,79 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using System.Data; +using Extensiones; + +public partial class Inventarios_EntregasPorRealizar : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + CargarEntregas(); + CargarPersonal(); + } + } + + protected void BtnAsignar_Click(object sender,EventArgs e) + { + if (DdlPersonal.SelectedValue.ToEntero() > 0) + { + bool TieneError = false; + ClsGenerales ObjGeneral = new ClsGenerales(); + ObjGeneral.IniciaTransacSQL(); + GridViewRowCollection Grid = GvPaqueteriasGuias.Rows; + + foreach (GridViewRow row in Grid) + { + if (row.FCCheckBox("ChkAsigna").Checked) + { + int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); + int CvePersonal = DdlPersonal.SelectedValue.ToEntero(); + + if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal)){ + TieneError = true; + } + } + } + + if (!TieneError) + { + ObjGeneral.Commit(); + Alert("Entregas asignadas correctamente"); + CargarEntregas(); + UpDatos.Update(); + } + else + { + ObjGeneral.RollBack(); + } + ObjGeneral.Dispose(); + } + else + { + Alert("Seleccione a alguien del personal",ModExtensiones.TipoMensaje.MsgAdvertencia); + } + } + + private void CargarEntregas() + { + ClsGenerales ObjGeneral = new ClsGenerales(); + if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa)) + { + GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; + GvPaqueteriasGuias.DataBind(); + } + ObjGeneral.Dispose(); + } + + private void CargarPersonal() + { + DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); + DdlPersonal.DataBind(); + DdlPersonal.Items.Insert(0, new ListItem("Seleccione", "-1")); + } +} \ No newline at end of file