Открытие окна объекта из плагина

Автор wookie1999, 06.10.25, 17:56:18

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

wookie1999

есть плагин для ввода номера документа объекта в базу, но бывает что в базе есть одинаковые номера документов плагин проверяет по базе есть ли в базе такой же номер и выводит сообщение что он есть в базе и все. Нужно что бы после этого сообщения он открыл этот повторяющийся документ в новом окне.
function TfrmApproveSTO.CheckDUTONumber(AConnection: TZConnection): Boolean;
var
  Query: TZQuery;
  DuplicateCount: Integer;
  Error: string;
begin
  Result := True;
  Error := '';

  if not Assigned(AConnection) or not AConnection.Connected then
  begin
    Result := False;
    Application.MessageBox('Отсутствует подключение к Postgres', 'Внимание!', MB_OK + MB_ICONINFORMATION);
    Exit;
  end;

  Query := TZQuery.Create(nil);
  try
    Query.Connection := AConnection;
    Query.SQL.Text := 'SELECT COUNT(*) AS cnt FROM tpp.to_zadanie WHERE zadnum = :zadnum';
    Query.ParamByName('zadnum').AsInteger := StrToIntDef(edt4.Text, 0);
    Query.Open;

    DuplicateCount := Query.FieldByName('cnt').AsInteger;

    if DuplicateCount > 0 then
    begin
      Result := False;
      Error := 'Найден дубль ДУТО: ' + edt4.Text;
      Application.MessageBox(PChar(Error), 'Внимание!', MB_OK + MB_ICONINFORMATION);
    end;

  finally
    Query.Free;
  end;
end;

p3452

???
Активируйте Компас и открывайте закладку или окно...
+ Благодарностей: 1