eFacturas Vinculacion manual

Contratos/ContratoObra.aspx.vb

@@ -924,9 +924,10 @@ Partial Class Contratos_ContratoObra
 #Region "   CARGA DATOS   "
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos()
-        Dim Ruta = Request.ApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\"
-        'DivTipoContrato.Visible = False
-
+        Dim Ruta = Request.ApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\"
+        'DivTipoContrato.Visible = False
+
+
         If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
             If ObjContratos.DtResultados.Rows.Count > 0 Then
 
@@ -2042,12 +2043,14 @@ Partial Class Contratos_ContratoObra
     End Sub
     Protected Sub GV_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles Gv.RowDataBound
 
-        If e.Row.RowIndex > -1 Then
-
-            e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado
-            'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado
+        If e.Row.RowIndex > -1 Then
+
+            Dim LnkHabilitaAvance As LinkButton = e.Row.FCLinkButton("LnkHabilitaAvance")
+            ' e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado
+            'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado
             If UsuarioActual.TienePermisoProceso(124) Then
                 e.Row.FCCheckBox("CHKPAvance").Enabled = True
+                LnkHabilitaAvance.Enabled = True
             End If
 
             If e.Row.DBCampo("PermitirAvance").ToString = "1" Then
@@ -2065,7 +2068,20 @@ Partial Class Contratos_ContratoObra
             If CveTipoContrato = 25 Then
                 e.Row.Cells(1).Width = Unit.Pixel(10)
                 e.Row.Cells(6).Width = Unit.Pixel(250)
+            End If
+
+
+
+
+            If e.Row.DBCampo("PermitirAvance").ToString = "1" Then
+                LnkHabilitaAvance.Text = "<i class='fa fa-check-square-o' aria-hidden='true'></i>"
+                LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Deshabilitar avance?")
+            Else
+                LnkHabilitaAvance.Text = "<i class='fa fa-square-o' aria-hidden='true'></i>"
+                LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Habilitar avance?")
             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)
@@ -5026,6 +5042,36 @@ Partial Class Contratos_ContratoObra
 
 
 
+    Protected Sub LnkHabilitaAvance_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        Dim PermitirAvance As Integer = GvRow.DataKey("PermitirAvance").ToEntero
+
+        'Get the button that raised the event
+        'Dim btn As CheckBox = DirectCast(sender, CheckBox)
+        'Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow)
+
+        Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToString.ToEntero
+        Dim objContrato As New ClsContratos
+
+        If objContrato.UpdateContratosDetalleAvance(CveContratoDetalle, IIf(PermitirAvance = 1, 0, 1).ToString.ToEntero) Then
+            Dim row = TmpDT.Select(String.Format("CveContratoDetalle={0}", CveContratoDetalle))(0)
+
+            row("PermitirAvance") = IIf(PermitirAvance = 1, 0, 1).ToString.ToEntero
+
+
+            CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
+
+
+            Alert("Se ha permitido levantar avance", TipoMensaje.MsgInformacion)
+        Else
+            Alert("no se pudo permitir avance", TipoMensaje.MsgAdvertencia)
+        End If
+
+        objContrato.Dispose()
+
+    End Sub
 End Class