OC Grupo díaz, CveSubProyectoGeneral, Rep OC Usar Seriefolio , oc ocultar columnas de subproyecto al cargar oc para 189

OC/OC.aspx.vb

@@ -39,6 +39,10 @@ Partial Class OC_OC
     End Property
     Private Property TipoOC As String
         Get
+            If ViewState("TipoOC") Is Nothing Then
+                ViewState("TipoOC") = ""
+            End If
+
             TipoOC = ViewState("TipoOC").ToString
         End Get
         Set(value As String)
@@ -656,6 +660,22 @@ Partial Class OC_OC
 
             CargarCentrosDeCosto(Nothing, DdlSubProyectoEntrega, Nothing, Nothing, "Seleccione")
 
+            If UsuarioActual.CveEmpresa = 189 Then
+                'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
+                DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
+                DdlSubProyectoGral.DataBind()
+                DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+                DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
+                TdProyectoSubPrpyectoDdl.Visible = False
+                TdProyectoSubPrpyecto.Visible = False
+                GvD.Columns(4).Visible = False
+                UPPDetalle.Update()
+
+            End If
+
+
+
+
             'CARGA YA REGISTRADO
             If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then
 
@@ -746,18 +766,19 @@ Partial Class OC_OC
                 'temporal
 
                 'If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                If UsuarioActual.CveEmpresa = 189 Then
-                    'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
-                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
-                    DdlSubProyectoGral.DataBind()
-                    DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-                    DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
-                    TdProyectoSubPrpyectoDdl.Visible = False
-                    TdProyectoSubPrpyecto.Visible = False
-                    GvD.Columns(4).Visible = False
-                    UPPDetalle.Update()
 
-                End If
+                'If UsuarioActual.CveEmpresa = 189 Then
+                '    'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
+                '    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
+                '    DdlSubProyectoGral.DataBind()
+                '    DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+                '    DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
+                '    TdProyectoSubPrpyectoDdl.Visible = False
+                '    TdProyectoSubPrpyecto.Visible = False
+                '    GvD.Columns(4).Visible = False
+                '    UPPDetalle.Update()
+
+                'End If
 
                 BtnGeneraContrato.Visible = True : CargaClientesContrato()
 
@@ -1555,6 +1576,10 @@ Partial Class OC_OC
 
             TxtPorcentajeProntoPago.Text = (100 * objOC.PorcentajeProntoPago).ToString("###.00")
 
+            If UsuarioActual.CveEmpresa = 189 Then
+                DdlSubProyectoGral.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString)
+            End If
+
             If Not IsNothing(objOC.Tipo) Then
 
                 Select Case objOC.Tipo.ToUpper