Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/DepositosCaja.aspx

@@ -137,13 +137,15 @@
                 </div>
             </div>
             <div class="row">
-
-                 <div class="col-md-3" runat="server" Id="DivComision" Visible="false">
+                <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; ">Faltante/Sobrante:</label>
                     <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
 
-                    <label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblSubproyecto" >SubProyecto:</label>
+                    <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">
                     <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>
@@ -155,6 +157,22 @@
                     </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; ">Descuento:</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="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">
+                    </asp:DropDownList>
+                </div>
+            </div>
+
             <br />
             <div style="height:550px;overflow-x:scroll">
                 <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
@@ -227,7 +245,6 @@
 
         var ValorTotalSeleccionado = 0
         var comision = 0;
-        var comisionNegativa = 0;
 
         function FnSuma(chk, cantidad) {
             var saldo = ToDouble($('#C_lblValorTotal').text());
@@ -244,6 +261,7 @@
         function txtSuma(txt) {
             var saldo = ToDouble($('#C_lblValorTotal').text());
             var comision2 = ToDouble($('#C_TxtComision').val());
+            var comisionNegativa = 0;
             if (comision2 < 0) {
                 comisionNegativa = comision2 * -1
             }
@@ -251,13 +269,16 @@
                 $('#C_TxtComision').val(comision)
                 alert("No es posible poner una comision superior a lo seleccionado")
             } else {
-                comision2 = comision2 - comision
-                saldo = saldo + comision2;
+                saldo = ValorTotalSeleccionado + comision2;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 comision = ToDouble($('#C_TxtComision').val())
             }
+                
+        }
 
-            if (comision != 0) {
+        function CheckFaltante(chk) {
+            if (chk.checked == true) {
+                $('#DivComision').css("display", "block");
                 $('#LblSubproyecto').css("display", "block");
                 $('#divSubProyecto').css("display", "block");
                 $('#LblClasificacion').css("display", "block");
@@ -266,16 +287,30 @@
                 debugger;
 
             } else {
+                $('#DivComision').css("display", "none");
                 $('#LblSubproyecto').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");
+                $('#LblClasificacionDescuento').css("display", "block");
+                $('#divClasificacionDescuento').css("display", "block");
 
+                debugger;
+
+            } else {
+                $('#DivDescuento').css("display", "none");
+                $('#LblClasificacionDescuento').css("display", "none");
+                $('#divClasificacionDescuento').css("display", "none");
+                debugger;
+            }
+        }
     </script>
 
 

Bancos/DepositosCaja.aspx.vb

@@ -24,6 +24,9 @@ Partial Class Bancos_DepositosCaja
             TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
 
             CargaCuentas()
+            ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
+            ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
+
         End If
     End Sub
 
@@ -40,9 +43,13 @@ Partial Class Bancos_DepositosCaja
 
         DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectoDeposito.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"))
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -65,14 +72,15 @@ Partial Class Bancos_DepositosCaja
         lblValorTotal.Text = "0.00"
         TxtComision.text = ""
         divLabelTotal.Visible = True
-        DivComision.Visible = True
     End Sub
 
     Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
 
         Dim TotalImporte As Decimal = 0
         Dim TotalImportePrePoliza As Decimal
-        Dim Comision As Decimal = TxtComision.Text.Todecimal
+        Dim Comision As Decimal = TxtComision.Text.ToDecimal
+        Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
+
 
         For Each Gvr As GridViewRow In GvFacturas.Rows
             If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
@@ -85,8 +93,9 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision
+            TotalImporte = TotalImporte + Comision + Descuento
             '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
                 Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -112,6 +121,7 @@ Partial Class Bancos_DepositosCaja
         Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim CveSubProyecto As Integer = 0
         Dim CveClasificacion As Integer = 0
+        Dim CveClasificacionDescuento As Integer = 0
         Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
         Dim imprimirFolios As String = ""
         If drOrigen IsNot Nothing Then
@@ -138,13 +148,22 @@ Partial Class Bancos_DepositosCaja
         documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>  &nbsp &nbsp <br/> ", CveIEOrigen, FolioIE)
 
 
-        If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+        If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
 
-            If Comision <> 0 Then
+            If ChkFaltante.Checked Then
                 CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
                 CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, "Comisión", 51, "Depósito Bancario ", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, 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
+            End If
+
+            If ChkDescuento.Checked Then
+                CveSubProyecto = DdlSubProyectoDeposito.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
                     OcurrioError = True
                 End If
             End If
@@ -173,7 +192,7 @@ Partial Class Bancos_DepositosCaja
                 CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                     OcurrioError = True
                 End If
 

CRM/CatEmpresasCRM.aspx.cs

@@ -64,6 +64,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
         {
             DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue));
             DdlMedioCaptacion.DataBind();
