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 ")
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
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
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
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index e1a425c60..61fab4d79 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -7328,6 +7328,5 @@
$('#divAgregarCliente').modal('hide');
}
-
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c7b949857..926400c13 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
@@ -16565,7 +16569,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