From 0293fc5c1fd8b84689668504ed98fe07a5a035b5 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 19 Jul 2021 22:35:07 -0700
Subject: [PATCH] columna de limitar cantidad

---
 Contratos/ContratoObra.aspx    | 47 ++++++++++++++++++----------------
 Contratos/ContratoObra.aspx.vb | 47 ++++++++++++++++++++--------------
 2 files changed, 53 insertions(+), 41 deletions(-)

diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index 47510cdea..dcf14eb01 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -1046,21 +1046,26 @@
                                                                         <ItemStyle Width="150px" HorizontalAlign="Right" />
                                                                     </asp:TemplateField>
 
-                                                                        <asp:TemplateField HeaderText="Dias" Visible="true">
+                                                                    <asp:TemplateField HeaderText="Dias" Visible="true">
                                                                         <ItemTemplate>
                                                                               <asp:Label ID="LtlDias" CssClass="ltltotalgvx2"   Text='<%# Eval("Dias")%>' runat="server"></asp:Label>
                                                                         </ItemTemplate>
                                                                         <ItemStyle Width="150px" HorizontalAlign="Right" />
                                                                     </asp:TemplateField>
 
+                                                                     <asp:TemplateField HeaderText="Limitar Cantidad" Visible="true">
+                                                                        <ItemTemplate>
+                                                                              <asp:Label ID="LtlLimitarCantidad" CssClass="ltltotalgvx2"   Text='<%# Eval("LimitarCantidad")%>' runat="server"></asp:Label>
+                                                                        </ItemTemplate>
+                                                                        <ItemStyle Width="150px" HorizontalAlign="Right" />
+                                                                    </asp:TemplateField>
+
                                                                     <asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
                                                                         <ItemTemplate>
                                                                             <asp:LinkButton ID="LnkEditarPresupuestoControlDetalle" OnClick="LnkEditarPresupuestoControlDetalle_Click" runat="server" AlternateText="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
 
-
-                                                            
                                                                     <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
                                                                         <ItemTemplate>
                                                                             <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red"
@@ -2869,6 +2874,11 @@
                                 <asp:RequiredFieldValidator ID="RFVPU" runat="server" ControlToValidate="TxtPU"  CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''P.U.''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSVentas"></asp:RequiredFieldValidator>                                
                                 <label for="<%= TxtPU.ClientID.ToString()%>">P.U.:</label>   
                          </div>
+                         <div class="form-group form-md-line-input input-iconright"> 
+                             <asp:CheckBox id="ChkLimitarCantidadAdd" runat="server" Checked="true"/>
+                             <label for="<%= ChkLimitarCantidadAdd.ClientID.ToString()%>"> Limitar Cantidad</label>   
+                         </div>
+
 
                         
                         <div class="form-group form-md-line-input input-iconright" style="text-align:right!important">                            
@@ -2892,7 +2902,7 @@
 
     <%--MODAL CONTROL PRESUPUESTOS AGREGAR--%>
      <div id="ModalControlAddPS" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 450px;">
+        <div class="modal-dialog" style="width: 500px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalControlAddPS" UpdateMode="Conditional">
                 <ContentTemplate>
 
@@ -2946,36 +2956,29 @@
                                 <label for="<%= TxtPUInsumos.ClientID.ToString()%>">P.U.:</label>   
                          </div>
 
-
-                        
-
                         <div class="form-group form-md-line-input input-iconright" runat="server"  id="DVActividadesRH" visible="false" >
-                         
                              <asp:DropDownList ID="DdlActividades" runat="server" DataTextField="Actividad" DataValueField="CveActividad" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>                             
                             <label for="<%= DdlActividades.ClientID.ToString()%>">Actividad:</label>  
                             <asp:RequiredFieldValidator ID="RFVDdlActividades" runat="server" ControlToValidate="DdlActividades"  InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Actividad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator>                                
-
                         </div>
 
-
-                          <div class="form-group form-md-line-input input-iconright" runat="server"  id="DVSubTipoActivoFijo" visible="false" >
-                              <asp:DropDownList ID="DdlSubTipoActivoFijo" runat="server" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>                             
-                              <label for="<%= DdlSubTipoActivoFijo.ClientID.ToString()%>">Sub Tipo Activo Fijo:</label>  
-                              <asp:RequiredFieldValidator ID="RfvDdlSubTipoActivoFijo" runat="server" ControlToValidate="DdlActividades"  InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Tipo Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator>                                
-                              
-                          </div>
-
+                        <div class="form-group form-md-line-input input-iconright" runat="server"  id="DVSubTipoActivoFijo" visible="false" >
+                            <asp:DropDownList ID="DdlSubTipoActivoFijo" runat="server" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" CssClass="table-group-action-input form-control input-inline input-sm select2me" Style="width: 100%;"></asp:DropDownList>                             
+                            <label for="<%= DdlSubTipoActivoFijo.ClientID.ToString()%>">Sub Tipo Activo Fijo:</label>  
+                            <asp:RequiredFieldValidator ID="RfvDdlSubTipoActivoFijo" runat="server" ControlToValidate="DdlActividades"  InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Tipo Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl"></asp:RequiredFieldValidator>                                
+                        </div>
                           
                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DVDias" visible="false">
                              <asp:TextBox ID="TxtDias" runat="server"   CssClass="form-control"  ></asp:TextBox>
                              <ajax:FilteredTextBoxExtender ID="FilTxtDias" runat="server" TargetControlID="TxtDias" FilterType="Numbers" InvalidChars="-+.," />
                              <asp:RequiredFieldValidator ID="RFVTxtDias" runat="server" ControlToValidate="TxtDias" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dias''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSControl" ></asp:RequiredFieldValidator>                            
                             <label for="<%= TxtDias.ClientID.ToString()%>">Dias:</label>
