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

option explicit

Browse Source
This commit is contained in:
rrene
2023-09-21 21:57:12 -07:00
parent c55ca6cb4b
commit 8d071baa7d
2 changed files with 67 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1711,7 +1711,7 @@ Partial Class Inventarios_RecepcionAlmacen
#Region " AGREGA POR SERIE/LOTE "
Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
Dim Argumentos As String() = CType(sender, Button).CommandArgument.Split("°"c)
LbProducto.Text = Argumentos(3)
LbCantidad.Text = Argumentos(4).FormatoNumero
@@ -1969,7 +1969,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
End Sub
Protected Sub BtnLote_Click(sender As Object, e As EventArgs)
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
Dim Argumentos As String() = CType(sender, Button).CommandArgument.Split("°"c)
LbLoteProducto2.Text = Argumentos(3)
LbLoteCantidad2.Text = Argumentos(4).FormatoNumero