diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 34a615a32..8bdf74e1c 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1263,6 +1263,7 @@ Partial Class Bancos_IE
                     IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompClientes
                     DdlCliente.SelectedText = ObjCliente.NombreComercial
                     DdlCliente.SelectedValue = ObjCliente.CveCliente.ToString
+                    DivOtrosIngresosEgresos.Visible = True
                 End If
 
                 If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
@@ -2677,20 +2678,11 @@ Partial Class Bancos_IE
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
-                                End If
-
-                                'CANCELA NC
-                                IdCtaContableAplicar = IDCtaBeneficiario
-                                ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then
-                                    MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
-                                    Exit Select
-                                End If
-
-                                'OTROS INGRESOS/EGRESOS
-
+                                End If
+
+                                'OTROS INGRESOS/EGRESOS
+                                Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
                                 If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
-                                    Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
                                     Dim TipoMovtoIE As Boolean = False
                                     Dim CveConcIE As Integer = 78
                                     If Impo > 0 Then
@@ -2707,10 +2699,17 @@ Partial Class Bancos_IE
                                         MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                         Exit Select
                                     End If
+                                End If
+
+                                'CANCELA NC
+                                IdCtaContableAplicar = IDCtaBeneficiario
+                                ImporteAplicar = ImporteAplicar + Impo
+                                ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then
+                                    MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
+                                    Exit Select
                                 End If
 
-
-
                                 'IMPUESTOS
                                 If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin) Then
                                     Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
@@ -2805,14 +2804,35 @@ Partial Class Bancos_IE
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
+                                End If
+
+                                'OTROS INGRESOS/EGRESOS
+                                If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
+                                    Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
+                                    Dim TipoMovtoIE As Boolean = False
+                                    Dim CveConcIE As Integer = 78
+                                    If Impo > 0 Then
+                                        TipoMovtoIE = True
+                                        Impo = Math.Abs(Impo)
+                                        CveConcIE = 78
+                                    Else
+                                        TipoMovtoIE = False
+                                        Impo = Math.Abs(Impo)
+                                        CveConcIE = 211
+                                    End If
+
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
+                                        MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
+                                        Exit Select
+                                    End If
                                 End If
 
                                 'CANCELA NC
                                 IdCtaContableAplicar = IDCtaBeneficiario
-                                ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
-                                Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1
+                                ImporteAplicar = ImporteAplicar - TxtOtrosIngresosEgresos.Text.ToDecimal
+                                ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (Importe), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
                                     MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                     Exit Select
                                 End If