v8.2 УП:

 



&НаКлиенте

Процедура Сформировать(Команда)

V77 = Новый COMОбъект("V77.Application");

ПутьКБазе="D:\Test\BUHкопия\BUH\";

Пользователь="Админ";

Пароль="123";

	СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";





  Если  V77.Initialize(V77.RMTrade,СтрокаПодключения,"NO_SPLASH_SHOW") Тогда

	Сообщить("Информационная база подключена");

	СФР= V77.CreateObject("Документ.СчетФактураРеал");



Иначе  сообщить("Ошибка открытия информационной базы");



КонецЕсли;	

	докР=проверка();

	для каждого Значение из докР цикл

		сообщить(значение);



	конеццикла;

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



&НаСервере

функция проверка()

	сообщить("Проверка связи");

	

	Реализация=новый СписокЗначений();

	Выборка = документы.РеализацияТоваровУслуг.Выбрать(объект.Период.ДатаНачала, объект.Период.ДатаОкончания);

	

	Пока Выборка.Следующий() Цикл

			Реализация.Добавить(выборка.ссылка); 

		конеццикла;

		возврат реализация;

конецФункции