-- corrección en otros ingresos, en dólares

App_Code/ClsPaginas.vb

@@ -7772,9 +7772,10 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
             End If
         End If
+
         'si tiene otros gastos/ingresos
-        ImporteMovimiento = Pago.OtroGastoIngreso
-        If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
+        If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then
+            ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL
             Dim tOtCveCon As Integer = 211
             Dim tOtTipoMovto As Boolean = False
             Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0)
@@ -8283,8 +8284,9 @@ Public Class ClsPaginas
             End If
         End If
         'si tiene otros gastos/ingresos
-        ImporteMovimiento = Pago.OtroGastoIngreso
-        If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
+
+        If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then
+            ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL
             Dim tOtCveCon As Integer = 78
             Dim tOtTipoMovto As Boolean = True
             If ImporteMovimiento < 0 Then