Реферат: Взаимодействие через OLE

БазаОле=СоздатьОбъект("V77.Application"); // Получаем доступ к OLE объекту 1С

Локальная версия (на одного пользователя):

V77L.Application

Сетевая версия:

V77.Application

Версия SQL:

V77S.Application

КаталогБазыОЛе = "C:\program files\1cv77\МояБаза\";

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

ПарольОле = "qwerty";

МонопольныйРежимOLE = " /m"; // для немонопольного запуска указать пустую строку!

ЗапускБезЗаставки = 1; // для появления заставки (например, чтобы наблюдать

// процесс запуска базы OLE визуально) поставьте здесь "0"

РезультатПодключения = БазаОле.Initialize ( БазаОле.RMTrade , "/d" +

СокрЛП(КаталогБазыОле) + " /n" + СокрЛП(ПользовательОле)+

" /p" + СокрЛП(ПарольОле) + МонопольныйРежимOLE,

?(ЗапускБезЗаставки = 1, "NO_SPLASH_SHOW", ""));

Если РезультатПодключения = 0 Тогда

Предупреждение("Не удалось подключится к указанной базе - проверьте вводные!");

КонецЕсли;

ЗначениеКонстантыOLE = БазаОле.Константа.ДатаЗапретаРедактирования;

СпрOLE = БазаОле.CreateObject("Справочник.Фирмы"); // "СоздатьОбъект" в OLE не работает!

ДокOLE = БазаОле.CreateObject("Документ.РасходнаяНакладная");

СпрОле.ВыбратьЭлементы();

Пока СпрОле.ПолучитьЭлемент()=1 Цикл

Сообщить(Спр.Наименование);

КонецЦикла;

СпрOLE = БазаОле.CreateObject("Справочник.Фирмы"); // это справочник в базе OLE

Док = СоздатьОбъект("Документ.РасходнаяНакладная"); // а это документ в местной базе

Док.Новый(); // создаем новый документ в местной базе

СпрOLE.НайтиПоКоду(1, 0); // спозиционируем в базе OLE

// на фирме с кодом "1".

Док.Фирма = СпрOLE.ТекущийЭлемент(); // такой метод не сработает, т.к. справа от "=" стоит

// объект не местной базы, и местная база 1С его не понимает!

Спр = СоздатьОбъект("Справочник.Фирмы"); // создаем объект справочника местной базы

Спр.НайтиПоНаименованию(СпрОле.Наименование, 0, 0); // Или Спр.найтиПоКоду(СпрОле.Код, 0);

// т.е. СпрОле.Код и Спр.наименование

// являются обычными числовыми/строковыми

// значениями, которые понимает местная база!

Док.Фирма = Спр.ТекущийЭлемент(); // Вот теперь все в порядке, т.к. с обоих сторон метода

// стоят объекты только местной базы!

ДокОле = CreateObject("Документ.РасходнаяНакладная"); // Создаем документ в базе OLE

ДокОле.Новый();

Спр = СоздатьОбъект("Справочник.Фирмы"); // В местной базе получаем доступ к справочнику

Спр.НайтиПоКоду(1, 0); // Находим в местной базе фирму с кодом 1 (если есть)

ДокОле.Фирма = Спр.ТекущийЭлемент(); // такой метод не сработает

СпрОле = БазаОле.CreateObject("Справочник.Фирмы"); // создаем объект справочника базы OLE

СпрОле.НайтиПоНаименованию(Спр.Наименование, 0, 0); // Или СпрОле.найтиПоКоду(Спр.Код, 0);

// т.е. Спр.Код и Спр.Наименование являются обычными числовыми/строковыми значениями,

// которые понимает база OLE!

ДокОле.Фирма = СпрОле.ТекущийЭлемент(); // Вот теперь все в порядке, т.к. с обоих сторон

// метода стоят объекты базы OLE!

ДокОле.Записать(); // запишем документ в базе OLE

Если ДокОле.Провести()=0 тогда

Сообщить("Не смогли провести документ!");

КонецЕсли;

РегОле=БазаOLE.CreateObject("Регистр.ОстаткиТоваров");

РегОле.ВыбратьИтоги();

Пока РегОле.ПолучитьИтог()=1 Цикл // Не забываем, что надо указывать наименование!

