paginação.asp

juliobribeiro · Setembro 27, 2007

Caros amigos do forum imasters,

Estou com uma dúvida pois não estou conseguindo paginar o arquivo q possuo.

Segue abaixo o script do meu arquivo, gostaria de saber a onde estou errando e o que eu tenho que fazer para dar certo, pois quando eu clico em proxima a pagina retorna em branco.

ASP

A:hover { COLOR: #000000; TEXT-DECORATION: underline }

</style>

<%

Sub principal

Dim strAcao, strSQL, rstRegs, inputs, strAgencia ,rstAux , indice , id_tpprova ,RS , existetab,existetr,total

dim st_alteracao,cor ,id_inspetor ,strWhere, astrtobjcertificacaoAnt, CodSql, alterar , excluir ,novo ,ativo , print , salvar

dim pagina, intpagina,intrec

set inputs = new Inputs

inputs.sincronizar(request)

set rstRegs = Server.CreateObject("ADODB.Recordset")

rstRegs.ActiveConnection = GetConnection

if(inputs.getItem("acao") = "PESQUISAR") then

strSQL = "select st_ativo=isnull(st_ativo,'S')," & _

" case when bt.id_inspetor is not null and bt.tp_pessoa ='F' then " & _

" ins.nm_inspetor " & _

" when bt.id_inspetor is not null and bt.tp_pessoa ='J' then " & _

" emp_ins.ds_razao_social " & _

" when bt.id_EMPRESA is not null then " & _

" emp1.ds_razao_social " & _

" when bt.id_aluno is not null and bt.tp_pessoa ='F' then " & _

" al.nm_aluno " & _

" when bt.id_aluno is not null and bt.tp_pessoa ='J' then " & _

" emp_al.ds_razao_social " & _

" when bt.id_VENDA is not null and você.ID_COMPRADOR is not null then " & _

" CC.NM_COMPRADOR " & _

" else " & _

" emp.ds_razao_social " & _

" end as nome, " & _

"bt.id_objcertificacao, bt.id_boleto, bt.id_taxa, oc.ds_objcertificacao, bt.id_inspetor, bt.id_tppagamento, " & _

"ds_taxa, Ds_TPPAGAMENTO, NU_PARCELA,DT_VENCIMENTO,VL_BOLETO, " & _

"VL_PAGO=isnull(VL_PAGO,0),DT_PAGAMENTO,ST_CHEQUE_DEVOLVIDO, bt.nu_nosso_numero " & _

" from brnt5sp147.boletos bt " & _

" left join (select distinct id_ptc, id_boleto from brnt5sp147.parcela_pagto_produto) as ppp on ppp.id_boleto=bt.id_boleto " & _

" left join brnt5sp147.proposta_tec_comercial ptc on ptc.id_ptc=ppp.id_ptc " & _

" left join brnt5sp147.TB_CON_OPERACAO op on op.id_OPERACAO = bt.id_OPERACAO " & _

" left join brnt5sp147.empresa emp on emp.id_empresa=op.id_empresa " & _

" left join brnt5sp147.empresa emp1 on emp1.id_empresa=bt.id_empresa " & _

" left join brnt5sp147.inspetor ins on ins.id_inspetor = bt.id_inspetor " & _

" left join brnt5sp147.empresa emp_ins on emp_ins.id_empresa=ins.id_empresa " & _

" left join brnt5sp147.aluno al on al.id_aluno=bt.id_aluno " & _

" left join brnt5sp147.empresa emp_al on emp_al.id_empresa=al.id_empresa " & _

" left join brnt5sp147.taxa tx on tx.id_taxa = bt.id_taxa " & _

" left join brnt5sp147.TIPO_PAGAMENTO tp on tp.ID_TPPAGAMENTO = bt.ID_TPPAGAMENTO " & _

" left join brnt5sp147.VENDA_CALIBRE você on você.ID_VENDA = bt.ID_VENDA " & _

" left join brnt5sp147.COMPRADOR_CALIBRE CC on você.ID_COMPRADOR = CC.ID_COMPRADOR " & _

"inner join brnt5sp147.OBJETO_CERTIFICACAO oc on oc.id_objcertificacao = bt.id_objcertificacao " & _

" where 1=1 "

if (inputs.getItem("nosso_numero") <>"" AND isnumeric(inputs.getItem("nosso_numero"))) then

strWhere = " and bt.nu_nosso_numero like '%" & inputs.getItem("nosso_numero") & "%' "

end if

if (inputs.getItem("id_objcertificacao") <>"" ) then

strWhere = strWhere & " AND bt.id_objcertificacao in (" & inputs.getItem("id_objcertificacao") & ") "

end if

if (trim(inputs.getItem("nome")) <>"") then

strWhere = strWhere & " and ( isnull(nm_inspetor,'') like '%" & trim(inputs.getItem("nome")) & "%' or isnull(emp.ds_razao_social,'') like '%" & trim(inputs.getItem("nome")) & "%' or isnull(nm_aluno,'') like '%" & trim(inputs.getItem("nome")) & "%' or isnull(emp1.ds_razao_social,'') like '%" & trim(inputs.getItem("nome")) & "%')"

end if

if StrCheckBit(inputs.getItem("st_pagos")) <> StrCheckBit(inputs.getItem("st_nao_pagos")) then

if StrCheckBit(inputs.getItem("st_pagos")) = "S" then

strWhere = strWhere & " and (vl_pago >= vl_boleto)"

end if

if StrCheckBit(inputs.getItem("st_nao_pagos")) = "S" then

strWhere = strWhere & " and (isnull(vl_pago,0) < vl_boleto)"

end if

if StrCheckBit(inputs.getItem("st_ativo")) = "S" then

strWhere = strWhere & " and (st_ativo = 'N')"

end if

if inputs.getItem("dt_inicial_vc") <>"" then

strWhere = strWhere & " and DT_VENCIMENTO >='" & dataY_M_D(inputs.getItem("dt_inicial_vc")) & "'"

end if

if inputs.getItem("dt_final_vc") <>"" then

strWhere = strWhere & " and DT_VENCIMENTO <='" & dataY_M_D(inputs.getItem("dt_final_vc")) & "'"

end if

if inputs.getItem("dt_inicial_em") <>"" then

strWhere = strWhere & " and DT_EMISSAO >='" & dataY_M_D(inputs.getItem("dt_inicial_em")) & "'"

end if

if inputs.getItem("dt_final_em") <>"" then

strWhere = strWhere & " and DT_EMISSAO <='" & dataY_M_D(inputs.getItem("dt_final_em")) & "'"

end if

if inputs.getItem("dt_inicial_pg") <>"" then

strWhere = strWhere & " and dt_pagamento >='" & dataY_M_D(inputs.getItem("dt_inicial_pg")) & "'"

end if

if inputs.getItem("dt_final_pg") <>"" then

strWhere = strWhere & " and dt_pagamento <='" & dataY_M_D(inputs.getItem("dt_final_pg")) & "'"

end if

strSQL = strSQL & strWhere & " ORDER BY bt.id_objcertificacao, bt.nu_nosso_numero ASC"

rstRegs.Source = strSQL

rstRegs.CursorType = 0

rstRegs.CursorLocation = 3

rstRegs.LockType = 3

rstRegs.Open()

'Controle de paginação *************************************************************

'Definindo em qual pagina o visitante está

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> rstRegs.PageCount then

intpagina=rstRegs.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

'Fim Controle de paginação ***********************************************************

end if

%>

<%Cabecalho("Pagamentos")%>

<input type="hidden" value="<%=inputs.getItem("acao")%>" name="acao" ID="Hidden1">

<%IniciarTabela2 "Filtro", " align=center width='75%' "

%>

<tr>

<td class="txtform" align="LEFt">Origem:</td>

<%strsql = "select id_OBJCERTIFICACAO, DS_OBJCERTIFICACAO from brnt5sp147.OBJETO_CERTIFICACAO " & _

" order by DS_OBJCERTIFICACAO "

set rstAux = getrecordset(strsql) %>

<% while not rstAux.eof %>

<%rstAux.MoveNext

wend %>

</select>

</td>

</tr>

<tr>

<td width="16%" class="txtform" align="left">Nosso número:</td>

<td width="10%" align="left" ><input type="text" class="inputpq" value="<%=inputs.getItem("nosso_numero")%>" name="nosso_numero" style="width:100%" size="10" maxlength="8" ID="Text1"></td>

<td width="10%" class="txtform" align="right">Sacado:</td>

</td>

</TR>

<TR>

<td COLSPAN=4 class="txtform" align="center" >Vencimento: De

até

</td>

</TR>

<TR>

<td COLSPAN=4 class="txtform" align="center" >Pagamentos: De <input class="inputpq" name="dt_inicial_pg" type="text" size="10" readonly=yes value="<%=dataDMY(inputs.getitem("dt_inicial_pg"))%>" ID="Text5">

até

</td>

</TR>

<TR>

<td COLSPAN=4 class="txtform" align="center" >Emissão: De <input class="inputpq" name="dt_inicial_em" type="text" size="10" readonly=yes value="<%=dataDMY(inputs.getitem("dt_inicial_em"))%>" ID="Text7">

até

</td>

</TR>

<TR>

<td class="txtform" align="left" COLSPAN=3>Pagamento:

<input type="checkbox" name="st_pagos" <%=StrChecked(StrCheckBit(inputs.getItem("st_pagos")))%> ID="Checkbox1">Pagos<br> <input type="checkbox" name="st_nao_pagos"<%=StrChecked(StrCheckBit(inputs.getItem("st_nao_pagos")))%> ID="Checkbox2">Não Pagos

</td>

<td class="txtform" align="center">Boletos Inativos:

<input type="checkbox" value = "S" name="st_ativo" <%=StrChecked(StrCheckBit(inputs.getItem("st_ativo")))%> ID="Checkbox4">

</td>

</TR>

</table>

<tr>

</td>

</tr>

</table>

<%Finalizartabela%>

<BR>

<%if inputs.getItem("acao") = "PESQUISAR" then%>

<%

'Controle de paginação ***************************************************************

'Definindo em qual pagina o visitante está

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> rstRegs.PageCount then

intpagina=rstRegs.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

'Fim Controle de paginação ************************************************************

if not rstRegs.eof then

'alerta(intpagina)

if intpagina = "" then

intpagina = 1

else

intpagina = cint(intpagina)

end if

rstRegs.AbsolutePage = intpagina

rstRegs.Pagesize = 30

intrec=0

indice=0

total = 0

IniciarTabela2 "Listagem de Pagamentos", " align=center width='100%' "%>

<tr>

<td class="td-titulo-pend01">Sacado</td>

<td class="td-titulo-pend01">Nosso Número</td>

<td class="td-titulo-pend01">Parcela</td>

<td class="td-titulo-pend01">Dt.Vencimento</td>

<td class="td-titulo-pend01">Vl Boleto</td>

<td class="td-titulo-pend01" colspan=5>Ações <input type="checkbox" name="chk_bl" onclick="checkBoxAll(this,document.frm_principal.chk_bl);" ID="Checkbox5"></td>

</tr>

<%

astrtobjcertificacaoAnt =""

While intrec < rstRegs.PageSize and not rstRegs.EOF

total = total + 1

indice = indice + 1

if astrtobjcertificacaoAnt <> rstRegs("ds_objcertificacao") then%>

<tr>

</tr><%

end if

if rstRegs("st_ativo")= "N" then

cor = 6

else

cor = 4

end if

alterar = false

excluir = true

novo = false

ativo = false

print = false

salvar = false

if (rstregs("vl_pago")=0 and rstRegs("st_ativo") = "S" ) then

alterar = true

'excluir = true

print = true

end if

if rstRegs("st_ativo") <> "S" then

alterar = false

'excluir = false

print = false

novo = true

end if

if (isnull(rstregs("dt_pagamento")) or rstregs("dt_pagamento")="") and (rstRegs("st_ativo")<> "N") then

salvar = true

'excluir = true

end if

%>

<tr>

<td width="10%" class="td-pend0<%=cor%>"><input class="inputpq" name="dt_pgto" type="text" size="10" value="<%=dataDMY(rstregs("dt_pagamento"))%>" onKeyPress="FormataData('frm_principal.dt_pgto',10,event)" id="Text9"> </td>

<td width="12%" class="td-pend0<%=cor%>"><input class="inputpq" onKeyPress="FormataValor(this,15,event);" name="vl_pago<%=indice%>" type="text" size="9" value="<%=formataNumero(rstregs("vl_pago"),2)%>" ID="Text10"> </td>

<td width="3%" class="td-pend0<%=cor%>" align=center >

<%

if salvar then%>

<img hspace=3 src='../../images/salvar.gif' alt='Salvar Boleto' Onclick="java script:AtualizarBoleto('ATUALIZAR',<%=rstRegs("id_boleto")%>,<%=indice%>);" style='cursor:hand'>

<%else%>

<%end if%>

</td>

<td width="3%" class="td-pend0<%=cor%>" align=center >

<%if alterar then%>

<img hspace=3 src='../../images/editar.gif' alt='Alterar Boleto' Onclick="boleto('EDITAR',0,<%=rstRegs("id_boleto")%>,0,0,<%=rstRegs("id_tppagamento")%>);" style='cursor:hand'>

<%else%>

<%end if%>

</td>

<%if excluir and not novo then%>

<img src='../../images/delete.gif' alt='Excluir Boleto' Onclick="boleto('EXCLUIR',0,<%=rstRegs("id_boleto")%>,0,0,0);" style='cursor:hand'>

<%else%>

<%end if%>

</td>

<%if novo then%>

<img src='../../images/export.gif' alt='Reprogramar Boleto' Onclick="boleto('NOVO',0,<%=rstRegs("id_boleto")%>,0,0,0);" style='cursor:hand'>

<%else%>

<%end if%>

</td>

<%if print then%>

<input type="checkbox" name="chk_bl" id="<%=indice%>" value="<%=rstregs("id_boleto")%>">

<%else%>

<%end if%>

</td>

</tr>

<%astrtobjcertificacaoAnt = rstRegs("ds_objcertificacao")

rstRegs.movenext

'************************ Parte do controle de paginação

intrec=intrec+1

IF rstregs.EOF then

response.write " "

END IF

'************************ FIM parte do controle de paginação

wend

%>

</table>

<tr>

<%if total > 1 then%>

Total de ítens encontrador: <b><%=total%> </b>

<%else%>

Total de ítem encontrador: <b><%=total%></b>

<%end if%>

</td>

<%

'************************Parte do controle e paginação

IF intpagina > 1 then

%>

<a href="relboletos.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%

END IF

IF strcomp(intpagina,rstRegs.PageCount) <> 0 then

%>

<a href="relboletos.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<%

END IF

'************************ Fim parte do controle de paginação

%>

</td>

</tr>

</table>

<%Finalizartabela%>

<%else%>

<%IniciarTabela2 "Listagem de Pagamentos", " align=center width='100%' "%>

<tr><td align="center" class="txtform"><font color="#FF0000"><b>Não foram encontrados resultados para sua pesquisa.</b></font></td></tr>

</table>

<%Finalizartabela%>

<% end if

end if%>

</form>

function enviar(acao,print) {

var nu_cpf2,nosso_numero,st_cheque_comp,st_cheque_devolv,st_pagos,st_nao_pagos,dt_in

cial_vc,dt_final_vc;

var dt_inicial_pg,dt_final_pg , id_objcertificacao , selecionado;

//nu_cpf2 = document.frm_principal.nu_cpf2.value ;

nosso_numero = document.frm_principal.nosso_numero.value ;

id_objcertificacao = '';

for (i = 0; i < frm_principal.id_objcertificacao.options.length; i++) {

if (frm_principal.id_objcertificacao.options[i].selected == true){

selecionado=true;

id_objcertificacao = id_objcertificacao + frm_principal.id_objcertificacao.options[i].value + ',';

}

/*

if(!selecionado) {

id_objcertificacao = ""

for (i = 0; i < frm_principal.id_objcertificacao.options.length; i++) {

frm_principal.id_objcertificacao.options.selected = true;

id_objcertificacao = id_objcertificacao + frm_principal.id_objcertificacao.options.value + ',';

}

st_cheque_comp = 'N'

if (document.frm_principal.st_cheque_comp.checked == true){

st_cheque_comp = 'S';

}

st_cheque_devolv = 'N'

if (document.frm_principal.st_cheque_devolv.checked == true){

st_cheque_devolv = 'S';

}

*/

st_pagos = 'N'

if (document.frm_principal.st_pagos.checked == true){

st_pagos = 'S';

}

st_nao_pagos = 'N'

if (document.frm_principal.st_nao_pagos.checked == true){

st_nao_pagos = 'S';

}

dt_inicial_vc = document.frm_principal.dt_inicial_vc.value ;

dt_final_vc = document.frm_principal.dt_final_vc.value ;

dt_inicial_pg = document.frm_principal.dt_inicial_pg.value ;

dt_final_pg = document.frm_principal.dt_final_pg.value ;

if (acao == 'BOL'){

if (document.frm_principal.chk_bl != null){

chkBxBoletos(document.frm_principal.chk_bl, '../RelatoriosFinanceiro/BOLETOS.asp?id_boletos=');

}

else{

alert ("Nenhum Boleto Selecionado!")

}

return;

}

if (acao == 'NOT')

{

if (document.frm_principal.chk_bl != null)

{

var cont = 0;

var ids = '';

if(document.frm_principal.chk_bl.length)

{

for(i = 1; i < document.frm_principal.chk_bl.length; i++)

{

if(document.frm_principal.chk_bl[i].checked)

{

cont++;

ids += document.frm_principal.chk_bl[i].value + ',';

}

else

{

if(document.frm_principal.chk_bl.checked)

{

cont++;

ids = document.frm_principal.chk_bl.value;

}

if(cont < 1)

{

alert('É necessário a seleção de pelo menos um Boleto!');

} else {

location.replace('../Financeiro/VerificaBoletosNota.asp?id_boletos=' + ids);

}

else

{

alert ("Nenhum Boleto Selecionado!")

}

return;

}

if (print==1){

window.open('RelPagamentosImp.asp?id_objcertificacao='+id_objcertificacao+'&nosso_numero='+nosso_numero+'&st_cheque_comp='+st_cheque_comp+'&st_cheque_devolv='+st_cheque_devolv+'&st_pagos='+st_pagos+'&st_nao_pagos='+st_nao_pagos+'&dt_inicial_vc='+dt_inicial_vc+'&dt_final_vc='+dt_final_vc+'&dt_inicial_pg='+dt_inicial_pg+'&dt_final_pg='+dt_final_pg,'teste',' toolbar=no ,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,wi

th=850,height=300,top=150,left=140');

}

document.frm_principal.action = "RelBoletos.asp";

disableForm (document);

document.frm_principal.acao.value = acao;

document.frm_principal.submit();

}

function historico (acao,id_historico,id_certificacao,nm_inspetor) {

//window.open('cadHistCertificacao.asp?acao='+acao+'&id_historico='+id_historico+'&id_certificacao='+id_certificacao+'&nm_inspetor='+nm_inspetor,'teste',' toolbar=no ,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,menu

ar=no,width=600,height=280,top=150,left=140');

document.frm_principal.id_certificacao.value = id_certificacao;

document.frm_principal.id_historico.value = id_historico;

document.frm_principal.nm_inspetor3.value = nm_inspetor;

document.frm_principal.acao.value = acao;

document.frm_principal.action='cadHistCertificacao.asp';

if (acao == 'EXCLUIR'){

if (!confirm("Todos os registros relacionados serão excluídos!")){

return;

}

document.frm_principal.submit();

}

function boleto(acao,id_taxa,id_boleto,id_qualificacao,id_inspetor,id_tppagamento) {

//alert ('asa');

//return;

document.frm_principal.action='../cadastro/CadFinanceiroDutos.asp';

document.frm_principal.id_boleto.value=id_boleto;

document.frm_principal.id_taxa.value=id_taxa;

document.frm_principal.id_qualificacao.value=id_qualificacao;

document.frm_principal.id_inspetor.value=id_inspetor;

document.frm_principal.id_tppagamento2.value=id_tppagamento;

disableForm(document);

document.frm_principal.acao.value = acao;

if (acao == 'EXCLUIR'){

if (!confirm("Confirma exclusão do boleto!")){

return

}

document.frm_principal.submit();

}

function exporta_dados(){

}

function AtualizarBoleto(acao,id_boleto,indice) {

var campo

disableForm (document);

document.frm_principal.action='../cadastro/CadFinanceiroDutos.asp';

campo = 'vl_pago'+indice

if (document.frm_principal.elements[campo].value ==''){

alert('O campo valor pago é de preenchimento obrigatório')

document.frm_principal.elements[campo].focus();

return

}

document.frm_principal.vl_pago.value=document.frm_principal.elements[campo].valu

campo = 'dt_pgto'+indice

if (document.frm_principal.elements[campo].value =='' || !isValidDate(document.frm_principal.elements[campo].value)) {

alert('O campo data pagamento é de preenchimento obrigatório')

document.frm_principal.elements[campo].focus();

return

}

document.frm_principal.dt_pagamento.value=document.frm_principal.elements[campo]

value;

document.frm_principal.acao.value=acao;

document.frm_principal.id_boleto.value=id_boleto;

document.frm_principal.submit();

}

</script>

<%end sub%>

Mário Monteiro · Setembro 27, 2007

Artigos, Dicas, Tutoriais e Materias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

Ted k' · Setembro 27, 2007

passe os valores da busca pela queystring tbm!

juliobribeiro · Setembro 28, 2007

Caro amigo,Não entendi o q você disse, poderia dar um exemplo?Obrigado,Julio Cezar

Entrar

Arquivado

paginação.asp

Recommended Posts

juliobribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

juliobribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante