Contratos

App_Code/ClsContratos.vb

@@ -492,6 +492,30 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
+    'Usado en conrtatos Obra
+    Public Function AbrirCerrarContrato(CveContrato As Integer, CveEmpresa As Integer, Cerrar As Boolean, CveUsuario As Integer) As Boolean
+
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosObraAbrirCerrar")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Cerrar", SqlDbType.Bit).Value = Cerrar
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al  abrir o cerrar el contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
     'Public Function AddContratosTipo1(NumeroContrato As String, DescripcionContrato As String, CveProveedor As Integer, CveCliente As Integer, FechaInicial As DateTime, FechaFinal As DateTime,
     '                                  CveSubProyecto As Integer, PorIVA As Double, EstatusContrato As Boolean, Archivo As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveContratosEstatus As Integer, CveContratoTipo As Integer) As Integer
     '    '  Return AddContratos(NumeroContrato, DescripcionContrato, CveProveedor, CveCliente, -1, FechaInicial, FechaFinal, "", "", CveSubProyecto, PorIVA, -1, -1, -1, EstatusContrato, Archivo, "", CveContratoPadre, CveUsuario, CveEmpresa, False, CveContratosEstatus, CveContratoTipo)
@@ -550,7 +574,8 @@ Public Class ClsContratos
                                  Geom As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer,
                                  Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1,
                                  Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
-                                 Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0) As Integer
+                                 Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0,
+                                     Optional ImporteSubTotal As Decimal = 0) As Integer
 
         Dim Retorno As Integer = -1
         DataAdapter("PA_Con_ContratosObraAdd")
@@ -603,6 +628,7 @@ Public Class ClsContratos
             .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev
             .Add("@Lugar", SqlDbType.VarChar).Value = Lugar
             .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto
+            .Add("@ImporteSubTotal", SqlDbType.Money).Value = ImporteSubTotal
 
             .Add("@CveContrato", SqlDbType.Int).Direction = ParameterDirection.Output
 
@@ -629,7 +655,8 @@ Public Class ClsContratos
                                     CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer,
                                     Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1.0, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1,
                                     Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
-                                    Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0) As Boolean
+                                    Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0,
+                                        Optional ImporteSubTotal As Decimal = 0) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Con_ContratosObraUpdate")
@@ -681,6 +708,7 @@ Public Class ClsContratos
             .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev
             .Add("@Lugar", SqlDbType.VarChar).Value = Lugar
             .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto
+            .Add("@ImporteSubTotal", SqlDbType.Money).Value = ImporteSubTotal
 
         End With
 