+            DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1"));
         }
         ObjCRM.Dispose();
     }

Compras/Compras.aspx

@@ -122,6 +122,19 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+
+    <%--2021-04-15 contratos de obra--%>
+    <asp:UpdatePanel ID="UpAccionesContratosObra" runat="server" UpdateMode="Conditional">
+
+        <ContentTemplate>
+            <li style="text-align: left!important" runat="server" id="LIContratos" visible="false">
+                <asp:LinkButton runat="server" ID="LnkAcontratos" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAcontratos_Click" title="Contratos" Text="<i class='fa fa-file-text'></i> Contratos"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+         
+    </asp:UpdatePanel>
+   
+
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -5332,16 +5345,12 @@
         </div>
     </div>--%>
 
-
-
-
-
-
-    <div id="DivmodalConmtrato" class="modal ADS fade">
+    
+        <div id="DivmodalConmtrato" class="modal ADS fade">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpModalContrato" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
                 <ContentTemplate>
-
+                    
                     <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal">&times;</button>
                         <h4>
@@ -5353,25 +5362,25 @@
                         <div class="row">
 
                             <div class="col-md-6">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList runat="server" ID="DdlContratosObra" AutoPostBack="true" OnSelectedIndexChanged="DdlContratosObra_SelectedIndexChanged" DataTextField="ContratoCompleto" DataValueField="CveContrato" CssClass="form-control input-sm select2me" Width="100%">
-                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
-                                    </asp:DropDownList>
-                                    <label for="<%= DdlContratosObra.ClientID.ToString()%>">Contrato:</label>
-                                </div>
+                                 <div class="form-group form-md-line-input input-iconright">
+                                <asp:DropDownList runat="server" ID="DdlContratosObra" AutoPostBack="true" OnSelectedIndexChanged="DdlContratosCompras_SelectedIndexChanged" DataTextField="ContratoCompleto" DataValueField="CveContrato" CssClass="form-control input-sm select2me" Width="100%">
+                                    <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                </asp:DropDownList>
+                                <label for="<%= DdlContratosObra.ClientID.ToString()%>">Contrato:</label>
+                                     </div>
                             </div>
 
 
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlTipoGastoObra" runat="server" DataTextField="TipoGasto" DataValueField="CveTipoGasto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" Width="100%">
+                                    <asp:DropDownList ID="DdlTipoGastoContrato" runat="server" DataTextField="TipoGasto" DataValueField="CveTipoGasto"   AppendDataBoundItems="true" CssClass="form-control input-sm select2me"  Width="100%">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
-                                    <label for="<%= DdlTipoGastoObra.ClientID.ToString()%>">Tipo de Gasto:</label>
+                                    <label for="<%= DdlTipoGastoContrato.ClientID.ToString()%>">Tipo de Gasto:</label>
 
 
-                                    <asp:RequiredFieldValidator runat="server" Enabled="true" InitialValue="-1" Display="None" ID="RFVDdlTipoGastoObra" ControlToValidate="DdlTipoGastoObra" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Gasto''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAplicaContrato"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlTipoGastoObra" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoGastoObra" Width="300px"></ajax:ValidatorCalloutExtender>
+                                      <asp:RequiredFieldValidator runat="server" Enabled="true" InitialValue="-1" Display="None" ID="RFVDdlTipoGastoContrato" ControlToValidate="DdlTipoGastoContrato"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Gasto''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAplicaContrato"></asp:RequiredFieldValidator>
+                                      <ajax:ValidatorCalloutExtender ID="CERFVDdlTipoGastoContrato" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoGastoContrato" Width="300px"></ajax:ValidatorCalloutExtender>
 
 
                                 </div>
@@ -5382,7 +5391,7 @@
                             <div class="col-md-12">
 
                                 <asp:GridView ID="GvContratosControl" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas"
-                                    DataKeyNames="CveContratoDetalle,CvePS,PS,Cantidad,PU,CantidadMax,CveUnidadMedida,Abreviatura,CveSubProyecto,SubProyecto,Codigo,CveProyecto,Proyecto,IVA,RetISR,RetIVA,IEPSPorcentaje,IEPSGrabaIVA,CveClasificacion,Clasificacion,CveTipoPS,CveSATPS"
+                                    DataKeyNames="CveContratoDetalle,CvePS,PS,Cantidad,PU,CantidadMax,CveUnidadMedida,Abreviatura,CveSubProyecto,SubProyecto,Codigo,CveProyecto,Proyecto,IVA,RetISR,RetIVA,IEPSPorcentaje,IEPSGrabaIVA,CveClasificacion,Clasificacion"
                                     CssClass="table GVEstimacion table-advance table-hover" GridLines="None" Width="100%">
                                     <Columns>
 
