Initial SFERA platform baseline

2026-05-16 19:03:49 +03:00
commit 3b845c8fce
282 changed files with 55045 additions and 0 deletions
@@ -0,0 +1,7 @@
+Процедура Проведение()
+    МожноПроводить = ПроверитьОстатки();
+КонецПроцедуры
+
+Функция ПроверитьОстатки()
+    Возврат Истина;
+КонецФункции
@@ -0,0 +1,5 @@
+Процедура ОтправитьЧек() Экспорт
+КонецПроцедуры
+
+Function BuildPayload() Export
+EndFunction
@@ -0,0 +1,9 @@
+Процедура Проведение()
+    Если ПроверитьОстатки() Тогда
+        Движения.ОстаткиТоваров.Записать();
+    КонецЕсли;
+КонецПроцедуры
+
+Функция ПроверитьОстатки()
+    Возврат Истина;
+КонецФункции
@@ -0,0 +1,17 @@
+Процедура Проведение()
+    Для Каждого Строка Из Товары Цикл
+        ПроверитьСтроку(Строка);
+    КонецЦикла;
+
+    Попытка
+        Движения.ОстаткиТоваров.Записать();
+    Исключение
+        СообщитьОбОшибке();
+    КонецПопытки;
+КонецПроцедуры
+
+Процедура ПроверитьСтроку(Строка)
+КонецПроцедуры
+
+Процедура СообщитьОбОшибке()
+КонецПроцедуры
@@ -0,0 +1,13 @@
+Procedure Posting()
+    CheckStock();
+    Movements.StockBalance.Write();
+EndProcedure
+
+Function CheckStock()
+    Query = New Query;
+    Query.Text =
+    "SELECT
+        Stock.Item
+     FROM
+        AccumulationRegister.StockBalance AS Stock";
+EndFunction
@@ -0,0 +1,9 @@
+Процедура СоздатьНоменклатуру()
+    Элемент = Справочники.Номенклатура.СоздатьЭлемент();
+    Элемент.Записать();
+КонецПроцедуры
+
+Procedure CreateOrder()
+    Order = Documents.CustomerOrder.CreateDocument();
+    Order.Write();
+EndProcedure
@@ -0,0 +1,6 @@
+Процедура Проведение()
+    ПроверитьОстатки();
+КонецПроцедуры
+
+Процедура ПроверитьОстатки()
+КонецПроцедуры
@@ -0,0 +1,8 @@
+Процедура ПолучитьТовары()
+    Запрос = Новый Запрос;
+    Запрос.Текст =
+    "ВЫБРАТЬ
+        Товары.Ссылка
+     ИЗ
+        Справочник.Номенклатура КАК Товары";
+КонецПроцедуры
@@ -0,0 +1,6 @@
+Процедура ПолучитьКонтрагентов()
+    Запрос = Новый Запрос;
+    Запрос.Текст = "ВЫБРАТЬ
+        |Контрагенты.Ссылка
+        |ИЗ Справочник.Контрагенты КАК Контрагенты";
+КонецПроцедуры
@@ -0,0 +1,7 @@
+Процедура ПолучитьТовары()
+    Запрос = Новый Запрос;
+    Запрос.Текст = "ВЫБРАТЬ
+        |Товары.Ссылка
+        |ИЗ
+        |Справочник.Номенклатура КАК Товары";
+КонецПроцедуры
@@ -0,0 +1,9 @@
+Процедура ПолучитьЗаказы()
+    Запрос = Новый Запрос;
+    Запрос.Текст = "ВЫБРАТЬ
+        |Заказы.Ссылка,
+        |Контрагенты.Наименование
+        |ИЗ Документ.ЗаказПокупателя КАК Заказы
+        |ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
+        |ПО Заказы.Контрагент = Контрагенты.Ссылка";
+КонецПроцедуры
@@ -0,0 +1,9 @@
+Процедура ЗаписатьЦены()
+    Набор = РегистрыСведений.Цены.СоздатьНаборЗаписей();
+    Набор.Записать();
+КонецПроцедуры
+
+Procedure WriteBalances()
+    Records = AccumulationRegisters.StockBalance.CreateRecordSet();
+    Records.Write();
+EndProcedure
@@ -0,0 +1,2 @@
+Процедура Проведение()
+КонецПроцедуры