From 43fd23841c5830804fc83dc8e3e01c122132b30b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Feb 2022 17:10:24 -0700 Subject: [PATCH] cabios en columnas --- Ventas/PopUpBuscarFolio.aspx.vb | 12 +++++++++--- Ventas/RepCancelacionesPorRespuesta.aspx | 2 +- 2 files changed, 10 insertions(+), 4 deletions(-) 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 @@ - +