From 783b7a6a74f10551030e7c34d9a29ed6e755c90e Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 23 May 2020 00:32:26 -0700 Subject: [PATCH 01/46] agregando las entregas locales --- App_Code/ClsGenerales.vb | 47 +++++- App_Code/ClsPaginas.vb | 2 + Contratos/Contrato.aspx.vb | 10 +- General/PopUpPaqueteriasGuiasInternas.aspx | 127 ++++++++++++++++ General/PopUpPaqueteriasGuiasInternas.aspx.cs | 136 ++++++++++++++++++ Inventarios/EntregaAlmacen.aspx | 132 +++++++++-------- Inventarios/EntregaAlmacen.aspx.vb | 12 ++ Inventarios/EntregasPorRealizar.aspx | 102 +++++++++++++ Inventarios/EntregasPorRealizar.aspx.cs | 79 ++++++++++ 9 files changed, 578 insertions(+), 69 deletions(-) create mode 100644 General/PopUpPaqueteriasGuiasInternas.aspx create mode 100644 General/PopUpPaqueteriasGuiasInternas.aspx.cs create mode 100644 Inventarios/EntregasPorRealizar.aspx create mode 100644 Inventarios/EntregasPorRealizar.aspx.cs 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 From f820d5bd55fb693b2f2f9191a3961455617f5553 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 23 May 2020 12:27:57 -0700 Subject: [PATCH 02/46] avance de paqueterias guias --- App_Code/ClsGenerales.vb | 5 ++++- General/RepPaqueteriasGuias.aspx | 5 +++++ General/RepPaqueteriasGuias.aspx.cs | 14 ++++++++++++-- Inventarios/EntregasPorRealizar.aspx | 2 +- Inventarios/EntregasPorRealizar.aspx.cs | 10 +++++----- 5 files changed, 27 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 177fb986e..f31d13a2a 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2712,7 +2712,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1) As Boolean + Public Function GetPaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CvePaqueteria As Integer, CveEstatus As Integer, CveSubProyecto As Integer, + CveEmpresa As Integer, Guia As String, FechaInicio As String, FechaFin As String, Optional FechaIngInicio As String = "-1", + Optional FechaIngFin As String = "-1", Optional Filtro As Integer = -1, Optional CveUsuarioEntrega As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2731,6 +2733,7 @@ Public Class ClsGenerales .Add("@FechaIngInicio", SqlDbType.VarChar).Value = FechaIngInicio .Add("@FechaIngFin", SqlDbType.VarChar).Value = FechaIngFin .Add("@Filtro", SqlDbType.Int).Value = Filtro + .Add("@CveUsuarioEntrega", SqlDbType.Int).Value = CveUsuarioEntrega End With Try SqlAdapter.Fill(Data) diff --git a/General/RepPaqueteriasGuias.aspx b/General/RepPaqueteriasGuias.aspx index 9eb0e6564..b13c27470 100644 --- a/General/RepPaqueteriasGuias.aspx +++ b/General/RepPaqueteriasGuias.aspx @@ -167,6 +167,11 @@
    + + +
    + +
    diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 9fcbd9d2b..69a53120a 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -162,7 +162,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas CargaPaqueterias(); CargaPaqueteriasGuiasTipo(); InicializaFechas(); - + CargaUsuarios(); UPFiltros.Update(); if (!UsuarioActual.TienePermisoProceso(219)) @@ -231,6 +231,13 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas DdlEstatusEditar.SelectedValue = "-1"; } + private void CargaUsuarios() + { + DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa); + DdlUsuarios.DataBind(); + DdlUsuarios.Items.Insert(0, new ListItem("Seleccione ", "-1")); + } + protected void InicializaFechas() { DateTime FI = new DateTime(DateTime.Now.Year, 1, 1); @@ -254,6 +261,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas int CveSubProyecto = DdlSucursales.SelectedValue.ToEntero(); int CveEmpresa = UsuarioActual.CveEmpresa; int Filtro = DdlFiltro.SelectedValue.ToEntero(); + int CveUsuarioEntrega = DdlUsuarios.SelectedValue.ToEntero(); String Guia = "-1"; String FechaInicio = TxtFechaI.Text == "" ? "-1" : TxtFechaI.Text; @@ -262,7 +270,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas String FechaIngInicio = TxtFechaInicialIngreso.Text == "" ? "-1" : TxtFechaInicialIngreso.Text; String FechaIngFin = TxtFechaFinalIngreso.Text == "" ? "-1" : TxtFechaFinalIngreso.Text; - if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin, FechaIngInicio, FechaIngFin, Filtro: Filtro)) + if (ObjGeneral.GetPaqueteriasGuias(CvePaqueteriaGuia, CvePaqueteriaGuiaTipo, CvePaqueteria, CveEstatus, CveSubProyecto, CveEmpresa, Guia, FechaInicio, FechaFin, FechaIngInicio, FechaIngFin, Filtro: Filtro, CveUsuarioEntrega: CveUsuarioEntrega)) { DTDatos = ObjGeneral.DtResultados; GVDatos.DataSource = DTDatos; @@ -803,6 +811,8 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); @params.Add(new ReportParameter("Filtros", String.Format(" Sucursal: {0}  Estatus: {1}  Paquetería: {2}
    Fecha Inicio: {3}  Fecha Fin: {4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal))); + @params.Add(new ReportParameter("FiltroUsuario", DdlUsuarios.SelectedItem.Text)); + if (Imagen.Exists) { @params.Add(new ReportParameter("LogoPath", logouri)); diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx index b660206b0..9b5943b7e 100644 --- a/Inventarios/EntregasPorRealizar.aspx +++ b/Inventarios/EntregasPorRealizar.aspx @@ -36,7 +36,7 @@
    PERSONAL QUE ENTREGA:
    - +
    diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 8616bb8d3..bf831e4e3 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -20,7 +20,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas protected void BtnAsignar_Click(object sender,EventArgs e) { - if (DdlPersonal.SelectedValue.ToEntero() > 0) + if (DdlUsuario.SelectedValue.ToEntero() > 0) { bool TieneError = false; ClsGenerales ObjGeneral = new ClsGenerales(); @@ -32,7 +32,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas if (row.FCCheckBox("ChkAsigna").Checked) { int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); - int CvePersonal = DdlPersonal.SelectedValue.ToEntero(); + int CvePersonal = DdlUsuario.SelectedValue.ToEntero(); if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal)){ TieneError = true; @@ -72,8 +72,8 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas private void CargarPersonal() { - DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); - DdlPersonal.DataBind(); - DdlPersonal.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); + DdlUsuario.DataBind(); + DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); } } \ No newline at end of file From fd4e775f430a77999bae25ad1ec7418e0f406962 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 23 May 2020 15:59:38 -0700 Subject: [PATCH 03/46] Cambios en cancelacion de facturas --- App_Code/Modelos.vb | 50 ++++++++++++++++++++++++--------------------- 1 file changed, 27 insertions(+), 23 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index eb2eea490..ec360eed3 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4553,35 +4553,39 @@ Namespace Modelos Next - 'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO) - If Not ErrorCancelar Then - If ObjInventario.GetMovimientosDevoluciones(CveVenta, UsuarioActual.CveEmpresa) Then - DtDevoluciones = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10") - Else - ErrorCancelar = True - MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." - End If - End If - 'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN GENERAL If Not ErrorCancelar AndAlso ListaRemisionesCancelar IsNot Nothing AndAlso ListaRemisionesCancelar.Count > 0 Then - For Each CveRemision As Integer In ListaRemisionesCancelar - Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}") - Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0) - - CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero() - CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero() - - 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL - If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then + 'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO) + If Not ErrorCancelar Then + If ObjInventario.GetMovimientosDevoluciones(CveVenta, UsuarioActual.CveEmpresa) Then + DtDevoluciones = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10") + Else ErrorCancelar = True - MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión." - Exit For + MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." End If + End If + + 'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL + If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then + For Each CveRemision As Integer In ListaRemisionesCancelar + Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}") + + Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0) + + CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero() + CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero() + + If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then + ErrorCancelar = True + MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión." + Exit For + End If + Next + Else + ErrorCancelar = True + End If - DtDevRemision.Dispose() - Next End If 'VERIFICAR MOVIMIENTOS DE APARTADOS From 4de2cad25a21bb12c906417773cde9429ff32189 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 23 May 2020 18:14:03 -0700 Subject: [PATCH 04/46] parametros para el reporte listo --- .../Grales/Formatos/RepPaqueteriasGuias.rdlc | 70 ++++++++++++++++--- General/RepPaqueteriasGuias.aspx.cs | 3 +- 2 files changed, 62 insertions(+), 11 deletions(-) diff --git a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc index 88c183ef4..ed799ade7 100644 --- a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc +++ b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc @@ -6,25 +6,25 @@ - 3.2cm + 3.11227cm - 2cm + 2.2618cm - 2cm + 2.38704cm - 4.8cm + 2.96454cm - 4.3cm + 4.68704cm - 2.5cm + 2.88704cm - 2cm + 2.38704cm @@ -347,7 +347,6 @@ 2pt - true @@ -551,7 +550,7 @@ 0.14111cm 0.01325cm 0.84438cm - 20.8cm + 20.68675cm @@ -565,7 +564,7 @@ 8.23098in - 3.67911cm + 3.71891cm true true @@ -917,6 +916,47 @@ 2pt + + true + true + + + + + Usuario Entrego: + + + + =Parameters!FiltroUsuario.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + @@ -3845,19 +3850,24 @@
    - - - Bancos - Caja Chica - Viaticos - Deudores - Acreedores - Créditos - - +
    + + + Bancos + Créditos + Acreedores + Caja Chica + Viaticos + Deudores + + +
    + +
    +

    @@ -3888,20 +3898,24 @@
    - +
    - -
    - +
    + +
    +
    +
    - -
    - +
    + +
    +
    +
    @@ -3915,15 +3929,17 @@
    -