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

-- liberación con lotes/series

Browse Source
This commit is contained in:
rrene
2022-04-04 16:05:16 -07:00
parent 375418c9c3
commit b102f3ce14
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -986,7 +986,7 @@ Partial Class Inventarios_ResguardoMaterial
Cont = 0
Importe = ObjInventario.DtResultados.SUMD("Total").RoundAD
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
Dim CveSeccionAlmacen As Integer = DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
Dim CveSeccionAlmacen As Integer = -1 'DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
Dim Lote As String = "-1"
Dim FechaCaducidad As Date = MinFecha
If DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString <> "" Then Lote = DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString
@@ -1013,6 +1013,7 @@ Partial Class Inventarios_ResguardoMaterial
End If
If Not TieneError Then
ObjInventario.Commit()
Dim Msg As New StringBuilder
If Concepto = 23 Then
'FolioEntrada
@@ -1035,7 +1036,6 @@ Partial Class Inventarios_ResguardoMaterial
DdlSubProyecto.SelectedValueExist("-1")
End If
ObjInventario.Commit()
If Concepto = 23 Then
LimpiarMovimiento()