Есть 2 базы.

Источник: Доверительное управление (редакция 1.3).
Приемник: Бухгалтерия предприятия КОРП, редакция 3.0; Хомнет НФО КОРП, редакция 2.0.6.1 (3.0.47.35).

Нужно перенести проводки по некому отбору из источника в приемник.
Вижу что в источнике есть только проводки, формируемые документами.
В приемнике проводки привязаны видимо к операциям.

Подскажите по алгоритму правильного решения пожалуйста, кому не трудно.

Загружаешь структуру обеих баз в КД и делаешь правила КО из твоего документа в операцию бух.

(1) Я решаю делать сам, через .txt, не используя конвертацию.
Я так понимаю что мне нужно выгрузить данные регистра бухгалтерии из источника.

(2) И зачем тебе этот геморой? Это прикинь тебе надо будет прописывать логику создания и синхронизации справочников.

А в кд галочки натыкал и радуешься.

В БП грузить в операция бух, документ?
(4) там настраивать же нужно

(5) Только мозг. Надо сделать усилие.

Пусть делает, как хочет. Когда зашьется и поймет, что инфы куча получается перелопачивать надо - может сначала на dbf посмотрит, а потом пойдет талмуды по КД читать

Ну или наймет программиста )

(6) В КД из источника перенос регистра бухгалтерии в документ операция бух приемника?

(9) Документ Операция только регистратор. Переносить надо записи регистров

(9) Из документа источника в операция  бух приёмника.

если ТС не в курсе, то зачем ему было гранату давать?

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

(10)(9) ну да
записи регистра бухгалтерии с проводками из источника
там отдельно проводки, без операций кажется

а в приемнике, все это заносить в документы операция бух, да? Которые при записи, сформируют необходимые движения в регистре бухгалтерии приемника

(13) ЧТо значит - проводки отдельно без операций?

(14) ранее в 1с было, что проводки не могут быть без операции, проводки всегда привязаны к операции

(15) проводки это движения в регистре бухгалтерии, они в принципе не могут быть без регистратора. И раньше, и сейчас. Поэтому что означает фраза "там отдельно проводки, без операций кажется" мне вообще непонятно

А что за конфа "Доверительное управление"?

(17) наверное не типовая

Делаю запрос по проводкам.
Подскажите пожалуйста как его лучше оптимизировать?
С РегистрамиБухгалтерии не очень работал.


ВЫБРАТЬ
    ЕПСДвиженияССубконто.Период КАК Период,
    ЕПСДвиженияССубконто.Регистратор КАК Регистратор,
    ЕПСДвиженияССубконто.НомерСтроки КАК НомерСтроки,
    ЕПСДвиженияССубконто.Активность КАК Активность,
    ЕПСДвиженияССубконто.СчетДт КАК СчетДт,
    ЕПСДвиженияССубконто.СубконтоДт1 КАК СубконтоДт1,
    ЕПСДвиженияССубконто.ВидСубконтоДт1 КАК ВидСубконтоДт1,
    ЕПСДвиженияССубконто.СубконтоДт2 КАК СубконтоДт2,
    ЕПСДвиженияССубконто.ВидСубконтоДт2 КАК ВидСубконтоДт2,
    ЕПСДвиженияССубконто.СубконтоДт3 КАК СубконтоДт3,
    ЕПСДвиженияССубконто.ВидСубконтоДт3 КАК ВидСубконтоДт3,
    ЕПСДвиженияССубконто.СубконтоДт4 КАК СубконтоДт4,
    ЕПСДвиженияССубконто.ВидСубконтоДт4 КАК ВидСубконтоДт4,
    ЕПСДвиженияССубконто.СчетКт КАК СчетКт,
    ЕПСДвиженияССубконто.СубконтоКт1 КАК СубконтоКт1,
    ЕПСДвиженияССубконто.ВидСубконтоКт1 КАК ВидСубконтоКт1,
    ЕПСДвиженияССубконто.СубконтоКт2 КАК СубконтоКт2,
    ЕПСДвиженияССубконто.ВидСубконтоКт2 КАК ВидСубконтоКт2,
    ЕПСДвиженияССубконто.СубконтоКт3 КАК СубконтоКт3,
    ЕПСДвиженияССубконто.ВидСубконтоКт3 КАК ВидСубконтоКт3,
    ЕПСДвиженияССубконто.СубконтоКт4 КАК СубконтоКт4,
    ЕПСДвиженияССубконто.ВидСубконтоКт4 КАК ВидСубконтоКт4,
    ЕПСДвиженияССубконто.Портфель КАК Портфель,
    ЕПСДвиженияССубконто.ВидУчета КАК ВидУчета,
    ЕПСДвиженияССубконто.ВалютаДт КАК ВалютаДт,
    ЕПСДвиженияССубконто.ВалютаКт КАК ВалютаКт,
    ЕПСДвиженияССубконто.ЛицевойСчетДт КАК ЛицевойСчетДт,
    ЕПСДвиженияССубконто.ЛицевойСчетКт КАК ЛицевойСчетКт,
    ЕПСДвиженияССубконто.Сумма КАК Сумма,
    ЕПСДвиженияССубконто.ВалютнаяСуммаДт КАК ВалютнаяСуммаДт,
    ЕПСДвиженияССубконто.ВалютнаяСуммаКт КАК ВалютнаяСуммаКт,
    ЕПСДвиженияССубконто.КоличествоДт КАК КоличествоДт,
    ЕПСДвиженияССубконто.КоличествоКт КАК КоличествоКт,
    ЕПСДвиженияССубконто.Операция КАК Операция,
    ЕПСДвиженияССубконто.Содержание КАК Содержание,
    ЕПСДвиженияССубконто.ВидДокумента КАК ВидДокумента
