RH/CatPersonal.aspx.vb

@@ -73,6 +73,7 @@ Partial Class RH_CatPersonal
                 DdlRegistroPatronal.DataSource = Nothing
             End If
             DdlRegistroPatronal.DataBind()
+            DdlRegistroPatronal.SelectedValueExist("21") 'empresa 158
             ObjRH.Dispose()
 
             ' GvDatos.Rows(0).FCLabel("LtlSubProyectoConfigurado").Text = LblSubProyectoAsignado.Text
@@ -1217,6 +1218,8 @@ Partial Class RH_CatPersonal
                     Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 End If
 
+                If ObjPersonal.Updateestemporal(ObjPersonal.CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
+                End If
                 ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 TxtFoto.Text = "[]"
@@ -1247,6 +1250,10 @@ Partial Class RH_CatPersonal
         TxtNumeroSS.Text = ""
         TxtCURP.Text = ""
         TxtRFC.Text = ""
+        TxtCodigo.Text = "-1"
+        Using objrh = New ClsRH()
+            TxtCodigo.Text = objrh.PersonalUitimoCodigoGET(UsuarioActual.CveEmpresa, "")
+        End Using
     End Sub
 
     Protected Sub LnkAddPersonalSimplificado_Click(sender As Object, e As EventArgs)