From 39f5b8f6623edf579d9ade0df911da6ad0088bba Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 23 Sep 2019 13:40:06 -0700 Subject: [PATCH 1/6] =?UTF-8?q?Se=20agreg=C3=B3=20campo=20para=20corregir?= =?UTF-8?q?=20formato?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AC/RepEstadoActividades.aspx.vb | 3 ++- AC/Reportes/RepEstadoActividades.rdlc | 6 ++++++ App_Code/ClsContPAQi.vb | 4 ++-- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb index b4c061882..f2cd112c1 100644 --- a/AC/RepEstadoActividades.aspx.vb +++ b/AC/RepEstadoActividades.aspx.vb @@ -339,7 +339,8 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) End If - params.Add(New ReportParameter("pFechaFin", String.Format("{0} al {1}", FechaI, FechaF))) + params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem, DdlEjercicio.SelectedItem))) + params.Add(New ReportParameter("pFechaFin", FechaF)) ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato) End Sub diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc index 73f518b5d..f17742f32 100644 --- a/AC/Reportes/RepEstadoActividades.rdlc +++ b/AC/Reportes/RepEstadoActividades.rdlc @@ -1325,6 +1325,12 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + Cm 163d4464-e41c-42b9-8827-487ff815b059 diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 4c79dccab..a191b7b11 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -3741,7 +3741,7 @@ Public Class ClsContPAQi StrSQL.Append(" ") StrSQL.Append(" SELECT * ") StrSQL.Append(" FROM ( ") - StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, ") + StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, C.CtaMayor as TipoCuenta, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE ") StrSQL.Append(" WHEN @Tipo < 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, DATEADD(yy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") @@ -3806,7 +3806,7 @@ Public Class ClsContPAQi StrSQL.Append(" ") StrSQL.Append(" SELECT * ") StrSQL.Append(" FROM ( ") - StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, ") + StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, C.CtaMayor as TipoCuenta, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE ") StrSQL.Append(" WHEN @Tipo < 0 AND @UsaAnterior > 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, DATEADD(yyyy,-1,@FechaI), DATEADD(yyyy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") From 9e34c53d7958d75b26ba3b9075312eecf761d6f7 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 23 Sep 2019 13:41:03 -0500 Subject: [PATCH 2/6] checkpoint primero validaciones de permisos al solicitar ordenes de servicio --- OS/Asignaciones.aspx.vb | 10 +++++++++ OS/CatEstatusOrdenServicio.aspx.vb | 33 +++++++++++++++++------------- OS/OrdenesServicios.aspx.vb | 10 +++++++++ 3 files changed, 39 insertions(+), 14 deletions(-) diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index a631d4248..f3cbf201b 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -38,6 +38,16 @@ Partial Class OS_Asignaciones DivAsignacionPersona.Visible = False 'CargaOrdenesServiciosAsignadas() End If + + Dim ObjEstatusPermisos As New ClsOS + If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Dim Permisos As New DataTable + Permisos = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 2") + If Permisos.Rows.Count = 0 Then + DdlTecnico.Visible = False + BtnAsignar.Visible = False + End If + End If End If End Sub diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index 2c6c42f99..cead5cc0d 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -26,6 +26,14 @@ Partial Class OS_CatEstatusOrdenServicio ViewState("CveEstatuOS") = value End Set End Property + Private Property Orden As String + Get + Return ViewState("Orden").ToString + End Get + Set(value As String) + ViewState("Orden") = value + End Set + End Property Private Property DTEstatusUsuarios As DataTable Get Return CType(ViewState("DTEstatusUsuarios"), DataTable) @@ -50,26 +58,23 @@ Partial Class OS_CatEstatusOrdenServicio End Sub Public Sub CargaDatos() - Dim ObjEstatusOrdenServicios As New ClsOS + Using ObjEstatusOrdenServicios As New ClsOS + If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then - If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then + DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + GvDatos.DataSource = DtEstatusOS - DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - GvDatos.DataSource = DtEstatusOS + GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados - GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados - Else - Me.GvDatos.DataSource = Nothing - End If + End If - If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then - DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados - Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios - End If + If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then + DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados + End If - OrdenaDatos() - ObjEstatusOrdenServicios.Dispose() + End Using GvDatos.DataBind() + OrdenaDatos() End Sub Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index a35b28b92..a86041d35 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -323,6 +323,16 @@ Partial Class OS_OrdenesServicios hdnEsThickbox.Value = "S" hdnClientIDLink.Value = "NoDefinido" + + Dim ObjEstatusPermisos As New ClsOS + If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Dim PermisoEstatus As New DataTable + PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") + If PermisoEstatus.Rows.Count = 0 Then + UpGuardar.Visible = False + End If + End If + ObjEstatusPermisos.Dispose() End If End Sub From 9e8b4858388fe4916958e1e73b8ddbdd9a9a53fa Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 23 Sep 2019 17:01:50 -0700 Subject: [PATCH 3/6] Devoluciones con valor en 0 --- Inventarios/RecepcionEntrega.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index e513daeab..dab265de2 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -2047,7 +2047,7 @@ Partial Class Inventarios_RecepcionEntrega If TipoMovimiento = 1 Then ValorMultiplicador = 1 ElseIf TipoMovimiento = 2 Then - TipoMovimiento = -1 + ValorMultiplicador = -1 ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then ValorMultiplicador = 1 End If From fa563f1d7026696f29ea2d086433277c689759ee Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 24 Sep 2019 12:33:53 -0700 Subject: [PATCH 4/6] Campos requeridos en modal de registro rapido --- Ventas/Ventas.aspx | 1 - Ventas/Ventas.aspx.vb | 60 +++++++++++++++++++++++++++++++++---------- 2 files changed, 46 insertions(+), 15 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index bd81e12a7..e0bc510a1 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -7254,6 +7254,5 @@ $('#divAgregarCliente').modal('hide'); } - diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 506ee6a64..b49592c0d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1725,6 +1725,10 @@ Partial Class Ventas DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA")) End If + If UsuarioActual.CveEmpresa <> 141 Then + LnkAgregarCliente.Visible = False + End If + DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2")) If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then @@ -16433,13 +16437,27 @@ Partial Class Ventas DivBotonesAgregarCliente.Visible = True DivFormaCliente.Visible = True - RFVDireccionC.Visible = False - RFVNoEC.Visible = False - RFVColoniaC.Visible = False - RFVCiudadC.Visible = False - RFVLocalidadC.Visible = False - RFVEstadoC.Visible = False - RFVPaisC.Visible = False + RFVDireccionC.Display = ValidatorDisplay.None + RFVDireccionC.CssClass = "" + RFVDireccionC.Enabled = False + RFVNoEC.Display = ValidatorDisplay.None + RFVNoEC.CssClass = "" + RFVNoEC.Enabled = False + RFVColoniaC.Display = ValidatorDisplay.None + RFVColoniaC.CssClass = "" + RFVColoniaC.Enabled = False + RFVCiudadC.Display = ValidatorDisplay.None + RFVCiudadC.CssClass = "" + RFVCiudadC.Enabled = False + RFVLocalidadC.Display = ValidatorDisplay.None + RFVLocalidadC.CssClass = "" + RFVLocalidadC.Enabled = False + RFVEstadoC.Display = ValidatorDisplay.None + RFVEstadoC.CssClass = "" + RFVEstadoC.Enabled = False + RFVPaisC.Display = ValidatorDisplay.None + RFVPaisC.CssClass = "" + RFVPaisC.Enabled = False DdlMetodoCliente.SelectedValueExist(1) DdlFormaCliente.SelectedValueExist(1) @@ -16466,13 +16484,27 @@ Partial Class Ventas End If ObjCliente.Dispose() - RFVDireccionC.Visible = True - RFVNoEC.Visible = True - RFVColoniaC.Visible = True - RFVCiudadC.Visible = True - RFVLocalidadC.Visible = True - RFVEstadoC.Visible = True - RFVPaisC.Visible = True + RFVDireccionC.Display = ValidatorDisplay.Static + RFVDireccionC.CssClass = "help-block errorimput" + RFVDireccionC.Enabled = True + RFVNoEC.Display = ValidatorDisplay.Static + RFVNoEC.CssClass = "help-block errorimput" + RFVNoEC.Enabled = True + RFVColoniaC.Display = ValidatorDisplay.Static + RFVColoniaC.CssClass = "help-block errorimput" + RFVColoniaC.Enabled = True + RFVCiudadC.Display = ValidatorDisplay.Static + RFVCiudadC.CssClass = "help-block errorimput" + RFVCiudadC.Enabled = True + RFVLocalidadC.Display = ValidatorDisplay.Static + RFVLocalidadC.CssClass = "help-block errorimput" + RFVLocalidadC.Enabled = True + RFVEstadoC.Display = ValidatorDisplay.Static + RFVEstadoC.CssClass = "help-block errorimput" + RFVEstadoC.Enabled = True + RFVPaisC.Display = ValidatorDisplay.Static + RFVPaisC.CssClass = "help-block errorimput" + RFVPaisC.Enabled = True DdlMetodoCliente.SelectedValueExist(-1) DdlFormaCliente.SelectedValueExist(-1) From 147679e03c7b4099dee888d1e5280e196dd61958 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 24 Sep 2019 13:23:08 -0700 Subject: [PATCH 5/6] Permiso para visusalizar opcion de Descuento de PS --- Ventas/Clientes.aspx.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 5e15b2c02..339cde6cd 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1291,8 +1291,10 @@ Partial Class Clientes 'CargaFormaPago33() 'CargaComboCFDI() - LnkPorcentajeMarcas.Visible = True - LnkPorcentajePrecios.Visible = True + If UsuarioActual.TienePermisoProceso(279) Then + LnkPorcentajeMarcas.Visible = True + LnkPorcentajePrecios.Visible = True + End If If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True From 371f39d68ebc90e2c40346dcea9cfe69028bb76c Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 24 Sep 2019 14:03:45 -0700 Subject: [PATCH 6/6] --- Ventas/Ventas.aspx.vb | 58 +++++++++++-------------------------------- 1 file changed, 15 insertions(+), 43 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b49592c0d..c722464fa 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16426,7 +16426,7 @@ Partial Class Ventas Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click - If TxtRFCCliente.Text = "XAXX010101000" Then + If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then DivNombreCliente.Visible = True DivDireccionCliente.Visible = True DivNumeroCPCliente.Visible = True @@ -16437,27 +16437,13 @@ Partial Class Ventas DivBotonesAgregarCliente.Visible = True DivFormaCliente.Visible = True - RFVDireccionC.Display = ValidatorDisplay.None - RFVDireccionC.CssClass = "" - RFVDireccionC.Enabled = False - RFVNoEC.Display = ValidatorDisplay.None - RFVNoEC.CssClass = "" - RFVNoEC.Enabled = False - RFVColoniaC.Display = ValidatorDisplay.None - RFVColoniaC.CssClass = "" - RFVColoniaC.Enabled = False - RFVCiudadC.Display = ValidatorDisplay.None - RFVCiudadC.CssClass = "" - RFVCiudadC.Enabled = False - RFVLocalidadC.Display = ValidatorDisplay.None - RFVLocalidadC.CssClass = "" - RFVLocalidadC.Enabled = False - RFVEstadoC.Display = ValidatorDisplay.None - RFVEstadoC.CssClass = "" - RFVEstadoC.Enabled = False - RFVPaisC.Display = ValidatorDisplay.None - RFVPaisC.CssClass = "" - RFVPaisC.Enabled = False + RFVDireccionC.Visible = False + RFVNoEC.Visible = False + RFVColoniaC.Visible = False + RFVCiudadC.Visible = False + RFVLocalidadC.Visible = False + RFVEstadoC.Visible = False + RFVPaisC.Visible = False DdlMetodoCliente.SelectedValueExist(1) DdlFormaCliente.SelectedValueExist(1) @@ -16484,27 +16470,13 @@ Partial Class Ventas End If ObjCliente.Dispose() - RFVDireccionC.Display = ValidatorDisplay.Static - RFVDireccionC.CssClass = "help-block errorimput" - RFVDireccionC.Enabled = True - RFVNoEC.Display = ValidatorDisplay.Static - RFVNoEC.CssClass = "help-block errorimput" - RFVNoEC.Enabled = True - RFVColoniaC.Display = ValidatorDisplay.Static - RFVColoniaC.CssClass = "help-block errorimput" - RFVColoniaC.Enabled = True - RFVCiudadC.Display = ValidatorDisplay.Static - RFVCiudadC.CssClass = "help-block errorimput" - RFVCiudadC.Enabled = True - RFVLocalidadC.Display = ValidatorDisplay.Static - RFVLocalidadC.CssClass = "help-block errorimput" - RFVLocalidadC.Enabled = True - RFVEstadoC.Display = ValidatorDisplay.Static - RFVEstadoC.CssClass = "help-block errorimput" - RFVEstadoC.Enabled = True - RFVPaisC.Display = ValidatorDisplay.Static - RFVPaisC.CssClass = "help-block errorimput" - RFVPaisC.Enabled = True + RFVDireccionC.Visible = True + RFVNoEC.Visible = True + RFVColoniaC.Visible = True + RFVCiudadC.Visible = True + RFVLocalidadC.Visible = True + RFVEstadoC.Visible = True + RFVPaisC.Visible = True DdlMetodoCliente.SelectedValueExist(-1) DdlFormaCliente.SelectedValueExist(-1)