From d9584cc76450f5cf1ef44ea8303e9e542442865f Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 5 Nov 2024 10:55:39 -0700
Subject: [PATCH] =?UTF-8?q?Compras=20=20OC=20vinculaci=C3=B3n=20cambio=20d?=
 =?UTF-8?q?e=20funcion=20a=20GetOrdenesCompraVinculacion?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 9a6939f25..77dfe290f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14476,7 +14476,9 @@ Partial Class Compras_Compras
         If PopUpOC Then
             Dim ArrayCveOC As String() = CvesOC.Split(New Char() {","c})
             For i As Integer = 0 To ArrayCveOC.Count - 1
-                If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, ArrayCveOC(i).ToEntero, tCveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+                'GetOrdenesCompraVinculacion
+                'If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, ArrayCveOC(i).ToEntero, tCveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+                If OC.GetOrdenesCompraVinculacion("OC", -1, -1, -1, MinFecha, MaxFecha, ArrayCveOC(i).ToEntero, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa) Then
                     If OC.DtResultados.FiltraParametros("TipoTermino =  3").Rows.Count = 1 Or DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
                         HdnVCveOC.Value += String.Format("{0}{1}", If(HdnVCveOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveOrdenCompra").ToString)
                         HdnCveEstatusOC.Value += String.Format("{0}{1}", If(HdnCveEstatusOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveEstatusSiguiente").ToString)
@@ -14490,7 +14492,8 @@ Partial Class Compras_Compras
             Dim TextoErrorOC As String = ""
             Dim ArrayCveOC As String() = TxtOC.Text.Split(New Char() {","c})
             For i As Integer = 0 To ArrayCveOC.Count - 1
-                If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, CveProveedor, ArrayCveOC(i).ToEntero, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+                'If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, CveProveedor, ArrayCveOC(i).ToEntero, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+                If OC.GetOrdenesCompraVinculacion("OC", -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, ArrayCveOC(i).ToEntero, -1, UsuarioActual.CveEmpresa) Then
                     If OC.DtResultados.Rows.Count > 1 Then
                         TextoErrorOC += $"<br/>El folio <b>{ArrayCveOC(i).ToEntero}</b> no se pudo identificar."
                     End If