@@ -1823,6 +1851,27 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
+    'Es usando en ContratoObra para validar la actualizacion de  cantidad de avance
+    Public Function GetContratosDetalleAvance(CveContratoDetalle As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Con_ContratosDetalleAvanceGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el avance de los detalles", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
 
 #End Region
 

Contratos/ContratoObra.aspx

@@ -106,6 +106,15 @@
                         <asp:LinkButton ID="LnkModalAddMaquinariaFlotilla" Visible="false" runat="server" OnClick="LnkModalAddMaquinariaFlotilla_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Maquinaria-Flotilla-Herramienta</asp:LinkButton>
                     </li>
 
+
+                     <li>
+                        <asp:LinkButton ID="LnkAbrirContrato" Visible="false" runat="server" OnClick="LnkAbrirContrato_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Abrir Contrato?" data-btn-ok-label="si"> <i class="fa-folder-open-o" style="font-weight:bold;"></i>Abrir Contrato</asp:LinkButton>
+                    </li>
+
+                    <li>
+                        <asp:LinkButton ID="LnkCerrarContrato" Visible="false" runat="server" OnClick="LnkCerrarContrato_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Contrato?" data-btn-ok-label="si" > <i class="fa fa-times-circle" style="font-weight:bold;"></i>Cerrar Contrato</asp:LinkButton>
+                    </li>
+
                 </ContentTemplate>
             </asp:UpdatePanel>
 
@@ -735,7 +744,7 @@
                                                                     <asp:LinkButton runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:LinkButton>
                                                                     <asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server" Width="200px"></asp:TextBox>
 
-                                                                    <button type="button" class="btn btn-primary" runat="server" clientidmode="Static" id="A1" data-toggle="modal" data-target="#ModalUpload" visible="true"><i class="fa fa-upload" aria-hidden="true"></i>Subir Archivo</button>
+                                                                    <button type="button"  class="btn btn-primary" runat="server" clientidmode="Static" id="A1" data-toggle="modal" data-target="#ModalUpload" visible="true"><i class="fa fa-upload" aria-hidden="true"></i>Subir Archivo</button>
 
 
                                                                 </ContentTemplate>
@@ -803,7 +812,7 @@
                                                     <div class="row">
                                                         <div class="col-md-12">
                                                             <asp:GridView ID="Gv" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Conceptos"
-                                                                DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CodigoPS,LimitarCantidad,PS,NoIdentificacion,PermitirAvance,CantidadContratada"
+                                                                DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CodigoPS,LimitarCantidad,PS,NoIdentificacion,PermitirAvance,CantidadContratada,CveClasificacion"
                                                                 ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                                                 <Columns>
 
@@ -1085,6 +1094,7 @@
                                                                 <td>
                                                                     <asp:TextBox ID="TxtCantidadInt" runat="server" Width="70px"></asp:TextBox><ajax:FilteredTextBoxExtender ID="FLTCantidadInt" runat="server" TargetControlID="TxtCantidadInt" FilterType="Custom, Numbers" ValidChars="." />
                                                                     <asp:RequiredFieldValidator ID="RFVCantidadInt" runat="server" ControlToValidate="TxtCantidadInt" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarInt"></asp:RequiredFieldValidator><ajax:ValidatorCalloutExtender ID="VCOCantidadInt" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidadInt" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                    
                                                                 </td>
 
                                                                 <td>
@@ -1181,7 +1191,8 @@
                                                                 <EditItemTemplate>
                                                                     <div style="width: 65px;">
                                                                         <asp:LinkButton ID="LinkButton1" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
-                                                                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" /><asp:LinkButton ID="LinkButton2" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
+                                                                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
+                                                                        <asp:LinkButton ID="LinkButton2" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel"
                                                                                 CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
                                                                     </div>
                                                                 </EditItemTemplate>
@@ -2220,7 +2231,9 @@
                             <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" Visible="false" CssClass="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="Esta seguro de eliminar el Contrato?" data-btn-ok-label="si" />
                             <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
 
-                            <asp:Button ID="BtnCancelar" CssClass="btn btn-default" runat="server" Text="Cancelar" OnClientClick="javascript:window.location.href='/Contratos/Contratos.aspx';return false" />
+                            <asp:Button ID="BtnCancelar" CssClass="btn btn-default"  runat="server" Text="Cancelar" OnClientClick="javascript:window.location.href='/Contratos/Contratos.aspx';return false" />
+                            
+
                             &nbsp;
                        
                         </ContentTemplate>
@@ -2774,6 +2787,8 @@
                              <asp:TextBox ID="TxtCantidad" runat="server"   CssClass="form-control"  ></asp:TextBox>
                              <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                              <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSVentas"> </asp:RequiredFieldValidator>
+                            <asp:RangeValidator runat="server" id="RGVControlCantidadVentas" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" Type="Double" MinimumValue="1" MaximumValue="9999999999" ErrorMessage="No se  pueden tener valores inferiores a lo ya avanzado" ValidationGroup="GrpAddPSVentas" />
+
                             <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
                         </div>
 

Contratos/ContratoObra.aspx.vb

@@ -389,6 +389,19 @@ Partial Class Contratos_ContratoObra
     End Property
 
 
+    Property BloquearTodo As Boolean
+        Get
+            If ViewState("BloquearTodo") Is Nothing Then
+                Return False
+            Else
+                Return Boolean.Parse(ViewState("BloquearTodo").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("BloquearTodo") = value
+        End Set
+    End Property
+
 
 
 #End Region
@@ -483,6 +496,9 @@ Partial Class Contratos_ContratoObra
             CargaDLLCargaGVCentrosConsto()
             tabalCentrosdecotso()
 
+
+            BloquearControles()
+
         End If
 
 
@@ -626,12 +642,38 @@ Partial Class Contratos_ContratoObra
         'DdlProyecto.SelectedValue = "-1"
 
         TxtCantidad.Text = ""
+        RGVControlCantidadVentas.Visible = False
         TxtPU.Text = ""
         TmpDT.Clear()
         CargaGVPresupuestos(TmpDT)
         CargaGVPresupuestosInsumos(TmpDT)
         LbTotalGeneral.Text = "0.00"
     End Sub
+
+    Private Sub BloquearControles()
+
+        If BloquearTodo Then
+
+
+            LnkModalAddPSVentas.Visible = False
+            LnkModalAddPSControl.Visible = False
+            LnkModalAddPresupuestoVentas.Visible = False
+            LnkModalAddPresupuestoControl.Visible = False
+            LnkModalAddGastos.Visible = False
+            LnkModalAddMaquinariaFlotilla.Visible = False
+
+            BtnDescargar.Enabled = False
+            A1.Visible = False
+
+            BtnGuardar.Enabled = False
+            BtnEliminar.Enabled = False
+            BtnCancelar.Enabled = False
+
+
+        End If
+
+    End Sub
+
 #End Region
 
 #Region "  CONFIGURA TIPOS CONTRATO  "
@@ -739,6 +781,24 @@ Partial Class Contratos_ContratoObra
                 DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString
                 DdlCliente.SelectedText = ObjContratos.NombreComercial.ToString
 
+
+
+                LnkAbrirContrato.Visible = False
+                LnkCerrarContrato.Visible = False
+
+                If UsuarioActual.TienePermisoProceso(330) Then
+
+                    If ObjContratos.TipoEstatus = 1 Then
+                        LnkCerrarContrato.Visible = True
+                    Else
+                        LnkAbrirContrato.Visible = True
+                        BloquearTodo = True
+                    End If
+
+                End If
+
+
+
                 If ObjContratos.CveProveedor > 0 Then
                     ' TrProveedor.Visible = True
                     TrCliente.Visible = False
@@ -873,6 +933,11 @@ Partial Class Contratos_ContratoObra
                 Alert("El Contrato Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnGuardar.Enabled = False
             End If
+
+
+
+
+
         Else
             CveContrato = -1
             Alert("Ocurrió un error al cargar el Contrato. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -1000,10 +1065,14 @@ Partial Class Contratos_ContratoObra
         TipoContrato = DdlTipoContratoObra.SelectedValue.ToEntero
 
         'Crear Contrato
+        Dim ImporteSubTotal As Decimal = TmpDT.SUM("Total", " CveContratoDetalle  > 0 AND CveTipoPresupuesto=2 ").ToDecimal
         If Not CveContrato > 0 Then
 
             Dim EstatusContrato As Integer = 1
 
+
+
+
             CveContrato = ObjContratos.AddContratosObra(TxtNumeroContrato.Text, TxtDescripcionContrato.Text, TxtNumeroLicitacion.Text.Trim, DdlContratista.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, -1, TxtFechaInicial.Text.ToDate, TxtFechaFinal.Text.ToDate,
                                                     TxtUbicacion.Text, TxtResponsable.Text, DdlProyecto.SelectedValue.ToEntero, TxtPorIVA.Text.ToDouble, TxtPorAnticipo.Text.ToDouble, TxtPorAmortizacionAnticipo.Text.ToDouble,
                                                     TxtPorGarantia.Text.ToDouble, "." & Session("FileExtension").ToString, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, Minimo, Maximo, Total,
@@ -1011,7 +1080,7 @@ Partial Class Contratos_ContratoObra
                                                     TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1,
                                                     PorcentajeComision:=0, TipoGarantia:=-1, Folio:=0, FechaVenc:=Nothing, EstatusFianza:=1,
                                                     CvePeriodo:=-1, CveCuentaEquipo:=-1, CveContratoPlantilla:=-1, CveVendedor:=-1,
-                                                    Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble)
+                                                    Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble, ImporteSubTotal:=ImporteSubTotal)
 
 
             TieneError = Not GuardaFianzas(ObjContratos)
@@ -1074,7 +1143,7 @@ Partial Class Contratos_ContratoObra
                                             CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0,
                                             TipoGarantia:=-1, Folio:=-1, FechaVenc:=Nothing, EstatusFianza:=-1, CveContratoPlantilla:=-1,
                                             CveCuentaEquipo:=-1, CveVendedor:=-1, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False,
-                                            CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble) Then
+                                            CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble, ImporteSubTotal:=ImporteSubTotal) Then
 
 
                 TieneError = Not GuardaFianzas(ObjContratos)
@@ -1698,6 +1767,21 @@ Partial Class Contratos_ContratoObra
 
 
         End If
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If BloquearTodo Then
+                e.Row.FCLinkButton("LnkEditarPresupuestoVentaDetalle").Visible = False
+                e.Row.FCLinkButton("imgD").Visible = False
+            End If
+
+            If e.Row.DataKey("CveContratoDetalle").ToEntero <= 0 Then
+                e.Row.FCLinkButton("LnkEditarPresupuestoVentaDetalle").Visible = False
+                e.Row.FCLinkButton("imgD").Visible = False
+            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()
@@ -2078,6 +2162,23 @@ Partial Class Contratos_ContratoObra
             e.Row.FCDropDownList("DdlUMEdit").SelectedValue = e.Row.DataKey("CveUM")
         End If
 
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If BloquearTodo Then
+                e.Row.FCLinkButton("LnkEditarPresupuestoControlDetalle").Visible = False
+                e.Row.FCLinkButton("imgD").Visible = False
+            End If
+
+
+            If e.Row.DataKey("CveContratoDetalle").ToEntero <= 0 Then
+
+                e.Row.FCLinkButton("LnkEditarPresupuestoControlDetalle").Visible = False
+                e.Row.FCLinkButton("imgD").Visible = False
+
+            End If
+
+        End If
+
     End Sub
     Protected Sub GVInsumos_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvInsumos.RowEditing
         GvInsumos.EditIndex = e.NewEditIndex
@@ -2726,8 +2827,8 @@ Partial Class Contratos_ContratoObra
     End Sub
 
     Protected Sub GvContratoGastos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvContratosGastos.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
 
+        If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Or e.Row.DBCampo("CveVenta").ToString.ToEntero > 0 Then
                 If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then e.Row.CssClass = "SubTotales" : e.Row.Cells(0).Text = e.Row.DBCampo("Cantidad").FormatoNumero(0)
                 e.Row.FCLinkButton("imgE").Visible = False
@@ -2738,6 +2839,16 @@ Partial Class Contratos_ContratoObra
                 ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl(lb)
             End If
         End If
+
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If BloquearTodo Then
+                e.Row.FCLinkButton("imgU").Visible = False
+                e.Row.FCLinkButton("imgE").Visible = False
+                e.Row.FCLinkButton("imgD").Visible = False
+            End If
+        End If
+
     End Sub
 
     Protected Sub GvContratoGastos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvContratosGastos.RowDeleting
@@ -3185,6 +3296,15 @@ Partial Class Contratos_ContratoObra
             End If
 
         End If
+
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If BloquearTodo Then
+                e.Row.FCLinkButton("LinkEliminarBitacora").Visible = False
+            End If
+        End If
+
+
     End Sub
 
     Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
@@ -4181,12 +4301,38 @@ Partial Class Contratos_ContratoObra
 
 
 
+        Dim CantidadMinimo As Integer = 0
+        Dim ObjContrtato As New ClsContratos
+
+        If ObjContrtato.GetContratosDetalleAvance(CveContratoDetalleEditar) Then
+            CantidadMinimo = ObjContrtato.DtResultados.Rows(0)(0).ToString.ToEntero
+
+
+            If CantidadMinimo = 0 Then
+                RGVControlCantidadVentas.Visible = False
+            Else
+                RGVControlCantidadVentas.Visible = True
+                RGVControlCantidadVentas.MinimumValue = CantidadMinimo.ToString
+            End If
+
+
+        End If
+
+
+        ObjContrtato.Dispose()
+
+
+
         ModalVentasPSAdd = False
         ChkContinualAgregandoVentas.Visible = False
         ChkContinualAgregandoVentas.Checked = False
 
+        UpModalVentasAddPS.Update()
 
         RegistraScript("$('#ModalVentasAddPS').modal('show')")
+
+
+
     End Sub
     Protected Sub LnkEditarPresupuestoControlDetalle_Click(sender As Object, e As EventArgs)
 
@@ -4276,6 +4422,7 @@ Partial Class Contratos_ContratoObra
 
         'TxtOCInterna.Text = ""
         TxtCantidad.Text = ""
+        RGVControlCantidadVentas.Visible = False
         'ChkLimitarVenta.Checked = False
         'TxtNoIdentificacionv.Text = ""
         DdlClasificacionAdd.SelectedValueExist(-1)
@@ -5088,7 +5235,6 @@ Partial Class Contratos_ContratoObra
     Private Sub GvGastosVeiculos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosVeiculos.RowDataBound
 
         If e.Row.RowType = DataControlRowType.DataRow Then
-
             If e.Row.DataKey("ORDEN").ToEntero = 1 Then
                 e.Row.CssClass = "Totales"
                 e.Row.Cells(1).Text = "Total"
@@ -5097,8 +5243,16 @@ Partial Class Contratos_ContratoObra
 
 
             End If
-
         End If
+
+
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If BloquearTodo Then
+                e.Row.FCLinkButton("LnkEliminarGasto").Visible = False
+            End If
+        End If
+
     End Sub
 
 
@@ -5433,6 +5587,39 @@ Partial Class Contratos_ContratoObra
         AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal)
 
     End Sub
