v3.0.0.67

This commit is contained in:
Профи-Софт
2026-07-14 05:14:14 +00:00
parent 4497ed6f6e
commit 919c573195
2 changed files with 9 additions and 14 deletions
+1 -1
View File
@@ -56,7 +56,7 @@
<ScriptVariant>Russian</ScriptVariant>
<DefaultRoles/>
<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
<Version>3.0.0.66</Version>
<Version>3.0.0.67</Version>
<Caption/>
<ShortCaption/>
<DefaultLanguage>Language.Русский</DefaultLanguage>
@@ -1,8 +1,3 @@
Перем ГодЗагрузкиМодуль;
Перем СтрокаОрганизацияМодуль;
Перем СтрокаСтатьяФинансированияМодуль;
Перем СтрокаСтатьяРасходовМодуль;
#Область ОбработчикиСобытийФормы
&НаСервере
@@ -42,7 +37,7 @@
Сообщить("Нет данных для записи!");
Возврат;
КонецЕсли;
ЗаписатьДанныеНаСервере(ГодЗагрузкиМодуль, СтрокаОрганизацияМодуль, СтрокаСтатьяФинансированияМодуль, СтрокаСтатьяРасходовМодуль);
ЗаписатьДанныеНаСервере(Объект._ГодЗагрузки, Объект._ОрганизацияНаименование, Объект._СтатьяФинансированияНаименование, Объект._СтатьяРасходовКод);
Сообщить("Данные записаны!");
КонецПроцедуры
@@ -322,21 +317,21 @@
ГодЗначение = ЛистРасчет.Cells(3, 1).Value;
Если ЗначениеЗаполнено(ГодЗначение) Тогда
Попытка
ГодЗагрузкиМодуль = Число(ГодЗначение);
Объект._ГодЗагрузки = Число(ГодЗначение);
Исключение
ГодЗагрузкиМодуль = 0;
Объект._ГодЗагрузки = 0;
КонецПопытки;
Иначе
ГодЗагрузкиМодуль = 0;
Объект._ГодЗагрузки = 0;
КонецЕсли;
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузкиМодуль;
МесяцТекст = НомерМесяцаВТекст(Объект.МесяцЗагрузки) + " " + Объект._ГодЗагрузки;
Организация = СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value));
СтатьяФинансирования = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
СтатьяРасходов = "211";
// Сохраняем строковые значения для передачи на сервер
СтрокаОрганизацияМодуль = Организация;
СтрокаСтатьяФинансированияМодуль = СтатьяФинансирования;
СтрокаСтатьяРасходовМодуль = СтатьяРасходов;
Объект._ОрганизацияНаименование = Организация;
Объект._СтатьяФинансированияНаименование = СтатьяФинансирования;
Объект._СтатьяРасходовКод = СтатьяРасходов;
// Строка начала данных
НачальнаяСтрока = 0;
Для Ном = 17 По 30 Цикл