- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
Функция РазрешеноМенятьЗаявкуПоПравилу9Утра()
_Год = Год ( Объект.Дата);
_Месяц = Месяц( Объект.Дата);
_День = День ( Объект.Дата) + 1;
Если _День = 29 Тогда
Если _Месяц = 2 Тогда
Если (_Год - 2016)%4 <> 0 Тогда
_Месяц = 3; _День = 1;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если _День = 30 Тогда
Если (_Месяц = 4) ИЛИ (_Месяц = 6) ИЛИ (_Месяц = 9) ИЛИ (_Месяц = 11) Тогда
_Месяц = _Месяц + 1;
_День = 1;
КонецЕсли;
КонецЕсли;
Если _День = 31 Тогда
Если (_Месяц = 1) ИЛИ (_Месяц = 3) ИЛИ (_Месяц = 5) ИЛИ (_Месяц = 7) ИЛИ
(_Месяц = 8) Тогда
_Месяц = _Месяц + 1;
_День = 1;
ИначеЕсли _Месяц = 12 Тогда
_Месяц = 1;
_День = 1;
КонецЕсли;
КонецЕсли;
_9УтраСледующегоДня = Дата( _Год , _Месяц, _День,9,0,0);
Если ТекущаяДата() < _9УтраСледующегоДня Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции
guest8 27.10.2020 13:59 # +5
gost 27.10.2020 14:06 # 0
oaoaoammm 27.10.2020 14:10 # 0
Fike 27.10.2020 14:13 # +4
Я БЛЯДЬ САМ
ЛИЧНО
ПРИДУ УЕБУ ЭТОГО ИДИОТА ЕГО ЖЕ КЛАВИАТУРОЙ
gost 27.10.2020 14:14 # +1
Rooster 27.10.2020 14:16 # +4
Rooster 27.10.2020 14:05 # 0
gost 27.10.2020 14:07 # 0
Rooster 27.10.2020 14:17 # 0
ShilkovNikolay 27.10.2020 14:05 # +1
guest8 27.10.2020 14:07 # 0
gost 27.10.2020 14:10 # 0
P. S. В универе с високосными годами не ебался — не мужик.
oaoaoammm 27.10.2020 15:00 # 0
Fike 27.10.2020 14:13 # 0
bormand 27.10.2020 14:12 # +1
Когда это было препятствием для опытного бухгалтера?
ShilkovNikolay 27.10.2020 14:33 # +1
ShilkovNikolay 27.10.2020 14:40 # +1
Но не могу удержаться!
Функция РазрешеноМенятьЗаявкуПоПравилу9Утра()
ОДИН_ЧАС = 60 * 60;
ОДИН_ДЕНЬ = 24 * ОДИН_ЧАС;
Возврат ТекущаяДата() < (НачалоДня(Объект.Дата) + ОДИН_ДЕНЬ + 9 * ОДИН_ЧАС);
КонецФункции
oaoaoammm 27.10.2020 14:50 # 0
guest8 27.10.2020 14:51 # −999
bormand 27.10.2020 14:55 # +1
MAPTbIwKA 27.10.2020 14:56 # 0
во-первых зачем бы оно им?
во-вторых я конечно не настоящий сварщик, но мне птички напели, что 1С всё чаще клиент-серверный в наше время, и если это выполняется в районе сервера, то там у бухов точно нет никаких прав
bormand 27.10.2020 14:59 # 0
Как показывает практика, их даже https не останавливал от перевода часов... Ну разве что сломанным сертификатом.
> зачем бы оно им
Чтобы проводить что-нибудь задним числом.
MAPTbIwKA 27.10.2020 15:02 # +2
Перевести часы (да еще и отключить их синхронизацию с NTP) может только админ, или питух со спец привилегией SE_SYSTEMTIME_NAME.
Если ты не хочешь иметь много вирусов-вымогателей, шифровальщиков и яндекс-браузеоров, то ты обычно не даешь много прав бухам на их тачках: пусть седят под обычными пользователями
Альзо, сбитые часы сломают тебе керберос, а это в домене страшнее сломанного HTTPS.
Если же у тебя клиент 1С связанный с 1С сервером, и код выполняется на сервере, то тамошнее время ты вообще никак не поменяешь: я не знаю, есть ли RPC или WS для смены времени, а по RDP буха на сервер никто не пустит
bormand 27.10.2020 15:05 # +1
И да, клиент-сервер их не остановит, они попробуют перевести время. Вдруг время берётся с клиента и всё прокатит. Ну не прокатит - значит нет.
MAPTbIwKA 27.10.2020 15:06 # +2
1C:Теневая бухгалтерия
>А я про обычную мелочь, где админ один на десяток контор.
Ты хочешь сказать, что у таких админок бухи админы на своих машинах?
oaoaoammm 27.10.2020 15:47 # 0
Вроде бы даже были истории про то, как кто-то таким образом охуел.
guest8 27.10.2020 15:50 # −999
MAPTbIwKA 27.10.2020 15:54 # 0
А если ты мелкий, то они ноутбуки домой забирают, и всё
guest8 27.10.2020 15:58 # −999
bormand 27.10.2020 15:58 # +1
MAPTbIwKA 27.10.2020 16:04 # 0
Очень популярна схема, когда питухи ходят по RDP на какой-то сервер, и там запускают клиент.
Во-первых это может оказаться быстрее (протокол может быть жирнее RDP) во-вторых проще и безопаснее: таких петухов из дома пускают прямо по RDP.
Но это конечно в конторах средних размеров, где админ это всё осилил
guest8 27.10.2020 16:07 # −999
MAPTbIwKA 27.10.2020 16:07 # 0
bormand 27.10.2020 16:08 # +1
MAPTbIwKA 27.10.2020 16:18 # 0
guest8 27.10.2020 16:09 # −999
MAPTbIwKA 27.10.2020 16:18 # 0
CHayT 27.10.2020 15:24 # +3
guest8 27.10.2020 15:27 # −999
homo 05.11.2020 16:00 # 0
ОДИН_ЧАС = 60 * 60;
Возврат ТекущаяДата() < (КонецДня(Объект.Дата) + 9 * ОДИН_ЧАС);
ShilkovNikolay 05.11.2020 16:12 # 0
ОДИН_ЧАС = 60 * 60;
Возврат ТекущаяДата() < ((КонецДня(Объект.Дата) + 1) + 9 * ОДИН_ЧАС);
В Вашем варианте получится не 09:00 следующего дня, а 08:59!
homo 05.11.2020 23:10 # 0
К _День сначала прибавляется единица, а потом идут условия. Т.е. для последнего дня любого месяца - всегда будет исключение.
+ Октябрь вообще пропал, а для 31.12 - год потерялся.