РК_ПроверкаСерий 1.3.1.79: День() вместо несуществующего ДеньМесяца.
Co-authored-by: Cursor <cursoragent@cursor.com>
This commit is contained in:
@@ -4,6 +4,12 @@
|
||||
|
||||
---
|
||||
|
||||
## 1.3.1.79 (2026-08-17)
|
||||
|
||||
### Исправление
|
||||
|
||||
- Компиляция формы: `ДеньМесяца` заменён на платформенный `День()`; локальные переменные даты переименованы, чтобы не затенять функции.
|
||||
|
||||
## 1.3.1.78 (2026-08-17)
|
||||
|
||||
### РК_ПроверкаСерий — анализ таблицы проблем
|
||||
|
||||
@@ -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';
|
||||
КонецПопытки;
|
||||
|
||||
Reference in New Issue
Block a user