ИЗ
    РегистрБухгалтерии.ЕПС.ДвиженияССубконто(&НачДата, &КонДата, Портфель = &Портфель, , ) КАК ЕПСДвиженияССубконто

(18) Опять кому-то помогаете?)

(19) Вы что им сделать хотите?

(20) работа.
(21) я хочу извлечь данные из регистра бухгалтерии
с отбором по периоду и некому измерению, - портфель.

ту ли виртуальную таблицу регистра бухгалтерии я использую?

(22) Работа и вы не знаете, с чем работаете?) Брр..
(23) Допустим, что ту. Вам эти движения нужны для того, чтобы загрузить их в совершенно другую конфигурацию. Вы уверены, что у вас в той конфигурации состав полей соответствующий этому?

(24) ну франч похоже. Перебрасывают от клиента к клиенту.

(24) Задача на начальном этапе, особо не в чем пока не уверен. Постепенно собираю информацию и продвигаю решение.

(24) Он "работает работу".

(27) всё чаще хочется говорить "франчи - позор 1С". Хотя раньше у меня такого не было... Старею

нормальный ли вообще такой запрос что в (19) ?

(29) Я так понимаю, что вы просто тащите вообще всё, что есть в регистре. Если всё это надо, то да, он нормальный.

(29) Ты бы сначала о видах субконто задумался и об их соответствии в источнике и приемнике.

(15) Ты размороженный клюшечник что ли?

(30-31) Ок!
Да, тащу все, что бы было что загружать.
Пока в процессе все.

(32) Да мало как то работал вообще с этими регистрами бухгалтерии.

(33) т.е. ты собираешься сначала выгрузить всё, что выгрузится, а потом под эту выгрузку еще писать загрузку? При этом придется ведь анализировать что выгрузилось и во что это можно загрузить вообще...

(35) Да. Пока я увидел что выгрузилось, с установленными отборами.

(35) тз эе не поставлено, вот и делаю начальный первичный вариант

У меня в школе учитель информатики за мои методы решать задачи "в лоб" говорила, что я люблю штаны одевать через голову. Тут что-то еще страшнее по-моему

перенос проводок - это перенос практически ВСЕХ справочников

(38) в лоб - это тупым перебором?

(39) там еще вопрос - куда. И откуда) Я одну конфу Доверительное управление знаю, но не видела ее лет 5 уже, так что там скорее всего всё переписали вдоль и поперек. Она писана была на БСП, от типовой БП туда только отчеты типа ОСВ и иже с ними таскали. Так что переносить будет явно ну очень тяжело. Тем более без использования КД

(40) Вроде того.

(39) да нечто страшное видится

(43) Откройте для себя КД. Жить сразу станет легче

(44) На неё нужно время, есть у меня курсы по КД исчерпывающие, но не знаю как эти знания усвоить, на каком
примере. Так то бывает встречаются задачи по обмену.