+    Protected Sub LnkAbrirContrato_Click(sender As Object, e As EventArgs)
+        AbrirCerrarContrto(False)
+    End Sub
+    Protected Sub LnkCerrarContrato_Click(sender As Object, e As EventArgs)
+        AbrirCerrarContrto(True)
+    End Sub
+
+
+    Private Sub AbrirCerrarContrto(Cerrar As Boolean)
+
+
+        Dim ObjConrtato As New ClsContratos
+
+        If ObjConrtato.AbrirCerrarContrato(CveContrato, UsuarioActual.CveEmpresa, Cerrar, UsuarioActual.CveUsuario) Then
+            Alert($"Contrato { If(Cerrar, "Cerrado", "Abierto")} Correctamente", TipoMensaje.MsgInformacion, $"window.location.href=""./ContratoObra.aspx?CveContrato={CveContrato}"";")
+        End If
+
+
+    End Sub
+
+    Private Sub GvInt_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInt.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If BloquearTodo Then
+
+                'e.Row.FCLinkButton("LinkButton1").Enabled = False
+                'e.Row.FCLinkButton("LinkButton2").Enabled = False
+                e.Row.FCLinkButton("LinkButton3").Visible = False
+                e.Row.FCLinkButton("LinkButton4").Visible = False
+
+            End If
+        End If
+    End Sub
 End Class
 
 

