-- cambio de moneda que afecte la remisión

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