-- registro de oc en pesos con facturas en dólares, que el concepto se registre en base al importe de la OC, y no de la factura

Compras/Compras.aspx.vb

@@ -6570,8 +6570,14 @@ Partial Class Compras_Compras
                                                                                 Dim tCveColectiva As Integer = ObjOC.DtResultados.FiltroPrimeroValor("CveColectiva").ToEntero
                                                                                 CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
                                                                                 Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
-                                                                                'RMF. falta verificar el costo indirecto de la OC
-                                                                                If DdlMoneda.SelectedValue.ToEntero <> 1 Then
+                                                                                'RMF. si la Factura es USD, y la OC, en pesos, el registro debe de ser el concepto de la moneda de la oc
+                                                                                If Importe176 > 0 AndAlso DdlMoneda.SelectedValue <> "1" Then
+                                                                                    'Importe176 = (Importe176 * TxtTipoCambioOC.Text.ToDecimal).RoundSQL
+                                                                                    'ImporteMN176 = Importe176
+                                                                                    TCO = TxtTC.Text.ToDecimal
+                                                                                End If
+
+                                                                                If Importe228 > 0 Then
                                                                                     TCO = TxtTC.Text.ToDecimal
                                                                                     ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
                                                                                     'CostoIndirectoAcum176 += ImporteCI176
@@ -19531,6 +19537,11 @@ Partial Class Compras_Compras
 
     Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean
 
+        '' si está activado el Tipo de cambio de las OC, no debe de ajustarse, ya que hay una operación de cálculo 
+        If DivTipoCambioOC.Visible Then
+            Return True
+        End If
+
         'VARIABLES
         Dim CveProveedorSucursal As Integer = -1
         Dim CveProveedorContacto As Integer = -1