Fórum EOutofResources no Rave #357265

[quote:67a40bb2ce=´Moderação´][color=red:67a40bb2ce]Tópico bloqueado por Massuda

Tópico duplicado. Por favor, mantenha a discussão no tópico original...

:arrow: http://forum.devmedia.com.br/viewtopic.php?t=94648

Leia as :arrow: [url=http://forum.devmedia.com.br/viewtopic.php?t=6689]Regras de Conduta[/url], em especial o item 2
[/color:67a40bb2ce][/quote:67a40bb2ce]Pessoal, eu estou gerendo um relatório assim: Passando esses parametros... Ele gera normal, não da nenhum erro. Gera em torno de umas 800 Paginas. quando eu vou visualizar chego até a pagina 465, depois q tendo ver a 466..467.... dá esse erro: [b:67a40bb2ce]EOutofResources[/b:67a40bb2ce]

[b:67a40bb2ce]Project Expedicao.exe raised exception class EOutOfResources with message ´Parâmetro incorreto´.[/b:67a40bb2ce]

Alguem sabe o que pode ser...agradeço...

procedure TfEtqPAC.BitBtn2Click(Sender: TObject);
begin
if RadioButton2.Checked = True then
begin
QrRemessa.Close;
QrRemessa.Parameters.ParamByName(´INICIAL´).Value := 1;
QrRemessa.Parameters.ParamByName(´FINAL´).Value := 999999;
QrRemessa.Open;
end;

if RadioButton1.Checked = True then
begin
QrRemessa.Close;
QrRemessa.Parameters.ParamByName(´INICIAL´).Value := StrToInt (QtdInicial.Text);
QrRemessa.Parameters.ParamByName(´FINAL´).Value := StrToInt (QtdFinal.Text);
QrRemessa.Open;
end;


if RadioButton3.Checked = True then
begin
QrRemessa.Close;
QrRemessa.Parameters.ParamByName(´UFINICIAL´).Value := ´A´;
QrRemessa.Parameters.ParamByName(´UFFINAL´).Value := ´Z´;
QrRemessa.Open;
end;

if RadioButton4.Checked = True then
begin
QrRemessa.Close;
QrRemessa.Parameters.ParamByName(´UFINICIAL´).Value := UF.Text;
QrRemessa.Parameters.ParamByName(´UFFINAL´).Value := UF.Text;
QrRemessa.Open;
end;

if RadioButton5.Checked = True then
begin
QrRemessa.Close;
QrRemessa.Parameters.ParamByName(´CFOINICIAL´).Value := ´A´;
QrRemessa.Parameters.ParamByName(´CFOFINAL´).Value := ´Z´;
QrRemessa.Open;
end;

if RadioButton6.Checked = True then
begin
QrRemessa.Close;
QrRemessa.Parameters.ParamByName(´CFOINICIAL´).Value := edCliente.Text;
QrRemessa.Parameters.ParamByName(´CFOFINAL´).Value := edCliente.Text;
QrRemessa.Open;
end;
RvPAC.SetParam(´Mensagem´,(edObservacao.Text));
RvPAC.Execute;