-                        </div>                        
-                        
-                        
-                        
-                        
+                        </div>             
+                        <div class="form-group form-md-line-input input-iconright"> 
+                             <asp:CheckBox id="ChkLimitarCantidad" runat="server" Checked="true"/>
+                             <label for="<%= ChkLimitarCantidad.ClientID.ToString()%>"> Limitar Cantidad</label>   
+                         </div>
+
                         <div class="form-group form-md-line-input input-iconright" style="text-align:right!important">                            
                             <asp:CheckBox ID="ChkContinualAgregandoControl" runat="server"  TextAlign="Left" Text="Continuar agregando"   CssClass="form-control" Checked="true" /> 
                         </div>                                            
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index acff7db4c..75ad9593e 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -1498,7 +1498,7 @@ Partial Class Contratos_ContratoObra
             Row("CveTipoPresupuesto") = 2
             Row("NoIdentificacion") = "" 'TxtNoIdentificacionv.Text.Trim
             Row("OCInterna") = "" 'TxtOCInterna.Text.Trim
-            Row("LimitarCantidad") = False 'If(ChkLimitarVenta.Checked, 1, 0)
+            Row("LimitarCantidad") = ChkLimitarCantidadAdd.Checked 'If(ChkLimitarVenta.Checked, 1, 0)
             Row("Observacion") = "" 'TxtObservacionesDetalles.Text
 
             Row("CveRubro") = 1
@@ -1508,7 +1508,7 @@ Partial Class Contratos_ContratoObra
             Dim ObjContratos As New ClsContratos
 
 
-            If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, False, "", Observacion:=Row("Observacion").ToString, CveRubro:=1) Then
+            If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "", Observacion:=Row("Observacion").ToString, CveRubro:=1) Then
 
                 If Autorizado Then
                     Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
@@ -1557,13 +1557,15 @@ Partial Class Contratos_ContratoObra
             'OCInterna = TxtOCInterna.Text.Trim
             'LimitarCantidad = If(ChkLimitarVenta.Checked, True, False)
             Observaciones = ""
+            Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked
+
 
             Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0)
             Dim LimitarCantidadValidator As Boolean = row("LimitarCantidad").ToString = "True"
 
 
             Dim ObjContratos As New ClsContratos
-            If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, False, "", Observaciones, CveRubro:=1) Then
+            If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, NoIdentificacion, limitarCantidad, "", Observaciones, CveRubro:=1) Then
 
                 If Autorizado Then
                     Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
@@ -1579,7 +1581,7 @@ Partial Class Contratos_ContratoObra
                 row("UM") = DdlUM.SelectedItem.Text
                 row("NoIdentificacion") = NoIdentificacion
                 row("OCInterna") = ""
-                row("LimitarCantidad") = False
+                row("LimitarCantidad") = limitarCantidad
                 row("Observacion") = Observaciones
 
                 TmpDT.AcceptChanges()
@@ -1591,15 +1593,13 @@ Partial Class Contratos_ContratoObra
             ObjContratos.Dispose()
 
 
-
             Gv.EditIndex = -1
             LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero
             LblImporte.Text = LbTotalGeneral.Text
             CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
 
         End If
-
-
+        CveContratoDetalleEditar = -1
     End Sub
 
     Private Sub CargaDatosPresup()
@@ -1850,7 +1850,7 @@ Partial Class Contratos_ContratoObra
             Row("Total") = (TxtCantidadInsumos.Text.ToDouble * TxtPUInsumos.Text.ToDouble).FormatoNumero
             Row("CveTipoPresupuesto") = 1
             Row("NoIdentificacion") = "" 'TxtNoIdentificacionvInsumos.Text.Trim
-            Row("LimitarCantidad") = False
+            Row("LimitarCantidad") = ChkLimitarCantidad.Checked
 
             Row("CveRubro") = DdlRubro.SelectedValue.ToEntero
             Row("Rubro") = DdlRubro.SelectedItem.Text
@@ -1909,7 +1909,7 @@ Partial Class Contratos_ContratoObra
 
 
             Dim ObjContratos As New ClsContratos
-            If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, False, "",
+            If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "",
                                                 CveRubro:=Row("CveRubro").ToString.ToEntero, CveActividad:=Row("CveActividad").ToString.ToEntero, CveSubTipoActivoFijo:=Row("CveSubTipoActivoFijo").ToString.ToEntero, Dias:=Row("Dias").ToString.ToEntero) Then
                 'If Autorizado Then
                 '    Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
