From 0877fa128e182e3998cad7d8904f0b368690bf9a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 8 May 2024 18:15:08 -0700
Subject: [PATCH] =?UTF-8?q?--SMS.=20Definici=C3=B3n=20de=20reporte=20de=20?=
 =?UTF-8?q?estatus=20de=20OS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsInventarios.vb | 19 +++++++++++++++++++
 App_Code/ClsOS.vb          | 28 ++++++++++++++++++++++++----
 App_Code/ClsPaginas.vb     |  1 +
 OS/RepOSEstatus.aspx       | 19 +++++++++++++++++++
 OS/RepOSEstatus.aspx.vb    |  5 +++++
 5 files changed, 68 insertions(+), 4 deletions(-)
 create mode 100644 OS/RepOSEstatus.aspx
 create mode 100644 OS/RepOSEstatus.aspx.vb

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index fa47212e6..cb986fc36 100644
--- a/App_Code/ClsInventarios.vb
+++ b/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  "
diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index b2f8c1d29..376513ad8 100644
--- a/App_Code/ClsOS.vb
+++ b/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
 
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 2e23ed098..2ada13980 100644
--- a/App_Code/ClsPaginas.vb
+++ b/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)
diff --git a/OS/RepOSEstatus.aspx b/OS/RepOSEstatus.aspx
new file mode 100644
index 000000000..a04d48792
--- /dev/null
+++ b/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>
+
diff --git a/OS/RepOSEstatus.aspx.vb b/OS/RepOSEstatus.aspx.vb
new file mode 100644
index 000000000..80b2766b1
--- /dev/null
+++ b/OS/RepOSEstatus.aspx.vb
@@ -0,0 +1,5 @@
+
+Partial Class OS_RepOSEstatus
+    Inherits System.Web.UI.Page
+
+End Class