From 9bb16ddc029801b315a502e0dd8f8aa7e5cda8b2 Mon Sep 17 00:00:00 2001
From: RPimienta <dany_pimi@hotmail.com>
Date: Fri, 26 Jul 2024 13:38:23 -0700
Subject: [PATCH] Ajuste en vinculacion OC en compras con la funcionalidad 382

---
 Compras/Compras.aspx    |  2 +-
 Compras/Compras.aspx.vb | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 438ad97d9..b9e726e82 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1644,7 +1644,7 @@
 
                                                                     <asp:GridView runat="server" ID="GvOC1" AutoGenerateColumns="false"
                                                                         GridLines="None" UseAccessibleHeader="true" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover Widthall Sortable" RowStyle-HorizontalAlign="Center"
-                                                                        DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS">
+                                                                        DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS,NumeroParte">
 
                                                                         <Columns>
                                                                             <asp:TemplateField HeaderText="Folio" ItemStyle-Width="10%" Visible="false">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index dbd4e0133..34ae5d558 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3812,6 +3812,7 @@ Partial Class Compras_Compras
         Dim PorcentajeIEPS As Decimal = 0
         Dim PorcentajeRetISR As Decimal = 0
         Dim PorcentajeRetIVA As Decimal = 0
+        Dim NoIdentificacion As String = ""
         Dim DtTemporalGuardados As DataTable = New DataTable
         DtTemporalGuardados.Columns.Add("Contador", GetType(Integer))
         DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer))
@@ -3871,6 +3872,7 @@ Partial Class Compras_Compras
                 PorcentajeIEPS = 0
                 PorcentajeRetISR = 0
                 PorcentajeRetIVA = 0
+                NoIdentificacion = ""
 
 
                 'CARGA NODO ACTUAL
@@ -3896,6 +3898,8 @@ Partial Class Compras_Compras
                 'OBTIENE SUBTOTAL
                 SubTotalTemp += If(Total > 0, Total, PU * ValorXML(node, "cantidad").ToDecimal)
 
+                'OBTIENE NoIdentificacion
+                If ValorXML(node, "noIdentificacion") IsNot Nothing Then NoIdentificacion = ValorXML(node, "noIdentificacion").Trim
 
                 'OBTIENE UM
                 If ValorXML(node, "unidad") IsNot Nothing Then UMM = ValorXML(node, "unidad").Trim
@@ -14534,9 +14538,26 @@ Partial Class Compras_Compras
         DTOCGV = If(ArrayCveOC.Length > 1, DTOCGV.FiltraParametros("", "Producto"), DTOCGV)
 
         CargaTipoCentroCostoOC()
+
         GvOC1.DataSource = DTOCGV
         GvOC1.DataBind()
 
+        'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
+        If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then
+            For Each Gvr As GridViewRow In GvOC1.Rows
+                Dim Change As Boolean = False
+                For Each Dr2 As DataRow In TmpDT.Rows
+                    If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
+                        Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
+                        Change = True
+                    End If
+                Next
+                If Not Change Then
+                    Gvr.FCTextBox("TxtCantidad").Text = "0"
+                End If
+            Next
+        End If
+
         Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
         If DTCVEOGV.Rows.Count > 1 Then
             GvOC1.Columns(0).Visible = True
@@ -22010,6 +22031,7 @@ Public Class ClsCompraManagerCompras
         TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
         TmpDT.Columns.Add("TemporadaCuadro", GetType(String))
 
+        TmpDT.Columns.Add("NoIdentificacion", GetType(String))
 
         TmpDT.AcceptChanges()