- cambio en otros ingresos al pagar la compra, toma como base la moneda de la compra. en lugar de la moneda del pago

App_Code/ClsPaginas.vb

@@ -7570,7 +7570,7 @@ Public Class ClsPaginas
 
         'si tiene otros gastos/ingresos
         If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then
-            ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados
+            ImporteMovimiento = (Pago.OtroGastoIngreso * If(CompraActual.CveMoneda = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados
             Dim tOtCveCon As Integer = 211
             Dim tOtTipoMovto As Boolean = False
 

Compras/Compras.aspx.vb

@@ -6939,7 +6939,7 @@ Partial Class Compras_Compras
                                             End If
                                         End If
 
-                                        '''  A N T I C I P O S
+                                        ''   A N T I C I P O S
                                         'If UsuarioActual.Empresa.UsaAC Then
                                         '    If ArrAnticipos.Count > 0 Then
 
@@ -10264,7 +10264,8 @@ Partial Class Compras_Compras
                 End If
                 e.Row.FCCheckBox("cbInv").Enabled = False
             End If
-            If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+            'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv
+            If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
                 If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then
                     e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1
                     e.Row.FCCheckBox("cbInv").Checked = True
@@ -10343,7 +10344,8 @@ Partial Class Compras_Compras
             e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4)
             e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind()
 
-            If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
+            'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv
+            If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
                 If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then
                     e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1
                     e.Row.FCCheckBox("cbAll").Checked = True
@@ -14101,6 +14103,7 @@ Partial Class Compras_Compras
         '    Exit Sub
         'End If
 
+
         If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
             LbSubTotalDif.Visible = False
             Vinculacion()