Здравствуйте. Конфигурации ТИС-Комплексная .
Требуется из ТиС одновременно работать в Комплексной.Главная задача- одновременно создавать определенный документ сразу в двух базах. Подскажите 1. Как сделать, чтобы при входе один раз подключиться к базе-приемнику и в ней работать.Я прописал в глобальном функцию подключения и в принципе, подключаюсь, но при записи каждого документа приходиться вновь подключаться. Вот код который прописан в глобальном ПриНачалеРаботыСистемы(). Как из документа обращаться к уже открытой базе?
БазаИсточник = СоздатьОбъект("V77.Application");
    Путь=Строка("D:\1C_Base\Копия\");
    Пользователь="";
    пароль="";
    Открыта = БазаИсточник.Initialize(БазаИсточник.RMTrade, "/D" + СокрЛП(Путь) + " /N" + Пользователь + "/P" + Пароль, "");
    Если Открыта = 0 Тогда
        Предупреждение("Ошибка открытия информационной базы ");
  
        Иначе
        Сообщить("База доступна");
  
    КонецЕсли

(82) Ну сколько раз повторять - не ношу я кепку...

(83) тебя никто носить и не просит... ты ее одень, и пусть висит...

(80) давно было .. подзабыл, но при интенсивной работе с базой + записью через олю - вешалась она, приходилось мутить примочки, чтобы отследить сообщения системы о падении и перезапускать 1с, делать систему очередей и пр., тонкостей и деталей не помню

(0) А тебе непременно через олю надо ? Т.е. вот прям щаз дублировать документ или он проsто должен возникнуть в другой базе sо временем и позицией как первой ?

(82)Так мужик сказал- БазаПриемник.док.УстановитьВремя(ч,м,с), это я понял, но как извлечь эти ч,м,с из БазаИсточник.Док не говорит

Оля нормальная. Просто Вы не умеете её готовить © :)
Отлаживается нормально, только при попытке ввести переменную в табло отладчика - она тут-же виснет окончательно и бесповоротно.
Потому, если надо смотреть значения - позаботьтесь ввести нужные переменные в табло отладчика до запуска обработки..
Или, по крайней мере, до старта оператора CreateObject.

(88) ВО! Я на этом уже попался- зависло все к чертям, пришлось сеанс РДП сбрасывать принудительно. Спасибо, а я думал это ОЛЕ так нагружает сервак

(88) а зачем там отладчик?

(90) Чтобы не вслепую шарить по кишочкам 1С-программы :)

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

(92) Есть разные способы, друже! :)
И все они имеют право на существование

(93) согласен. но как-то принято выбирать наименее геморройные способы...
хотя... "Каждый - сам кузнец своего геморроя..."©

отладчик придумали трУсы!!

(95) А смелые люди придумали метод научного тыка :)

(96) а храбрые - убирают слово "научный" :-)

(96) (97) Ага... Вчера в НИИ цитологии и генетики методом научного тыка было получено удовольствие...

(98) это там, где недавно ученые скрестили слона с верблюдом? не науки ради, а чисто поржать?

100
(99) нет. Это там, где ежа с ужом скрещивали....

(100) у нас в миассе, видимо, скрещивают... Егоза получается...

(101) Кого за что??

(100) http://прямойпоставщик.рф/images/stories/virtuemart/product/_________________50aa9e529b87c.png

(102) ежей со змеями в пробышленных масштабах

(104) у тебя буква Ё сломалась? ))

(105) нет. точки кончились

(106) Хочешь, продам точек над Ё? И ещё галочек над Й....

(107) не надо, я от i точек наковыряю...

(108) А не на Майдане ли ты пойдёшь их ковырять??

(109) а тебе что, майдановцев жалко?

(109) или ты там уже все отковырял?

(111) А ты думал, откуда я столько точек набрал? )))

(87) ты не поверишь... ПолучитьВремя()!
неожиданно, да?

(113) Да ты гений!!

(114) :-[ да... я знаю :-[:-[

(115) Причем Гений 1С! )))))))))

(113) Да, а получу я время интересно, еще не записанного Дока? Планируется то в ПриЗаписи() вставлять (скорее всего) обработку Выгрузить(), которая и будет орудовать через ОЛЕ в Базе2. Или в этом случае это невыполнимая задача?