--

Стал рассматривать перенес данных по выгруженным проводкам
из источника в документ операция бух, приемника. Так в этом
документе вообще мало реквизитов! В регистре бухгалтерии
имеющемся, реквизитов больше как и в регистре бухгалтерии приемника. Целесообразно ли, и делается ли так, что выгруженные проводки из регистра бухгалтерии источника я загрузку в регистр бухгалтерии приемника?
Нормально ли тау будет?

(45) у проводок должен быть регистратор. Если вы не знаете что за документ такой - бух операция, то может работу отдать кому-то другому?

(45) В источнике нет документа операция бух, но у проводок источника другие регистраторы.
Я хочу понять, операция бух, не содержит всех нужных мне реквизитов. Куда мне их заносить?

(47) операция бух это просто заглушка. Регистратор, который привязывают к движениям регистров. Это документ типа "корректировка записей регистров", если это о чем-тов ам говорит.
Т.е. если у вас есть набор записей и нет конкретного документа, который может такой набор записей создать, то вы можете создать документ Операция бух. и указать его регистратором для этого набора записей.

(45) Подскажите пожадуйста, куда выгрузку вот этой выборки, правильно загрузить в приемник (Бухгалтерия предприятия КОРП, редакция 3.0; Хомнет НФО КОРП, редакция 2.0.6.1 (3.0.47.35).

(48) Я вас понял, спасибо. Нужно будет разбираться.
Вопросы опять же от того что мало смотрел конфигуратор, висел сервер.

Надеюсь, я понятно объяснила.
Но вообще, это же элементарные основы. Как вы работаете без этих знаний?

"На неё нужно время, есть у меня курсы по КД исчерпывающие, но не знаю как эти знания усвоить, на каком
примере." - у вас есть реальная задача, это круче любых тестовых примеров для учебы, потому что есть конкретная постановка и есть мотивация для выполнения. На мой взгляд - самое время заняться изучением КД.

(49) Кроме вас, эти две конфигурации, думаю мало кто видел на этом форуме. Может обратиться за помощью к разработчикам?

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

(50) А чего, всё остальное ужо засинхренено и перегружено ?
Справочники, характеристики, план счетов и т.д ?
Только проводок не хватает ?
:))

Сдается мне, что быстрее, посадить девочку и она ручонками вобьёт начальные останки по бух счетам. Это будет быстрее, чем вы будете тут по форуму кд изучать

(51) Времени только нет, решил сделать через txt.
(52) Придется разбираться во всем самому.
(54) Буду делать как то текстовые значения, переносить.
В приемнике нет таких объектов, как я их буду переносить?

(55) Как я буду КД изучать если там нет таких объектов? Я понимаю нужно их сначало создавать а потом уже переносить в них.
Я делаю нечно макета переноса. Текстовыми значениями все.

(56) "В приемнике нет таких объектов, как я их буду переносить?" - ну и как вы их будете переносить?
Бред какой-то

Рисовать вместо КД "собственный обмен через txt" это надо очень альтернативно мыслить.

(57) Конкретная конфигурация никак не влияет на изучение КД.

