Имя: Пароль:
1C
1С v8
com-соединение
0 NushaX
 
11.10.11
15:34
подскажите как через ком-соединение в УТ 8.2 перетащить документы из 8.1, можно пример какой-либо?
1 Рэйв
 
11.10.11
15:38
(0)Для переносов лучше КД 2 пользуй
2 NushaX
 
11.10.11
15:40
мне нужно именно через com
3 izekia
 
11.10.11
15:42
и?
4 Рэйв
 
11.10.11
15:43
(2)Ну тогда ныряй:-)
http://kb.mista.ru/index.php?forum=1c&area=olecom
5 NushaX
 
11.10.11
15:44
да ну нет же! :( com - соединение я сделала, а вот верный запрос для документов не могу.. про это прошу.help?
6 Reset
 
11.10.11
15:46
(5) Запрос=COMСоединениеКотороеЯНуВСмыслеТыСделала.NewObject("Запрос");
Запрос.Текст="Выбрать ....."
7 Рэйв
 
11.10.11
15:47
Запрос=Соединение.NewObject("Запрос");

Запрос.Текст="Выбрать Док.Ссылка Из Документ.Имя КАК Док";

тРез=Запрос.Выполнить().Выгрузить();
Для н=0 По тРез.количество()-1 цикл
    Стр=тРез.Получить(н);
    Сообщить(""+Стр.Ссылка.Метаданные().Имя+" №"+Стр.Ссылка.Номер+" от "+Стр.Ссылка.Дата)
//... и т.д
Конеццикла;
8 izekia
 
11.10.11
15:47
КД2 не исключает использования кома, к слову
9 Рэйв
 
11.10.11
15:49
+(7)Но запаришься переносить ссылочные реквизиты.Это надо все их искать по коду или наименованию или еще по чему
10 NushaX
 
11.10.11
15:51
спасибо
11 NushaX
 
11.10.11
15:52
ну да, я вот над чеками сижу и думаю сложно с ними будет..
12 Alex S D
 
11.10.11
15:52
Кд .. зачем чето выдумывать
13 NushaX
 
11.10.11
15:54
не я выдумываю
14 Alex S D
 
11.10.11
15:57
Недавно делал КД правила + обмен по ком обработкой , которая идет с Кд, почему нельзя так сделать?
15 NushaX
 
11.10.11
16:16
а ну давай мне код) я так же сделаю)
16 Alex S D
 
11.10.11
16:21
К сожалению совесть не позволяет.. фото отсутствует.. как напишешь правила на КД, скажу что сделать дальше)
17 NushaX
 
11.10.11
16:26
с правилами разберусь и без фото)подсказывай что дальше ;)
18 Alex S D
 
11.10.11
16:30
(17) Ну а дальше выберешь эти правила в универсальном обмене, пропишешь параметры подключения к базе и готово
19 NushaX
 
11.10.11
16:34
вопщем у меня иначе.. и переделывать уж поздно, но ты не уходи далеко, у меня всегда вопросов много :)
например такой: почему все одинэсники и вобще кодеры - дикие жмотяры? (в плане наработок итп) неужели так жалко что кто то с их помощью узнает что то новое или заработает рублик?
20 H A D G E H O G s
 
11.10.11
16:36
(19) Лениво.
21 H A D G E H O G s
 
11.10.11
16:37
(19) Дятлы либо сами отомрут, либо сами обучатся, либо осилят оформление правильных тем на Мисте.
22 NushaX
 
11.10.11
16:37
да ладно!
23 Explorer1c
 
11.10.11
16:38
(20)я-рыдаю
24 H A D G E H O G s
 
11.10.11
16:39
(23) Что, так и не осилил просмотр c++ кода, которым 1С писан? Слабак!
25 Explorer1c
 
11.10.11
16:41
(24)Я-осилил,а-ты?
26 H A D G E H O G s
 
11.10.11
16:41
(25) Конечно. Лет так 5 назад еще.
27 NushaX
 
11.10.11
16:42
ого вы сильные какие!
28 DmitrO
 
11.10.11
16:46
(19) дарю

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Обработка = Обработки.УниверсальныйОбменДаннымиXML.Создать();
   ИмяВремФайла = ПолучитьИмяВременногоФайла("xml");
   ПолучитьМакет("Правила").Записать(ИмяВремФайла);
   Обработка.ИмяФайлаПравилОбмена = ИмяВремФайла;
   Обработка.ЗагрузитьПравилаОбмена();
   УдалитьФайлы(ИмяВремФайла);
   
   КаталогИБ = Неопределено;
   ИмяСервера = Неопределено;
   ИмяБазы = Неопределено;
   ПолучитьПараметрыСоединения(КаталогИБ, ИмяСервера, ИмяБазы);
   
   Обработка.РежимОбмена = "Выгрузка";
   Обработка.НепосредственноеЧтениеВИБПриемнике = Истина;
   Обработка.ВерсияПлатформыИнформационнойБазыДляПодключения = "V82";
   Обработка.ВыполнитьОбменДаннымиВОптимизированномФормате = Истина;
   Обработка.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки = 2;
   Обработка.АутентификацияWindowsИнформационнойБазыДляПодключения = Истина;
   
   Если КаталогИБ<>Неопределено Тогда
       Обработка.ТипИнформационнойБазыДляПодключения = Истина;
       Обработка.КаталогИнформационнойБазыДляПодключения = КаталогИБ;
   ИначеЕсли ИмяСервера<>Неопределено Тогда
       Обработка.ТипИнформационнойБазыДляПодключения = Ложь;
       Обработка.ИмяСервераИнформационнойБазыДляПодключения = ИмяСервера;
       Обработка.ИмяИнформационнойБазыНаСервереДляПодключения = ИмяБазы
   Иначе
       Предупреждение("Не указаны параметры подключения к базе бухгалтерии.");
       //Обработка.ИмяФайлаОбмена = "C:\000.xml";
       Возврат;
   КонецЕсли;
       
   
   Обработка.УстановитьЗначениеПараметраВТаблице("Организация", Организация);
   Обработка.ДатаНачала = Период.ДатаНачала;
   Обработка.ДатаОкончания = Период.ДатаОкончания;
   Обработка.ВыполнитьВыгрузку();
   Предупреждение("Экспорт выполнен.");
КонецПроцедуры
29 NushaX
 
11.10.11
16:50
В А У ! ничего себе :) вот. ты хороший :)
30 NushaX
 
11.10.11
16:51
хотя я уже почти доделала как мне надо было)