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

-- serie

Browse Source
This commit is contained in:
rrene
2020-06-03 16:53:53 -07:00
parent 4bcd89cffa
commit ec9864c611
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/PaquetesArmadoDesarmado.aspx.vb
View File

@@ -200,10 +200,6 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
End Sub
#End Region
Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
End Sub
#Region " PROCESAR - VERIFICAR EXISTENCIAS "
Protected Sub BtnVerificarExistenciasArmado_Click(sender As Object, e As EventArgs)
TipoMovimiento = 1
@@ -748,10 +744,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
e.Row.FCButton("BtnSerieLote").Visible = True
e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
e.Row.FCButton("BtnSerie").Visible = True
e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
Else
e.Row.FCButton("BtnSerieLote").Visible = False
e.Row.FCButton("BtnSerie").Visible = False
End If
@@ -774,7 +770,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
DtDatosDetalle.Columns.Add("SeriePaquete", GetType(String))
End If
End Sub
Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs)
Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)