Greetings
Since yesterday i've got a "weird" error
i have a cursor and after i open it, i try to check record count and i get the
following error
"attempt to fetch past the last record in a record stream."
i've managed to overcome by validating when eof or
QProducoesActivas.CursorRowNum > 0
this has appened since Firebird changed from 2.1 on Windows to 2.5 on Linux,
what can it be?
cursor declaration and validation
QProducoesActivas := TIB_Cursor.Create(nil);
QProducoesActivas.IB_Connection := DMGeral.BaseDados;
QProducoesActivas.IB_Transaction := DMGeral.TransacaoLeitura;
QProducoesActivas.close;
QProducoesActivas.Sql.Clear;
QproducoesActivas.SQL.Add('SELECT (select c.quant_feita ');
QproducoesActivas.SQL.Add('FROM cpa_necessidades_Producao c ');
QproducoesActivas.SQL.Add('WHERE c.serie=h.serie AND
h.ano_plano=c.ano_plano AND h.cod_Plano=c.cod_plano ');
QproducoesActivas.SQL.Add('AND h.codigo_arm=c.codigo_arm AND
h.Referencia=c.Referencia AND h.linha=c.n_linha AND
h.cod_operacao=c.cod_operacao ');
QproducoesActivas.SQL.Add('AND h.ordemprod = c.ordemprod ');
QproducoesActivas.SQL.Add(') AS QTDProd , sum(h.tempo_util) AS TotHoras,
floor( sum(h.quantidade)/sum(h.tempo_util)) AS Cadencia_Real');
QProducoesActivas.SQL.Add('FROM cpa_hist_operacoes h');
QProducoesActivas.Sql.Add('WHERE h.serie=:serie AND h.ano_plano=:ano_plano
AND h.cod_Plano=:cod_plano AND h.num_viatura=:num_viatura ');
QProducoesActivas.Sql.Add('AND h.codigo_arm=:codigo_arm AND
h.Referencia=:Referencia AND h.linha=:n_linha AND
h.cod_operacao=:cod_operacao');
QProducoesActivas.Sql.Add('AND h.ordemprod = :ordemprod ');
QProducoesActivas.SQL.Add('GROUP BY h.serie, h.ano_plano, h.num_viatura,
h.cod_plano, h.codigo_arm, h.referencia, h.cod_operacao, h.ordemprod, h.linha
');
QProducoesActivas.Open();
...
QProducoesActivas.ParamByName('serie').AsString :=
MemLinhasPlaneamento.FieldByName('serie').AsString;
QProducoesActivas.ParamByName('ano_plano').AsString :=
MemLinhasPlaneamento.FieldByName('ano_plano').AsString;
QProducoesActivas.ParamByName('cod_Plano').AsString :=
MemLinhasPlaneamento.FieldByName('cod_Plano').AsString;
QProducoesActivas.ParamByName('codigo_arm').AsString :=
MemLinhasPlaneamento.FieldByName('codigo_arm').AsString;
QProducoesActivas.ParamByName('Referencia').AsString :=
MemLinhasPlaneamento.FieldByName('Referencia').AsString;
QProducoesActivas.ParamByName('n_linha').AsString :=
MemLinhasPlaneamento.FieldByName('n_linha').AsString;
QProducoesActivas.ParamByName('cod_operacao').AsString :=
MemLinhasPlaneamento.FieldByName('cod_operacao').AsString;
QProducoesActivas.ParamByName('ordemprod').AsString :=
MemLinhasPlaneamento.FieldByName('ordemprod').AsString;
QProducoesActivas.ParamByName('num_viatura').AsString :=
MemLinhasPlaneamento.FieldByName('maquina').AsString;
QProducoesActivas.RefreshKeys();
if( QProducoesActivas.recordcount > 0 ) ....
