diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 53489d4c4..e47da35f1 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -246,6 +246,17 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
                             </asp:Panel>
+                             <div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
+                                <label class="col-md-2 control-label"></label>
+                                <div class="col-md-2"></div>
+                                <div class="col-md-4"></div>
+                                <label class="col-md-1 control-label text-right">Otr:</label>
+                                <div class="col-md-2 input-icon">
+                                    <i style="margin: 0px;">$</i>
+                                    <asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;"  AutoComplete="off"></asp:TextBox>
+                                    
+                                </div>
+                            </div>
                             <br />
                             <asp:Panel ID="PnlRecibidoPor" runat="server" Visible="false">
                                 <asp:UpdatePanel ID="UpRecibidoPor" class="row" style="padding: 0px; min-height: 22px; margin-top: 3px;" runat="server" UpdateMode="Conditional">
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index b4a14655d..09ab57456 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2686,7 +2686,31 @@ Partial Class Bancos_IE
                                     Exit Select
                                 End If
 
-                                'IMPUESTOS
+                                '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, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0) Then
+                                        MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
+                                        Exit Select
+                                    End If
+                                End If
+
+
+
+                                'IMPUESTOS
                                 If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin) Then
                                     Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
                                     Dim CveConceptoContableAplciar = -1
diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index c04fd2c3e..f5d63a35b 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -143,7 +143,7 @@ Partial Class Compras_RepNotasCredito
                 TCCompra = gr.DataKey("TipoCambio").ToDecimal
                 CveMoneda = gr.DataKey("CveMoneda").ToEntero
 
-                CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 2, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CveMoneda > 1 Then
                     IdCtaContable = gr.DataKey("IdCtaContExtranjera").ToEntero
diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx
index cd25184a0..254800fc3 100644
--- a/Contabilidad/RepIVA.aspx
+++ b/Contabilidad/RepIVA.aspx
@@ -167,6 +167,7 @@
         <ajax:TabPanel ID="TA" runat="server" HeaderText="IVA Acreditable">
             <ContentTemplate>
             <h4><b>IVA Acreditable</b></h4>
+                <asp:Label ID="LblMsgAcreditable" runat="server" Text="" ForeColor="Red"></asp:Label>
             <asp:GridView ID="GvA" runat="server"  EmptyDataText="No se encontraron datos con los filtros seleccionados" OnRowDataBound="GvIVAAcreditable_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="99%" GridLines="None" AutoGenerateColumns="false">
                 <Columns>
                     <asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index 3f8e11bff..0730328b1 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -62,6 +62,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
     {
         if (TipoCambio == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; }
         int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
+        LblMsgAcreditable.Text = ""; // lbl de mensajes de negativos
 
         ClsContabilidad ObjCont = new ClsContabilidad();
         if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 1, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
@@ -83,10 +84,18 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         {
             GvA.DataSource = ObjCont.DtResultados;
             DtIVAAcreditable = ObjCont.DtResultados;
+            if (DtIVAAcreditable.FiltraParametros("IVA < 0 OR IEPS < 0 ").Rows.Count > 0) 
+            {
+                LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT";
+             }
+                
+
             if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIVA2.DataSource = ObjCont.DtResultados;
             }
+          
+
         }
         ObjCont.Dispose();
         GvT.DataBind();