From bcfd65d305fc8e19fd8a84e9105192d2af96822a Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 17 Nov 2021 18:35:30 -0700 Subject: [PATCH] EntregaRuta --- AC/RepEstadoActividades.aspx.vb | 4 ++-- AC/RepSituacionFinanciera.aspx.vb | 6 ++++-- AC/Reportes/RepEstadoActividades.rdlc | 13 +------------ AC/Reportes/RepSituacionFinanciera.rdlc | 13 +------------ General/RepEntregaAlmacenRuta.aspx | 4 ++-- General/RepEntregaAlmacenRuta.aspx.cs | 2 ++ General/SaldosIniciales.aspx.vb | 1 + Inventarios/EntregaAlmacenRuta.aspx | 6 +++--- Inventarios/EntregaAlmacenRuta.aspx.cs | 6 ++++-- Inventarios/RepAnomalias.aspx | 17 ++++++++--------- Inventarios/RepAnomalias.aspx.vb | 16 ++++++++++++++-- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- 12 files changed, 43 insertions(+), 47 deletions(-) diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb index f26d16383..79d17e979 100644 --- a/AC/RepEstadoActividades.aspx.vb +++ b/AC/RepEstadoActividades.aspx.vb @@ -330,8 +330,8 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then - params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) - params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) + params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf))) + params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf))) ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf))) diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb index 57265aeff..75a53e925 100644 --- a/AC/RepSituacionFinanciera.aspx.vb +++ b/AC/RepSituacionFinanciera.aspx.vb @@ -639,9 +639,10 @@ Partial Class AC_SituacionFinanciera params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString)) params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) + If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then - params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) - params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) + params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf))) + params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf))) ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf))) @@ -652,6 +653,7 @@ Partial Class AC_SituacionFinanciera params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) End If + params.Add(New ReportParameter("pFechaFin", FechaF)) params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO"))) ImprimirPDF(reportpath, lrds, params, fileName, Formato) diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc index de0652b3b..931f42736 100644 --- a/AC/Reportes/RepEstadoActividades.rdlc +++ b/AC/Reportes/RepEstadoActividades.rdlc @@ -1008,18 +1008,7 @@ - C.P Vera Guadalupe Tarazon Moreno - - - - - - Director Administrativo + =Parameters!pFirma1.Value - - - - - Director Administrativo + =Parameters!pFirma1.Value - Entrega Alamacen Ruta + Entrega Almacen Ruta @@ -98,8 +98,8 @@ -
- Generar Documentos +
+ Preselección de Entregas
diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index c3509d90c..1fb6357f7 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -321,7 +321,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas SelecionEntrega = false; - LnkGenerarDocumentos.Text = "Regresa a selección"; + LnkGenerarDocumentos.Text = "Regresar a Preselección"; + //LnkGenerarDocumentos.CssClass = "btn btn-secondary"; BtnAsignar.Visible = true; BtnConsultar.Visible = false; @@ -334,7 +335,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas BtnConsultar.Visible = true; SelecionEntrega = true; - LnkGenerarDocumentos.Text = "Generar Documentos"; + LnkGenerarDocumentos.Text = "Preselección de Entregas"; + //LnkGenerarDocumentos.CssClass = "btn btn-primary"; BtnAsignar.Visible = false; DVGvGenerarDocumentos.Visible = false; DVGvPaqueteriasGuias.Visible = true; diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index 0346211b6..b331f65a9 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -268,8 +268,8 @@ - - + + @@ -325,8 +325,8 @@ - - + + @@ -375,8 +375,8 @@ - - + + @@ -474,9 +474,8 @@ - - - + + diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 8d517bcb9..e3ec81c96 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -83,6 +83,14 @@ Partial Class Inventarios_RepAnomalias Dim Inventario As New ClsInventarios Dim dt As DataTable = Nothing + + If UsuarioActual.CveEmpresa.Contiene(119, 158) Then + GvF.Columns(2).Visible = True + GvS.Columns(2).Visible = True + GvC.Columns(2).Visible = True + GvGrupos.Columns(1).Visible = True + End If + If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then lbTitulo.Text = Inventario.InventarioFisico lbObservaciones.Text = Inventario.Observaciones @@ -299,6 +307,7 @@ Partial Class Inventarios_RepAnomalias End If + UpGeneral.Update() LnkPDF.Visible = False ImgExcel.Visible = False @@ -306,14 +315,17 @@ Partial Class Inventarios_RepAnomalias ImgExcelProdcutosCoinciden.Visible = False LnkDescarExcelGrupos.Visible = True - GvGrupos.DataSource = dt + GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") GvGrupos.DataBind() LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString - 'PSIguales() + If DdlGPO.SelectedValue.ToEntero = 1 Then + PSIguales() + End If + End If diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index cb7d0c74f..33cc62a24 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1221,7 +1221,7 @@ Partial Class Inventarios_TraspasoAlmacen If ChkEmitirTimbrado.Checked Then CveMovimientoTimbrado = CveMovimientoSalida - Timbrar(CveTimbre, CveMovimientoTimbrado) + 'Timbrar(CveTimbre, CveMovimientoTimbrado) End If Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")