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

App_Code/ClsInventarios.vb

@@ -1503,7 +1503,7 @@ Public Class ClsInventarios
     End Function
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
-                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
+                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", Optional GPO As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1525,46 +1525,8 @@ Public Class ClsInventarios
             .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
             .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
-        End With
+            .Add("@GPO", SqlDbType.Int).Value = GPO
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-
-            Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
-    End Function
-    Public Function GetKardexAlmacenHorizontalAgrupado(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
-                                               IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
-                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_KardexAlmacenHorizontalGetAgrupado")
-
-        With SqlAdapter.SelectCommand.Parameters
-            '.Add("@FechaI", SqlDbType.VarChar).Value = FechaI
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@IncluyeTransitorios", SqlDbType.Int).Value = IncluyeTransitorios
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
-            .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
-            .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
-            .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
-            .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
         End With
 
         Try

Compras/Compras.aspx

@@ -5400,12 +5400,16 @@
                             </div>
                         </div>
                         <br />
+                        <div class="row col-md-12" align="right" runat="server" id="divBusqueda" visible="false">
+                            <input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}');", GvContratosControl.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}');", GvContratosControl.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        </div>
                         <div class="row">
                             <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"
-                                    CssClass="table GVEstimacion table-advance table-hover" GridLines="None" Width="100%">
+                                    CssClass="table GVEstimacion table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" Width="100%">
                                     <Columns>
 
                                         <asp:TemplateField HeaderText="Producto">
@@ -5439,6 +5443,9 @@
 
                             </div>
                         </div>
+                        <div class="row 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" Visible="false"/> 
+                        </div> 
 
 
 

Compras/Compras.aspx.vb

@@ -18146,6 +18146,43 @@ Partial Class Compras_Compras
         End If
 
         ActualizaTotales = True
