From 34b0b071022000749d59680596ea4dabb9eb7b6c Mon Sep 17 00:00:00 2001
From: Rene Molina <rrene33@hotmail.com>
Date: Wed, 16 Oct 2019 18:19:46 -0700
Subject: [PATCH] =?UTF-8?q?devoluci=C3=B3n=20efectivo,=20otros=20ingresos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx                  | 11 +++++++++++
 Bancos/IE.aspx.vb               | 26 +++++++++++++++++++++++++-
 Compras/RepNotasCredito.aspx.vb |  2 +-
 3 files changed, 37 insertions(+), 2 deletions(-)

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 21a8f8590..0e8ec390a 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