1c/crm3_26.rhana
4
0
Fork 0
Code Issues 7 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

РК_ПроверкаСерий 1.3.1.79: День() вместо несуществующего ДеньМесяца.

Browse Source 
Co-authored-by: Cursor <cursoragent@cursor.com>
This commit is contained in:
mihailkudravcev
2026-08-17 14:09:55 +03:00
parent 3e4f9135e4
commit 5d2d0a2432
4 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl
+14 -14
View File
@@ -859,25 +859,25 @@
Попытка
Если Части.Количество() >= 3 Тогда
День = Число(СокрЛП(Части[0]));
Месяц = Число(СокрЛП(Части[1]));
Год = Число(СокрЛП(Части[2]));
НомерДня = Число(СокрЛП(Части[0]));
НомерМесяца = Число(СокрЛП(Части[1]));
НомерГода = Число(СокрЛП(Части[2]));
Иначе
День = 1;
Месяц = Число(СокрЛП(Части[0]));
Год = Число(СокрЛП(Части[1]));
Если Год >= 100 И Месяц > 12 Тогда
День = Месяц;
Месяц = 1;
НомерДня = 1;
НомерМесяца = Число(СокрЛП(Части[0]));
НомерГода = Число(СокрЛП(Части[1]));
Если НомерГода >= 100 И НомерМесяца > 12 Тогда
НомерДня = НомерМесяца;
НомерМесяца = 1;
КонецЕсли;
КонецЕсли;
Если Год < 100 Тогда
Год = Год + 2000;
Если НомерГода < 100 Тогда
НомерГода = НомерГода + 2000;
КонецЕсли;
Если Части.Количество() = 2 И День = 1 Тогда
День = ДеньМесяца(КонецМесяца(Дата(Год, Месяц, 1)));
Если Части.Количество() = 2 И НомерДня = 1 Тогда
НомерДня = День(КонецМесяца(Дата(НомерГода, НомерМесяца, 1)));
КонецЕсли;
Возврат Дата(Год, Месяц, День);
Возврат Дата(НомерГода, НомерМесяца, НомерДня);
Исключение
Возврат '00010101';
КонецПопытки;