Contratos/RepContratosObraAvances.aspx

@@ -309,7 +309,7 @@
                     
                     <asp:TemplateField HeaderText="Importe">
                         <ItemTemplate>
-                            <asp:Label ID="LblImporte" CssClass="Texto" runat="server" Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
+                            <asp:Label ID="LblImporteSubTotal" CssClass="Texto" runat="server" Text='<%# Eval("ImporteSubTotal", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>

Contratos/RepContratosObraAvances.aspx.vb

@@ -47,7 +47,10 @@ Partial Class RepContratosObraAvances
 
         Dim NumeroContratos As Integer = DTDatos.Rows.Count
 
-        Dim TotalContratos As Decimal = DTDatos.SUM("Importe")
+        'Dim TotalContratos As Decimal = DTDatos.SUM("Importe")
+        Dim TotalContratos As Decimal = DTDatos.SUM("ImporteSubTotal")
+
+
         Dim TotalAvance As Decimal = DTDatos.SUM("AvanceImporte")
         Dim TotalFaltante As Decimal = TotalContratos - TotalAvance
 

Ventas/ProductosServicios.aspx.vb

@@ -2187,20 +2187,27 @@ Partial Class ProductosyServicios
             ' CargaClasificacionesDetalles()
         End If
 
-        Try
+
-            Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+        If DdlClasificacion.SelectedValue.ToEntero > 0 Then
-            If Boolean.Parse(Dr("EsAcumulador").ToString) Then
+            Try
-                MostarOcultarDivTamanio(True)
+                Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
-            Else
+                If Boolean.Parse(Dr("EsAcumulador").ToString) Then
-                MostarOcultarDivTamanio(False)
+                    MostarOcultarDivTamanio(True)
-            End If
+                Else
-            'SI ES MOTOBATERIA
+                    MostarOcultarDivTamanio(False)
-            If DdlClasificacion.SelectedValue = "20517" Then
+                End If
-                MostarOcultarDivTamanio(True)
+                'SI ES MOTOBATERIA
-            End If
+                If DdlClasificacion.SelectedValue = "20517" Then
-        Catch ex As Exception
+                    MostarOcultarDivTamanio(True)
-            OnError("Ocurrió un error al mostrar los tamaños", ex)
+                End If
-        End Try
+            Catch ex As Exception
+                OnError("Ocurrió un error al mostrar los tamaños", ex)
+            End Try
+        End If
+
+
+
+
     End Sub
 
     Private Sub MostarOcultarDivTamanio(Mostrar As Boolean)