РК_ПроверкаСерий 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.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> <xr:Item xsi:type="xr:MDObjectRef">Role.РК_ОсновнаяРоль</xr:Item>
</DefaultRoles> </DefaultRoles>
<Vendor/> <Vendor/>
<Version>1.3.1.78</Version> <Version>1.3.1.79</Version>
<DefaultStyle/> <DefaultStyle/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
<BriefInformation/> <BriefInformation/>
@@ -859,25 +859,25 @@
Попытка Попытка
Если Части.Количество() >= 3 Тогда Если Части.Количество() >= 3 Тогда
День = Число(СокрЛП(Части[0])); НомерДня = Число(СокрЛП(Части[0]));
Месяц = Число(СокрЛП(Части[1])); НомерМесяца = Число(СокрЛП(Части[1]));
Год = Число(СокрЛП(Части[2])); НомерГода = Число(СокрЛП(Части[2]));
Иначе Иначе
День = 1; НомерДня = 1;
Месяц = Число(СокрЛП(Части[0])); НомерМесяца = Число(СокрЛП(Части[0]));
Год = Число(СокрЛП(Части[1])); НомерГода = Число(СокрЛП(Части[1]));
Если Год >= 100 И Месяц > 12 Тогда Если НомерГода >= 100 И НомерМесяца > 12 Тогда
День = Месяц; НомерДня = НомерМесяца;
Месяц = 1; НомерМесяца = 1;
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
Если Год < 100 Тогда Если НомерГода < 100 Тогда
Год = Год + 2000; НомерГода = НомерГода + 2000;
КонецЕсли; КонецЕсли;
Если Части.Количество() = 2 И День = 1 Тогда Если Части.Количество() = 2 И НомерДня = 1 Тогда
День = ДеньМесяца(КонецМесяца(Дата(Год, Месяц, 1))); НомерДня = День(КонецМесяца(Дата(НомерГода, НомерМесяца, 1)));
КонецЕсли; КонецЕсли;
Возврат Дата(Год, Месяц, День); Возврат Дата(НомерГода, НомерМесяца, НомерДня);
Исключение Исключение
Возврат '00010101'; Возврат '00010101';
КонецПопытки; КонецПопытки;