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

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
+6
View File
@@ -4,6 +4,12 @@
---
## 1.3.1.79 (2026-08-17)
### Исправление
- Компиляция формы: `ДеньМесяца` заменён на платформенный `День()`; локальные переменные даты переименованы, чтобы не затенять функции.
## 1.3.1.78 (2026-08-17)
### РК_ПроверкаСерий — анализ таблицы проблем
+1 -1
View File
@@ -1 +1 @@
1.3.1.78
1.3.1.79
+1 -1
View File
@@ -62,7 +62,7 @@
<xr:Item xsi:type="xr:MDObjectRef">Role.РК_ОсновнаяРоль</xr:Item>
</DefaultRoles>
<Vendor/>
<Version>1.3.1.78</Version>
<Version>1.3.1.79</Version>
<DefaultStyle/>
<DefaultLanguage>Language.Русский</DefaultLanguage>
<BriefInformation/>
@@ -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';
КонецПопытки;