Verificar el producto y la cantidad si el subproyecto tienen contrato

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

@@ -18126,6 +18126,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
 
@@ -18167,6 +18204,9 @@ Partial Class Compras_Compras
                 CompruebaAgregar()
                 GuardaAC()
             End If
+        Else
+            Alert(Mensaje, TipoMensaje.MsgAdvertencia)
+        End If
 
         'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
 
@@ -20786,9 +20826,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
@@ -20863,11 +20911,9 @@ Partial Class Compras_Compras
         Next
 
         AddPS2()
-
+        If Not ChkContinualAgregandoControl.Checked Then
-
             RegistraScript("$('#DivmodalConmtrato').modal('hide')")
-
+        End If
-
 
     End Sub
 

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