diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb
index efd02c005..e30f76935 100644
--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/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
diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx b/Ventas/RepCancelacionesPorRespuesta.aspx
index 1933affd9..e3c8aa809 100644
--- a/Ventas/RepCancelacionesPorRespuesta.aspx
+++ b/Ventas/RepCancelacionesPorRespuesta.aspx
@@ -126,7 +126,7 @@
-
+