RH/Personal.aspx.vb

@@ -1060,15 +1060,20 @@ Partial Class RH_Personal
             If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
                 Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
                 Dim drow As DataRow = dt.NewRow()
-                drow("CveTipoTrabajador") = "-1"
-                drow("TipoTrabajadorB") = "Seleccione"
                 If UsuarioActual.CveEmpresa <> 158 Then
+                    drow = dt.NewRow()
                     drow("CveTipoTrabajador") = "2"
                     drow("TipoTrabajadorB") = "Operativo"
+                    dt.Rows.InsertAt(drow, 0)
+                    drow = dt.NewRow()
                     drow("CveTipoTrabajador") = "3"
                     drow("TipoTrabajadorB") = "Administrativo"
+                    dt.Rows.InsertAt(drow, 0)
 
                 End If
+                drow = dt.NewRow()
+                drow("CveTipoTrabajador") = "-1"
+                drow("TipoTrabajadorB") = "Seleccione"
                 dt.Rows.InsertAt(drow, 0)
                 If DdlTipoTrabajador.Items.Count() > 0 Then
                     DdlTipoTrabajador.SelectedValueExist("-1")