diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 526136ddb..be49d534e 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -675,7 +675,7 @@ + DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Codigo,Total" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True"> diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 791c11dbb..96f0b093d 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -287,6 +287,23 @@ Partial Class Inventarios_EntradasSalidas End Property + + Public Property TotalOriginalEdit() As Decimal + Get + + If ViewState("TotalOriginalEdit") Is Nothing Then + ViewState("TotalOriginalEdit") = 0D + End If + + Return ViewState("TotalOriginalEdit").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("TotalOriginalEdit") = value + End Set + End Property + + + Public Property IndexActualTabla() As Integer Get @@ -1534,7 +1551,20 @@ Partial Class Inventarios_EntradasSalidas If CveMovimiento > 0 Then If CveMovimientoDetalleEdit > 0 Then + + If CveCompra > 0 Then + Dim TotalActual As Decimal = (txtCantidad.Text.ToDecimal * txtPrecio.Text.ToDecimal) + Dim Diferencia As Decimal = Math.Abs(TotalOriginalEdit - TotalActual).RoundSQL(2) + + If Diferencia > 0 Then + Alert($"Existe una diferencia de {Diferencia.ToString("###,###,###.00")} entre el total anterior ({TotalOriginalEdit.ToString("###,###,###.00")}) y actual({TotalActual.ToString("###,###,###.00")}).", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + ActualizarPS() + Else AgregarPS() End If @@ -2894,6 +2924,8 @@ Partial Class Inventarios_EntradasSalidas Protected Sub imgE_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + TotalOriginalEdit = 0D + CveMovimientoDetalleEdit = -1 'Dim i As Integer = e.NewEditIndex 'GvM.EditIndex = @@ -2903,7 +2935,8 @@ Partial Class Inventarios_EntradasSalidas If CveMovimiento > 0 Then CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero - txtCantidad.Enabled = False + TotalOriginalEdit = GvRow.DataKey("Total").ToDecimal + 'txtCantidad.Enabled = False 'DdlClasificacion.Enabled = False DdlProducto2.Enabled = False 'DdlUnidad.Enabled = False diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 60305c207..9d18f43d3 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -436,20 +436,7 @@ - - -
- -
-
- OC -
-
- -
- -
-
+
@@ -475,6 +462,19 @@
+
+ +
+
+ OC +
+
+ +
+ +
+
+