From fa904b366c72584f4fef6c53751d0db46de675bc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 9 Jun 2023 13:33:46 -0700
Subject: [PATCH] -- para devoluciones de efectivo poder ajustar por redondeo

---
 Bancos/IE.aspx    | 60 +++++++++++++++--------------------------------
 Bancos/IE.aspx.vb | 44 +++++++++++++++++++---------------
 2 files changed, 44 insertions(+), 60 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 1b78035dc..c967b9b73 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -291,6 +291,12 @@
                                     <asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox>
 
                                 </div>
+                                <label id="lblDevolucion" runat="server" class="col-md-2 control-label ">Dev. Cliente:</label>
+                                <div id="divTxtDevolucion" runat="server" class="col-md-2 input-icon">
+                                    <i style="margin: 0px;">$</i>
+                                    <asp:TextBox ID="TxtDevolución" 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">
@@ -1485,47 +1491,7 @@
             </div>
         </div>
     </div>
-
-
-    <div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
-
-            <!-- Modal content-->
-            <div class="modal-content">
-                <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Ajustar Movimiento</h4>
-                </div>
-                <div class="modal-body">
-                    <asp:UpdatePanel ID="UpModalAjustarMovimiento" runat="server" UpdateMode="Conditional">
-                        <ContentTemplate>
-
-                            <div class="row">
-                                <div class="col-xs-2">Importe:</div>
-                                <div class="col-xs-8" style="text-align: left">
-                                    <asp:TextBox ID="TxtAjustarMovimiento" runat="server" Width="120px" CssClass="form-control" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off" onkeydown="return (event.keyCode!=13);"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVTxtAjustarMovimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAjustarMovimiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GpoAjustarMovimiento"></asp:RequiredFieldValidator>
-                                    <ajax:FilteredTextBoxExtender ID="FIETxtAjustarMovimiento" runat="server" TargetControlID="TxtAjustarMovimiento" FilterType="Custom, Numbers" ValidChars="+-.," />
-                                    <i></i>
-                                </div>
-                            </div>
-
-
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-                <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
-                        <ContentTemplate>
-                            <asp:Button ID="BtnAjustarMovimiento" Text="Ajustar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GpoAjustarMovimiento" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-            </div>
-        </div>
-    </div>
-
+     
 
     <%--    <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -1773,11 +1739,23 @@
         //VALIDA QUE LA CANTIDAD DE T (TXT) NO SEA MAYOR A C
         function ValidarCantidad(t, c) {
             var Ot = 0.00;
+            debugger;
             // considera importe de OT ingresos, para que se peuda exceder
             if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
             t.value = (ToDouble(t.value) > ToDouble(c) + Ot ? c : t.value)
         }
 
+        function ValidarCantidadDev(s) {
+            var Ot = 0.00;
+            var Dev = 0.00;
+            debugger; //valida importe
+            if ($get('TxtDevolución') && (ToDouble($get('TxtDevolución').value) > s)) $get('TxtDevolución').value = s;
+          
+            // considera importe de OT ingresos, para que se peuda exceder
+            if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
+            if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot;
+        }
+
         var TipoCambioActual = 0.0;
         function CambiaTC(txt) {
             let TipoCambioTxt = ToDouble(txt.value)
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 380074cdb..f41eb8d18 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1504,6 +1504,8 @@ Partial Class Bancos_IE
                     DdlCliente.SelectedText = ObjCliente.NombreComercial
                     DdlCliente.SelectedValue = ObjCliente.CveCliente.ToString
                     DivOtrosIngresosEgresos.Visible = True
+                    'TxtImporte.ReadOnly = True
+                    TxtImporte.Attributes.Add(“readonly”, “readonly”)
                 End If
 
                 'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
@@ -3009,7 +3011,8 @@ Partial Class Bancos_IE
                                 If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
                                     Dim TipoMovtoIE As Boolean = False
                                     Dim CveConcIE As Integer = 78
-                                    If Impo > 0 Then
+                                    Dim tCveSub As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                                    If Impo < 0 Then
                                         TipoMovtoIE = True
                                         Impo = Math.Abs(Impo)
                                         CveConcIE = 78
@@ -3021,7 +3024,7 @@ Partial Class Bancos_IE
                                         IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
                                     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
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0, CveSubProyecto:=tCveSub) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                         Exit Select
                                     End If
@@ -3029,7 +3032,7 @@ Partial Class Bancos_IE
 
                                 'CANCELA NC
                                 IdCtaContableAplicar = IDCtaBeneficiario
-                                ImporteAplicar = ImporteAplicar + Impo
+                                ImporteAplicar = ImporteAplicar - Impo
                                 ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 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"
@@ -5806,7 +5809,10 @@ Partial Class Bancos_IE
                 CvePrePolizaDevDin = UrlParametros("CVEPREPOLIZA").ToString.ToEntero
                 ImporteOriginalDevDin = UrlParametros("ORIGINAL").ToString.ToDecimal.RoundSQL(6)
                 TxtImporte.Text = UrlParametros("SALDO").ToString.FormatoNumero()
-                TxtImporte.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidad(this,{UrlParametros("SALDO").ToString});")
+                TxtDevolución.Text = UrlParametros("SALDO").ToString.FormatoNumero()
+                'TxtImporte.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidad(this,{UrlParametros("SALDO").ToString});")
+                TxtDevolución.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidadDev( {UrlParametros("SALDO").ToString});")
+                TxtOtrosIngresosEgresos.Attributes.Add("onkeyup", $"ValidarCantidadDev();")
                 TxtImporteLetra.Text = UrlParametros("SALDO").ToString.ToDouble.Texto2Letras(UrlParametros("CVEMONEDA").ToString.ToEntero)
                 CargaCliente(CveCliente)
                 'BuscarCliente()
@@ -6322,26 +6328,26 @@ Partial Class Bancos_IE
     End Sub
 
 
-    Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
-        RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
-    End Sub
+    'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
+    '    RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
+    'End Sub
 
-    Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
+    'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
 
-        Dim ObjBanco As New ClsBancos
-        ObjBanco.IniciaTransacSQL()
+    '    Dim ObjBanco As New ClsBancos
+    '    ObjBanco.IniciaTransacSQL()
 
-        If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            ObjBanco.Commit()
-            RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
-            Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
-        Else
-            ObjBanco.RollBack()
-        End If
+    '    If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+    '        ObjBanco.Commit()
+    '        RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
+    '        Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
+    '    Else
+    '        ObjBanco.RollBack()
+    '    End If
 
-        ObjBanco.Dispose()
+    '    ObjBanco.Dispose()
 
-    End Sub
+    'End Sub