From e43e14ce86574286db7dadc91947e9c8d6eb24f5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Jun 2024 08:28:56 -0700
Subject: [PATCH] =?UTF-8?q?--=20moneda=20en=20validaci=C3=B3n=20de=20presu?=
 =?UTF-8?q?puesto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index ae9fcf415..79a130dd7 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2221,7 +2221,8 @@ Partial Class OC_OC
             End If
 
             Dim ValImporte As Decimal = (TxtCant.Text.ToDecimal * txtPrecioUnitario.Text.ToDecimal).RoundSQL(2)
-            If Not ValidaPresupuesto(1, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, ValImporte) Then
+
+            If Not ValidaPresupuesto(1, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, ValImporte, DdlMoneda.SelectedValue.ToEntero) Then
                 Exit Sub
             End If
 
@@ -9044,7 +9045,7 @@ Partial Class OC_OC
     ''' <param name="ValImporte">Usado al validar Presupuesto cuando se agrega un producto o servicio </param>
     ''' <returns>Verdadero si hay presupuesto, Falso si no hay presupuesto.</returns>
     Public Function ValidaPresupuesto(Opcion As Integer, Optional ValCveSubProyecto As Integer = -1, Optional ValSubProyecto As String = "", Optional ValCveClasificacion As Integer = -1, Optional ValClasificacion As String = "",
-                                     Optional ValImporte As Decimal = 0) As Boolean
+                                     Optional ValImporte As Decimal = 0, Optional CveMoneda As Integer = 1) As Boolean
 
         Dim respuesta As Boolean = False
 
@@ -9056,6 +9057,8 @@ Partial Class OC_OC
             Dim Ejercido As Decimal = 0
             Dim FechaCompra As Date = TxtFecha.Text.ToDate
 
+            If CveMoneda <> 1 Then ValImporte = ValImporte * GlobalTipoCambio(FechaCompra).ToDecimal
+
             If ObjCon.GetPresupuestosResumen(UsuarioActual.CveEmpresa, -1, FechaCompra.FirstDayOfMonth, FechaCompra.LastDayOfMonth, 2) Then
                 Dim ColumnaSaldo As String = "Saldo"
                 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ColumnaSaldo = "SaldoComprometido"