Процедура выдает ошибку arithmetic exception numeric overflow or string truncation

[postaveche]

создал процедуру такого типа

create or alter procedure LISTA_PROBE (
    COD_PR integer not null)
returns (
    COD_SPECII integer,
    DENUMIREA varchar(30),
    MASA double precision,
    DENSITATEA double precision)
as
declare variable COD_SECTOR varchar(3);
declare variable COD_PROBA integer;
begin
  /* Procedure Text */
  for select cod_s, cod_p, cod_specii, densitate from "ALG_PROBE_I"
  where cod_p = :cod_pr
  INTO :cod_sector, :cod_proba, :cod_specii, :densitatea
  do
  begin
  select cod, denumirea, masa from "ALG_SPECII" where cod = :cod_proba
  INTO :cod_specii, :denumirea, :masa;
  cod_specii = :cod_specii;
  denumirea = :denumirea;
  masa = :masa;
  densitatea = :densitatea;
  cod_sector = :cod_sector;
  suspend;
  end
end^

и вызываю ее с програмы

DataModule2.IBStoredProc2.StoredProcName:='LISTA_PROBE';
DataModule2.IBStoredProc2.ParamByName('cod_pr').AsInteger := DBLookupComboboxEh3.KeyValue;
DataModule2.IBStoredProc2.ExecProc;
DataModule2.IBQuery7.SQL.Clear;
DataModule2.IBQuery7.SQL.Add('select * from LISTA_PROBE');
DataModule2.IBQuery7.Open;

что я не правельно делаю... в чем может быть ошибка ... все поля вроде совпадают

[_Engine_]

Объясни, что у тебя делает данный кусок кода?

Сообщение от postaveche

DataModule2.IBStoredProc2.StoredProcName:='LISTA_PROBE';
DataModule2.IBStoredProc2.ParamByName('cod_pr').AsInteger := DBLookupComboboxEh3.KeyValue;
DataModule2.IBStoredProc2.ExecProc;

Оставь только это:

DataModule2.IBQuery7.SQL.Clear;
DataModule2.IBQuery7.SQL.Add('select * from LISTA_PROBE(:MyCod)');
DataModule2.IBQuery7.ParamByName('MyCod').Value := Что там тебе надо
DataModule2.IBQuery7.Open;

[postaveche]

ну я не понял как отправлять данные в процедуру ну и пришлось придумывать

спасибо за совет ... завтра утром уже попробую

[postaveche]

Сообщение от _Engine_

Объясни, что у тебя делает данный кусок кода?


Оставь только это:

DataModule2.IBQuery7.SQL.Clear;
DataModule2.IBQuery7.SQL.Add('select * from LISTA_PROBE(:MyCod)');
DataModule2.IBQuery7.ParamByName('MyCod').Value := Что там тебе надо
DataModule2.IBQuery7.Open;

Поставил этот код но то же самая ошибка в чем может быть дело

[quit]

Это читали: это ?

[postaveche]

Сообщение от quit

Это читали: это ?

да читал но все поля совпадают

[quit]

Сообщение от postaveche

да читал но все поля совпадают

Что значит совпадают? Кодировка везде верная? Данные в параметр процедуры верные передаются? Пробовал отдельно в анализаторе выполнить запрос?

[Yurk@]

postaveche, а приведи ка ты структуру таблицы ALG_PROBE_I

[postaveche]

всё разобрался ... проблема была в несовпадение входящего запроса тоесь он не передавал нормально значение с прошлого запроса