admin-ps/zagruzka-dannyh-iz-excel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v3.0.0.70

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+7 -3
View File
@@ -461,10 +461,14 @@
&НаСервере
Процедура ЗаписатьДанныеНаСервере(Знач ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод)
// Определяем период
Если Не ЗначениеЗаполнено(ГодЗагрузкиПараметр) Тогда
ГодЗагрузкиПараметр = Год(ТекущаяДата());
ГодЧисло = Число(ГодЗагрузкиПараметр);
МесяцЧисло = Цел(Объект.МесяцЗагрузки);
Если ГодЧисло = 0 Тогда ГодЧисло = Год(ТекущаяДата()); КонецЕсли;
Если МесяцЧисло < 1 Или МесяцЧисло > 12 Тогда
Сообщить("Ошибка: месяц загрузки = " + МесяцЧисло + ", год = " + ГодЧисло);
Возврат;
КонецЕсли;
Период = Дата(Число(ГодЗагрузкиПараметр), Цел(Объект.МесяцЗагрузки), 1);
Период = Дата(ГодЧисло, МесяцЧисло, 1);
// Разрешаем ссылки из строковых значений
Организация = Справочники.Организации.НайтиПоНаименованию(СокрЛП(ОрганизацияНаименование), Истина);