@@ -5394,21 +5403,21 @@
 
                                         <asp:TemplateField HeaderText="Cantidad">
                                             <ItemTemplate>
-                                                <asp:TextBox ID="TxtCantidad" Text="" type="number" step="any"
+                                                <asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant" onkeyup="ValidateCantCon(this)" type="number" step="any"
+                                                    data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>'
                                                     Width="90" runat="server"></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
                                         <asp:TemplateField HeaderText="PU">
                                             <ItemTemplate>
-                                                <asp:TextBox runat="server" ID="TxtPU" Text='<%# Eval("PU", "{0:N2}")%>' type="number" step="any" Width="60px">
-                                                </asp:TextBox>
+                                                <span><%# Eval("PU", "{0:N2}")%></span>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
                                         <asp:TemplateField HeaderText="Importe">
                                             <ItemTemplate>
-                                                <asp:TextBox ID="TxtImporte" Text="" CssClass='<%# String.Format("ImporteCSS CssImporte{0}", Eval("CveContratoDetalle")) %>' type="number" step="any" Width="90" runat="server" onkeydown="keydownenabledtab(event)"></asp:TextBox>
+                                                <asp:TextBox ID="TxtImporte" Text="" data-cve='<%# Eval("CveContratoDetalle") %>' CssClass="txtimporte" type="number" step="any" Width="90" runat="server" onkeydown="keydownenabledtab(event)"></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
@@ -5418,17 +5427,12 @@
                             </div>
                         </div>
 
-                        <div class="col-md-10" style="text-align: right!important">Sub Total: </div>
-                        <div class="col-md-2">
-                            <asp:Label runat="server" ClientIDMode="Static" ID="LblTotalContrato"></asp:Label>
-                        </div>
 
-                        <br />
 
                     </div>
-                    <div class="modal-footer">
-
-                        <asp:Button ID="BtnAplicarContrato" runat="server" Text="Aceptar" ClientIDMode="Static" CssClass="btn btn-success" OnClick="BtnAplicarContrato_Click" ValidationGroup="GrpAplicaContrato" CausesValidation="true" />
+                    <div class="modal-footer">    
+                                            
+                        <asp:Button ID="BtnAplicarContrato" runat="server" Text="Aceptar" ClientIDMode="Static" CssClass="btn btn-success" OnClick="BtnAplicarContrato_Click"  Visible="false" ValidationGroup="GrpAplicaContrato" CausesValidation="true" />
                         <button type="button" class="btn default" data-dismiss="modal">Cancelar</button>
 
                     </div>
@@ -5438,6 +5442,9 @@
     </div>
 
 
+
+ 
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server">
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>
@@ -6607,6 +6614,26 @@
 
         }
 
+
+
+
+        function ValidateCantCon(variable) {
+
+            var txt = $(variable);
+            var max = txt.data('cantidad');
+            var value = parseInt(txt.val());
+            if (value > max) {
+                txt.val(max);
+            }
+            if (value < 0) {
+                txt.val(0);
+            }
+
+            var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]');
+            importe.val(parseFloat(txt.val()) * parseFloat(txt.data('pu')));
+
+        }
+
     </script>
 
 </asp:Content>

Compras/Compras.aspx.vb

@@ -1478,6 +1478,10 @@ Partial Class Compras_Compras
                 UpLnkPaqueteriaGuias.Update()
             End If
 
+            If Not CveCompra > 0 And UsuarioActual.CveRol = 1 Then
+                LIContratos.Visible = True
+            End If
+
             'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
             LblSaldoFactura.Text = If(CveCompra > 0, Saldo.FormatoNumero, TxtTotal.Text.FormatoNumero)
             'cuando es factura con amortizacion, el importe a descontar es el saldo que se debe de aplicar para la amortizacion
@@ -20821,10 +20825,128 @@ Partial Class Compras_Compras
 
     End Sub
 
-    Protected Sub BtnAplicarContrato_Click(sender As Object, e As EventArgs)
+
+
+#Region "Contratos Obra"
+
+    Protected Sub LnkAcontratos_Click(sender As Object, e As EventArgs)
+
+
+        DdlContratosObra.Items.Clear()
+        DdlContratosObra.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
+        DdlContratosObra.DataBind()
+        DdlContratosObra.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+
+        DdlTipoGastoContrato.Items.Clear()
+        DdlTipoGastoContrato.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
+        DdlTipoGastoContrato.DataBind()
+        DdlTipoGasto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        RegistraScript("$('#DivmodalConmtrato').modal('show')")
+        UpModalContrato.Update()
 
     End Sub
 
