Ajuste en vinculacion OC en compras con la funcionalidad 382

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