|
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) вообще удивительно - в некоторых функциях у меня без ВыбратьСтроки() прописано но все работает прекрасно
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |