From 3de9c29462d445ecd7b714785a3712f8a07c8457 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 3 May 2021 20:14:27 -0700
Subject: [PATCH] IVA en faltante/Sobrante

---
 Bancos/DepositosCaja.aspx    | 97 +++++++++++++++++++++++++++++-------
 Bancos/DepositosCaja.aspx.vb |  9 +++-
 2 files changed, 87 insertions(+), 19 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index adbf00f56..ceae430b7 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -140,43 +140,62 @@
                 <div class="col-md-2" runat="server" id="DivFaltante">
                     <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/>
                 </div>
-                 <div class="col-md-3" id="DivComision" style="display: none">
-                    <label style="width: 105px; ">Importe:</label>
+                 <div class="col-md-2" id="DivComision" style="display: none">
+                    <label>Importe:</label>
                     <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
-
-                    <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblSubproyecto" >SubProyecto:</label>
-                    <div class="col-md-2"  style="display: none" id="divSubProyecto">
+                <div class="col-md-1" id="DivIVA" style="display: none">
+                    <label>IVA:</label>
+                    <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm "  Width="75px"></asp:TextBox>
+                </div>
+                <div class="col-md-3"  style="display: none" id="divSubProyecto">
+                    <label class="col-md-1 truncate" style="width: 110px; display: none" id="LblSubproyecto" >SubProyecto:</label>
+                 
                     <asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                     </asp:DropDownList>
                     </div>
-
-                <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacion">Clasificación:</label>
-                <div class="col-md-2" style="display: none" id="divClasificacion">
-                    <asp:DropDownList  ID="DdlClasificacion" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server"  Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
+              
+                <div class="col-md-4" style="display: none" id="divClasificacion">
+                    
+                <label class="col-md-1 truncate"  style="width: 110px;" id="LblClasificacion">Clasificación:</label>
+                
+                    <asp:DropDownList  ID="DdlClasificacion" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                     </asp:DropDownList>
                 </div>
+               
+
+
+
             </div>
               <div class="row">
                 <div class="col-md-2" runat="server" id="Div1">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>
                 </div>
                  <div class="col-md-3" id="DivDescuento" style="display: none">
-                    <label style="width: 105px; ">Importe:</label>
+                    <label>Importe:</label>
                     <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
 
-                <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblSubproyectoDescuento" >SubProyecto:</label>
-                <div class="col-md-2"  style="display: none" id="divSubProyectoDescuento">
+                 <div class="col-md-3"  style="display: none" id="divSubProyectoDescuento">
+                    <label class="col-md-1 truncate" style="width: 110px; display: none" id="LblSubproyectoDescuento" >SubProyecto:</label>
+                 
                     <asp:DropDownList ID="DdlSubProyectoDescuento" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                     </asp:DropDownList>
-                </div>
-
-                <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacionDescuento">Clasificación:</label>
-                <div class="col-md-2" style="display: none" id="divClasificacionDescuento">
-                    <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server"  Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
+                    </div>
+              
+                <div class="col-md-4" style="display: none" id="divClasificacionDescuento">
+                    
+                <label class="col-md-1 truncate"  style="width: 110px;" id="LblClasificacionDescuento">Clasificación:</label>
+                
+                    <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                     </asp:DropDownList>
                 </div>
+               
+
+
+
+
+
             </div>
 
             <br />
@@ -295,6 +314,26 @@
                         debugger;
                     } else {
 
+                        //debugger;
+                    }
+                }
+                var txtcomision = ToDouble($('#C_TxtIVA').val());
+                if (txtcomision != 0) {
+                    var comisionNegativa = 0;
+                    if (txtcomision < 0) {
+                        comisionNegativa = txtcomision * -1;
+                    }
+                    if (comisionNegativa > saldo) {
+                        $('#C_TxtIVA').val(0);
+                        comision = 0;
+                        descuento = 0;
+                        txtcomision = 0;
+                        alert("No es posible poner un importe IVA superior a lo seleccionado");
+                        saldo = 0;
+                        $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+                        debugger;
+                    } else {
+
                         //debugger;
                     }
                 }
@@ -351,7 +390,25 @@
             }
             if (comisionNegativa > ValorTotalSeleccionado) {
                 $('#C_TxtDescuento').val(descuento)
-                alert("No es posible poner una comision superior a lo seleccionado")
+                alert("No es posible poner un descuento superior a lo seleccionado")
+            } else {
+                saldo = ValorTotalSeleccionado + comision2 + comision;
+                $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+                descuento = ToDouble($('#C_TxtDescuento').val())
+            }
+
+        }
+
+
+        function txtSumaIVA(txt) {
+            var comision2 = ToDouble($('#C_TxtIVA').val());
+            var comisionNegativa = 0;
+            if (comision2 < 0) {
+                comisionNegativa = comision2 * -1;
+            }
+            if (comisionNegativa > ValorTotalSeleccionado) {
+                $('#C_TxtIVA').val(descuento)
+                alert("No es posible poner un IVA superior a lo seleccionado")
             } else {
                 saldo = ValorTotalSeleccionado + comision2 + comision;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
@@ -367,12 +424,16 @@
                 $('#divSubProyecto').css("display", "block");
                 $('#LblClasificacion').css("display", "block");
                 $('#divClasificacion').css("display", "block");
+                $('#DivIVA').css("display", "block");
+
             } else {
                 $('#DivComision').css("display", "none");
                 $('#LblSubproyecto').css("display", "none");
                 $('#divSubProyecto').css("display", "none");
                 $('#LblClasificacion').css("display", "none");
                 $('#divClasificacion').css("display", "none");
+                $('#DivIVA').css("display", "none");
+
             }
         }
 
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index ef5e7ca4e..a0f7165c5 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -23,6 +23,8 @@ Partial Class Bancos_DepositosCaja
             txtFechaF.Text = Now.ToShortDateString
             TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
             TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(event);")
+            TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(event);")
+
 
             CargaCuentas()
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
@@ -88,6 +90,7 @@ Partial Class Bancos_DepositosCaja
         Dim TotalImportePrePoliza As Decimal
         Dim Comision As Decimal = TxtComision.Text.ToDecimal
         Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
+        Dim IVA As Decimal = TxtIVA.Text.ToDecimal
 
 
         For Each Gvr As GridViewRow In GvFacturas.Rows
@@ -101,7 +104,7 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision + Descuento
+            TotalImporte = TotalImporte + Comision + Descuento + IVA
             'Comision = -(Comision) ' se inverte el valor, va cargada
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -166,6 +169,10 @@ Partial Class Bancos_DepositosCaja
                 If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
                     OcurrioError = True
                 End If
+
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, IVA, DdlClasificacion.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+                    OcurrioError = True
+                End If
             End If
 
             If ChkDescuento.Checked Then