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

SUMD

Browse Source
This commit is contained in:
rrene
2021-04-06 11:39:08 -07:00
parent 78cf798d1a
commit 28f772a9e7
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -966,7 +966,8 @@ Partial Class Inventarios_EntregaAlmacen
If CBool(e.Row.DBCampo("AplicaCaducidad")) Then If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
e.Row.FCTextBox("TxtCaducidad").Visible = True e.Row.FCTextBox("TxtCaducidad").Visible = True
e.Row.FCLinkButton("LnkCaducidad").Visible = True e.Row.FCLinkButton("LnkCaducidad").Visible = True
e.Row.FCTextBox("TxtCaducidad").readonly = True 'e.Row.FCTextBox("TxtCaducidad").readonly = True
e.Row.FCTextBox("TxtCaducidad").enabled = True
Else Else
e.Row.FCTextBox("TxtCaducidad").Visible = False e.Row.FCTextBox("TxtCaducidad").Visible = False
e.Row.FCLinkButton("LnkCaducidad").Visible = False e.Row.FCLinkButton("LnkCaducidad").Visible = False
@@ -974,7 +975,8 @@ Partial Class Inventarios_EntregaAlmacen
If CBool(e.Row.DBCampo("AplicaLote")) Then If CBool(e.Row.DBCampo("AplicaLote")) Then
e.Row.FCTextBox("TxtLote").Visible = True e.Row.FCTextBox("TxtLote").Visible = True
e.Row.FCTextBox("TxtLote").readonly = True ' e.Row.FCTextBox("TxtLote").readonly = True
e.Row.FCTextBox("TxtLote").enabled = True
Else Else
e.Row.FCTextBox("TxtLote").Visible = False e.Row.FCTextBox("TxtLote").Visible = False
End If End If
@@ -1743,8 +1745,8 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then
DtDatosVenta = ObjInventario.DtResultados DtDatosVenta = ObjInventario.DtResultados
End If End If
Dim CantidadGV = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
If CantidadGV <> DtDatosVenta.SUM("CantidadF").ToDecimal Then If CantidadGV <> DtDatosVenta.SUMD("CantidadF") Then
ObjInventario.RollBack() ObjInventario.RollBack()
ObjInventario.Dispose() ObjInventario.Dispose()
ObjConta.Dispose() ObjConta.Dispose()