Подскажите пожалуйста по коду
почему в операциях записывается по одной проводке
что исправить?


    Для каждого СтрТ Из Таблица Цикл
        Если СтрТ.Период = "" Тогда
            Продолжить;
        КонецЕсли;
        Если ПредНомДокОпер = "" или ПредНомДокОпер <> СтрЗаменить(СтрТ.РегистраторНомер, ",", "") Тогда
            ДокОперация               = Документы.ОперацияБух.СоздатьДокумент();
            ДокОперация.Номер         = СтрЗаменить(СтрТ.РегистраторНомер, ",", "");
            ДокОперация.Дата          = Дата(СтрТ.Период);
            ЗагрОрг                   = Справочники.Организации.НайтиПоНаименованию("ОАО ""РОНИН Траст""");
            ДокОперация.Организация   = ЗагрОрг;
            ДокОперация.Ответственный = ПараметрыСеанса.ТекущийПользователь;
            ДокОперация.Содержание    = "";
            ДокОперация.СуммаОперации = 0;
            ДокОперация.Комментарий   = "Создано обработкой загрузки из DU TRUST " + СТРОКА(ТекущаяДата());
            ДокОперация.Записать();
        КонецЕсли;
        //
        //
        ДокОперацияСсылка = ДокОперация.Ссылка;
        ////
        РегХозрасчетный                            = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
        РегЗапись                                    = РегХозрасчетный.Добавить();
        РегЗапись.Период                           = Дата(СтрТ.Период);;
        РегЗапись.Регистратор                       = ДокОперацияСсылка;
        РегЗапись.Организация                        = ЗагрОрг;
        РегЗапись.Содержание                       = СтрТ.Содержание;
        //
        РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду( СтрЗаменить(СтрТ.СчетДт,".", "") );
        Если ЗначениеЗаполнено(СтрТ.ВидСубконтоДт1) Тогда
            Попытка
            БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, СтрЗаменить(СтрТ.ВидСубконтоДт1, " ", ""), НайтиВСПР( СтрЗаменить(СтрТ.ВидСубконтоДт1, " ", ""),СтрТ.СубконтоДт1 ));
            Исключение
            КонецПопытки;
        КонецЕсли;
        Если ЗначениеЗаполнено(СтрТ.ВидСубконтоДт2) Тогда
            Попытка
            БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, СтрЗаменить(СтрТ.ВидСубконтоДт2, " ", ""), НайтиВСПР( СтрЗаменить(СтрТ.ВидСубконтоДт2, " ", ""),СтрТ.СубконтоДт2,СтрТ.СубконтоДт1  ));
            Исключение
            КонецПопытки;
        КонецЕсли;
        //Если ЗначениеЗаполнено(СтрТ.ВидСубконтоДт3) Тогда
        //    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, СтрЗаменить(СтрТ.ВидСубконтоДт3, " ", ""), НайтиВСПР( СтрТ.ВидСубконтоДт3,СтрТ.СубконтоДт3 ));
        //КонецЕсли;
        //Если ЗначениеЗаполнено(СтрТ.ВидСубконтоДт4) Тогда
        //    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, СтрЗаменить(СтрТ.ВидСубконтоДт4, " ", ""), НайтиВСПР( СтрТ.ВидСубконтоДт4,СтрТ.СубконтоДт4 ));            
        //КонецЕсли;
        //
        РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду( СтрЗаменить(СтрТ.СчетКт,".", "") );
        Если ЗначениеЗаполнено(СтрТ.ВидСубконтоКт1) Тогда
            Попытка
            БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, СтрЗаменить(СтрТ.ВидСубконтоКт1, " ", ""), НайтиВСПР( СтрЗаменить(СтрТ.ВидСубконтоКт1, " ", ""),СтрТ.СубконтоКт1 ));
            Исключение
            КонецПопытки;
        КонецЕсли;
        Если ЗначениеЗаполнено(СтрТ.ВидСубконтоКт2) Тогда
            Попытка
            БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, СтрЗаменить(СтрТ.ВидСубконтоКт2, " ", ""), НайтиВСПР( СтрЗаменить(СтрТ.ВидСубконтоКт2, " ", ""),СтрТ.СубконтоКт2,СтрТ.СубконтоДт1 ));
            Исключение
            КонецПопытки;
        КонецЕсли;
        //Если ЗначениеЗаполнено(СтрТ.ВидСубконтоКт3) Тогда
        //    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, СтрЗаменить(СтрТ.ВидСубконтоКт3, " ", ""), НайтиВСПР( СтрТ.ВидСубконтоКт3,СтрТ.СубконтоКт3 ));
        //КонецЕсли;
        //Если ЗначениеЗаполнено(СтрТ.ВидСубконтоКт4) Тогда
        //    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, СтрЗаменить(СтрТ.ВидСубконтоКт4, " ", ""), НайтиВСПР( СтрТ.ВидСубконтоКт4,СтрТ.СубконтоКт4 ));
        //КонецЕсли;
        //
        РегЗапись.Сумма = СтрТ.Сумма;
        //
        РегХозрасчетный.Записать();            
        ПредНомДокОпер = СтрЗаменить(СтрТ.РегистраторНомер, ",", "");
    КонецЦикла;

(61) ну, у вас так задумано тут, для каждой строчки создается отдельная операция. Естественно, значит, в операции одна строчка.

(62) вот же по условию, если один и тот же номер операции
то она раз только создается