+
+    Protected Sub DdlContratosCompras_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+        If DdlContratosObra.SelectedValue.ToEntero > 0 Then
+            Dim ObjContratos As New ClsContratos()
+
+            If ObjContratos.GetContratosObraCompras(DdlContratosObra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+
+                If ObjContratos.DtResultados.Rows.Count > 0 Then
+                    GvContratosControl.DataSource = ObjContratos.DtResultados
+                    BtnAplicarContrato.Visible = True
+                Else
+                    GvContratosControl.DataSource = Nothing
+                    BtnAplicarContrato.Visible = False
+                End If
+
+            End If
+
+
+            ObjContratos.Dispose()
+
+            GvContratosControl.DataBind()
+
+            UpModalContrato.Update()
+        End If
+
+
+
+    End Sub
+
+
+    Protected Sub BtnAplicarContrato_Click(sender As Object, e As EventArgs)
+
+
+        TmpDT.Rows.Clear()
+
+        Dim CveTipoGastoObra As Integer = DdlTipoGastoContrato.SelectedValue.ToEntero
+        Dim TuipoGasto As String = DdlTipoGastoContrato.SelectedItem.Text
+
+        For Each GvRow As GridViewRow In GvContratosControl.Rows
+
+            Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToEntero
+
+            Dim Cantidad As Double = GvRow.FCTextBox("TxtCantidad").Text.ToDouble
+            Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
+            Dim PS As String = GvRow.DataKey("PS")
+            Dim PU As Double = GvRow.DataKey("PU").ToDouble
+            Dim TotalPS As Double = GvRow.FCTextBox("TxtImporte").Text.ToDouble
+            Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
+            Dim UMAbreviatura As String = GvRow.DataKey("Abreviatura").ToString
+
+            Dim SubProyecto As String = GvRow.DataKey("SubProyecto")
+            Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero
+            Dim Codigo As String = "" 'GvRow.DataKey("Codigo")
+
+            Dim Proyecto As String = GvRow.DataKey("Proyecto")
+            Dim CveProyecto As Integer = GvRow.DataKey("CveProyecto").ToEntero
+
+            Dim RetISR As Double = GvRow.DataKey("RetISR").ToString.ToDouble
+            Dim RetIVA As Double = GvRow.DataKey("RetIVA").ToString.ToDouble
+            Dim IvaPS As Double = GvRow.DataKey("IVA").ToString.ToDouble
+
+            Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero
+            Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
+
+
+            Dim IEPSPS As Double = GvRow.DataKey("IEPSPorcentaje").ToString.ToDouble
+            Dim IEPSPSIVA As Double = If(GvRow.DataKey("IEPSGrabaIVA").ToString = "True", IEPSPS, 0)
+
+            Dim IdCuentaPorEjercer As Integer = -1
+            Dim IdCuentaComprometido As Integer = -1
+
+
+
+
+            If Cantidad > 0 Then
+
+                AddPS(Cantidad, CveUnidadMedida, UMAbreviatura, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, Proyecto, CveProyecto.ToString, "", PU, PU * Cantidad, IvaPS, RetIVA, RetISR, IEPSPS, IEPSPSIVA, 0, CveContratoDetalle:=CveContratoDetalle,
+                      CveTipoGasto:=CveTipoGastoObra, TipoGasto:=TuipoGasto)
+
+
+                'ContratoObraAplciado = True
+
+            End If
+
+        Next
+
+        AddPS2()
+
+
+        RegistraScript("$('#DivmodalConmtrato').modal('hide')")
+
+
+
+    End Sub
+
+#End Region
+
     Protected Sub ChkMostrarTodos_CheckedChanged(sender As Object, e As EventArgs)
         CargaNCINV(ShowAllPendientes:=True)
         UpFacturaNC.Update()

Contratos/ContratoObra.aspx.vb

@@ -4622,7 +4622,7 @@ Partial Class Contratos_ContratoObra
                             CveUnidadMedida = GlobalDTUnidadesMedida(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveUnidadMedida").ToString.ToEntero
                         End If
 
-                        If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, DrowPS("Codigo").ToString.Trim, "", "", DrowPS("Producto").ToString, DrowPS("PU").ToString.ToDouble, -1, 0, False, 0, False, If(TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas, True, False),
+                        If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, DrowPS("Codigo").ToString.Trim, "", "", DrowPS("Producto").ToString, DrowPS("PU").ToString.ToDouble, 0, 0, False, 0, False, If(TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas, True, False),
                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, CveTipoPS:=2, CveSATPS:=-1, CveMarca:=-1, CveTamaño:=-1, CveMedida:=-1, CveRinTamaño:=-1, CveModelo:=-1, Litraje:=-1, IEPSPorcentaje:=-1, CveClasificacion2:=-1, CveClasificacionDetalle:=-1) > 0 Then
                             CvePS = ObjPS.CvePS
                         Else