Aun hay problemas con el formato de Orden de servicio

OS/OrdenesServicios.aspx.vb

@@ -331,7 +331,7 @@ Partial Class OS_OrdenesServicios
             'Carga OS
             If CveOS > 0 Then
 
-                CargaEstatusOS()
+                'CargaEstatusOS()
                 CargaDatos()
                 'PermisosSegunEstatus()
                 CargaDetalles()
@@ -354,6 +354,7 @@ Partial Class OS_OrdenesServicios
                 TxtFechaRecibido.Text = Now.ToString("dd/MM/yyy")
                 ViewState("CveOS") = -1
                 DdlEstatusOS.Enabled = False
+                CargaEstatusOS()
             End If
 
             hdnEsThickbox.Value = "S"
@@ -434,9 +435,13 @@ Partial Class OS_OrdenesServicios
             DdlSubProyecto.Items.Clear()
             DdlSubProyecto.SelectedValue = Nothing
             DdlSubProyecto.DataSource = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-            DdlSubProyecto.DataBind()
+
             If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+            DdlEstatusOS.DataSource = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyecto), "", {"CveEstatusOrdenServicio", "EstatusOrdenServicio"})
         End If
+        ObjOS.Dispose()
+        DdlSubProyecto.DataBind()
+        DdlEstatusOS.DataBind()
     End Sub
     Private Sub CargaTiposOrden()
         Dim ObjOS As New ClsOS
@@ -447,11 +452,10 @@ Partial Class OS_OrdenesServicios
         Else
             DdlTipoOrdenOS.DataSource = Nothing
         End If
-
+        ObjOS.Dispose()
         DdlTipoOrdenOS.DataBind()
         DdlTipoOrdenOS.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        ObjOS.Dispose()
     End Sub
     Private Sub CargaDatos()
         Dim ObjOS As New ClsOS()
@@ -994,7 +998,7 @@ Partial Class OS_OrdenesServicios
 
 
         If Not CveOS > 0 Then
-
+            Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero
             If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
                 Errores = True
             End If
@@ -1065,8 +1069,6 @@ Partial Class OS_OrdenesServicios
 
                 Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
 
-                ImprimirAlGenerar()
-
                 ObjOrdenServicio.Commit()
 
                 Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga)