diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 1dccd7ef6..fe738afd7 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -362,12 +362,12 @@ Partial Class Contratos_ContratoObra
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaValoresIniciales()
- CreaDtTmpFianzas()
-
- If Request("CveCliente") IsNot Nothing Then
- cargaClientes()
- End If
-
+ CreaDtTmpFianzas()
+
+
+ cargaClientes()
+
+
If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then
ViewState("CveContrato") = Request("CveContrato")
@@ -474,6 +474,11 @@ Partial Class Contratos_ContratoObra
End If
+
+ TabAvanveDocumento.Visible = False
+ TabContratosGastos.Visible = False
+ TabPed.Visible = False
+
End Sub
#Region " CARGA VALORES INICIALES "
@@ -545,13 +550,13 @@ Partial Class Contratos_ContratoObra
End Sub
Public Function isWithFamily() As Boolean
Return UsuarioActual.CveEmpresa = 66
- End Function
- Private Sub cargaClientes()
- TrCliente.Visible = True
- TrProveedor.Visible = False
+ End Function
+
+ Private Sub cargaClientes()
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
DdlCliente.DataBind()
End Sub
+
Private Sub CreaDT()
TmpDT = New DataTable
TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
@@ -951,7 +956,7 @@ Partial Class Contratos_ContratoObra
' TxtPorcentajeComision.Text = ObjContratos.PorcentajeComision.ToString
CveTipoContrato = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero
TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString
-
+ DdlCliente.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveCliente").ToString)
If ObjContratos.CveProveedor > 0 Then
TrProveedor.Visible = True