1 Topic by Vickus (edited by Vickus 2024-12-17 10:27:00)

  • Registered: 2018-07-13
  • Posts: 160

Topic: Автоматическая нумерация приказа

Добрый день!
Подскажите, подалуйста, как сделать, чтобы при вводе документа в поле номер приказа происходило автоматическое присвоение номера приказа, состоящее из следующего по порядку числа, любого знака разделения (лучше "/") и текущего года (две последние цифры "24")

Post's attachments

Attachment icon ss.png 12.39 kb, 46 downloads since 2024-12-17 

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,392

Re: Автоматическая нумерация приказа

Пример

Post's attachments

Attachment icon CounterEx.zip 6.37 kb, 87 downloads since 2024-12-17 

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,969

Re: Автоматическая нумерация приказа

Привет Vickus, Sparrow,
Вы также можете использовать «год» даты заказа вместо «текущего года», чтобы обеспечить немного большую гибкость (особенно в декабре/январе, когда вам может потребоваться перенести дату вперед или назад).
Derek.

Post's attachments

Attachment icon vickus order number.zip 442.34 kb, 107 downloads since 2024-12-17 

  • Registered: 2018-07-13
  • Posts: 160

Re: Автоматическая нумерация приказа

sparrow wrote:

Пример

Большое спасибо за столь скорую помощь!

  • Registered: 2018-07-13
  • Posts: 160

Re: Автоматическая нумерация приказа

derek wrote:

Привет Vickus, Sparrow,
Вы также можете использовать «год» даты заказа вместо «текущего года», чтобы обеспечить немного большую гибкость (особенно в декабре/январе, когда вам может потребоваться перенести дату вперед или назад).
Derek.

Дерек, и Вам большое спасибо за столь скорую помощь и вариативность!

  • Registered: 2018-07-13
  • Posts: 160

Re: Автоматическая нумерация приказа

Подскажите, как сделать, чтобы при наборе текста в поле ввода, все начиналось с заглавной буквы? Спасибо

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,969

Re: Автоматическая нумерация приказа

Привет Vickus
Если вы хотите, чтобы каждое отдельное слово начиналось с заглавной буквы, вы можете использовать команду «namecase».
Derek.

Post's attachments

Attachment icon namecase.zip 442.48 kb, 100 downloads since 2024-12-17 

8 Reply by Новичок (edited by Новичок 2024-12-17 16:11:01)

  • Registered: 2023-08-19
  • Posts: 95

Re: Автоматическая нумерация приказа

А может вот так подойдет?
Этот пример был у кого-то на форуме.

procedure Form1_Edit1_OnChange (Sender: TObject);
begin
    if length(Form1.edit1.text) = 1 then Form1.edit1.text := namecase(Form1.edit1.text);
    Form1.edit1.selstart := length(Form1.edit1.text);
end;
Post's attachments

Attachment icon UCH.zip 332.45 kb, 94 downloads since 2024-12-17