Search options (Page 1 of 6)

Привет Vickus!
Попробуйте что-то вроде этого (см. приложение).
Это полностью основано на данных (это всегда мой личный выбор), и все варианты хранятся в таблице «Категории».
В таблице «Категории» добавьте «префикс» (он может быть любым) и «начальный номер» (он может быть одинаковым для всех категорий или можно задать отдельные «начальные номера» для каждой категории).
Новые категории можно добавлять в любое время, а существующие префиксы можно изменять.
Думаю, это даст вам максимальную гибкость.
С уважением,
Derek.

Привет Vickus!
Просто измените строку 3 в скрипте.
В приложенном примере теперь используется значение из Frm_add.combobox1.text, и, начиная с позиции 1, первые два символа, за которыми следует знак «-» (но, конечно, вы можете использовать любое количество символов и изменить формат по своему усмотрению).
Я также изменил скрипт так, чтобы это происходило при сохранении записи, а не при выборе значения из выпадающего списка «Категория» (это сделано для того, чтобы уменьшить вероятность одновременных операций (если у вас несколько пользователей), как упоминал K245).
Надеюсь, это поможет.
Derek.

Могу предположить, что буквы в артикуле отражают какие-либо свойства товара (категории, материалы и т.д.) В этом случае выражение будет немного сложней - возможно потребуется использовать CASE для выбора символов или даже подзапрос, но в любом случае это себя оправдает.

Из минусов данного подхода могу отметить, что артикул может поменяться при изменении алгоритма его вычисления. Если это недопустимо, то тогда создание текста артикула нужно реализовать скриптом, но после добавления записи, то есть в момент, когда уникальное значение ID уже существует. Подходящее место для этого - событие onAfterClick на кнопке сохранения данных формы редактирования. Но в этом случае потенциально могут быть проблемы с уникальностью.

CASE
WHEN main.id_category = 1 THEN ('O'|| SUBSTR(1000000 + main.id,2,6) )
WHEN main.id_category = 2 THEN ('G'|| SUBSTR(1000000 + main.id,2,6) )
WHEN main.id_category = 3 THEN ('A'|| SUBSTR(1000000 + main.id,2,6) )
ELSE '' END

Для вашего вопроса не нужно быть программистом.
Профильное образование еще не признак ...

Прочитайте параграф 2.10.2.

procedure crop (Sender: TObject);
var
    ArrString: array of string;
begin
    ArrString := SplitString(Frm_add_reference.add_FIO_child.Text,' ');
    Frm_add_reference.short_fn.Text := ArrString[0];
    Frm_add_reference.short_sn.Text := ArrString[1];
    Frm_add_reference.short_pn.Text := ArrString[2];
end;

https://myvisualdatabase.com/forum/view … 273#p52273

Поищите в англоязычных ветках форума - там не так давно обсуждали варианты решения и были разные примеры реализации.