<% call db_open() if (Request.Form() <> "") then if (Request.Form("id_entrevistador") = "") then form_alert("Selecione as entrevistas.") : form_script("history.go(-1)") : response.End() end if ' Alteração de Status ( if (Request.Form("form_submit") = "Enviar") then id_treinamento = request.Form("id_treinamento") acao = request.Form("acao") if (id_treinamento <> "") and (acao <> "") then 'con.execute("update cf_treinamento set ID_CF_STATUS_ENTIDADE = "&acao&" where id_cf_treinamento in ("&id_treinamento&")") end if end if ' ) ' Pega os dados sql = "insert into CF_ENVIO_material (" for each item in request.Form() if ((left(item,3) = "txt") or (left(item,3) = "chk") or (left(item,3) = "TXT") or (left(item,3) = "cmb")) then sql_campos = sql_campos & right(item,len(item) - 4)& ", " sql_valores = sql_valores & "'" &request.form(item) & "', " end if next sql = sql & left(sql_campos,len(sql_campos) -2) & ") values ("&left(sql_valores,len(sql_valores) -2) & ")" ' verifica se já não existe o envio if (db_scalar("select id_cf_envio_material from cf_envio where data_cadastro = '"&request.form("txt-data_cadastro")&"' and hora_cadastro = '"&request.form("txt-hora_cadastro")&"'") = "") then con.execute(sql) form_alert("Envio de remessa cadastrado com sucesso.") : form_redir("Remessa_Envio.asp") : response.End() end if if (1 <> 1) then id_envio = db_scalar("select id_cf_envio from cf_envio where data_cadastro = '"&request.form("txt-data_cadastro")&"' and hora_cadastro = '"&request.form("txt-hora_cadastro")&"'") if (id_envio <> "") then ' con.execute("insert into cf_envio_ENTREVISTA (id_cf_envio, id_cf_entrevista, hora_cadastro, data_cadastro) values ('"&id_envio&"','"&item&"','"&request.Form("txt-hora_cadastro")&"','"&request.Form("txt-data_cadastro")&"')") form_alert("Envio cadastrado com sucesso.") : form_redir("Remessa_Envio.asp") : response.End() else form_alert("Comportamento inesperado do sistema \n tente inserir novamente.") : form_redir("E_Questionario_Envio_Lista.asp") end if end if end if if (request.form("filtro") <> "") then filtro = " and tre.id_cf_status_entidade = " & request.form("filtro") sql = "select id_cf_entrevista, (select texto from cf_questao_resposta res where res.id_cf_entrevista = ent.id_cf_entrevista and res.id_cf_questao = 16) as data, "_ & "(select texto from cf_questao_resposta res where res.id_cf_entrevista = ent.id_cf_entrevista and res.id_cf_questao = 13) as entrevistado "_ & "from cf_entrevista ent where id_cf_entrevistador = "&session("id_pessoa")&" and id_cf_entrevista not in (select id_cf_entrevista from cf_envio_entrevista env where env.id_cf_entrevista = ent.id_cf_entrevista)" set rs = con.execute(sql) %> IPESO
1 . Selecione as entrevistas que irá cadastrar no envio <%' call form_combo("filtro", " onchange=""f.submit();"" class=textbox ",",Todos|2,Ativos|3,Arquivados|5,Encerrados",request.Form("filtro")) %>

  Data da entrevista Nome do entrevistado
<% call form_select("select id_cf_entrevistador, nome from cf_entrevistador where id_CF_tipo_usuario = 1 order by nome", "", "id_entrevistador", "class=""textBox"" ", con) %>
<%' call form_status_entidade("acao"," class=textbox ", " class=btn ") %>

2 . Preencha os campos relativos ao envio

Forma de envio <% CALL form_select("CF_ENVIO_TIPO", "", "TXT-ID_CF_ENVIO_TIPO", " CLASS='textbox' onchange=""forma_envio(this)"" ", con) %>
Data do envio
" type="hidden">