(116) не... чужие ники мне не зачем )))
(117) не надо ни в при записи ни, тем более, в припроведении такие вещи делать

(118) А как правильно тогда?

(119) Ты (86) - оголовочек-то зирни

(120) в принципе, подошел бы и такой вариант (86). Что то предложите?

возникла проблемка при подключении к БАЗЕ2. Т.к. функция подключения прописана в глобальном в ПриНачалеРаботыСистемы(), то при запуске главной базы она подвисает на несколько секунд, затем появляется окно логин/пароль от второй базы. И если в этот момент юзер просто клацнет по уже открытому окну  ГЛАВНОЙ базы, то маленькое окошко с логин/пароль прячется как бы за основное, и его никак не достать, не свертыванием всех окон никак- только через дмиспетчер задач с принудительной остановкой. Как это исправить, ну или поставить тайм-аут на вход во вторую базу - если логин/пароль не вводится за 5 сек., то завершаем работу в главной базе. Повторю код инициализации подключения
    Открыта = БазаИсточник.Initialize(БазаИсточник.RMTrade, "/D" + СокрЛП(Путь) + " /N" + СокрЛП(Пользователь) + "/P" + Пароль, "");
    Если Открыта = 0 Тогда
        Предупреждение("Ошибка открытия информационной базы");
        глПодклОЛЕ=0;
    Иначе
        глПодклОЛЕ=1;
    КонецЕсли;
    
    глУстИмяОкна();

(122) вариант правильно прописать логин и пароль для доступа ко второй базе, не предлагать?

(123) Немного не поняли меня. Я пароли не хочу прописывать- планирую, чтобы сам юзер вводил его.Вот на моменте этого ввода и возникает трабла

(124) это ты не понял, когда тебе говорили, что не надо так делать.
тем более применять такой "гениальный" ход как в (122)

(125) "обходя грабли - ты теряешь драгоценный опыт!"©

(126) так известно же кто на чьих граблях учится...

(125) подскажи тогда, как правильно

(127) но детские грабли - лучше все-таки обходить..

(129) так значит подключаться при начале работы системы это теперь по -децки? А в начале советовали именно в глобальном прописать. Каким образом тогда прописать подключение? я все таки рхочу попробовать делать обмен онлайн. тем более там три дока всего

(130) прописать в глобальном советовали переменную, хранящую подключение.
--------
запрашивай у юзверя логин и пароль (ну, или только пароль), и подключай строкой из (122)
зы. чем неприятны детские грабли - у них ручка короткая. до лба не достает, достает лишь до ...

(131) так я же именно так и сделал.
перем БазаИсточник Экспорт;
и юзвери подключаются , но иногда окошко ввода пароля "прячется" как описал выше. потому чтг не дождавшись появления этого запроса пароля клацнут мышкой.

Сделай проще...
Запроси пароль у пользователя из своей 1с. Оттуда оно уже не спрччется (если не опубликованное приложение)

(0) Зачем под каждым сеансом открывать новую копию по OLE...Все равно бесполезная задача в части тормозов при создании документов по OLE в обработчиках событий, юзеры жаловаться начнут.
Создай один сеанс для робота, тот пусть по журналу регистрации собирает события или придумай справочник регистрации событий, далее по расписанию, хоть каждую минуту выгружает нужные документы/справочники.

(133) Вот это дельный совет, без тыканья в какашки. Спасибо добрый человек!
Создал обработку "ПодключитьОЛЕ" только с одной переменной "ВводПароля",т.к. ИмяПользователя легко передать (имена есс-но одинаковые) перенес процедуру подключения из глобального в модуль обработки, в глобальном же только ПриНачалеРаботыСистемы()вызываю нужному юзверю эту обработку, где ему предлагается только ввести пароль и вуаля, все подключено и ничего не прячется)).

(135) дык я об этом в (131) сказал :-)

(134) Робот- наверное круто, но и сложновато для меня. Попробую топором пока поработать). У меня всего 10/12 подключений + 2/3сессии планируются по ОЛЕ. Плюс переносить 3-4 дока всего. Надеюсь что сильно не затормозит. По крайней мере без ОЛЕ все летает, только в конце месяца бывает притормаживает и то слегка.

