powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Порядковый номер в новом году
13 сообщений из 13, страница 1 из 1
Порядковый номер в новом году
    #36850993
by_marader
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть таблица № регистрации, № дела, ФИО, Дата регистрации, регистратор.
данные вносятся по порядку, по № регистрации автоматически кодом по нажатию кнопки в форме:
PRIVATE nom_reg
nom_reg=1
GOTO TOP
SCAN
nom_reg=max(nom_reg,reg.n_reg)
ENDSCAN


а в свойствах текстбокса идет приращение на 1
If EMPTY(This.Value)
This.Value=nom_reg+1
This.Refresh
ENDIF

Мне надо чтоб при наступлении нового года нумерация началась с 1 и шла попорядку возрастания с 1 и не путалась с прошлым годом

HELP!!!!!!
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851009
by_marader,
вместо
Код: plaintext
1.
2.
3.
GOTO TOP 
SCAN
nom_reg=max(nom_reg,reg.n_reg)
ENDSCAN 
и
Код: plaintext
This.Value=nom_reg+ 1 
напиши
Код: plaintext
select nvl(max(n_reg),  0 )+ 1  from reg where year(<поле с датой>)=year(date()) into array nom_reg
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851019
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
что-то типа
declare arr(1)
store 0 to arr(1)
select max(no_reg) from table ;
where year(date_reg)=year(date());
into array arr
new_no=arr(1)+1
всегда будет зависеть от текущей даты...
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851027
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кхм...
С табличкой одновременно, я надеюсь, только 1 пользователь работает?
И зачем вам текстбокс, если номер должен генериться автоматом?
Если уж так хочется извращаться, то вот
Код: plaintext
1.
private nom_reg
nom_reg=(select max(n_reg)+ 1  from reg where year(reg.data_reg)=year(date()))
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851033
gotko,
как тепереь принято мерять на foxclub :), в Вашем коде как минимум 75% мусора. В смысле 3 команды из 4-х - бесполезны.
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851034
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
by_maraderМне надо чтоб при наступлении нового года нумерация началась с 1 и шла попорядку возрастания с 1 и не путалась с прошлым годомВ таком разе нужно не с единицы начинать, а с "года" из даты. Напрмер, в этом году номера типа 1012003, а в след.- 1112003. Тогда путаницы не будет.
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851037
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я тупень... пока писал, уже двое отпостились. Один ещё и правильней (nvl).
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851043
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это навсегда? ))
igorbik, не лучше ли наоборот - ГодНомер?
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851047
tanglir
Код: plaintext
nom_reg=(select max(n_reg)+ 1  from reg where year(reg.data_reg)=year(date()))
И это работает?
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851058
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
щас фокса под рукой нет. может, и не работает )
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851064
tanglirщас фокса под рукой нет. может, и не работает )У меня под рукой есть. На всякий случай таки проверил. Не работает.
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851076
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
tanglirЭто навсегда? ))
igorbik, не лучше ли наоборот - ГодНомер?Ну так и написано: начинать с года...
...
Рейтинг: 0 / 0
Порядковый номер в новом году
    #36851616
by_marader
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
проходящий.,

спасибо помогло!!!!
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Порядковый номер в новом году
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]