nuevo filtro y mecanica para nueva tabla en kardex horizontal

Compras/Compras.aspx.vb

@@ -11,6 +11,7 @@ Imports System.IO
 Imports ADServerControl
 Imports System.Threading.Tasks
 Imports System.Diagnostics
+Imports System.Text.RegularExpressions
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -20312,7 +20313,6 @@ Partial Class Compras_Compras
 
     Private Function VerificarProductosCompraConOC() As Boolean
 
-
         Dim ProductosNoValidados As New StringBuilder()
 
         Dim DtCompras As New DataTable()
@@ -20338,7 +20338,12 @@ Partial Class Compras_Compras
             Dim TipoPS As String = GvOCRow.DataKey("CveTipoPS")
 
             If TipoPS = "2" Then
-                Dim ProductoAisloadoString As String = GvOCRow.DataKey("PS").Split("-"c)(1).Trim()
+                Dim ProductoAisloadoString As String = ""
+                If CveFactura > 0 Then
+                    ProductoAisloadoString = Regex.Replace(GvOCRow.DataKey("PS"), "^\d*\s-\s", "")
+                Else
+                    ProductoAisloadoString = GvOCRow.DataKey("PS")
+                End If
                 Dim PSOC As String = ProductoAisloadoString
                 Dim CantidadOC As String = GvOCRow.DataKey("CantidadF")
                 Dim PrecioUnitarioOC As String = GvOCRow.DataKey("Importe")