From bb52ac6961c05253e253a8127928619e5b25f5c1 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 23 Sep 2019 12:51:31 -0700 Subject: [PATCH 1/3] IEPS siempre calcular ieps al vincular --- Compras/Compras.aspx | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7f44c8194..6fb4ef422 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5556,10 +5556,13 @@ function CalculaTotalOCEdit(PS, CantidadOriginal, TxtCantidad, TxtPU, TxtTotal, IEPSOriginal, HdnIEPS, IVAOriginal, HdnIVA, RetIVAOriginal, HdnRetIVA, RetISROriginal, HdnRetISR, IEPSIVAOriginal, HdnIEPSIVA, DescuentoOriginal, HdnDescuento, IVAPorcentaje, RetIVAPorcentaje, RetISRPorcentaje, IEPSPSPorcentaje, IEPSPSIVAPorcentaje) { //var Proporcional = ((ToDouble(TxtCantidad.value) * 100) / CantidadOriginal) / 100; + + HdnDescuento.value = ToDouble(DescuentoOriginal * ToDouble(TxtCantidad.value) / CantidadOriginal); - if (IEPSOriginal > 0) { + if (true) { HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value))); } + if (IVAOriginal > 0) { HdnIVA.value = ToDouble(IVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value))); } From 39f5b8f6623edf579d9ade0df911da6ad0088bba Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 23 Sep 2019 13:40:06 -0700 Subject: [PATCH 2/3] =?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 3/3] 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