%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true%>
<%
If Session("CodigoUsuario") <=0 then
Response.Redirect("/cadastro/login.asp?origem=trabalheconosco")
End If
If Request.QueryString("oper") = "OK" Then
Response.Write ""
End If
Dim CodigoPessoa
Dim Nome
Dim DataNascimento
Dim Sexo
Dim GrauInstrucao
Dim StatusInstrucao
Dim Endereco
Dim Bairro
Dim Cidade
Dim Estado
Dim DiaNsc
Dim MesNsc
Dim AnoNsc
Dim CodigoGrauInstrucao(5)
Dim GrauFormacao(5)
Dim CursoGraduacao(5)
Dim StatusGraduacao(5)
Dim NomeInstituicao(5)
Dim DataInicial
Dim DataFinal
Dim MesInicial(5)
Dim AnoInicial(5)
Dim MesFinal(5)
Dim AnoFinal(5)
Dim CargoAtual
Dim CodigoAreaInteresse
Dim AnoExperiencia
Dim MesExperiencia
Dim SalarioPretendido
Dim UltimoSalario
Dim CodigoPerfil
Dim ArquivoCurriculo
Dim TipoGraduacao
Dim ConfirmacaoSenha
Dim Email
Dim Senha
Dim ObjPessoa
Dim rsPessoa
Dim CodigoCurriculo
Dim ObjCurriculo
Dim rsCurriculo
Dim OK
Dim i
Dim ListaAreaInteresse
Dim Tamanho
on error resume next
set ObjPessoa = new TPessoa
set rsPessoa = server.CreateObject("adodb.recordset")
rsPessoa.CursorLocation = 3
CodigoCurriculo =-1
CodigoPessoa = session("CodigoUsuario")
if CodigoPessoa="" then
CodigoPessoa = Request.QueryString("CodigoPessoa")
end if
if CodigoPessoa <> "" then
Session("CodigoPessoa")=CodigoPessoa
' Busca os dados do CodPes setado na propriedade
ObjPessoa.CodigoPessoa = CodigoPessoa
Ok = ObjPessoa.Obtem(rsPessoa)
if rsPessoa.state=0 then rsPessoa.Open
If Ok then
if not rsPessoa.EOF then
CodigoPessoa = rsPessoa("CodPes")
Nome = rsPessoa("NmePes")
Email = rsPessoa("Email")
Senha = rsPessoa("SnhPes")
DataNascimento = rsPessoa("DtaNsc")
if DataNascimento<> "" then
DiaNsc = right(DataNascimento,2)
MesNsc = left(right(DataNascimento,4),2)
AnoNsc = left(DataNascimento,4)
end if
Sexo = rsPessoa("SxoPes")
GrauInstrucao = rsPessoa("GraItr")
StatusInstrucao = rsPessoa("StaItr")
Endereco = rsPessoa("EndPes")
Bairro = rsPessoa("BaiPes")
Cidade = rsPessoa("CidPes")
Estado = rsPessoa("UF")
If CodigoPessoa >0 then
set ObjCurriculo = new TCurriculo
set rsCurriculo = server.CreateObject("adodb.recordset")
rsCurriculo.CursorLocation = 3
ObjCurriculo.CodigoPessoa = CodigoPessoa
' busca o curriculo para o codpes setado na propriedade
' ObtemCurriculoParaFiltros(ordenacao,rs de retorno)
OK = ObjCurriculo.ObtemCurriculoParaFiltros("",rsCurriculo)
if rsCurriculo.state=0 then rsCurriculo.Open
If Ok then
if not rsCurriculo.EOF then
CodigoCurriculo = rsCurriculo("CodCrc")
CargoAtual = rsCurriculo("CrgAtl")
'CodigoAreaAtual = rsCurriculo("CodAraAtl")
AnoExperiencia = rsCurriculo("AnoExp")
MesExperiencia = rsCurriculo("MesExp")
If rsCurriculo("SalPtd") > 0 Then SalarioPretendido = rsCurriculo("SalPtd") Else SalarioPretendido = ""
If rsCurriculo("UltSal") > 0 Then UltimoSalario = rsCurriculo("UltSal") Else UltimoSalario = ""
CodigoPerfil = rsCurriculo("CodPrf")
ArquivoCurriculo = rsCurriculo("NmeArqCur")
if ArquivoCurriculo<>"" then
'Response.Write "posicao" & instr(ArquivoCurriculo,"_") &"
"& len(ArquivoCurriculo)&"
"
tamanho=len(ArquivoCurriculo)-instr(ArquivoCurriculo,"_")
ArquivoCurriculo=right(ArquivoCurriculo,tamanho)
end if
end if
'Response.Write "ArquivoCurriculo " & ArquivoCurriculo
'Response.end
if CodigoCurriculo <> "" then
rsCurriculo.close
ObjCurriculo.CodigoCurriculo = CodigoCurriculo
ok = ObjCurriculo.ObtemGrauInstrucaoParaFiltros("",rsCurriculo)
if rsCurriculo.state=0 then rsCurriculo.Open
If Ok then
if not rsCurriculo.EOF then
i=1
while not rsCurriculo.EOF and I<=3
CodigoGrauInstrucao(i)=rsCurriculo("CodItr")
GrauFormacao(i) = rsCurriculo("TpoGraItr")
CursoGraduacao(i)= rsCurriculo("CrsGraItr")
StatusGraduacao(i) = rsCurriculo("StaGraItr")
NomeInstituicao(i) = rsCurriculo("NmeIns")
DataInicial = rsCurriculo("DtaIni")
MesInicial(i)= left(right(DataInicial,4),2)
AnoInicial(i) = left(DataInicial,4)
DataFinal = rsCurriculo("DtaFim")
MesFinal (i)= left(right(DataFinal,4),2)
AnoFinal (i) = left(DataFinal,4)
'Response.write"
I "& i
'response.write"
CodigoGrauInstrucao "& CodigoGrauInstrucao(i)
'Response.write"
CursoGraduacao "& CursoGraduacao(i)
'Response.write"
StatusGraduacao "& StatusGraduacao(i)
'Response.write"
NomeInstituicao "& NomeInstituicao(i)
'Response.write"
MesInicial"& MesInicial(i)
'Response.write"
AnoInicial "& AnoInicial(i)
'Response.write"
MesFinal "& MesFinal (i)
'Response.write"
AnoFinal "& AnoFinal (i)
i=i+1
rsCurriculo.MoveNext
wend
end if
else
'Response.Write "Erro ao carregar Grau Instrucao"
' Response.End
set ObjCurriculo = nothing
set rsCurriculo = nothing
Response.Redirect("../mensagem.asp?Erro=-13") ' Ocorreu um erro ao carregar os dados sobre o grau de instrução do usuário. Por favor, tente novamente
end if
rsCurriculo.Close
ObjCurriculo.CodigoCurriculo=CodigoCurriculo
OK = ObjCurriculo.ObtemAreasInteresse(rsCurriculo)
if rsCurriculo.state=0 then rsCurriculo.Open
If Ok then
if not rsCurriculo.EOF then
ListaAreaInteresse=""
while not rsCurriculo.EOF
CodigoAreaInteresse = rsCurriculo("CodAraInt")
ListaAreaInteresse = ListaAreaInteresse &","& CodigoAreaInteresse
rsCurriculo.MoveNext
wend
ListaAreaInteresse = ListaAreaInteresse &","
' Response.Write "ListaAreaInteresse" & ListaAreaInteresse
end if
else
set ObjCurriculo = nothing
set rsCurriculo = nothing
Response.Redirect("../mensagem.asp?Erro=-29") ' Ocorreu um erro ao carregar os dados pessoais do usuário. Por favor, tente novamente
end if
end if
else
set ObjCurriculo = nothing
set rsCurriculo = nothing
Response.Redirect("../mensagem.asp?Erro=-29") ' Ocorreu um erro ao carregar os dados pessoais do usuário. Por favor, tente novamente
end if
end if
end if
else
set ObjPessoa = nothing
set rsPessoa = nothing
Response.Redirect("../mensagem.asp?Erro=-29") ' Ocorreu um erro ao carregar os dados pessoais do usuário. Por favor, tente novamente
end if
end if
set ObjPessoa = nothing
set rsPessoa = nothing
%>