Привет всем:)

Вообщем подключаюсь я через com к двум базам, получилось:)

база1
в этой же функции подключения делаю запрос к базе, вывожу нужную информацию в макет

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

Как бы мне объединить это дело и выводить в один и тот же макет?
Сейчас создается 2 одинаковых, но с разными данными

Или неправильна логика работы?

Заранее спасибо

а как сейчас создаётся?

и хочешь данные из 2й базы "дописывать" в макет, в котором уже данные из 1й? макеты/данные одинаковые, я так понимаю?

Не создавай еще один Новый ТабличныйДокумент. Продолжай в старом объекте выводить строки.

(3) Опередил чертяка )

(4):-)

Табдок создавай вначале и выводи в него инфо с двух макетов.

(3) честно говоря, я даже не подумал об этом, считая очевидным ;)

тааак, сейчас:))

(6) Тебя (3) опередил, если ты не заметил))

(7) я если честно по аналогии сделала, даже не подумала:) сейчас поправлю

(10) заходи, когда в следующий раз решишь не подумать ;)

(9) Да высказаться решил, ато не усну с мыслями что мог сказать и не сказал )))

Так стоп:) я от счастья, что вопрос оказался таким быстроразрешающимся, переволновалась:))

убрала из функции и первой, и второй

В модуле прописала
Перем ТабДокумент экспорт;

В форме

Процедура ПриОткрытии()
           ТабДокумент = Новый ТабличныйДокумент;
КонецПроцедуры;

В итоге выводит данные только одной базы, вторую не смотрит

(9) я дам вам шанс:))))

(9) не 9, (12) :))
все, говорю переволновалась:)))

(13) это где всё?

Сохранить оба макета в разные mxl, потом создать новый табдок из этих двух mxl.

(16) Перем ТабДокумент экспорт;
в модуле объекта

Где и функции подключения

Процедура ПриОткрытии()
           ТабДокумент = Новый ТабличныйДокумент;
КонецПроцедуры;

в модуле формы

(17) ого-го

(18) почему решила, что вторую не смотрит? ТабДок.Очистить() бы ещё...

достаточно было убрать ТабДокумент = Новый ТабличныйДокумент из второй процедуры. ну или ТабДокумент вынести в Перем

Или передавать между процедурами ТабДок на крайняк.

Подозреваю, что строка ТабДок.Показать() идет сразу после запроса к первой базе...

хм, думаю (23) прав

или лев )))

ТабДок.Показать()  убери после вывода первой базы

(19) сложи их просто

ТабДокобщий = Новый ТабличныйДокумент;
ТабДОкОбщий.Вывести(ТабДок1);
ТабДОкОбщий.Вывести(ТабДОк2);
ТабДокОбщий.Показать();

(25) Главное, чтобы не сред!))

Так:) вообщем попробовала:

(20) тогда пропадает результат первой базы, выводит только вторую

(23) (26) тогда  выводит результат первой базы, второго результат нет

(29) так.
Перем ТабДок;

Процедура1()
ТабДок.Очистить();
ТабДок.Вывести(ОбластиВсякие);
Конец

Процедура2()
ТабДок.Вывести(ОбластиВсякие);
ТабДок.Показать();
Конец

(15), (29) сходи на обед, развейся, успокойся от переволнения - и всё получится.

Объясни по-человечески, в объект (таб.документ) какой базы ты выводишь COM-объекты (таб.документы), полученные из других баз?

(30) есть очистить

не корректно выводится : вначале выводит данные первой базы, затем второй, ниже
макет дублируется, но там уже данные второй базы

(31) я даже поспала:) успокоилась, но не догадалась еще)

(33) давай уже свою обработку

(34) искренне надеялась сама найти ошибку когда сокращала куски кода. Увы

Функция ПодключитьсяКИнформационнойБазеИсточнику(СтруктураПодключения, СтрокаСообщенияОбОшибке = "")
...подключаемся
       ТекCOMОбъект = ТекCOMПодключение.Connect(СтрокаПодключения);
...
   Макет = ПолучитьМакет("СводнаяТаблицаПоСчетамБУ");
   ЗапросИсточника = ТекCOMОбъект.NewObject("Запрос");
   ЗапросИсточника.Текст =    ...
       РезультатЗапросаКИсточнику = ЗапросИсточника.Выполнить();
       Выборка = РезультатЗапросаКИсточнику.Выбрать();
...Получаем области
       Пока  Выборка.Следующий()    Цикл