(137) зачем вообще нужно практически олнлайн создание документа в другой базе?

(138) Та оно то может и не нужно, просто в противном случае надо отслеживать все изменения, в т.ч. и задним числом. А в случае "он-лайн" планируется не только новые создавать, но и уже записанные находить по какому-нибудь ID и перезаписывать, в случае этих самых изменений

(139) т.е. оно не нужно, но ты будешь делать.... все ясно )

(140)нужно/ненужно надо отбросить думаю. Главная задача- не пропустить какие то изменения. Вот (134) подсказывает создать журнал регистраций изменений или справочник- но я не совсем понимаю как туда записать эти изменения, особенно в справочник...

(141) Подними УРБД, и автоматом получишь эту регистрацию :-)

(141) журнал регистраций не подходит для сливания ВСЕХ действий...

проще при открытии документа/элемента - писать все значения его реквизитов в файл... при необходимости будешь сравнивать, что в файле, что в базе и быстрее и проще

(143) жуть какая... кто тебя укусил?

(144) всяко лучше чем забивать ЖР или на каждый чих - писать по оле в другую базу...

(145) ну, это да.
можно, в принципе, писать только изменения. Программные только не отследить без дополнительных телодвижений.

(142) Есть такой вариант, подсказывали мне на другом форуме. И я так понимаю нужно мониторить только файл 1SUPDTS.DBF и оттуда "вытягивать" какой док изменили? При переводе на распределенку в доки и элементы справочников какой то реквизит прописывается на автомате, типа ID, или каким способом эти доки ищутся, сопоставляются?

(147) Нет, ид и тип измененного элемента пишется в апдейтс. а уж оттуда бери,изи объект и записывай хоть тетей олей, хоть кд, хоть карандашом...

(148) попробую покурить уриб этот, может чего и выкурю. Надо сперва глянуть в каком формате в апдейтс этот записывается. остальные два файла не понадобятся я так понимаю?

(148) т.е. простыми словами- понятно ли в ДБФнике, что делали с этим доком- просто изменили, пометили на удаление или сделали непроведенным например?

(150) простыми словами - если след этогообъекта есть в апдейтсе - то с этим объектом что-то делали. Либо изменяли, либо как минимум просто перезаписали

(151) Эт я понял ). Мыслю как обработать этот объект. Наверное- сперва перезаписать заново в любом случае, а потом уже проверить и проставить статус- Если Док.ПометкаУдаления()=1 тогда БазаИсточник.Док.ПометкаУдаления()=1 . Верно?

(152) чиво?

(153) Т.к. переносить собираюсь только доки, то и пишу применительно к докам.
1.Находим нужный док по меткам в апдейтсе.
2.Перезаписываем его в База2 с изменениями какие там были.
3.Проверяем статус дока (проведен/удален/снят с проводки)- делаем тоже самое в База2

(154) ну дык и
1)делаешь регистрацию толко доков нужного вида
2) читаешь апдейтс, по иду ищешь док.
3)пишешь его по оле, или отправляешь КД, или еще как.
4)ну и удаляешь (либо сказу, либо по квитанции)

(155) 4)ну и удаляешь (либо сказу, либо по квитанции)
Не совсем понял, но догадываюсь- апдейтс этот удалять? А "по квитанции" это если обратную выгрузку из подчиненной базы сделать, что бы главная поняла, что изменения на данный момент внесены и в следующий раз не отправляла то же самое?

(156) 1.строчку из апдейтса  удалять. с идом объекта (документа в данном случае)
2.да

(154) после всего этого, у тебя в двух базах два одинаковых документа и зачем все эти пляски с бубнами?

Ага, то-бишь, обратную выгрузку из базы-приемника так же делать обязательно, иначе Головная база не поймет записаны изменения или нет и будет слать одно и то же каждый раз?

(158) в каких двух? тех что по урбд спарены?

(159) да.
Зато эта хрень сработает на уровне платформы при любом изменении объекта (перепроведении пр восстановлении последовательности, например)

(160) да.

(161) Да, это неоспоримый плюс этой хрени. Хоть над этим голову ломать не прийдется, кто чего поменял там. Единственно- надо все делать в четкой последовательности- Выгрузка из головной базы-перенос в БАЗА2- выгрузка из подчиненной в головную с заменой апдейтс. Если нарушить последовательность- то куку.

