Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
<!-- #include file="../../includes/Asp/tplHtml.asp" --->
<style> A { COLOR: #000000; TEXT-DECORATION: none }
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
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
END IF
END IF
'Fim Controle de paginação ***********************************************************
end if %>
<%Cabecalho("Pagamentos")%>
<form method="post" name="frm_principal" ID="Form1">
<input type="hidden" value="<%=inputs.getItem("acao")%>" name="acao" ID="Hidden1">
<input type="hidden" value="" name="id_boleto" ID="Hidden2">
<input type="hidden" value="" name="id_taxa" ID="Hidden3">
<input type="hidden" value="" name="id_qualificacao" ID="Hidden4">
<input type="hidden" value="" name="id_inspetor" ID="Hidden5">
<input type="hidden" value="" name="id_tppagamento2" ID="Hidden6">
<input type="hidden" value="" name="vl_pago" ID="Hidden7">
<input type="hidden" value="" name="dt_pagamento" ID="Hidden8">
<%IniciarTabela2 "Filtro", " align=center width='75%' "
%>
<table align="center" width="100%" ID="Table1">
<tr>
<td class="txtform" align="LEFt">Origem:</td>
<td COLSPAN=3 class="txtform" align="left">
<%strsql = "select id_OBJCERTIFICACAO, DS_OBJCERTIFICACAO from brnt5sp147.OBJETO_CERTIFICACAO " & _
" order by DS_OBJCERTIFICACAO "
set rstAux = getrecordset(strsql) %>
<select multiple size="6" name="id_objcertificacao" style="width:60%" class='inputpq'>
<% while not rstAux.eof %>
<option value="<%=rstAux("id_OBJCERTIFICACAO")%>"><%=rstAux("DS_OBJCERTIFICACAO")%></option>
<%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 width="64%" class="txtform" align="left">
<input class="inputpq" style="width:100%" type="text" name="nome" value="<%=inputs.getitem("nome")%>" ID="Text2">
</td>
</TR>
<TR>
<td COLSPAN=4 class="txtform" align="center" >Vencimento: De
<input class="inputpq" name="dt_inicial_vc" type="text" size="10" readonly=yes value="<%=dataDMY(inputs.getitem("dt_inicial_vc"))%>" ID="Text3">
<INPUT type="button" value="..." class="botao" id=button1 name=button1 onclick="popUpCalendar(this,document.frm_principal.dt_inicial_vc,'dd/mm/yyyy',-100,-80);">
<img align="absmiddle" src='../../images/eraser.gif' alt='Apagar Data' style='cursor:hand' onclick="document.frm_principal.dt_inicial_vc.value = '';">
até
<input class="inputpq" name="dt_final_vc" type="text" size="10" readonly=yes value="<%=dataDMY(inputs.getitem("dt_final_vc"))%>" ID="Text4">
<INPUT type="button" value="..." class="botao" id=button2 name=button2 onclick="popUpCalendar(this,document.frm_principal.dt_final_vc,'dd/mm/yyyy',-100,-100);">
<img align="absmiddle" src='../../images/eraser.gif' alt='Apagar Data' style='cursor:hand' onclick="document.frm_principal.dt_final_vc.value = '';">
</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">
<INPUT type="button" value="..." class="botao" id=button3 name=button3 onclick="popUpCalendar(this,document.frm_principal.dt_inicial_pg,'dd/mm/yyyy',-100,-80);">
<img align="absmiddle" src='../../images/eraser.gif' alt='Apagar Data' style='cursor:hand' onclick="document.frm_principal.dt_inicial_pg.value = '';">
até
<input class="inputpq" name="dt_final_pg" type="text" size="10" readonly=yes value="<%=dataDMY(inputs.getitem("dt_final_pg"))%>" ID="Text6">
<INPUT type="button" value="..." class="botao" id=button4 name=button4 onclick="popUpCalendar(this,document.frm_principal.dt_final_pg,'dd/mm/yyyy',-100,-100);">
<img align="absmiddle" src='../../images/eraser.gif' alt='Apagar Data' style='cursor:hand' onclick="document.frm_principal.dt_final_pg.value = '';">
</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">
<INPUT type="button" value="..." class="botao" id=button5 name=button5 onclick="popUpCalendar(this,document.frm_principal.dt_inicial_em,'dd/mm/yyyy',-100,-80);">
<img align="absmiddle" src='../../images/eraser.gif' alt='Apagar Data' style='cursor:hand' onclick="document.frm_principal.dt_inicial_em.value = '';">
até
<input class="inputpq" name="dt_final_em" type="text" size="10" readonly=yes value="<%=dataDMY(inputs.getitem("dt_final_em"))%>" ID="Text8">
<INPUT type="button" value="..." class="botao" id=button6 name=button6 onclick="popUpCalendar(this,document.frm_principal.dt_final_em,'dd/mm/yyyy',-100,-100);">
<img align="absmiddle" src='../../images/eraser.gif' alt='Apagar Data' style='cursor:hand' onclick="document.frm_principal.dt_final_em.value = '';">
</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>
<table align="center" width="100%" ID="Table2">
<tr>
<td align="center">
<input type="button" class="botao" name="btnPesquisar" value="Pesquisar" onClick="enviar('PESQUISAR',0);" ID="Button7">
<input type="button" class="botao" name="btnNovo" value="Imprimir" onClick="enviar('NOVO',1);" ID="Button8">
<input type="button" class="botao" name="btnGerar" value="Gerar Boletos" onClick="enviar('BOL',1);" ID="Button9">
<!-- <input type="button" class="botao" name="btnGerarNota" value="Gerar Nota Fiscal" onClick="enviar('NOT',0);" ID="Button10"> -->
</td>
</td>
</tr>
</table>
<%Finalizartabela%>
<BR>
<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
END IF
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%' "%>
<table align="center" width="100%" ID="Table3">
<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">Dt Pgto</td>
<td class="td-titulo-pend01">Vl Pago</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>
<td colspan="12" ><%abrirBox2 "",rstregs("ds_objcertificacao")%></td>
</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="30%" class="td-pend0<%=cor%>"><%=rstregs("nome")%><%'=rstRegs("id_boleto")%></td>
<td width="14%" class="td-pend0<%=cor%>"><%=rstregs("nu_nosso_numero")%> </td>
<td width="7%" class="td-pend0<%=cor%>"><%=rstregs("nu_parcela")%> </td>
<td width="10%" class="td-pend0<%=cor%>"><%=dataDMY(rstregs("dt_vencimento"))%> </td>
<td width="10%" class="td-pend0<%=cor%>"><%=formataNumero(rstregs("vl_boleto"),2)%> </td>
<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>
<td width="3%" class="td-pend0<%=cor%>" >
<%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>
<td width="3%" class="td-pend0<%=cor%>" >
<%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>
<td width="3%" class="td-pend0<%=cor%>" >
<%if print then%>
<input type="checkbox" name="chk_bl" id="<%=indice%>" value="<%=rstregs("id_boleto")%>">
<%else%>
<%end if%>
</td>
</tr>
<!--</form>-->
<%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>
<table align="center" width="100%" id="Table4">
<tr><td height="10"></td></tr>
<tr>
<td align="left" class="txtform">
<%if total > 1 then%>
Total de ítens encontrador: <b><%=total%> </b>
<%else%>
Total de ítem encontrador: <b><%=total%></b>
<%end if%>
</td>
<td align="center" class="txtform">
<%
'************************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%' "%>
<table align="center" width="100%" ID="Table3">
<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>
<script language="JavaScript1.2" src="<%=SYSROOT%>/includes/JS/funcoes.js"></script>
<script language='javascript' src="<%=sysroot%>/includes/js/popcalendar.js"></script>
<script language="JavaScript1.2">
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%>
Carregando comentários...