Здравствуйте ! Платформа 8.3

Можно ли в одном отчете СКД вывести два набора данных ?

Т.е 2 внешних набора данных -объекты

При построении отчета выводятся 2 таблицы

легко

(1)
2 набора я создам и наполню их данными.

меня интересует вот эта область , что конкретно здесь надо указывать?

http://radikal.ru/Img/ShowUploadedImg?id=58c41d646e3c449dad1eb62b4e5bdfd4

http://radikal.ru/lfp/s019.radikal.ru/i600/1605/77/6914822672d4.jpg/htm

(2) Указывай то, что нужно указать.

(4)детальные записи будут браться сразу с двух наборов?

они как то отличаться будут названием?

(5) Нет.
Можешь поле задать в одном и во втором наборе что-то вроде такого

"Набор1" КАК ПолеДляОтличия

А во втором -

"Набор2" КАК ПолеДляОтличия

Тогда сможешь отличить.

http://s020.radikal.ru/i722/1605/10/889097036395.jpg

ошибка Ошибка исполнения отчета
по причине:
Ошибка при выполнении обработчика - 'ПриКомпоновкеРезультата'
по причине:
{Отчет.ОшибкиОборудованияИПодозрительныеДанные.МодульОбъекта(86)}: Ошибка при вызове метода контекста (Инициализировать)
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,ВнешнийНабор);
по причине:
Ошибка компоновки данных
по причине:
Ошибка инициализации
по причине:
Ошибка создания набора данных "НаборДанных2"
по причине:
Не найден внешний набор данных "ТаблицаДанных1"


http://s020.radikal.ru/i722/1605/10/889097036395.jpg


что не так делаю?

(7) Код на Мисту не выкладываешь, вот и не работает.

код


Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    
СтандартнаяОбработка=Ложь;
//////////////////////////////////////////////////////////////////////////////////////////////
// 1 набор данных
objComm = Новый COMОбъект("ADODB.Command") ;
    oConnection =Новый COMОбъект("ADODB.Connection");
    RecordSet = Новый COMОбъект("ADODB.RecordSet");

Попытка

ConnectString="
|DRIVER={MySQL ODBC 5.1 Driver};
|SERVER=10.182.2.23;
|DATABASE=aramis;
|UID=Oleg;
|PWD=55555;
|Option=3";
oConnection.Open (ConnectString);

Исключение
    Сообщить("Не удалось подключится к MySQL "+ОписаниеОшибки());
        Возврат;
КонецПопытки;

objComm.ActiveConnection = oConnection;
objComm.CommandText = "otchet_oshibki_oborudovamiya";
objComm.CommandType = 4 ;
Период=СокрЛП(ПериодФормирования);
Параметр=objComm.CreateParameter("@year_mon",129,1,10,Период);
Параметр1=objComm.CreateParameter("@res",200,1,15,РЭС);
objComm.Parameters.Append(Параметр);
objComm.Parameters.Append(Параметр1);

Попытка
    RecordSet = objComm.Execute();
Исключение
    Сообщить("Ошибка выполнения хранимой процедуры: "+ОписаниеОшибки());
    oConnection.Close();
    Возврат;
КонецПопытки;

ТаблицаДанных = Новый ТаблицаЗначений;
   ТаблицаДанных.Колонки.Добавить("ЛицевойСчет", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(20)));
   ТаблицаДанных.Колонки.Добавить("Фамилия", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(64)));
   ТаблицаДанных.Колонки.Добавить("Город", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(64)));
   ТаблицаДанных.Колонки.Добавить("Улица", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(64)));
   ТаблицаДанных.Колонки.Добавить("Дом", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(10)));
   ТаблицаДанных.Колонки.Добавить("ТекущийМесяц", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(10)));
   ТаблицаДанных.Колонки.Добавить("Показание", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(15,2,ДопустимыйЗнак.Неотрицательный)));
   ТаблицаДанных.Колонки.Добавить("СтатусОшибки", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(15,2,ДопустимыйЗнак.Неотрицательный)));
   ТаблицаДанных.Колонки.Добавить("ДатаУстановки", Новый ОписаниеТипов("Дата",Новый КвалификаторыДаты(ЧастиДаты.Дата)));
   ТаблицаДанных.Колонки.Добавить("НомерСчетчика", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(20)));
   ТаблицаДанных.Колонки.Добавить("НомерПломбы", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(20)));


   Пока RecordSet.EOF() = 0 Цикл
     Стр = ТаблицаДанных.Добавить();  
     Стр.ЛицевойСчет = Recordset.Fields(0).Value;
     Стр.Фамилия = Recordset.Fields(1).Value;
     Стр.Город = Recordset.Fields(2).Value;
     Стр.Улица = Recordset.Fields(3).Value;
     Стр.Дом = Recordset.Fields(4).Value;
     Стр.ТекущийМесяц = Recordset.Fields(5).Value;
     Стр.Показание = Recordset.Fields(6).Value;
     Стр.СтатусОшибки = Recordset.Fields(7).Value;
     Стр.ДатаУстановки = Recordset.Fields(8).Value;
     Стр.НомерСчетчика = Recordset.Fields(9).Value;
     Стр.НомерПломбы = Recordset.Fields(10).Value;
    RecordSet.MoveNext();
    
   КонецЦикла;

  RecordSet.Close();
   oConnection.Close();
  
