From 21f9fb410f04bf4e88a9a7a8cafe4d015793e9b2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 28 Feb 2025 11:49:41 -0700
Subject: [PATCH] =?UTF-8?q?EntradasSalidas,=20si=20el=20movtodetalle=20tie?=
 =?UTF-8?q?ne=20cvecompradetalle,=20validar=20el=20total=20original=20vs?=
 =?UTF-8?q?=20el=20nuevo.=20y=20afectar=20directamente=20sobre=20la=20tabl?=
 =?UTF-8?q?a=20de=20compradetalle,=20as=C3=AD=20como=20se=20hace=20cuando?=
 =?UTF-8?q?=20se=20edita=20el=20cveps?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx    |  2 +-
 Inventarios/EntradasSalidas.aspx.vb | 35 ++++++++++++++++++++++++++++-
 Inventarios/Kardex.aspx             | 28 +++++++++++------------
 3 files changed, 49 insertions(+), 16 deletions(-)

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 @@
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
                             <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" EmptyDataText="Aún no hay registros."
-                                DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Codigo" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True">
+                                DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Codigo,Total" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True">
                                 <Columns>
                                     <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
                                         <EditItemTemplate>
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 @@
         
             
             <asp:UpdatePanel runat="server" ID="UpOCS" UpdateMode="Conditional">
-                <ContentTemplate> 
-
-                    <div class="col-md-1" style="text-align:right!important">
-                        
-                        <div id="DivIndicadorOC2" runat="server" visible="false" >
-                            <div style=" color: gray;font-size: 12px;font-weight: bold;">
-                                OC
-                            </div>
-                            <div style=" color: blue; font-size: 20px; font-weight: bold;">
-                                <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
-                            </div>
-
-                        </div>
-                    </div>
+                <ContentTemplate>                     
 
                    <div class="col-md-1" style="text-align:right!important">
                        <div id="DivIndicadorL1" runat="server" visible="false" >
@@ -475,6 +462,19 @@
                          </div>
                    </div>
 
+                    <div class="col-md-1" style="text-align:right!important">
+    
+                        <div id="DivIndicadorOC2" runat="server" visible="false" >
+                            <div style=" color: gray;font-size: 12px;font-weight: bold;">
+                                OC
+                            </div>
+                            <div style=" color: blue; font-size: 20px; font-weight: bold;">
+                                <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
+                            </div>
+
+                        </div>
+                    </div>
+
                   
                 </ContentTemplate>
             </asp:UpdatePanel>