8
Dmitrith
16.12.14
✎
09:54
|
Как-то так:
Функция ПодключитьсяКИБ()
ПутьКИБ = "E:\77\Buh_New";
Попытка
v7 = Новый COMObject("V1CEnterprise.Application");
Исключение
Предупреждение("Не удалось произвести подключение к информационной базе");
Возврат Ложь;
КонецПопытки;
Открыта = v7.Initialize(v7.RMTrade, "/D""" + ПутьКИБ + """ /NАдмин", "NO_SPLASH_SHOW");
Если НЕ Открыта Тогда
Предупреждение("Не удалось произвести подключение к информационной базе");
КонецЕсли;
Возврат Открыта;
КонецФункции
// выбдок документ 77, загрдок документ 82
Функция ЗагрузитьДокумент(ВыбДок,Очищать,ЗагрДок)
ТЧДокумента = Док.Товары;
Если Очищать Тогда
ТЧДокумента.Очистить();
КонецЕсли;
Пока выбДок.ПолучитьСтроку() Цикл
КодТовара = выбДок.Номенклатура.Код;
Тов = НайтиСоздатьСправочник(КодТовара,Справочники.Номенклатура,выбДок.Номенклатура);
Стр = ТЧДокумента.Добавить();
КонецЦикла;
КонецФункции
Процедура ЗагрузитьИзТорговли()
Успех = ПодключитьсяКИБ();
ДатаНачалаСтр = Формат(НачПериода, "ДФ=dd.MM.yyyy");
ДатаОкончанияСтр = Формат(КонПериода, "ДФ=dd.MM.yyyy");
ВыбДок=v7.CreateObject("Документ");
ВыбДок.ВыбратьДокументы(ДатаНачалаСтр,ДатаОкончанияСтр);
Пока ВыбДок.ПолучитьДокумент() = 1 Цикл
Если ЗначениеЗаполнено(Фирма) Тогда
КодФирмы = СокрЛП(ВыбДок.Фирма.Код);
Если КодФирмы <> СокрЛП(Фирма.Код) Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
Док = ЗагрузитьДокумент(выбДок,Истина,ЗагрДок);
КонецЦикла;
КонецФункции
|
|