Сообщить("Остаток для " + РегОле.Товар.Наименование+ " на складе " +

РегОле.Склад.Наименование + " равен " + РегОле.ОстатокТовара);

КонецЦикла;

ЗначениеПеречисленияOLE = БазаОле.Перечисление.Булево.НеЗнаю; // :)

СмотретьТолькоВозвратыПоставщикам = 1; // предположим, что это - флажок в форме диалога,

// который мы либо устанавливаем, либо снимаем

ДокОле = БазаОле.CreateObject("Документ.РасходнаяНакладная");

ДокОле.ВыбратьДокументы(НачДата, КонДата); // НачДата и КонДата - также реквизиты формы

// диалога, но база OLE прекрасно их понимает -

// ведь это же даты!

Пока ДокОле.ПолучитьДокумент()=1 Цикл

Если СмотретьТолькоВозвратыПоставщикам = 1 Тогда

Если ДокОле.ПризнакНакладной <> БазаОле.Перечисление.ПризнРасхНакл.ВозвратПоставщику Тогда

Продолжить;

КонецЕсли;

Иначе

Если ДокОле.ПризнакНакладной = БазаОле.Перечисление.ПризнРасхНакл.ВозвратПоставщику Тогда

Продолжить;

КонецЕсли;

КонецЕсли;

Сообщить(ДокОле.Вид() + " № "+ДокОле.НомерДок + " от " + ДокОле.датаДок);

КонецЦикла;

СчтОле=БазаОле.CreateObject("Счет");

СчтОле.НайтиПоКоду("10.5"); // нашли в базе OLE счет 10.5

ВидСубконтоКонтрагентыОле = БазаОле.ВидыСубконто.Контрагенты;

ДатаАктуальностиОле = БазаОле.EvalExpr("ПолучитьДатуТА()");

// Возвращает дату актуальности

ИмяПользователяОле = БазаОле.EvalExpr("ИмяПользователя()");

// возвращает строку

//

// попробуем теперь получить числовое значение НДС у элемента номенклатуры

// через функцию глобального модуля ПроцентНДС(СтавкаНДС) Экспорт!

ТовОле = БазаОле.CreateObject("Справочник.Номенклатура");

ТовОле.ВыбратьЭлементы();

// Найдем элемент справочника (не группа!)

Пока ТовОле.ПолучитьЭлемент()=1 Цикл

Если ТовОле.ЭтоГруппа()=0 Тогда

Прервать;

КонецЕсли;

КонецЦикла;

ЧисловоеЗначениеПроцентаНДСТовараОле = БазаОле.EvalExpr("ПроцентНДС(Перечисление.ЗначенияНДС." +

ТовОле.СтавкаНДС.Идентификатор()+")");

// ВыбФирма, НачДата, КонДата, ВыбДокумент - реквизиты диалога в местной базе

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

ДокОле = БазаОле.CreateObject("Документ.РасходнаяНакладная"); // объект базы OLE

Док = СоздатьОбъект("Документ.РасходнаяНакладная"); // а это - его аналог в местной базе

Спр = СоздатьОбъект("Справочник.Фирмы"); // а это - местный справочник фирм

ДокОле.ВыбратьДокументы(НачДата, КонДата);

Пока ДокОле.ПолучитьДокумент()=1 Цикл

// Ищем в местном справочнике фирм аналог фирмы из базы OLE (по коду)…

Если Спр.НайтиПоКоду(ДокОле.Фирма.Код, 1)=0 Тогда

Сообщить("Найден документ с неизвестной фирмой! Ее код: " + ДокОле.Фирма.Код);

// На самом деле, она может быть просто не указана :))

Если ДокОле.Фирма.Выбран()=0 Тогда

Сообщить("Извините - она просто не указана! :))");

КонецЕсли;

ИначеЕсли Спр.ТекущийЭлемент()=ВыбФирма Тогда

Сообщить("Найден документ указанной вами фирмы! № "+ДокОле.НомерДок+" от "+ДокОле.ДатаДок);

КонецЕсли;

// Ищем аналог документа в местной базе

Док.НайтиПоНомеру(ДокОле.НомерДок, ДокОле.ДатаДок);

