v3.0.0.70

This commit is contained in:
Профи-Софт
2026-07-14 07:08:18 +00:00
parent 60b6facf84
commit 230e88ed63
2 changed files with 8 additions and 4 deletions
+1 -1
View File
@@ -56,7 +56,7 @@
<ScriptVariant>Russian</ScriptVariant>
<DefaultRoles/>
<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
<Version>3.0.0.69</Version>
<Version>3.0.0.70</Version>
<Caption/>
<ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage>
@@ -461,10 +461,14 @@
&НаСервере
Процедура ЗаписатьДанныеНаСервере(Знач ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод)
// Определяем период
Если Не ЗначениеЗаполнено(ГодЗагрузкиПараметр) Тогда
ГодЗагрузкиПараметр = Год(ТекущаяДата());
ГодЧисло = Число(ГодЗагрузкиПараметр);
МесяцЧисло = Цел(Объект.МесяцЗагрузки);
Если ГодЧисло = 0 Тогда ГодЧисло = Год(ТекущаяДата()); КонецЕсли;
Если МесяцЧисло < 1 Или МесяцЧисло > 12 Тогда
Сообщить("Ошибка: месяц загрузки = " + МесяцЧисло + ", год = " + ГодЧисло);
Возврат;
КонецЕсли;
Период = Дата(Число(ГодЗагрузкиПараметр), Цел(Объект.МесяцЗагрузки), 1);
Период = Дата(ГодЧисло, МесяцЧисло, 1);
// Разрешаем ссылки из строковых значений
Организация = Справочники.Организации.НайтиПоНаименованию(СокрЛП(ОрганизацияНаименование), Истина);