-- moneda en validación de presupuesto

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"