Если Док.Выбран()=1 Тогда

Сообщить("Документ № "+Док.НомерДок + " от " + Док.ДатаДок + " уже есть!");

Если Док.ТекущийДокумент() = ВыбДокумент Тогда

Предупреждение("Приз в студию! Найден указанный вами документ!!!");

КонецЕсли;

Иначе

Сообщить("Документ № "+ДокОле.НомерДок+" от "+ДокОле.ДатаДок+" не найден в базе!");

КонецЕсли;

КонецЦикла;

// А заодно и получим остаток товара в базе OLE:

РегОле = БазаОле.CreateObject("Регистр.ОстаткиТоваров");

ТовОле = БазаОле.CreateObject("Справочник.Номенклатура");

ТовОле.НайтиПоКоду(ВыбТовар.Код, 0);

ФрмОле = БазаОле.CreateObject("Справочник.Фирмы");

ФрмОле.НайтиПоКоду(ВыбФирма.Код, 0);

ОстатокТовараНаСкладеОле = РегОле.СводныйОстаток(ТовОле.ТекущийЭлемент(), ,

ФрмОле.ТекущийЭлемент(), "ОстатокТовара");

// ДокОле - документ базы OLE, и уже спозиционирован на нужном нам документе,

// Док - документ местной базы (например, новый), который мы пытаемся заполнить

// реквизитами из документа базы OLE…

// Будем считать, что реквизиты типа "справочник" мы уже перенесли :)

// Преобразуем перечисление - и не говорите потом - с ума сойти, как оказалось все просто!

Если ПустоеЗначение(ДокОле.ПризнакНакладной.Идентификатор())=0 Тогда

// если не проверим реквизит на пустое значение - нарвемся на ошибку 1С

Док.ПризнакНакладной = Перечисление.ПризнРасхНакл.ЗначениеПоИдентификатору(

ДокОле.ПризнакНакладной.Идентификатор()); // Что и требовалось сделать

КонецЕсли;

// Преобразуем вид субконто

Если ПустоеЗначение(ДокОле.ВидСубконтоСчетаЗатрат.Идентификатор())=0 Тогда

// если не проверим реквизит на пустое значение - нарвемся на ошибку 1С

Док.ВидСубконтоСчетаЗатрат = ВидСубконто.ЗначениеПоИдентификатору(

ДокОле.ВидСубконтоСчетаЗатрат.Идентификатор()); // Что и требовалось сделать

КонецЕсли;

Док.СчетУчета=СчетПоКоду(ДокОле.СчетУчета.Код); // присвоили документу реквизит счета

Если СчетПоКоду(ДокОле.СчетУчета.Код)=СчетПоКоду("10.5") Тогда

// Это именно счет 10.5 :)

КонецЕсли;

// Я специально оставил в "Если" функцию СчетПоКоду(), т.к. в планах счетов разных баз

// могут быть разные форматы счетов, и просто сравнение кода может привести к

// противоположному результату. (Кстати, и сам СчетПоКоду() тоже может иногда подвести,

// так что, вам решать - каким методом пользоваться…)

//**************************************************************

Перем СписокЗначенийЗапроса[10] Экспорт; // Мы в них "запихнем" значения для запроса

//**************************************************************

Функция СкорректироватьСписок(ИндексМассива,

Действие,

ТипОбъекта = "",

ВидОбъекта = "",

Параметр1 = "",

Параметр2 = "",

Параметр3 = "", // Ну и далее по параметрам, сколько надо

// …………………

Параметр99 = "") Экспорт

ИндексМассива=Число(ИндексМассива);

Если ИндексМассива = 0 Тогда

Возврат - 99; // Обышка: Не указали индекс массива ?

КонецЕсли;

Если Действие = 1 Тогда // Очистить список значений

СписокЗначенийЗапроса[ИндексМассива].УдалитьВсе();

Возврат 1;

ИначеЕсли Действие = 2 Тогда // Добавить объект в список

Если ТипОбъекта = "Документ" Тогда

Если ВидОбъекта = "" Тогда

Возврат - 99; // Обышка: Передавайте нормальный вид объекта!

КонецЕсли;

Попытка

Док = СоздатьОбъект("Документ."+ВидОбъекта);

Исключение

