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
Configuration.xml
+1 -1
View File
@@ -56,7 +56,7 @@
<ScriptVariant>Russian</ScriptVariant> <ScriptVariant>Russian</ScriptVariant>
<DefaultRoles/> <DefaultRoles/>
<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor> <Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
<Version>3.0.0.69</Version> <Version>3.0.0.70</Version>
<Caption/> <Caption/>
<ShortCaption/> <ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage> <DefaultLanguage>Language.Русский</DefaultLanguage>
DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl
+7 -3
View File
@@ -461,10 +461,14 @@
&НаСервере &НаСервере
Процедура ЗаписатьДанныеНаСервере(Знач ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод) Процедура ЗаписатьДанныеНаСервере(Знач ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод)
// Определяем период // Определяем период
Если Не ЗначениеЗаполнено(ГодЗагрузкиПараметр) Тогда ГодЧисло = Число(ГодЗагрузкиПараметр);
ГодЗагрузкиПараметр = Год(ТекущаяДата()); МесяцЧисло = Цел(Объект.МесяцЗагрузки);
Если ГодЧисло = 0 Тогда ГодЧисло = Год(ТекущаяДата()); КонецЕсли;
Если МесяцЧисло < 1 Или МесяцЧисло > 12 Тогда
Сообщить("Ошибка: месяц загрузки = " + МесяцЧисло + ", год = " + ГодЧисло);
Возврат;
КонецЕсли; КонецЕсли;
Период = Дата(Число(ГодЗагрузкиПараметр), Цел(Объект.МесяцЗагрузки), 1); Период = Дата(ГодЧисло, МесяцЧисло, 1);
// Разрешаем ссылки из строковых значений // Разрешаем ссылки из строковых значений
Организация = Справочники.Организации.НайтиПоНаименованию(СокрЛП(ОрганизацияНаименование), Истина); Организация = Справочники.Организации.НайтиПоНаименованию(СокрЛП(ОрганизацияНаименование), Истина);