(163) всегда нужно понимать, что делаешь (что происходит "у нее унутре"©). тогда последовательность сама складывается...

(164) Само собой, но бывают и на старуху... Вот например- есть у меня обработка одна (не моя-скачал) удаляет все что надо. Хотел удалить только помеченные на удаление доки, а в запаре удалил все за один день. Потом восстанавливал с бумаги(((. Я к тому, что в идеале конечно, чтобы даже самый тупой юзверь нажав на одну кнопочку,получил нужный результат. Но это уже сторониие проги надо задействовать наверное- скрипты или х.з. что еще?

Покрутил вариант УРБД->ОЛЕ, в принципе алгоритм понятен. Здесь же на мисте нашел обработку, которую хороший человек выложил Книга знаний: Нетипичное использование компоненты УРБД в системе 1С:Предприятие 7.7 . Она позволяет вытянуть из 1SUPDTS.DBF в табло в текстовом варианте перечень измененных объектов в виде таких вот строк "Объект: Счет-фактура АА-0000769 (11.04.16)" реализовано так:
стр="{""O"",""0"",""0"","""+тип+""",""0"",""0"","""+объ+"""}";
      о=ЗначениеИзСтрокиВнутр(стр); //документ
Сообщить("Объект: "+о);

Как бы эту инфу засунуть в удобоваримый формат, а? Например в ДБФник какой со столбцами ВидДока и НомерДока или еще как

(166) Апну, может кто поможет всё-таки, прописать данные в ДБФ-файл?

вопрс-то в чем?

(168) в (166). Не могу разложить данные, которые вытягиваются из АПДЕЙТС в файл ДБФ, для их дальнейшей аналитики иэкспорту соотв. доков по ОЛЕ

(169) А зачем тебе использовать всякие левые форматы, если нормальный кошерно-халяльный 1с++:

(168) вот полный код тогда, чтоб не "нагружать" вас лишними движениями

///////////////////////////////////////////////////////////////////////
Процедура Выполнить()
  dbf=СоздатьОбъект("XBASE");
  
  ИмяФайла=КаталогИБ()+"1SUPDTS.DBF";
  
  Если фс.СуществуетФайл(ИмяФайла)=0 Тогда
    Сообщить("Таблица 1SUPDTS.DBF не найдена. Возможно, не установлена компонента УРБД.", "!");
    Возврат;
  КонецЕсли;
  
  dbf.ОткрытьФайл(ИмяФайла,,1);
  Если dbf.Открыта()=0 Тогда
    Сообщить("Таблица 1SUPDTS.DBF заблокирована. Запустите 1С в разделенном (не монопольном) режиме.", "!");
    Возврат;
  КонецЕсли;
  
  Если dbf.Первая()=0 Тогда
      Сообщить("Файл 1SUPDTS.DBF пустой.");
      Возврат
  КонецЕсли;    
  Пока 1=1 Цикл
    TYPEID=dbf.TYPEID;
     стр=dbf.OBJID;
      
    //Отделяем идентификатор базы (последние 3 символа)
    ИДБазы=Прав(стр,3);
    стр=Лев(стр, СтрДлина(стр)-3);
    стр=СокрЛП(стр);
      
    //Переводим в формат базы 1С
    OBJID=_StrToID(стр);
    тип=_StrToId(TYPEID);
      
      //Дополняем пробелами слева
    Пока СтрДлина(OBJID)<10 Цикл
      OBJID=" "+OBJID;
    КонецЦикла;    
      
    //Дополняем идентификатором базы
      
    объ=""+OBJID+ИДБазы;
          
    стр="{""B"",""0"",""0"","""+тип+""",""0"",""0"","""+объ+"""}";
    о=ЗначениеИзСтрокиВнутр(стр); //справочник
      
    Если ПустоеЗначение(о)=1 Тогда
      стр="{""O"",""0"",""0"","""+тип+""",""0"",""0"","""+объ+"""}";
      о=ЗначениеИзСтрокиВнутр(стр); //документ
    КонецЕсли;
      
    //выводит ссылки на объекты (например, названия товаров)    
    Сообщить("Объект: "+о);
      
    Если dbf.Следующая()=0 Тогда
      Прервать;
    КонецЕсли;
  КонецЦикла; //по записям DBF
  dbf.ЗакрытьФайл();
КонецПроцедуры

(169) TypeId - это который тип, пятый параметр во внутреннем представлении. Objid - ид объекта, надо взять первые 6 символов, перевести из 36-ричной, и добавить последние три.
Первый параметр - показывает, документ это или справочник или еще что. O- документ, B-справочник, если память не изменяет

(170) С этим не общался даже)). Осилю ли я такое- это главный вопрос для меня. с ДБФ уже как сос воей рубашкой. Спасибо за наводку. Попробую по свободе вникнуть

(172) Верно, человек, который составил этот (171) код так и сделал- тип=_StrToId(TYPEID); Но в итоге там у него выводится только сообщение в окно, я попробовал хотя бы в текстовый загнать вот этим- ЗначениеВФайл("111.txt",о,1); где
стр="{""O"",""0"",""0"","""+тип+""",""0"",""0"","""+объ+"""}";
      о=ЗначениеИзСтрокиВнутр(стр);//документ
но выводится такое - {"S","0","0","0","0","0",""},
а хотелось бы в ДБФ получить два/три столбца "тип","НомерДок", "датаДок"

(174) чо за бред?

(175) может и бред, не знаю как объяснить еще проще. Тогда так: есть АПДЕЙТС, нужно расшифровать оттуда данные и перенести их в ДБФ в том виде, в котором указал. Потом уже этот ДБФ анализировать сторонней обработкой. По крайней мере ДБФ можно и визуально просмотреть.

(176) как получить объект из тайпид и обжид - сказали. как из объекта получить данные - ну дык как всегда: объект.ДатаДок, объект.НомерДок...

(172) //Objid - ид объекта, надо взять первые 6 символов, перевести из 36-ричной, и добавить последние три. //
Не совсем понял- ОБЖИД у доков такой "OJYET00" (7символов), у справочников-7XWT00 (6символов). Что за последние 3 символа, откуда брать?

(178) Ид - всегда 9 символов. из них первые 6 (они в 36-ричной системе) - это порядковый номер(в ИБ создания), грубо говоря... а последние 3 символа - префикс ИБ от УРБД.
зы. есличо - пробел тоже символ

Во блин, засада какая-то. Хочу время поназначать докам и никак не устанавливается((. Что не так подскажите?
//=============================
Перем Ч,М,С;
    Счет=СоздатьОбъект("Документ.Счет");
        олеСчет=БазаИсточник.CreateObject("Документ.Счет");
            Для н=1 по Кво Цикл  
        ТВ=ТекущееВремя();
        Ч = Число(Лев(ТВ,2));
        М = Число(Сред(ТВ,4,2));
        С= Число(Прав(ТВ,2));
        Счет.Новый();
        Счет.ДатаДок=ДатаОтчета;
        Счет.Фирма=ТОВ;
        Счет.УстановитьВремя(Ч,М,С);
        Счет.Записать();

        олеСчет.Новый();
        олеСЧЕТ.НомерДок=Счет.НомерДок;
         олеСЧЕТ.Фирма=БазаИсточник.Константа.БазФирма;
        олеСчет.ДатаДок=ДатаОтчета;
        олеСчет.УстановитьВремя(Ч,М,С);
        олеСчет.Записать();  
        С=С+10;
        
            н=н+1;
    КонецЦикла;

(180) На этот раз успел быстро грабли убрать

Счет.Записать();
Счет.УстановитьВремя(Ч,М,С);
        Счет.Записать();

Теперь не могу найти док через ОЛЕ по реквизиту.(нужно сравнить доки в текущей базе и в БазаИсточник по реквизиту "олеид"- общий реквизит документов.
Сделал следующее-
///////////////////////////
олеДок=БазаИсточник.CreateObject("Документ");
Если олеДок.ВыбратьПоЗначению(НачГода(ТекущаяДата()),ТекущаяДата(),"олеид",Док.олеид)=1 тогда
олеСчет=олеДок.ТекущийДокумент();

ругается- неверное имя реквизита! Проверил, имя такое же как и указал.