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 @@
-
-
-
+
+
+