IPESO

<% 'if (request.form("nome") <> "") then filtro = " and cf_entrevistador.nome like '%"&request.form("nome")&"%' " 'sql_lista = "select id_cf_entrevistador, cf_entrevistador.nome as nome, cf_status.nome as status, cidade, estado, email from cf_entrevistador, cf_status where cf_entrevistador.id_cf_status = cf_status.id_cf_status and cf_entrevistador.id_cf_status <> 3 and id_cf_tipo_usuario = 1 "&filtro&" and id_cf_entrevistador in (select id_cf_entrevistador from CF_PESQUISA_ENTREVISTADOR where CF_PESQUISA_ENTREVISTADOR.inativo <> 1 and CF_PESQUISA_ENTREVISTADOR.id_cf_entrevistador = cf_entrevistador.id_cf_entrevistador) order by nome asc" 'set rs = con.execute(sql_lista) sql_lista = "Select CF_PAGAMENTO.registro_deposito, CF_PAGAMENTO.VALOR, CF_PAGAMENTO.PGTO_AGENDADO_PARA, CF_PAGAMENTO.data_realizou_deposito, CF_PAGAMENTO.ID_COD_PAGTO, cf_entrevistador.nome as nome, cf_entrevistador.nome as nome, cf_entrevistador.id_cf_entrevistador as id_cf_entrevistador, cf_bancos.NOME_BANCO, CF_DADOS_BANCARIOS.BANCO_AGENCIA, CF_DADOS_BANCARIOS.BANCO_AGENCIA_DIG, CF_DADOS_BANCARIOS.BANCO_NUM_CONTA, CF_DADOS_BANCARIOS.TIPO_CONTA, CF_DADOS_BANCARIOS.NOME_TITULAR_CONTA, CF_DADOS_BANCARIOS.NOME_TITULAR_CONTA, CPF_TITULAR_CONTA from CF_DADOS_BANCARIOS, cf_entrevistador, cf_pesquisa, CF_PAGAMENTO, cf_bancos where cf_entrevistador.id_cf_entrevistador=CF_PAGAMENTO.id_cf_entrevistador and CF_PAGAMENTO.ID_COD_BANCO=cf_bancos.ID_COD_BANCO and CF_PAGAMENTO.ID_CF_PESQUISA=cf_pesquisa.ID_CF_PESQUISA and CF_DADOS_BANCARIOS.ID_COD_CONTA=CF_PAGAMENTO.ID_COD_CONTA and CF_PAGAMENTO.status='REALIZADO' order by CF_PAGAMENTO.PGTO_AGENDADO_PARA, cf_bancos.NOME_BANCO, CF_PAGAMENTO.VALOR ASC " 'sql_lista = "select id_cf_entrevistador, cf_entrevistador.nome as nome, cf_status.nome as status, cidade, estado from cf_entrevistador, cf_status where cf_entrevistador.id_cf_status = cf_status.id_cf_status and cf_entrevistador.id_cf_status <> 3 and id_cf_tipo_usuario = 1" _ ' & " "&filtro&" and id_cf_entrevistador in (select id_cf_entrevistador from CF_PESQUISA_ENTREVISTADOR where CF_PESQUISA_ENTREVISTADOR.inativo <> 1 and CF_PESQUISA_ENTREVISTADOR.id_cf_entrevistador = cf_entrevistador.id_cf_entrevistador) order by nome asc" 'set rs = con.execute(sql_lista) 'response.write sql_lista 'response.end Const adCmdText = &H0001 : Const adOpenStatic = 3 Set Command = Server.CreateObject("ADODB.Command") Set RS =Server.CreateObject("ADODB.RecordSet") call db_open() RS.Open sql_lista,Con,adopenstatic,adcmdtext if not (rs.eof) then 'resultados por pagina a escolher arbitrariamente 'Dimensionamos as paginas e determinamos a pagina atual 'num_registros = 1 : RS.PageSize=num_registros : RS.AbsolutePage=Session("pagina") num_registros = 12 end If 'opcao="lista" 'End if If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If 'response.write "listacidade " & listacidade & "
" 'if (Request.Form() <> "") then ' for each item in request.Form() ' if (left(item,3) = "cmb") and (request.Form(item) <> "") then ' id = split(item,"-") ' if (id(1) <> "") then ' str_sql = "update cf_entrevistador set id_cf_status = " & request.Form(item) & " where id_cf_entrevistador = " & id(1) ' con.execute(str_sql) ' end if ' end if ' next 'end if ' response.Write(str_sql) ' Lę as pesquisas do banco %> IPESO

Pagamentos Realizados

<% cont =0 totalvalor=0 While (Not RS.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados +1 cont = cont+1 totalvalor = totalvalor + rs("VALOR") dia_total= DateDiff("d",rs("PGTO_AGENDADO_PARA"),rs("data_realizou_deposito")) %> <%rs.moveNext wend %>

Cod. Registro

Valor

Dta Agendada

Dta Depósito

Pzo Agendament e deposito

Cod. Entrev.

Nome

Banco

Agęncia

Dig

Conta

Tipo Conta

Titular

CPF

<% db_write(rs("registro_deposito")) %>

<% db_write(FormatNumber(rs("VALOR"),2)) %>

<% db_write(rs("PGTO_AGENDADO_PARA")) %>

<% db_write(rs("data_realizou_deposito")) %>

<% db_write(dia_total) %> Dias

<% db_write(rs("id_cf_entrevistador")) %>

<% db_write rs("nome") %>

<% db_write rs("NOME_BANCO") %>

<% db_write rs("BANCO_AGENCIA") %>

<% db_write rs("BANCO_AGENCIA_DIG") %>

<% db_write rs("BANCO_NUM_CONTA") %>

<% If rs("TIPO_CONTA")="C" Then response.write "Corrente" Else response.write "Poupança"%>

<% db_write rs("NOME_TITULAR_CONTA") %>

<% db_write rs("CPF_TITULAR_CONTA") %>

Valor

R$ <%=FormatNumber(totalvalor,2)%>

<% i=0 While ( i < RS.PageCount ) i=i+1 %> <%=i%> <% Wend %>

Página atual: <%=Session("pagina")%>
Total de páginas: <%=RS.PageCount%>
Registros por página: <%=RS.PageSize%>
Total de registros: <%=RS.RecordCount%>