Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia Galera,
Eu tenho o seguinte código:
<%
'----------------- Define o número de registros por página ----------------------------
Const TamanhoPagina = 20
set rsQuery = Server.CreateObject( "ADODB.RecordSet" )
rsQuery.PageSize = TamanhoPagina
rsQuery.CacheSize = TamanhoPagina
rsQuery.CursorType = 3
'rsQuery.Open "select * from cad_cheque order by vencimento", Conn
rsQuery.Open "select * from cad_cheque where status>' ' order by vencimento", Conn
if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1
select case Request.QueryString( "modo" )
case "proxima"
Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount )
case "anterior"
Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 )
case "pagina"
if isNumeric( request.QueryString("numero") ) then
Session("PaginaAtual") = cint( request.QueryString("numero") )
Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 )
end if
end select
rsQuery.AbsolutePage = Session("PaginaAtual")
cod_cheque=rsQuery("cod_cheque")
%>
Em específico nesta linha:
rsQuery.Open "select * from cad_cheque where status>' ' order by vencimento", Conn
eu determino que todos os cheques que foram baixados venham pra mim no relatório.
Eu gostaria de fazer o oposto, ou seja, todos os cheques que estão em caixa venham no relatório, como faço isso ?
Desde já agradeço a atenção de todos.
Já tentei, ai ele da o seguinte erro:
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/controle/cheques_gerais.asp, line 102
Que refere-se a está linha:
rsQuery.AbsolutePage = Session("PaginaAtual")
cod_cheque=rsQuery("cod_cheque")
No seu script tem um tratamento para isso ?
Tipo:
if rs.eof then
response.write "Não foram encontrados registros com os criterios especificados"
else
...
end if
não tem, pois eu quero que apareça os registro que não tenham nada no status, pois são os cheques que tenho em caixa.
nesse seu campo status na base de dados que valor tem quando os cheques não foram baixados?
É que ao fazer a comparação ( status = '') ele não retorna nada, por isso o colega vinicius disse para fazer o tratamento.
tente fazer
rsQuery.Open "select * from cad_cheque where isnull(status) or isempty(status) order by vencimento", Conn
Nossa só alegria, funcionou certinho...resolvido !
Obrigado a todos.
o seu campo status é que define se foram baixados? já tentou igualar?
rsQuery.Open "select * from cad_cheque where status = ' ' order by vencimento", Conn