Ошибка при повторном Insert после CancelUpdates

[Romowski]

Добрый день!

Такая ситуация:
1. Вызываю pFIBDataSet.Insert;
2. Открывается форма. Если в ней нажать Отмена, вызывается pFIBDataSet.CancelUpdates.
3. Следующий вызов Insert выходит в ошибку

Как будто CancelUpdates не отрабатывает...

В чем может быть проблема?

[Yurk@]

а ошибка то какая?
и что в InsertSQL.Text ?

[Romowski]

Стандартная, дельфийская (во вложении)

в InsertSQL вот что:

INSERT INTO TBREQUESTS(REQUEST_ID,REQUEST_NUMBER,REQUEST_DATE,REQUEST_TIME_B,REQUEST_TIME_E,KSK_ID,ADDRESS_ID, SERVICE_TO_DO, SERVICE_DONE, EXECUTOR_ID, USER_ID, REQUEST_DONE_TIME, REQUEST_STATUS )
VALUES(
    :REQUEST_ID, :REQUEST_NUMBER, :REQUEST_DATE, :REQUEST_TIME_B, :REQUEST_TIME_E, :KSK_ID, :ADDRESS_ID, :SERVICE_TO_DO, :SERVICE_DONE, :EXECUTOR_ID, :USER_ID, :REQUEST_DONE_TIME, :REQUEST_STATUS )

сгенерированный...

P.S. Проверил вот что - После CancelUpdates pFIBDataset.State in dsEditModes (((

[Serge_Bliznykov]

судя по ошибке, это не c запросом проблема..

рискну предположить, что при закрытии формы какой-то из объектов уничтожается (как вариант, pFIBDataSet ). При повторном обращении - не создаётся.
Попытка обращения к несозданному объекту и даёт access violation...

[Yurk@]

Стандартная, дельфийская

как "красиво" то сказано)))) ... они все такие, ага ))
а на тему ошибки, да, Serg прав, запрос тут не приделах.
показывай под кнопок "отмены" и "добавления".
и еще, почему бы не делать pFIBDataSet.Cancel вместо pFIBDataSet.CancelUpdates ?

[Romowski]

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

судя по ошибке, это не c запросом проблема..

это то понятно ))

Кнопка Add:

procedure TfmMain.tbAddClick(Sender: TObject);
var fmAdd : TfmAddEdit;
begin
  fmAdd := TfmAddEdit.Create(nil);
  requestEditMode := 'I';
  fmAdd.ShowModal;
  fmAdd.Free;
end;

При открытие данной формы:

if requestEditMode = 'I' then
  begin
    dmMain.dRequests.Insert;
    fmAddEdit.Caption := 'Новая заявка - '+FormatFloat('000000', currReqNumber + 1);
    edReqNumber.Text := FormatFloat('000000', currReqNumber + 1);
    dtReqDate1.DateTime := Now();
    dtReqTime.Value := Now();
    dtReqTimeEnd.Value := Now();
    cbReqState.ItemIndex := 0;
  end
  else
    begin
      dmMain.dRequests.Edit;      
    end;

Для сохранения или отката стоит ButtonGroup:

procedure TfmAddEdit.bgRequestButtonClicked(Sender: TObject; Index: Integer);
begin
  case Index of
    0: begin
      if dmMain.dRequests.State in [dsInsert] then
        try
          reqID := dmMain.Database.Gen_Id(dmMain.dRequests.AutoUpdateOptions.GeneratorName, dmMain.dRequests.AutoUpdateOptions.GeneratorStep, dmMain.dRequests.UpdateTransaction);
          dmMain.dRequests.FieldByName('REQUEST_ID').AsInteger := reqID;
          dmMain.dRequests.FieldByName('REQUEST_NUMBER').AsInteger := StrToInt(edReqNumber.Text);
          dmMain.dRequests.FieldByName('USER_ID').AsInteger := userID;
          dmMain.dRequests.FieldByName('REQUEST_DONE_TIME').AsDateTime := dtReqTime.Value;
          dmMain.dRequests.FieldByName('REQUEST_STATUS').AsInteger := cbReqState.ItemIndex; //pending
          dmMain.dRequests.Post;
          currReqNumber := StrToInt(edReqNumber.Text);
        except on E: Exception do
          begin
            Application.MessageBox(pchar('Ошибка создания заявки:' + #13#10 + E.Message), 'Ошибка БД', MB_ICONERROR + MB_OK);
            dmMain.dRequests.CancelUpdates;
          end;
        end
      else
      if dmMain.dRequests.State in [dsEdit] then
        try
          dmMain.dRequests.FieldByName('REQUEST_STATUS').AsInteger := cbReqState.ItemIndex; //pending
          dmMain.dRequests.Post;
        except on E: Exception do
          begin
            Application.MessageBox(pchar('Ошибка редактирования заявки:' + #13#10 + E.Message), 'Ошибка БД', MB_ICONERROR + MB_OK);
            dmMain.dRequests.CancelUpdates;
          end;
        end;
      ModalResult := mrOk;
    end;
    1: begin
      dmMain.dRequests.CancelUpdates;
      ModalResult := mrCancel;
    end;
  end;
end;

[Serge_Bliznykov]

я бы рекомендовал поставить точки останова и пройтись в пошаговом режиме, на какой строчке вылетит Access Violation - вот с тем объектом и разбираться детальнее - где Вы его убиваете и не создаёте...

[Sciv]

requestEditMode := 'I';

А вот эта переменная у Вас в каком модуле прописана?

[Аватар]

Похоже тут Yurk@ прав. Метод Cancel отменяет все изменения по текущей записи и делает state=dsBrowse. Не проверял, но скорее всего CancelUpdates state не изменяет, остаётся dsInsert и последующая попытка выполнить Insert заканчивается аварийно.

[Romowski]

Сообщение от Аватар

Похоже тут Yurk@ прав. Метод Cancel отменяет все изменения по текущей записи и делает state=dsBrowse. Не проверял, но скорее всего CancelUpdates state не изменяет, остаётся dsInsert и последующая попытка выполнить Insert заканчивается аварийно.

да я это понял

P.S. Проверил вот что - После CancelUpdates pFIBDataset.State in dsEditModes (((

, сейчас проверю