...заполняем области
       КонецЦикла;
       ТабДокумент.Очистить();
       ...выводим области
КонецФункции
=================Вторая Функция ===========
Функция ПодключитьсяКИнформационнойБазеПриемнику(СтруктураПодключения, СтрокаСообщенияОбОшибке = "")
...подключаемся
       ТекCOMОбъектПриемник = ТекCOMПодключениеПриемник.Connect(СтрокаПодключения);
...
   Макет = ПолучитьМакет("СводнаяТаблицаПоСчетамБУ");
   ЗапросПриемника = ТекCOMОбъектПриемник.NewObject("Запрос");
   ЗапросПриемника.Текст = ...
       РезультатЗапросаКПриемника = ЗапросПриемника.Выполнить();
       ВыборкаПриемника = РезультатЗапросаКПриемника.Выбрать();

...Получаем области
       Пока  Выборка.Следующий()    Цикл
...заполняем области
       КонецЦикла;
       ...выводим области
       ТабДокумент.Показать();
КонецФункции

(35) схематично уже не получается, я имел в виду готовую живую обработку. ну вот смотри, что нашёл:
==== 1 ====
       Пока  Выборка.Следующий()    Цикл
...заполняем области
       КонецЦикла;
       ТабДокумент.Очистить();
усердно заполняем, потом это очищаем?
==== 2 ====
       Пока  Выборка.Следующий()    Цикл
...заполняем области
       КонецЦикла;
       ...выводим области
заполнять заполняем, но выводим только последнюю?


не понятно

(36) по пункту 1 - это реализация (30) :)
по пункту 2 - не поняла, почему выводим последнюю?

(37)Потому что оператор вывода за циклом.И срабатывает когда цикл кончился,т.е. когда заполнена последняя область

(38) поняла суть вопроса

в моем случае можно как в цикле, так и вне цикла делать заполнение, т.к. там 1 строка, 1 параметр

не несколько строк

(37) в (30) сначала Очистить(), потом Вывести()
потому что вывод после цикла

прекрати стесняться, дай обработку посмотреть. текущими методами можно долго делать. обещаю сильно не ругаться ;)

(41) а скайпа нет?:))) я тут если код выложу меня закидают помидорами:)))

(42) у меня почта есть. а скайп дома только

(42)Да брось:-)  Фотка есть, все в порядке:-)...Все будут милыми и покладистыми.

(43) Отправила

(44) с моим кодом начнут требовать фотку топлесс или закидают помидорами :P

хочется взять и переписать ;)
даже не знаю, что с тобой делать... процедура ВыполнитьПодключениеКИБИсточнику(), как следует из названия, должна подключаться и всё... щас попробую всё это вслепую переделать

и знаешь, сколько усилий потратил на нажатие кнопки Выполнить? ;) размеры формы не меняются, кнопка уехала вниз

(46) не не не
ВыполнитьПодключениеКИБИсточнику вызывает процедуру подключения из общего модуля, где и есть запрос

(47) :))) я всегда изначально гигантское все делаю

гигантское тебя и путает. смотри, как понятней стало:

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
   КОМ1=ВыполнитьПодключениеКИБИсточнику();
   КОМ2=ВыполнитьПодключениеКИБПриемнику();

   Если КОМ1=Неопределено ИЛИ КОМ2=Неопределено Тогда
       Возврат;
   КонецЕсли;
   
   ТабДокумент.Очистить();

   Печать1(КОМ1);
   Печать2(КОМ2);

   ТабДокумент.Показать();
КонецПроцедуры

а на почте больше ;)

несколько поспешил. надо КОМ1=ВыполнитьПодключениеКИБИсточнику() вызывать. поправишь же сама?

тфу, я так и делаю ;)

(50) я поняла, спасибо
поблагородней стало внутри, код сразу стал симпотичным:)

но в макет же все равно выводится в низ данные, вначале первая, потом вторая база

(52) попробуй сказать последнее предложение другими словами

(53) ууу, куда смотрела, то и написала
в макете выводятся вначале данные первой базы в столбец 2, затем ниже данные второй базы в столбец4
получается макет дважды выводится, но не объединяется?

(54) я ещё в (2) пытался что-то этакое выяснить...
предлагаю выгрузить запрос1 в ТЗ, потом прикрутить к этой ТЗ запрос2 и выводить в ТабДок уже ТЗ. было б всё в одной базе, это бы называлось соединением ;)

возможные мелкие недописки/ошибки, надеюсь, простишь. лови почту