+        Dim ObjContratos As New ClsContratos
+        Dim TieneError As Boolean = False
+        Dim Mensaje As String = ""
+        Dim dttemp As DataTable = GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
+        If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
+            Dim drContrato As DataRow = dttemp.Rows(0)
+            If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
+                Dim dtContratodetalle As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString))
+                If dtContratodetalle IsNot Nothing AndAlso dtContratodetalle.Rows.Count > 0 Then
+                    Dim drContratoDetalle As DataRow = dtContratodetalle(0)
+                    If Convert.ToBoolean(drContratoDetalle("LimitarCantidad")) Then
+                        If ObjContratos.GetReporteContratosAvancesDetalleControl(drContrato("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                            Dim dtContratodetalleControl As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString))
+                            If dtContratodetalleControl IsNot Nothing AndAlso dtContratodetalleControl.Rows.Count > 0 Then
+                                Dim drContratoDetalleControl As DataRow = dtContratodetalleControl(0)
+                                If TxtCantidad.Text.Trim.ToDouble > drContratoDetalleControl("FaltanteCantidad").ToString.ToDouble Then
+                                    Mensaje = String.Format("La cantidad del Producto/Servicio debe ser menor o igual a {0}", drContratoDetalleControl("FaltanteCantidad").ToString)
+                                    TieneError = True
+                                End If
+                            Else
+                                Mensaje = "Este producto no pertence al contrato seleccionado"
+                                TieneError = True
+                            End If
+                        Else
+                            Mensaje = "Error al consultar el contrato"
+                        End If
+                    End If
+                Else
+                    Mensaje = "Este producto no pertence al contrato seleccionado"
+                    TieneError = True
+                End If
+            Else
+                Mensaje = "Error al consultar el contrato"
+
+            End If
+        End If
+        If Not TieneError Then
             Select Case Modalidad
                 Case "A" 'ADD
 
@@ -18187,6 +18224,9 @@ Partial Class Compras_Compras
                 CompruebaAgregar()
                 GuardaAC()
             End If
+        Else
+            Alert(Mensaje, TipoMensaje.MsgAdvertencia)
+        End If
 
         'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
 
@@ -20808,9 +20848,17 @@ Partial Class Compras_Compras
                 If ObjContratos.DtResultados.Rows.Count > 0 Then
                     GvContratosControl.DataSource = ObjContratos.DtResultados
                     BtnAplicarContrato.Visible = True
+                    divBusqueda.Visible = True
+                    ChkContinualAgregandoControl.Visible = True
+                    ChkContinualAgregandoControl.Checked = True
+
                 Else
                     GvContratosControl.DataSource = Nothing
                     BtnAplicarContrato.Visible = False
+                    divBusqueda.Visible = False
+                    ChkContinualAgregandoControl.Visible = False
+                    ChkContinualAgregandoControl.Checked = False
+
                 End If
 
             End If
@@ -20885,11 +20933,9 @@ Partial Class Compras_Compras
         Next
 
         AddPS2()
-
+        If Not ChkContinualAgregandoControl.Checked Then
-
             RegistraScript("$('#DivmodalConmtrato').modal('hide')")
-
+        End If
-
 
     End Sub
 

Contratos/ContratoObra.aspx

@@ -1053,14 +1053,19 @@
                                                                         <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,35 +2956,28 @@
                                 <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="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 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" /> 

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,6 +2069,11 @@ Partial Class Contratos_ContratoObra
                 'e.Row.FCLinkButton("imgE").Visible = False
                 'e.Row.FCLinkButton("imgD").Visible = False
             End If
+            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
@@ -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.ddl.SelectedValueExist(gvRow.DataKey("CvePS").ToString.ToEntero)
-        DdlProductowsInsumos.txtValue.Value = gvRow.DataKey("CvePS").ToString
 
 
         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

Inventarios/InventarioFisicoDetalle.aspx

@@ -349,7 +349,10 @@
                 </div>
             </div>
             <br />
-            <div class="row col-md-12" align="right" id="DivBuscador" runat="server">
+             <div class="row col-md-4" align="left" id="divRegistrados" runat="server">
+                    <asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></asp:Label>
+            </div>
+            <div class="row col-md-8" align="right" id="DivBuscador" runat="server">
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="return Filtrar(event);" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIFD.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 <div style="display: inline-block;" id="SumFiltra"></div>

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -139,6 +139,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                     LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa
             End Select
             GvIFD.Visible = False
+            divRegistrados.Visible = False
             DivBuscador.Visible = False
 
             If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
@@ -251,6 +252,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Protected Sub BtnVerRegistrados_Click(sender As Object, e As EventArgs)
         GvIFD.Visible = True
         DivBuscador.Visible = True
+        divRegistrados.Visible = True
+
         Dim Inventario As New ClsInventarios
         If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
             If Inventario.DtResultados.Rows.Count > 0 Then
@@ -263,6 +266,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 GvIFD.DataSource = Nothing
             End If
             ' DtDatos = Inventario.DtResultados
+            LtlTotalRegistros.Text = Inventario.DtResultados.Rows.Count
         End If
         Inventario.Dispose()
         GvIFD.DataBind()
@@ -457,6 +461,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
         End If
         GvIFD.Visible = False
         DivBuscador.Visible = False
+        divRegistrados.Visible = False
+
         UPPInventario.Update()
 
     End Sub

Inventarios/KardexAlmacenHorizontal.aspx

@@ -141,12 +141,19 @@
                                 </div>
                             </div>
                             <label class="col-md-1 truncate">Producto:</label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me" Width="100%" CssStyle="width: 100%;">
                                     <asp:ListItem Text="Con existencia" Value="2" />
                                     <asp:ListItem Text="Sin existencia" Value="3" />
                                 </asp:DropDownList>
                             </div>
+                            <label class="col-md-1 truncate">Ver por:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="Ddlgrupo" runat="server" CssClass="select2me" Width="100%" CssStyle="width: 100%;">
+                                    <asp:ListItem Text="Almacenes" Value="1" />
+                                    <asp:ListItem Text="Sucursales" Value="2" />
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -216,10 +223,6 @@
                                 <asp:ListItem Text="No" Value="0" Selected="True"  />
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1"><span>Ver por SubProyecto:</span></div>
-                        <div class="col-md-1">
-                            <asp:CheckBox runat="server" ID="chkAgruparSubProyecto"/>
-                        </div>
                     </asp:Panel>
                 </div>
             </div>

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -139,32 +139,13 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
-        Dim dtMovs As DataTable = Nothing
+        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
 
-        If chkAgruparSubProyecto.Checked Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(),
-            If ObjMovimientos.GetKardexAlmacenHorizontalAgrupado(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
+                                                     DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue,
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
-                End If
-            Else
-                ObjMovimientos.Dispose()
-                Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-        Else
-            If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
-                If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
-                    dt = ObjMovimientos.DtResultados
-                End If
-            Else
-                ObjMovimientos.Dispose()
-                Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-        End If
-
-
-        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 Dim ListaBorrar As New List(Of DataColumn)
                 For index = 3 To dt.Columns.Count - 1
                     Dim TotColumna As Double = 0
@@ -180,19 +161,24 @@ Partial Class Inventarios_KardexAlmacen
                 Next
                 dt.AcceptChanges()
                 GvDatos.DataSource = dt
-            GvDatos.DataBind()
             Else
                 Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
                 GvDatos.Columns.Clear()
                 dt = Nothing
                 Exit Sub
             End If
+        Else
+            ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Sub
+        End If
 
 
+        GvDatos.DataBind()
+
         For index = 4 To GvDatos.Rows(0).Cells.Count - 1
             GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|")(0)
         Next
-        ObjMovimientos.Dispose()
     End Sub
 
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound

OC/OC.aspx

@@ -2747,33 +2747,33 @@
                             </div>
                         </div>
                         <br />
+ <div class="row col-md-12" align="right" runat="server" id="divBusqueda" visible="false">
+                            <input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}');", GvContratosControl.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}');", GvContratosControl.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        </div>
                         <div class="row">
                             <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"
-                                    CssClass="table GVEstimacion table-advance table-hover" GridLines="None" Width="100%">
+                                    CssClass="table GVEstimacion table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" Width="100%">
                                     <Columns>
 
                                         <asp:TemplateField HeaderText="Producto">
                                             <ItemTemplate>
-                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
+                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Width="250px"></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                         <asp:TemplateField HeaderText="Cant. Max" ItemStyle-HorizontalAlign="Right">
-                                            <ItemTemplate>
-                                                <span><%# Eval("CantidadMax", "{0:N2}")%></span>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Cantidad">
-                                            <ItemTemplate>
-                                                <asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant" onkeyup="ValidateCant(this)" type="number" step="any"
-                                                    data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>'
-                                                    Width="70" runat="server"></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                        <asp:TemplateField HeaderText="PU" ItemStyle-HorizontalAlign="Right">
+                                        <asp:TemplateField HeaderText="Cantidad">
+                                            <ItemTemplate>
+                                                <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>
                                                 <span><%# Eval("PU", "{0:N2}")%></span>
                                             </ItemTemplate>
@@ -2790,8 +2790,9 @@
 
                             </div>
                         </div>
-
+                        <div class="row 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" Visible="false"/> 
+                        </div> 
 
                     </div>
                     <div class="modal-footer">    

OC/OC.aspx.vb

@@ -2094,7 +2094,46 @@ Partial Class OC
             Exit Sub
         End If
 
+        'Valida cantidad en contrato
+        Dim ObjContratos As New ClsContratos
+        Dim TieneError As Boolean = False
+        Dim Mensaje As String = ""
+        Dim dttemp As DataTable = GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
+        If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
+            Dim drContrato As DataRow = dttemp.Rows(0)
+            If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
+                Dim dtContratodetalle As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString))
+                If dtContratodetalle IsNot Nothing AndAlso dtContratodetalle.Rows.Count > 0 Then
+                    Dim drContratoDetalle As DataRow = dtContratodetalle(0)
+                    If Convert.ToBoolean(drContratoDetalle("LimitarCantidad")) Then
+                        If ObjContratos.GetReporteContratosAvancesDetalleControl(drContrato("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                            Dim dtContratodetalleControl As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString))
+                            If dtContratodetalleControl IsNot Nothing AndAlso dtContratodetalleControl.Rows.Count > 0 Then
+                                Dim drContratoDetalleControl As DataRow = dtContratodetalleControl(0)
+                                If TxtCant.Text.Trim.ToDouble > drContratoDetalleControl("FaltanteCantidad").ToString.ToDouble Then
+                                    Mensaje = String.Format("La cantidad del Producto/Servicio debe ser menor o igual a {0}", drContratoDetalleControl("FaltanteCantidad").ToString)
+                                    TieneError = True
+                                End If
+                            Else
+                                Mensaje = "Este producto no pertence al contrato seleccionado"
+                                TieneError = True
+                            End If
+                        Else
+                            Mensaje = "Error al consultar el contrato"
+                        End If
+                    End If
+                Else
+                    Mensaje = "Este producto no pertence al contrato seleccionado"
+                    TieneError = True
+                End If
+            Else
+                Mensaje = "Error al consultar el contrato"
+            End If
+        End If
 
+        If Not TieneError Then
+
+            ObjContratos.Dispose()
             If DtDetalle IsNot Nothing Then
                 Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=DdlP2.SelectedValue.ToEntero).FiltroPrimero("")
                 If DrPS Is Nothing Then
@@ -2187,8 +2226,10 @@ Partial Class OC
             CargaDatosDetalles()
 
             UPPDetalle.Update()
-
+        Else
-
+            Alert(Mensaje, TipoMensaje.MsgAdvertencia)
+        End If
+        ObjContratos.Dispose()
     End Sub
     Private Sub AddPS(Cantidad As String, CvePS As Integer, PS As String, Observaciones As String, Importe As Double, Descuento As Double, Total As Double, CveUnidadMedida As Integer, IVAPS As Double, IEPSPS As Double, IEPSPSIVA As Double, CveClasificacion As Integer,
                       UM As String, Clasificacion As String, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, CodigoAF As String, CveActivoFijo As Integer, TipoDato As Integer,
@@ -8396,9 +8437,17 @@ Partial Class OC
                 If ObjContratos.DtResultados.Rows.Count > 0 Then
                     GvContratosControl.DataSource = ObjContratos.DtResultados
                     BtnAplicarContrato.Visible = True
+                    divBusqueda.Visible = True
+                    ChkContinualAgregandoControl.Visible = True
+                    ChkContinualAgregandoControl.Checked = True
+
                 Else
                     GvContratosControl.DataSource = Nothing
                     BtnAplicarContrato.Visible = False
+                    divBusqueda.Visible = False
+                    ChkContinualAgregandoControl.Visible = False
+                    ChkContinualAgregandoControl.Checked = False
+
                 End If
 
             End If