Ventas Actualizar Linea Adicional

Ventas/Ventas.aspx.vb

@@ -39669,8 +39669,25 @@ Partial Class Ventas
             End If
         End If
 
+
+        Dim OrdenCompra As String = "-1"
+
+        If UsuarioActual.CveEmpresa = 119 Then
+            Dim arrayStr As String() = DdlLineaAdicional.SelectedItem.Text.Split(":"c)
+            If arrayStr.Length > 0 Then
+                Dim OrdenCompraTmp As String = arrayStr(0).Replace("IMP", "").Trim
+                If TxtOrdenCompra.Text.Trim.Length > 0 Then
+                    If OrdenCompraTmp.ToUpper <> TxtOrdenCompra.Text.Trim.ToUpper Then
+                        OrdenCompra = $"{TxtOrdenCompra.Text}, {OrdenCompraTmp}"
+                    End If
+                Else
+                    OrdenCompra = $"{OrdenCompraTmp}"
+                End If
+            End If
+        End If
+
         Using ObjVentas As New ClsVentas
-            If ObjVentas.UpdateVentaLineaAdicional(DdlLineaAdicional.SelectedValue.ToEntero(), CveVenta, "", 1, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.UpdateVentaLineaAdicional(DdlLineaAdicional.SelectedValue.ToEntero(), CveVenta, "", 1, UsuarioActual.CveEmpresa, OrdenCompra:=OrdenCompra) Then
                 Alert("Se actualizó la linea adicional de crédito de la venta")
             End If
         End Using