@@ -1977,12 +1977,14 @@ Partial Class Contratos_ContratoObra
 
             Cantidad = TxtCantidadInsumos.Text.ToDouble
             PU = TxtPUInsumos.Text.ToDouble
+            Dim limitarCantidad As Boolean = ChkLimitarCantidad.Checked
+
 
 
             Dim row = TmpDT.Select(String.Format(" CveContratoDetalle={0}", CveContratoDetalleEditar))(0)
 
             Dim ObjContratos As New ClsContratos
-            If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", False, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then
+            If ObjContratos.UpdateContratosDetalle(CveContratoDetalleEditar, CveContrato, CvePS, Cantidad, PU, UsuarioActual.CveUsuario, "", limitarCantidad, "", CveRubro:=CveRubro, CveActividad:=CveActividad, CveSubTipoActivoFijo:=CveSubTipoActivoFijo, Dias:=Dias) Then
 
                 'If Autorizado Then
                 '    Dim msj As String = String.Format("Se realizaron los siguientes cambios, el Presupuesto Interno se modificó: {1} {0} {2:C2} a {3} {0} {4:C2}",
@@ -1999,7 +2001,7 @@ Partial Class Contratos_ContratoObra
                 row("CveUM") = CveUM
 
                 row("NoIdentificacion") = "" 'NoIdentificacion
-                row("LimitarCantidad") = False
+                row("LimitarCantidad") = limitarCantidad
 
                 row("CveActividad") = CveActividad
                 row("CveSubTipoActivoFijo") = CveSubTipoActivoFijo
@@ -2028,10 +2030,10 @@ Partial Class Contratos_ContratoObra
             End If
             ObjContratos.Dispose()
 
-
             GvInsumos.EditIndex = -1
             LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero
             CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1"))
+            CveContratoDetalleEditar = -1
 
 
         End If
@@ -2067,9 +2069,14 @@ Partial Class Contratos_ContratoObra
                 'e.Row.FCLinkButton("imgE").Visible = False
                 'e.Row.FCLinkButton("imgD").Visible = False
             End If
-
-        End If
-        If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
+            If e.Row.FCLabel("LtlLimitarCantidad").Text.ToString = "True" Then
+                e.Row.FCLabel("LtlLimitarCantidad").Text = "Si"
+            Else
+                e.Row.FCLabel("LtlLimitarCantidad").Text = "No"
+            End If
+
+        End If
+            If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
             e.Row.FCDropDownList("DdlUMEdit").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DataKey("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlUMEdit").DataBind()
             e.Row.FCDropDownList("DdlUMEdit").SelectedValue = e.Row.DataKey("CveUM")
@@ -4200,7 +4207,7 @@ Partial Class Contratos_ContratoObra
     End Sub
 
     Protected Sub LnkModalAddPSVentas_Click(sender As Object, e As EventArgs)
-
+        CveContratoDetalleEditar = -1
         ModalVentasPSAdd = True
         ChkContinualAgregandoVentas.Visible = True
         ChkContinualAgregandoVentas.Checked = True
@@ -4210,7 +4217,7 @@ Partial Class Contratos_ContratoObra
     End Sub
 
     Protected Sub LnkModalAddPSControl_Click(sender As Object, e As EventArgs)
-
+        CveContratoDetalleEditar = -1
         ModalControlPSAdd = True
         ChkContinualAgregandoControl.Visible = True
         ChkContinualAgregandoControl.Checked = True
@@ -4264,8 +4271,7 @@ Partial Class Contratos_ContratoObra
 
         DdlClasificacionAddInsumos.SelectedValueExist(gvRow.DataKey("CveClasificacion").ToEntero)
 
-        DdlProductowsInsumos.txtText.Value = gvRow.DataKey("PS").ToString
-        DdlProductowsInsumos.txtValue.Value = gvRow.DataKey("CvePS").ToString
+        DdlProductowsInsumos.ddl.SelectedValueExist(gvRow.DataKey("CvePS").ToString.ToEntero)
 
 
         DdlUMInsumos.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductowsInsumos.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
@@ -4273,6 +4279,8 @@ Partial Class Contratos_ContratoObra
         DdlUMInsumos.SelectedValueExist(gvRow.DataKey("CveUM").ToDouble.ToString)
 
         TxtPUInsumos.Text = gvRow.DataKey("PU").ToDouble.ToString
+        Dim limitarCantidad As String = gvRow.DataKey("LimitarCantidad").ToString
+        ChkLimitarCantidad.Checked = limitarCantidad = "True"
 
         DdlRubro.SelectedValueExist(gvRow.DataKey("CveRubro").ToString)
 
@@ -4344,6 +4352,7 @@ Partial Class Contratos_ContratoObra
         DdlProductows.txtValue.Value = ""
         DdlUM.SelectedValueExist(-1)
         TxtPU.Text = ""
+        ChkLimitarCantidad.Checked = False
 
 
         If ModalVentasPSAdd = True Then