Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

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
 

AC/Reportes/RepEstadoActividades.rdlc

@@ -1325,6 +1325,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="pFechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>163d4464-e41c-42b9-8827-487ff815b059</rd:ReportID>

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 						 ")

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

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
 

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))
+                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
-            GvDatos.DataSource = DtEstatusOS
 
-            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
+            End If
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
 
-        If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then
+            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then
-            DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
+                DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
-            Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios
+            End If
-        End If
 
-        OrdenaDatos()
+        End Using
-        ObjEstatusOrdenServicios.Dispose()
         GvDatos.DataBind()
+        OrdenaDatos()
     End Sub
 
     Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click

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

Ventas/Clientes.aspx.vb

@@ -1291,8 +1291,10 @@ Partial Class Clientes
                 'CargaFormaPago33()
                 'CargaComboCFDI()
 
-                LnkPorcentajeMarcas.Visible = True
+                If UsuarioActual.TienePermisoProceso(279) Then
-                LnkPorcentajePrecios.Visible = True
+                    LnkPorcentajeMarcas.Visible = True
+                    LnkPorcentajePrecios.Visible = True
+                End If
 
                 If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
 

Ventas/Ventas.aspx

@@ -7328,6 +7328,5 @@
             $('#divAgregarCliente').modal('hide');
         }
 
-
     </script>
 </asp:Content>

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