IE correccion vista Folio OC

2022-09-09 09:27:16 -07:00
parent e59e413e1b
commit a4e288a64c
4 changed files with 36 additions and 16 deletions
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6759,12 +6759,15 @@ Partial Class Bancos_IE
            If objBanco.GetBancosOrdenCompra(CveIE, UsuarioActual.CveEmpresa) Then

                If objBanco.DtResultados.Rows.Count > 0 Then
-                    GvBancosOrdenCompra.DataSource = objBanco.DtResultados
+
+
+                    HLFFolioOC.Text = objBanco.DtResultados.Rows(0)("FolioOC").ToString
+                    HLFFolioOC.NavigateUrl = $"~/OC/OC.aspx?OC={objBanco.DtResultados.Rows(0)("CveOrdenCompra").ToString}"
                    DVBancosOrdenCompra.Visible = True
                End If
            End If
            objBanco.Dispose()
-            GvBancosOrdenCompra.DataBind()
+
        End If