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

-- cambios de serie,lote

Browse Source
This commit is contained in:
rrene
2020-05-29 00:02:18 -07:00
parent 310740e2b1
commit 9e01a2067f
7 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -790,7 +790,7 @@ Partial Class Inventarios_EntregaAlmacen
'CARGA LO PRECARGADO CON SERIE
Dim Contador = 0
For Each Gvr As GridViewRow In GvDatos.Rows
If Gvr.DataKey("CvePS").ToEntero = CvePSSerie Then
If Gvr.DataKey("CvePS").ToEntero = CvePSSerie AndAlso DtDatosDetalle IsNot Nothing Then
Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).Rows.Count
Gvr.FCCheckBox("cbInv").Enabled = False
Gvr.FCCheckBox("cbInv").Checked = True
@@ -809,9 +809,12 @@ Partial Class Inventarios_EntregaAlmacen
e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°{5}", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("CantidadF"), e.Row.DBCampo("Consec"), e.Row.DBCampo("Inv_CveMetodoInventario"))
e.Row.FCTextBox("TbCantidadF").Enabled = False
e.Row.FCCheckBox("cbInv").Enabled = False
Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
'e.Row.FCTextBox("TbCantidadF").Text = "0"
If e.Row.DBCampo("Consec") <> "" AndAlso DtDatosDetalle IsNot Nothing Then
Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
'e.Row.FCTextBox("TbCantidadF").Text = "0"
End If
If TipoDocto = "DPe" Then
CveConsecSerie = e.Row.DBCampo("Consec").ToString.ToEntero