Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Bancos/DepositosCaja.aspx

@@ -141,7 +141,7 @@
                     <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/>
                 </div>
                  <div class="col-md-3" id="DivComision" style="display: none">
-                    <label style="width: 105px; ">Faltante/Sobrante:</label>
+                    <label style="width: 105px; ">Importe:</label>
                     <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
 
@@ -157,16 +157,21 @@
                     </asp:DropDownList>
                 </div>
             </div>
-            <br />
               <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; ">Descuento:</label>
+                    <label style="width: 105px; ">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">
+                    <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">
@@ -246,21 +251,22 @@
 
         var ValorTotalSeleccionado = 0
         var comision = 0;
+        var descuento = 0;
+        var saldo = 0;
 
         function FnSuma(chk, cantidad) {
-            var saldo = ToDouble($('#C_lblValorTotal').text());
+            var saldoInicial = ToDouble($('#C_lblValorTotal').text());
             if (chk.checked == false) {
                 cantidad = cantidad * -1;
             }
-            saldo = saldo + cantidad;
+            saldoInicial = saldoInicial + cantidad;
-            $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+            $('#C_lblValorTotal').text(FormatoNumero(saldoInicial, 2));
-            $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
+            $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldoInicial, 2));
-            ValorTotalSeleccionado = saldo
+            ValorTotalSeleccionado = saldoInicial
             
         }
 
         function txtSuma(txt) {
-            var saldo = ToDouble($('#C_lblValorTotal').text());
             var comision2 = ToDouble($('#C_TxtComision').val());
             var comisionNegativa = 0;
             if (comision2 < 0) {
@@ -270,13 +276,32 @@
                 $('#C_TxtComision').val(comision)
                 alert("No es posible poner una comision superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + comision2;
+                saldo = ValorTotalSeleccionado + comision2 + descuento;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 comision = ToDouble($('#C_TxtComision').val())
+                debugger;
             }
                 
         }
 
+        function txtSumaDescuento(txt) {
+            var comision2 = ToDouble($('#C_TxtDescuento').val());
+            var comisionNegativa = 0;
+            if (comision2 < 0) {
+                comisionNegativa = comision2 * -1
+            }
+            if (comisionNegativa > ValorTotalSeleccionado) {
+                $('#C_TxtDescuento').val(descuento)
+                alert("No es posible poner una comision superior a lo seleccionado")
+            } else {
+                saldo = ValorTotalSeleccionado + comision2 + comision;
+                $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+                descuento = ToDouble($('#C_TxtDescuento').val())
+                debugger;
+            }
+
+        }
+
         function CheckFaltante(chk) {
             if (chk.checked == true) {
                 $('#DivComision').css("display", "block");
@@ -284,32 +309,29 @@
                 $('#divSubProyecto').css("display", "block");
                 $('#LblClasificacion').css("display", "block");
                 $('#divClasificacion').css("display", "block");
-
-                debugger;
-
             } else {
                 $('#DivComision').css("display", "none");
-                $('#LblSubproyecto').css("display", "none");
+                $('#divSubProyecto').css("display", "none");
                 $('#divSubProyecto').css("display", "none");
                 $('#LblClasificacion').css("display", "none");
                 $('#divClasificacion').css("display", "none");
-                debugger;
             }
         }
 
         function CheckDescuento(chk) {
             if (chk.checked == true) {
                 $('#DivDescuento').css("display", "block");
+                $('#LblSubproyectoDescuento').css("display", "block");
+                $('#divSubProyectoDescuento').css("display", "block");
                 $('#LblClasificacionDescuento').css("display", "block");
                 $('#divClasificacionDescuento').css("display", "block");
-
-                debugger;
-
             } else {
+                
                 $('#DivDescuento').css("display", "none");
+                $('#LblSubproyectoDescuento').css("display", "none");
+                $('#divSubProyectoDescuento').css("display", "none");
                 $('#LblClasificacionDescuento').css("display", "none");
                 $('#divClasificacionDescuento').css("display", "none");
-                debugger;
             }
         }
     </script>

Bancos/DepositosCaja.aspx.vb

@@ -22,6 +22,7 @@ Partial Class Bancos_DepositosCaja
             txtFechaI.Text = Now.AddDays(-1).ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
             TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
+            TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(event);")
 
             CargaCuentas()
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
@@ -41,15 +42,22 @@ Partial Class Bancos_DepositosCaja
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
         DdlSubProyectoDeposito.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
+        DdlSubProyectoDescuento.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
         DdlClasificacion.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
+        DdlClasificacionDescuento.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -119,9 +127,10 @@ Partial Class Bancos_DepositosCaja
         Dim CveCuentaBancariaDestino As Integer = 0
         Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
-        Dim CveSubProyecto As Integer = 0
+        Dim CveSubProyecto As Integer = -1
-        Dim CveClasificacion As Integer = 0
+        Dim CveSubProyectoDescuento As Integer = -1
-        Dim CveClasificacionDescuento As Integer = 0
+        Dim CveClasificacion As Integer = -1
+        Dim CveClasificacionDescuento As Integer = -1
         Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
         Dim imprimirFolios As String = ""
         If drOrigen IsNot Nothing Then
@@ -160,7 +169,7 @@ Partial Class Bancos_DepositosCaja
             End If
 
             If ChkDescuento.Checked Then
-                CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
+                CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
                 If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then

Compras/Compras.aspx.vb

@@ -7248,7 +7248,7 @@ Partial Class Compras_Compras
                                                                         If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
                                                                             'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                             Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal  ' RMF. falta aplicar si está generada su TC de la última fluctuación
                                                                             Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
 
                                                                             IdCtaContable = CtaProveedorExtranjera