From 2acb10d97fff212a41ab2704d0dc5e51a61a8466 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 24 Dec 2024 11:53:40 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambio=20de=20moneda=20que=20afecte=20la?=
 =?UTF-8?q?=20remisi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/RepContratoDetalle.aspx    | 2 +-
 Transportes/RepContratoDetalle.aspx.vb | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx
index 2ca7e6e39..fe65b91fc 100644
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -387,7 +387,7 @@
                                     </div>
 
                                     <div style="text-align: center; padding-top: 20px;">
-                                        <asp:Button runat="server" Text="Guardar Cambios" ValidationGroup="GrpGuardar"
+                                        <asp:Button runat="server" Text="Guardar Cambios" ValidationGroup="GrpGuardar" ID="BtnGuardar"
                                             CssClass="btn btn-primary" OnClick="UpdateContrato" />
                                         <asp:Button runat="server" Text="Eliminar" CssClass="btn btn-danger"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de eliminar el contrato?(Si es contrato masivo, se eliminarán todos)"
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 6e0672c10..a24a9f28d 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -759,6 +759,12 @@ Partial Class RepContratoDetalle
             Return False
         Else
             ' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="BtnRefrescarPagina();")
+            CveSubProyectoOriginal = DdlSubProyecto.SelectedValue.ToEntero
+            CveMonedaOriginal = DdlMoneda.SelectedValue.ToEntero
+            ImporteOrigial = TxtImporte.Text.ToDecimal
+            DescripcionOriginal = TxtDescripcion.Text
+            TipoAFOriginal = DdlTipoAF.SelectedItem.Text
+            FolioOriginal = TxtFolio.Text.Trim
             Return True
         End If
     End Function