ПутьКБазе = путьКБД1с7; Если НЕ ЗначениеЗаполнено(ПутьКБазе)Тогда Режим = РежимДиалогаВопрос.ОК; Ответ = Вопрос("Не указан каталог" , Режим, 0); Если Ответ = КодВозвратаДиалога.ОК Тогда Возврат; КонецЕсли; КонецЕсли; Пользователь = "пользователь";//пользователь базы 7.7 Пароль = "1"; МонопольныйРежимOLE = ""; // " /m"; ЗапускБезЗаставки = 1; База = Новый COMОбъект("V1CEnterprise.Application"); СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+""""; РезультатПодключения = База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW","")); Если НЕ РезультатПодключения Тогда Сообщить("Не удалось произвести подключение к информационной базе"); КонецЕсли; ТЗ = Новый ТаблицаЗначений; ТЗ.Колонки.Добавить("Дата",,"ДатаД"); ТЗ.Колонки.Добавить("Представление", Новый ОписаниеТипов("СправочникСсылка.ВидыСпектаклей"),"Представление"); ТЗ.Колонки.Добавить("Продавец",Новый ОписаниеТипов("СправочникСсылка.ВидыНоменклатуры"),"Продавец"); ТЗ.Колонки.Добавить("билет",Новый ОписаниеТипов("СправочникСсылка.ВидыБСО"),"билет"); ТЗ.Колонки.Добавить("кол",Новый ОписаниеТипов("Число"),"кол"); ТЗ.Колонки.Добавить("сум",Новый ОписаниеТипов("Число"),"сум"); ДокТам =База.CreateObject("Документ.Продажа"); ДокТам.ВыбратьДокументы(ДатаНачала,ДатаКонца); пока ДокТам.ПолучитьДокумент() = 1 цикл ДокТам.ВыбратьСтроки(); пока ДокТам.получитьстроку() = 1 цикл Стр = ТЗ.Добавить(); Стр.Представление = ДокТам.Концерт.Наименование; //Стр.ДатаД =Н; //ТЗ.ДатаД = ДокТам.ДатаДок; //////представление СпрСпект = База.CreateObject("Справочники.ВидыСпектаклей"); СпрСпект.ВыбратьЭлементы(); //Сообщить("_1_"+ДокТам.Концерт.ID); Если НЕ ЗначениеЗаполнено(ДокТам.Концерт.ИД) = 1 тогда Сообщить("Мероприятие с ID "+СокрЛП(ДокТам.Концерт.ИД)+" не найденно"); иначе Если СпрСпект.НайтиПоКоду(ДокТам.Концерт.ИД) = 1 тогда ТЗ.Представление =СпрСпект.ТекущийЭлемент(); иначе Сообщить("Мероприятие с ID "+ДокТам.Концерт.ИД+" не найденно"); Конецесли; Конецесли; Выдает ошибку на СпрСпект = База.CreateObject("Справочники.ВидыСпектаклей")? |