ВнешнийНабор=Новый Структура ("ТаблицаДанных",ТаблицаДанных);
    
    
    Настройки=КомпоновщикНастроек.Настройки;
    КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки);

ПроцессорКомпоновкиДанных=Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,ВнешнийНабор);
    
    ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
  
///////////////// второй  набор данных

objComm = Новый COMОбъект("ADODB.Command") ;
    oConnection =Новый COMОбъект("ADODB.Connection");
    RecordSet = Новый COMОбъект("ADODB.RecordSet");

Попытка

ConnectString="
|DRIVER={MySQL ODBC 5.1 Driver};
|SERVER=10.182.2.23;
|DATABASE=aramis;
|UID=Oleg;
|PWD=55555;
|Option=3";
oConnection.Open (ConnectString);

Исключение
    Сообщить("Не удалось подключится к MySQL "+ОписаниеОшибки());
        Возврат;
КонецПопытки;

objComm.ActiveConnection = oConnection;
objComm.CommandText = "otchet_perechen_oproshennyh_domov";
objComm.CommandType = 4 ;
Период=СокрЛП(ПериодФормирования);
Параметр=objComm.CreateParameter("@year_mon",129,1,10,Период);
Параметр1=objComm.CreateParameter("@res",200,1,15,РЭС);
objComm.Parameters.Append(Параметр);
objComm.Parameters.Append(Параметр1);

Попытка
    RecordSet = objComm.Execute();
Исключение
    Сообщить("Ошибка выполнения хранимой процедуры: "+ОписаниеОшибки());
    oConnection.Close();
    Возврат;
КонецПопытки;

ТаблицаДанных1 = Новый ТаблицаЗначений;
   ТаблицаДанных1.Колонки.Добавить("Город1", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(64)));
   ТаблицаДанных1.Колонки.Добавить("Улица1", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(64)));
   ТаблицаДанных1.Колонки.Добавить("Дом1", Новый ОписаниеТипов("Строка",Новый КвалификаторыСтроки(10)));
  
   Пока RecordSet.EOF() = 0 Цикл
     Стр = ТаблицаДанных1.Добавить();  
        Стр.Город1 = Recordset.Fields(0).Value;
     Стр.Улица1 = Recordset.Fields(1).Value;
     Стр.Дом1 = Recordset.Fields(2).Value;
    RecordSet.MoveNext();
    
   КонецЦикла;

  RecordSet.Close();
   oConnection.Close();
  
ВнешнийНабор1=Новый Структура ("ТаблицаДанных1",ТаблицаДанных1);
    
    
    Настройки=КомпоновщикНастроек.Настройки;
    КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки);

ПроцессорКомпоновкиДанных=Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,ВнешнийНабор1);
    
    ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
    
  

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


RecordSet.MoveNext();
    
   КонецЦикла;

  RecordSet.Close();
   oConnection.Close();
  
ВнешнийНабор=Новый Структура ("ТаблицаДанных",ТаблицаДанных);

//Настройки=КомпоновщикНастроек.Настройки;
//   КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;
//   МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки);

//ПроцессорКомпоновкиДанных=Новый ПроцессорКомпоновкиДанных;
  //  ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,ВнешнийНабор);
    
  //  ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
  //  ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
  //  ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
  
///////////////// второй  набор данных


objComm = Новый COMОбъект("ADODB.Command") ;

Так должно работать.

(11) тогда как в компоновщик макета попадет набор  данных
ТаблицаДанных ?

(11) еще надо дописать


ВнешнийНабор1=Новый Структура ("ТаблицаДанных1,ТаблицаДанных",ТаблицаДанных1,ТаблицаДанных);
  во вотром наборе данных
тогда заработает

Спасибо,Nuobu

еще вопрос

у меня 2 набора данных , у них есть одинаковые поля

город улица дом

хотелось чтобы названия города , улицы и дома , которые есть в первой таблице как то выделялись цветом во второй таблице.

можно ли как это реализовать стандартными инструментами скд?
условным форматированием например?

сделал условным оформлением

по отбору
( Дом Содержит Дом1 И Город Содержит Город1 И Улица Содержит Улица1 ) закрасить красным

не срабатывает , не могу понять почему.
В какой переменной смотреть в отладчике данные котрые сформировались отбором?

А как ты связал два набора?

(0) субъективно дешевле использовать эксель с ВПР.

(16) я их не связывал.
они как отдельные наборы с разных источников.

(18) а вот это нельзя

(19) их надо связать обязательно?

по 3 этим полям?

дом город улица

левым соединением?

http://s019.radikal.ru/i640/1605/c0/3250243c4fda.jpg

вот так написал
но теперь все элементы окрашиваются

не понимаю таким образом какое соединение формируется
левое ?истосник1 левое соединение источник 2?

источник 1
объект 1
поля
-лицевой счет
-фамилия
-город
-улица
-дом
-текущий месяц
-показания
-статус ошибки
-дата установки
-номер счетчика
-номер пломбы

источник2
объект 2
поля
-город
-улица
-дом

т.е. мне надо все записи вывести из источника 1
и соеденить с источниом 2 по полям город И улица И дом

если не связные, то лучше через вложенные схемы делать