Возврат - 99; // Обышка: Попытка обращения к неверному объекту

КонецПопытки;

Если Док.НайтиПоНомеру(Параметр1, Параметр2)=1 Тогда

СписокЗначенийЗапроса[ИндексМассива].ДобавитьЗначение(Док.ТекущийДокумент());

Возврат 1; // Нашли документ

Иначе

Возврат 0; // Не нашли документ :(

КонецЕсли;

ИначеЕсли ТипОбъекта = "Справочник" Тогда

Если ВидОбъекта = "" Тогда

Возврат - 99; // Обышка: Передавайте нормальный вид объекта!

КонецЕсли;

Попытка

Спр = СоздатьОбъект("Справочник."+ВидОбъекта);

Исключение

Возврат - 99; // Обышка: Попытка обращения к неверному объекту

КонецПопытки;

// Параметр1 - Код

// Параметр2 - наименование

// Параметр3 - флаг глобального поиска

Если Спр.НайтиПоКоду(Параметр1, Число(Параметр3))=1 Тогда

СписокЗначенийЗапроса[ИндексМассива].ДобавитьЗначение(Спр.ТекущийЭлемент());

Возврат 1; // Нашли элемент

ИначеЕсли Спр.НайтиПоНаименованию(Параметр2, Число(Параметр3))=1 Тогда

СписокЗначенийЗапроса[ИндексМассива].ДобавитьЗначение(Спр.ТекущийЭлемент());

Возврат 1; // Нашли элемент

Иначе

Возврат 0; // Не нашли элемент :(

КонецЕсли;

ИначеЕсли ТипОбъекта = "Счет" Тогда

// Вид объекта - Идентификатор плана счетов

// Параметр1 - Код счета

Попытка

Если ВидОбъекта<>"" Тогда

ИскомыйСчет = СчетПоКоду(Параметр1, ПланСчетов.ЗначениеПоИдентификатору(ВидОбъекта));

Иначе

ИскомыйСчет = СчетПоКоду( Параметр1);

КонецЕсли;

Если ПустоеЗначение(ИскомыйСчет) = 1 Тогда

Возврат 0; // не нашли счет :(

Иначе

СписокЗначенийЗапроса[ИндексМассива].ДобавитьЗначение(ИскомыйСчет);

Возврат 1; // нашли счет

КонецЕсли;

Исключение

Возврат - 99; // Ошибка: Неверный тип объекта

КонецПопытки;

ИначеЕсли Действие = 3 Тогда // Вернуть размер списка

Возврат СписокЗначенийЗапроса[ИндексМассива].РазмерСписка();

Иначе

Возврат - 99; // Ошибка: Неверное действие

КонецЕсли;

Возврат - 999; // ???

КонецЕсли;

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

//**************************************************************

Процедура ПриНачалеРаботыСистемы()

// Данная процедура уже есть в глобальном модуле, просто надо

// дописать в ней несколько строк:

Для Сч=1 По 10 Цикл

СписокЗначенийЗапроса[Сч]=СоздатьОбъект("СписокЗначений");

КонецЦикла;

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

//**************************************************************

ТекстЗапроса = " Период с НачДата по КонДата; ";

ТекстЗапроса = " Период с '" + НачДата + "' по '" + КонДата + "';

// Будет типа '01.01.02'

// т.е. прямое представление даты, которое всегда поймет любой запрос

| Товар = Регистр.ОстаткиТоваров.Товар;

| Фирма = Регистр.ОстаткиТоваров.Фирма;

| Склад = Регистр.ОстаткиТоваров.Склад;

| Остаток = Регистр.ОстаткиТоваров.Остаток;

| Группировка Товар без групп;

| Группировка Документ;

| Функция НачОст = НачОст(Остаток);

| Функция КонОст = КонОст(Остаток);

| Функция ПрихОст = Приход(Остаток);

| Функция РасхОст = Расход(Остаток);";

// 1-й вариант - когда выбран элемент справочника (не группа).

// Самый простой случай - коды товаров совпадают абсолютно

// Вариант 1а.

Если ВыбТовар.Выбран()=1 Тогда

ТекстЗапроса = ТекстЗапроса + "

| Условие (Товар.Код = " +ВыбТовар.Код+");";

