From eaf59534d18de1a02d0a04ed96c49b0f82395713 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 25 Jan 2024 14:25:13 -0700
Subject: [PATCH] =?UTF-8?q?--=20visualizaci=C3=B3n=20de=20la=20OS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx    | 8 ++++++++
 Inventarios/EntradasSalidas.aspx.vb | 6 ++++++
 2 files changed, 14 insertions(+)

diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 7b0c3b044..7cd33263d 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -421,6 +421,14 @@
                                             <asp:Label Text="" ID="LblFolioOrdenCorte" runat="server" />
                                         </div>
                                     </div>
+                                    <div class="row" runat="server" id="divOS" visible="false" style="margin-top: 5px;">
+                                        <label class="col-md-4 truncate">
+                                            OS:                                       
+                                        </label>
+                                        <div class="col-md-8">
+                                            <asp:HyperLink ID="HplOS" CssClass="Texto" runat="server" Target="_blank"></asp:HyperLink>
+                                        </div>
+                                    </div>
                                 </div>
 
                             </div>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 9f9985580..b1054773a 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -840,6 +840,12 @@ Partial Class Inventarios_EntradasSalidas
                 LblFolioOrdenCorte.Text = DtMov.Rows(0)("FolioOrdendeCorte").ToString
             End If
 
+            If DtMov.Rows(0)("CveOS").ToString.ToEntero() > 0 Then
+                divOS.Visible = True
+                HplOS.Text = DtMov.Rows(0)("OSFolio").ToString
+                HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}"
+            End If
+
 
             If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then
                 Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen))