Ajuste en vinculacion OC en compras con la funcionalidad 382

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">

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()