cabios en columnas

Ventas/PopUpBuscarFolio.aspx.vb

@@ -105,9 +105,15 @@ Partial Class PopUpBuscarFolio
         Else
             Dim Array() As String = TxtFolio.Text.Trim.Split(CChar("-"))
 
-            If Array.Length = 2 Then
-                Serie = Array(0)
-                Folio = Array(1).ToEntero
+            If Array.Length >= 2 Then
+                If Array.Length = 2 Then
+                    Serie = Array(0)
+                    Folio = Array(1).ToEntero
+                End If
+                If Array.Length = 3 Then
+                    Serie = Array(0) + "-" + Array(1)
+                    Folio = Array(2).ToEntero
+                End If
             Else
                 Serie = "-1"
                 Folio = TxtFolio.Text.Trim.ToEntero