КонецЕсли;

// Вариант 1б. Чтоб запрос быстрее был:

// Вначале добавим к запросу переменную в общем списке:

| КодТовара = Регистр.ОстаткиТоваров.Товар.Код;

// А уж потом добавим к запросу условие (такое условие будет выполнятся проще, так как

// запрос при формировании таблицы запроса сразу сформирует отдельную колонку кодов и по

// ней уже будет отбирать, а не будет каждый раз при обработке товаров извлекать из них

// код):

Если ВыбТовар.Выбран()=1 Тогда

ТекстЗапроса = ТекстЗапроса + "

| Условие (КодТовара = " +ВыбТовар.Код+");";

КонецЕсли;

| Условие (Товар.ПринадлежитГруппе(КакаяТоГруппа)=1);

// Добавляем в списке переменных строку:

| КодРодителя = Регистр.ОстаткиТоваров.Товар.Родитель.Код;

// Далее пишем условие:

Если ВыбТовар.Выбран()=1 Тогда

ТекстЗапроса = ТекстЗапроса + "

| Условие (КодРодителя = " +ВыбТовар.Код+");";

КонецЕсли;

// В качестве домашнего задания - переписать условие по наименоваиню :)))

// Очистим список значений запроса

Результат = БазаОле.EvalExpr("СкорректироватьСписок(1, 1)");

// Закинем в список значений запроса группу товаров (он сам найдет ее в базе OLE)

// И запоминаем (в уме), что этой группе соответствует 1-е значение списка

Результат = БазаОле.EvalExpr("СкорректироватьСписок(1, 2 , ""Справочник"", """ +

Выбтовар.Вид())+ """, " + ВыбТовар.Код + ", """ +

ВыбТовар.Наименование + """)");

// Теперь закинем в список значений запроса группу клиентов

// И запоминаем, что этой группе соответствует 2-е значение списка

Результат = БазаОле.EvalExpr("СкорректироватьСписок(1, 2 , ""Справочник"", """ +

ВыбКлиент.Вид())+ """, " + ВыбКлиент.Код + ", """ +

ВыбКлиент.Наименование + """)");

// А еще до кучи и фирму из ВыбФирма

// И запоминаем, что этой фирме соответствует 3-е значение списка

Результат = БазаОле.EvalExpr("СкорректироватьСписок(1, 2 , ""Справочник"", """ +

ВыбФирма.Вид())+ """, " + ВыбФирма.Код + ", """ +

ВыбФирма.Наименование + """)");

// Теперь формируем текст запроса

ТекстЗапроса = " Период с '"+НачДата+ "' по '"+КонДата+"';

| Товар = Документ.РасходнаяНакладная.Товар;

| Замерзает = Документ.РасходнаяНакладная.Товар.ЗамерзаетЗимой;

| Признак = Документ.РасходнаяНакладная.ПризнакНакладной;

| Фирма = Документ.РасходнаяНакладная.Фирма;

| Клиент = Документ.РасходнаяНакладная.Клиент;

| Количество = Документ.РасходнаяНакладная.Количество;

| СуммаДок = Документ.РасходнаяНакладная.Сумма;

| Группировка Товар без групп;

| Группировка Документ;

| Функция СуммаОтгрузки=Сумма(СуммаДок);

| Условие (Признак<>Перечисление.ПризнРасхНакл.ВозвратПоставщику);

| Условие (Замерзает = " + ТолькоЗамерзающийЗимойТовар + ");

// Внимание! Начинается:

| Условие (Товар.ПринадлежитГруппе(СписокЗначенийЗапроса[1].ПолучитьЗначение(1))=1);

| Условие (Клиент.ПринадлежитГруппе(СписокЗначенийЗапроса[1].ПолучитьЗначение(2))=1);

| Условие (Фирма= СписокЗначенийЗапроса[1].ПолучитьЗначение(3));";

Запрос = БазаОле.CreateObject("Запрос");

Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда

Предупреждение("Запрос безутешен!");

Возврат;

КонецЕсли;

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

// конкретными клиентами…

// Предположим, индекс массива равен "2". Тогда в тексте запроса появится следующее:

| Условие (Клиенты в СписокЗначенийЗапроса[2]);