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 @@ - +