--SMS. Definición de reporte de estatus de OS

App_Code/ClsInventarios.vb

@@ -4469,6 +4469,25 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
+    Public Function UpdateOSEstatusInventario(CveOS As Integer, Estatus As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OS_OSEstatusInventarioUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el estatus de OS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "  INVENTARIOS - SOLICITUD DE TRASPASOS  "

App_Code/ClsOS.vb

@@ -458,12 +458,12 @@ Public Class ClsOS
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "ClsOSOrdenesServicios"
-    'Reporte de Ventas
+    'Reporte de Ventas
     Public Function GetRepOrdenesServicio(FechaI As Date, FechaF As Date, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
                                           CveEstatusOrdenServicio As Integer, CveEmpresa As Integer, Optional Opcion As Integer = -1, Optional CveUsuarioAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -492,6 +492,26 @@ Public Class ClsOS
             OnError("Ocurrió un error al obtener el Reporte de Ordenes de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
+        Return Retorno
+    End Function
+
+    Public Function GetRepOSEstatus(CveOS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OS_OSEstatusRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de estatus de OS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
         Return Retorno
     End Function
 

App_Code/ClsPaginas.vb

@@ -10463,6 +10463,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/OS/Asignaciones.aspx".ToUpper(), 125)
             PaginaDict.Add("/OS/RepServicioDomicilio.aspx".ToUpper(), 1330)
             PaginaDict.Add("/OS/RepOSMedicas.aspx".ToUpper(), 1345)
+            PaginaDict.Add("/OS/RepOSEstatus.aspx".ToUpper(), 1349)
 #End Region
 #Region "OC"
             PaginaDict.Add("/OC/OC.aspx".ToUpper(), 155)

OS/RepOSEstatus.aspx

@@ -0,0 +1,19 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOSEstatus.aspx.vb" Inherits="OS_RepOSEstatus" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+

OS/RepOSEstatus.aspx.vb

@@ -0,0 +1,5 @@
+
+Partial Class OS_RepOSEstatus
+    Inherits System.Web.UI.Page
+
+End Class