diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index 040501b96..8fce91f6e 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -174,7 +174,7 @@
- Agregar Presupuesto Control
+ Agregar Presupuesto Interno
@@ -980,7 +980,8 @@
-
+
+<%--
@@ -988,7 +989,8 @@
-
+ --%>
+
<%--
@@ -1124,7 +1126,7 @@
-
+
<%--
@@ -1218,7 +1220,8 @@
-
+
+ <%--
@@ -1226,7 +1229,8 @@
-
+ --%>
+
<%--
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index da9636f7a..b183c3088 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -454,12 +454,12 @@ Partial Class Contratos_ContratoObra
If CveContrato > 0 Then
If UsuarioActual.TienePermisoProceso(164) Then
BtnEliminar.Visible = True
- Gv.Columns(9).Visible = True
- GvInsumos.Columns(8).Visible = True
+ Gv.Columns(8).Visible = True
+ GvInsumos.Columns(7).Visible = True
Else
BtnEliminar.Visible = False
- Gv.Columns(9).Visible = False
- GvInsumos.Columns(8).Visible = False
+ Gv.Columns(8).Visible = False
+ GvInsumos.Columns(7).Visible = False
End If
'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial
@@ -469,8 +469,8 @@ Partial Class Contratos_ContratoObra
Else
TabPres.Visible = False
- Gv.Columns(9).Visible = True
- GvInsumos.Columns(8).Visible = True
+ Gv.Columns(8).Visible = True
+ GvInsumos.Columns(7).Visible = True
End If
@@ -1042,7 +1042,7 @@ Partial Class Contratos_ContratoObra
'TDObservacion.Visible = True
'tdObservaciones.Visible = True
TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString
- Gv.Columns(4).Visible = True
+ Gv.Columns(3).Visible = True
'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString)
End If
@@ -1843,9 +1843,9 @@ Partial Class Contratos_ContratoObra
Gv.DataBind()
If CveTipoContrato = 25 Then
' Gv.Columns(0).Visible = False
- Gv.Columns(2).Visible = False
+ Gv.Columns(1).Visible = False
' Gv.Columns(3).Visible = False
- Gv.Columns(7).Visible = False
+ Gv.Columns(6).Visible = False
End If
'If (Gv.Rows.Count > 0) Then
' Gv.UseAccessibleHeader = True
diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx.vb b/Contratos/RepContratosObraAvancesDetalle.aspx.vb
index 33736e982..0c5d28a6a 100644
--- a/Contratos/RepContratosObraAvancesDetalle.aspx.vb
+++ b/Contratos/RepContratosObraAvancesDetalle.aspx.vb
@@ -151,7 +151,7 @@ Partial Class RepContratosObraAvancesDetalle
Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx"
If Not System.IO.File.Exists(PlantillaAnexo) Then
- Alert("No se encuentra la platilla de anexos.", TipoMensaje.MsgAdvertencia)
+ Alert("No se encuentra la plantilla de anexos.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
diff --git a/Contratos/RepContratosObraAvancesPartida.aspx b/Contratos/RepContratosObraAvancesPartida.aspx
index ec7f8299d..b577c1fb4 100644
--- a/Contratos/RepContratosObraAvancesPartida.aspx
+++ b/Contratos/RepContratosObraAvancesPartida.aspx
@@ -24,11 +24,11 @@