Имя: Пароль:
1C
1C 7.7
v7: Подключиться из 8.2. к 7.7. и сравнить табличные части.
0 Трик
 
16.12.14
07:53
Добрый день.

Как из 8.2. Сравнить табличные части с семеркой?

Могу ли я получить таблицу значений запросом из 7.7 в 8.2? Как это сделать?

с 7.7. уже лет 7 не работаю, не помню :).
1 фобка
 
16.12.14
07:56
Ком соединение, ищешь документ, сравниваешь
2 Трик
 
16.12.14
08:01
(1) А запросом реально или просто перебрать тч документа?
3 Banned
 
16.12.14
08:18
(2) Перебирай
4 lxndr
 
16.12.14
08:27
(2) сереньким запросом можно
5 PuhUfa
 
16.12.14
08:33
ВыгрузитьТабличнуюЧасть()
6 Абыр
 
16.12.14
09:01
внешние источники данных, ADO, OLE
7 Трик
 
16.12.14
09:46
(3) А как там в 7.7 Перебрать Тч документа?
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 Цикл
        Если ЗначениеЗаполнено(Фирма) Тогда
            КодФирмы = СокрЛП(ВыбДок.Фирма.Код);
            Если КодФирмы <> СокрЛП(Фирма.Код) Тогда
                Продолжить;
            КонецЕсли;
        КонецЕсли;
        
            Док = ЗагрузитьДокумент(выбДок,Истина,ЗагрДок);

    КонецЦикла;
КонецФункции
9 Трик
 
16.12.14
09:56
Ага спасибо.
10 Godofsin
 
16.12.14
09:57
(8) А разве .ВыбратьСтроки() уже не нужно?
11 Dmitrith
 
16.12.14
10:37
(10) вообще удивительно - в некоторых функциях у меня без ВыбратьСтроки() прописано но все работает прекрасно
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.