Если ПредНомДокОпер = "" или ПредНомДокОпер <> СтрЗаменить(СтрТ.РегистраторНомер, ",", "") Тогда

как поправить подскажите?

ну может действительно у регистратора одна проводка в той базе. Никак не надо поправлять. Посмотрите сам txt-файл ваш, там правильно?

понял. вы же в каждой строчке делаете

        РегХозрасчетный                            = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;

старую проводку затираете, новую пишете. В итоге всегда у вас будет в операции одна проводка.

Тогда создавать набор записей нужно вот в этом условии ?
Как и при создании самой операции?



        Если ПредНомДокОпер = "" или ПредНомДокОпер <> СтрЗаменить(СтрТ.РегистраторНомер, ",", "") Тогда
            ДокОперация               = Документы.ОперацияБух.СоздатьДокумент();
            ДокОперация.Номер         = СтрЗаменить(СтрТ.РегистраторНомер, ",", "");
            ДокОперация.Дата          = Дата(СтрТ.Период);
            ЗагрОрг                   = Справочники.Организации.НайтиПоНаименованию("ОАО ""РОНИН Траст""");
            ДокОперация.Организация   = ЗагрОрг;
            ДокОперация.Ответственный = ПараметрыСеанса.ТекущийПользователь;
            ДокОперация.Содержание    = "";
            ДокОперация.СуммаОперации = 0;
            ДокОперация.Комментарий   = "Создано обработкой загрузки из DU TRUST " + СТРОКА(ТекущаяДата());
            ДокОперация.Записать();
        КонецЕсли;

Так?


        Если ПредНомДокОпер = "" или ПредНомДокОпер <> СтрЗаменить(СтрТ.РегистраторНомер, ",", "") Тогда
            ДокОперация               = Документы.ОперацияБух.СоздатьДокумент();
            ДокОперация.Номер         = СтрЗаменить(СтрТ.РегистраторНомер, ",", "");
            ДокОперация.Дата          = Дата(СтрТ.Период);
            ЗагрОрг                   = Справочники.Организации.НайтиПоНаименованию("ОАО ""РОНИН Траст""");
            ДокОперация.Организация   = ЗагрОрг;
            ДокОперация.Ответственный = ПараметрыСеанса.ТекущийПользователь;
            ДокОперация.Содержание    = "";
            ДокОперация.СуммаОперации = 0;
            ДокОперация.Комментарий   = "Создано обработкой загрузки из DU TRUST " + СТРОКА(ТекущаяДата());
            ДокОперация.Записать();
        РегХозрасчетный                            = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

        КонецЕсли;

(68) ну, наверно

(69) Ок, спасибо, поправил

ПредНомДокОпер - кошмар. Руки бы за такие переменные пообрывал бы

(71) Если бы ты печатал двумя пальцами, то так бы не говорил.

(72) А остальные 8 задействовать никак?

(73) никак

Надо найти это "РОНИН Траст" и выяснить, кто же их обслуживает.

(75) С таким обслуживанием - кабзда их 1С :)
Хоть и биржевики, а все равно жалко их...

(76) Что-то я скоренько пошукала в интернете и сложилось впечатление, что переход с Аванкоровской ДУ на поделку Хомента этот самый Хомнет выполняет своими силами...

Автор, вы в Хоменете работаете? Или друг опять попросил, как с ЗУПом?

Х..се, ОАО!
ОАО! , Карл! Не может позволить себе кодера, куда катится это говенный мир ?

(78) Специалисты «РОНИН Траст» осуществляют внедрение основных модулей решения самостоятельно, при консультационной поддержке экспертов «Хомнет консалтинг».


Подробнее на IKSMEDIA.RU: http://www.iksmedia.ru/news/5404468-RONIN-Trast-sozdayot-sistemu-uchyot.html#ixzz4iAN38Ry7

Это трындец

(79) Ну вот автор ветки щас им и навнедряет. :)

(0) Уважаемый автор, помнится вы ваяли некую систему управления поручениями в 1С.
Позволю поинтересоваться - как успехи? Заказчик доволен? Запуск системы прошел успешно?

(81) вряд ли он помнит. У автора очень плохая память.

Хотел бы я посмотреть тестовое задание в этом Хомнете, если туда берут ливингстаров всяких.