Имя: Пароль:
1C
1С v8
УФ СКД в обычной обработке - как получить схему
0 OnePrg
 
19.01.24
16:47
&НаСервере
Процедура ИнициализироватьКомпоновщик(КомпоновщикНастроек, УникальныйИдентификатор, Знач НастройкиКомпоновщика = Неопределено)

    СхемаКомпоновкиДанных = Новый СхемаКомпоновкиДанных;
    ИсточникДанных = СхемаКомпоновкиДанных.ИсточникиДанных.Добавить();
    ИсточникДанных.Имя = "ИсточникДанных1";
    ИсточникДанных.ТипИсточникаДанных = "Local";
    
    НаборДанных = СхемаКомпоновкиДанных.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
    НаборДанных.Имя = "НаборДанных1";
    НаборДанных.ИсточникДанных = ИсточникДанных.Имя;
    НаборДанных.АвтоЗаполнениеДоступныхПолей = Ложь;
    НаборДанных.Запрос = "ВЫБРАТЬ ....."    
    URLСхемыКомпоновкиДанных = ПоместитьВоВременноеХранилище(СхемаКомпоновкиДанных, УникальныйИдентификатор);
    КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(URLСхемыКомпоновкиДанных));
    
    Если ЗначениеЗаполнено(НастройкиКомпоновщика) Тогда
        КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпоновщика);
        КомпоновщикНастроек.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.Полное);
    Иначе
        КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);  <----- вот тут как получить схему?
    КонецЕсли;

КонецПроцедуры





&НаСервере
Процедура ЗаполнитьДебетНаСервере()
    ЭлементОтбора = КомпоновщикДт.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода");
    ЭлементОтбора.Значение         = МесяцНачисления;
    ЭлементОтбора.Использование = Истина;
    
    ЭлементОтбора = КомпоновщикДт.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода");
    ЭлементОтбора.Значение         = КонецМесяца(МесяцНачисления);
    ЭлементОтбора.Использование = Истина;
    
    Настройки = КомпоновщикДт.ПолучитьНастройки();
    
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки, ДанныеРасшифровки);    
    
КонецПроцедуры
1 OnePrg
 
19.01.24
16:49
Пардон втупил. Правильный вопрос:

&НаСервере
Процедура ИнициализироватьКомпоновщик(КомпоновщикНастроек, УникальныйИдентификатор, Знач НастройкиКомпоновщика = Неопределено)

    СхемаКомпоновкиДанных = Новый СхемаКомпоновкиДанных;
    ИсточникДанных = СхемаКомпоновкиДанных.ИсточникиДанных.Добавить();
    ИсточникДанных.Имя = "ИсточникДанных1";
    ИсточникДанных.ТипИсточникаДанных = "Local";
    
    НаборДанных = СхемаКомпоновкиДанных.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
    НаборДанных.Имя = "НаборДанных1";
    НаборДанных.ИсточникДанных = ИсточникДанных.Имя;
    НаборДанных.АвтоЗаполнениеДоступныхПолей = Ложь;
    НаборДанных.Запрос = "ВЫБРАТЬ ....."    
    URLСхемыКомпоновкиДанных = ПоместитьВоВременноеХранилище(СхемаКомпоновкиДанных, УникальныйИдентификатор);
    КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(URLСхемыКомпоновкиДанных));
    
    Если ЗначениеЗаполнено(НастройкиКомпоновщика) Тогда
        КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиКомпоновщика);
        КомпоновщикНастроек.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.Полное);
    Иначе
        КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);  
    КонецЕсли;

КонецПроцедуры





&НаСервере
Процедура ЗаполнитьДебетНаСервере()
    ЭлементОтбора = КомпоновщикДт.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода");
    ЭлементОтбора.Значение         = МесяцНачисления;
    ЭлементОтбора.Использование = Истина;
    
    ЭлементОтбора = КомпоновщикДт.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода");
    ЭлементОтбора.Значение         = КонецМесяца(МесяцНачисления);
    ЭлементОтбора.Использование = Истина;
    
    Настройки = КомпоновщикДт.ПолучитьНастройки();
    
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки, ДанныеРасшифровки);    <----- вот тут как получить схему?
    
КонецПроцедуры
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.