1 Topic by vitstran (edited by vitstran 2017-04-29 23:16:51)

  • Registered: 2017-04-29
  • Posts: 3

Topic: Назначение уникального номера

Как реализовать назначение уникального номера однотипных изделий.
На склад поступило N штук инструмента (одинаковых). В форме выбирается что за инструмент поступил и вбивается количество.

Пример:
Фреза пазовая (выбираем из ComboBox)    Количество (вбивается в TextBox)    Дата поступления

На выходе должно автоматом получится:
Фреза пазовая - Дата поступления - Уникальный номер1
Фреза пазовая - Дата поступления - Уникальный номер2
............
Фреза пазовая - Дата поступления - Уникальный номерN

Уникальный номер требуется для маркировки на инструменте и отслеживания (на ком, срок жизни, списание)

vitstran's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Назначение уникального номера

Можно сделать например такую функцию, для создания уникального номера

function GetUniqNumber: string;
begin
    result := FormatDateTime('yymmddhhnnsszzz', now) + IntToStr(trunc(Random*9999));
end;

для создания уникального номера используется текущая дата, время и случайное число, что исключает повторов.



Если будут сложности с использованием функции, приложите ваш проект и опишите, где именно должен присваивается уникальный номер в вашем проекте.

Dmitry.