AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cabios en columnas

Browse Source
This commit is contained in:
rrene
2022-02-21 17:10:24 -07:00
parent 6f2c1b7884
commit 43fd23841c
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/PopUpBuscarFolio.aspx.vb
View File

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