Contratos obras se agrega CveCliente

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