Есть две БП 2.0 источник типовая приемник не шибко измененная как Рег.Бух хозрасчетный перенести в Док. ОперацияБух.
Как из справочника в справочник перенести знаю а тут чета тормажу. В кд опыту мало, не ругайте сильно.

апну разок

в книжке Бояркина годный пример.

(2) На какой стр читаю как раз

(3) 171. Оглавление глянь.

Но пример там негодный. Прямая запись XML - некошерно, когда это делается проще...

Там для 7.7 и из ОперацияБух в ОперацияБух.
(5) Вот тут по подробнее.

(5) ммм... я наверное уже подзабывать стал, но из 8 в 8 я как-то обошелся малой кровью

(7) Как?

дядька, я в другом офисе... завтра гляну..

но я постараюсь, ты меня заинтересовал. :)

(10) Буду ждать))))

Больше никто не знает?

(12) КД почти все правила автоматически создает при добавлении конвертации документа. Главное не забыть загрузить метаданные движений.

(13) Думаю вот мой случай почти)

Делаю так Добавляю реквизиты (ПКС) регистра автоматом находиться его аналог в документе попутно автоматом создаеться ПКО для справочника (если реквизит ссылочного типа). Правильно хоть делаю?

ну а саму ПКГС для движений по РБ Хозрасчетный - завел?

(16) А?

ПКГС - это группа, то бишь папочка

(18) Нет а для чего она нужна?

а... ну тогда все, жди завтра.

В Бояркине только перенос из 77

(20) ок)))

2(21) ну а разница?...

в77-в8, Документ в ОперацияБух:
http://screencast.com/t/TGLfUGNiTObf

А вот из в8 в в8.. пример из книжки Бояркина, вернее с диска который идет с книжкой:
http://screencast.com/t/sJG62PFqGStZ

Пробуй...

(24) Попробую. Спасибо!

(24) Создал ПКГС для движений Хозрасчетный. Не могу понять почему  нет полей СубконтоДт1 ...Дт2 ... Дт3  Тока СубконтоДТ
http://s011.radikal.ru/i316/1107/2c/957ad5cf5342.jpg

потому что субконтоДт это в свою очередь коллекция.

ты книжку по диагонали читаешь что ли?

(28) Я хотел запросом получить записи регистра и поместит их в исходящие данные. И пример у меня под рукой есть тока там ..Дт1 уже в ПКГС есть. Запросом получи ..Дт1 ..Дт2 и ..Дт3 а как патом СубконтоДт= ..Дт1 ..Дт2 и ..Дт3 сделать помоги? Книгу читаю вот сделать надо срочно. Пятница понимаю, могу на пиво скинуть))

ну не дядька, у меня своя работа.. а тут думать надо, вспоминать.

ех... ну тогда хоть как в СубконтоДТ записать ..Дт1 ..Дт2 и ..Дт3 и я отстану)

(31) СубконтоДТ = соответствие. Ключ - вид субконто, Значение - значение субконто. Порядок субконто соотв. не важен. Можешь собрать все значения субконто в ПКГС Хозрасчетный или в ПередВыгрузкой ПКС СубконтоДт/Кт.

В ПВД пишу выгрузку регистра бух.

Запрос = Новый Запрос;
Запрос.Текст=
"ВЫБРАТЬ
|    ХозрасчетныйДвиженияССубконто.Период КАК Период,
|    НАЧАЛОПЕРИОДА(ХозрасчетныйДвиженияССубконто.Период, ДЕНЬ) КАК НачалоДня,
|    ХозрасчетныйДвиженияССубконто.СчетДт,
|    ХозрасчетныйДвиженияССубконто.ПодразделениеДт,
   |    ХозрасчетныйДвиженияССубконто.СубконтоДт1,
   |    ХозрасчетныйДвиженияССубконто.СубконтоДт2,
   |    ХозрасчетныйДвиженияССубконто.СубконтоДт3,
   |    ХозрасчетныйДвиженияССубконто.СчетКт,
   |    ХозрасчетныйДвиженияССубконто.ПодразделениеКт,
   |    ХозрасчетныйДвиженияССубконто.ПодразделениеДт,
   |    ХозрасчетныйДвиженияССубконто.СубконтоКт1,
   |    ХозрасчетныйДвиженияССубконто.СубконтоКт2,
   |    ХозрасчетныйДвиженияССубконто.СубконтоКт3,
   |    ХозрасчетныйДвиженияССубконто.Организация,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.ВалютаДт,0 )как ВалютаДт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.ВалютаКт,0)как ВалютаКт,
   |    ХозрасчетныйДвиженияССубконто.Сумма,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.ВалютнаяСуммаДт,0) как  ВалютнаяСуммаДт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.ВалютнаяСуммаКт,0) как  ВалютнаяСуммаКт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.КоличествоДт,0) как  КоличествоДт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.КоличествоКт,0) как КоличествоКт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.СуммаВРДт,0)как СуммаВРДт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.СуммаВРКт,0)как СуммаВРКт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.СуммаНУДт,0)как СуммаНУДт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.СуммаНУКт,0)как СуммаНУКт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.СуммаПРДт,0)как СуммаПРДт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.СуммаПРКт,0)как СуммаПРКт,
   |    ЕСТЬNull(ХозрасчетныйДвиженияССубконто.Содержание,0)как Содержание

|    
|ИЗ
|    РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
|            &ДатаНачала,
|            &ДатаОкончания,
|            Активность = ИСТИНА) КАК ХозрасчетныйДвиженияССубконто
|УПОРЯДОЧИТЬ ПО НачалоДня ВОЗР
|ИТОГИ
|    СУММА(Сумма)
|ПО
|    НачалоДня";

   Запрос.УстановитьПараметр("ДатаНачала",НачалоДня(ДатаНачала));
   Запрос.УстановитьПараметр("ДатаОкончания",КонецДня(ДатаОкончания));
   Выборка = Запрос.Выполнить().Выбрать();
   
   Пока Выборка.СледующийПоЗначениюПоля("НачалоДня") Цикл
       
       Хозрасчетный = Новый ТаблицаЗначений;
       Хозрасчетный.Колонки.Добавить("Период");//
       Хозрасчетный.Колонки.Добавить("СчетДт");//
       Хозрасчетный.Колонки.Добавить("СубконтоДт");//
       Хозрасчетный.Колонки.Добавить("СубконтоКт");//
       Хозрасчетный.Колонки.Добавить("ВалютаДт");//
       Хозрасчетный.Колонки.Добавить("ВалютаКт");//
       
       Хозрасчетный.Колонки.Добавить("Содержание");//
       Хозрасчетный.Колонки.Добавить("СчетКт");//
       Хозрасчетный.Колонки.Добавить("ВалютнаяСуммаДт");//
       Хозрасчетный.Колонки.Добавить("ВалютнаяСуммаКт");//
       Хозрасчетный.Колонки.Добавить("КоличествоДт");//
       Хозрасчетный.Колонки.Добавить("КоличествоКт"); //
       Хозрасчетный.Колонки.Добавить("Сумма");
       Хозрасчетный.Колонки.Добавить("СуммаВРДт");
       Хозрасчетный.Колонки.Добавить("СуммаВРКт");
       Хозрасчетный.Колонки.Добавить("СуммаНУДт");
       Хозрасчетный.Колонки.Добавить("СуммаНУКт");
       Хозрасчетный.Колонки.Добавить("СуммаПРДт");
       Хозрасчетный.Колонки.Добавить("СуммаПРКт");
       Хозрасчетный.Колонки.Добавить("Организация");
       
       КолСтрок=0;
       КолСтрокОбщ=0;
       Пока Выборка.Следующий() Цикл
           Если Выборка.ТипЗаписи()=SelectRecordType.ИтогПоГруппировке Тогда
               Продолжить;
           КонецЕсли;    
//***************************************************************************************            
           
           текОрг = Выборка.Организация;
       
//***************************************************************************************            
           стрТЗ = Хозрасчетный.Добавить();
           стрТЗ.Период = Выборка.Период;
           стрТЗ.СчетКт = Выборка.СчетКт;
           стрТЗ.СчетДт = Выборка.СчетДт;
           стрТЗ.Организация = Выборка.Организация;
           стрТЗ.Содержание = Выборка.Содержание;
           стрТЗ.ВалютнаяСуммаДт = Выборка.ВалютнаяСуммаДт;
           стрТЗ.ВалютнаяСуммаКт = Выборка.ВалютнаяСуммаКт;
           стрТЗ.КоличествоДт = Выборка.КоличествоДт;
           стрТЗ.КоличествоКт = Выборка.КоличествоКт;
           стрТЗ.СуммаВРДт=Выборка.СуммаВРДт;
           стрТЗ.СуммаВРКт=Выборка.СуммаВРКт;
           стрТЗ.СуммаНУДт=Выборка.СуммаНУДт;
           стрТЗ.СуммаНУКт=Выборка.СуммаНУКт;
           стрТЗ.СуммаПРДт=Выборка.СуммаПРДт;
           стрТЗ.СуммаПРКт=Выборка.СуммаПРКт;
           стрТЗ.ВалютаКТ = Выборка.ВалютаКТ;
           стрТЗ.ВалютаДт = Выборка.ВалютаДТ;
           стрТЗ.Сумма = Выборка.Сумма;
           стрТЗ.СубконтоКт= Выборка.СубконтоКт1;
           стрТЗ.СубконтоДт= Выборка.СубконтоДт1;
       
           
           Сообщить ( Строка(стрТЗ.Организация)+"/"+
                      Строка(стрТЗ.Период)+"/"+
                      Строка(стрТЗ.СчетКт)+"/"+
                      Строка(стрТЗ.СчетДт)+"/"+
                      Строка(стрТЗ.ВалютнаяСуммаДт)+"/"+
                      Строка(стрТЗ.ВалютнаяСуммаКт)+"/"+  
                      Строка(стрТЗ.КоличествоДт) +"/"+
                      Строка(стрТЗ.КоличествоКт) +"/"+  
                      Строка(стрТЗ.СуммаВРДт)  +"/"+  
                      Строка(стрТЗ.СуммаВРКт) +"/"+  
                      Строка(стрТЗ.СуммаНУДт) +"/"+  
                      Строка(стрТЗ.СуммаНУКт)+"/"+  
                      Строка(стрТЗ.СуммаПРДт) +"/"+  
                      Строка(стрТЗ.СуммаПРКт)+"/"+  
                      Строка(стрТЗ.ВалютаКТ)+"/"+
                      Строка(стрТЗ.ВалютаДт)+"/"+
                      Строка(стрТЗ.Сумма)+"/"+  
                      Строка(стрТЗ.СубконтоКт)+"/"+
                      Строка(стрТЗ.СубконтоДт));
                   
           КоличествоЗаписанныхСубкДт=0;
           КоличествоЗаписанныхСубкКт=0;
   
           ДатаБОПа = Выборка.НачалоДня;
           КолСтрок=КолСтрок+1;
           КолСтрокОбщ=КолСтрокОбщ+1;
           
       КонецЦикла;    
       
       НомДок=НомДок+1;
       Хозрасчетный.Свернуть("Период,СчетДт,СубконтоДт,СубконтоКт,ВалютаКт,ВалютаДт","ВалютнаяСуммаДт,ВалютнаяСуммаКт,КоличествоДт,КоличествоКт,Сумма");
       
       ИсходящиеДанные = Новый Структура;
       ИсходящиеДанные.Вставить("Хозрасчетный",Хозрасчетный);
       НомДокСтр=?(НомДок>9,Строка(НомДок),"0"+Строка(НомДок));
       
       НомерБОПа=ПривестиНомерКДлине(Формат(Выборка.НачалоДня,"ДФ=ddMMyy")+НомДокСтр,11,,);
       ИсходящиеДанные.Вставить("Номер",НомерБОПа);
       ИсходящиеДанные.Вставить("Дата",ДатаБОПа);
       ВыгрузитьПоПравилу(ИсходящиеДанные,,,,"ОперацияБух");
       НомДок=0;
   КонецЦикла;


Выходит ошибка:
ПВД                    =  Проводки
   Обработчик             =  ПередОбработкойВыгрузкиДанных
   ОписаниеОшибки         =  Итератор для значения не определен
   ПозицияМодуля          =  Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(8268)
   КодСообщения           =  31

ап

(32) Сделал так но все равно та же ошибка

СубконтоДт = Новый Соответствие;
   Если  НЕ Выборка.ВидСубконтоДт1=null И НЕ ЗначениеНеЗаполнено(Выборка.СубконтоДт1) Тогда
       СубконтоДт.Вставить(Выборка.ВидСубконтоДт1,Выборка.СубконтоДт1);
   КонецЕсли;
   Если  НЕ Выборка.ВидСубконтоДт2=null И НЕ ЗначениеНеЗаполнено(Выборка.СубконтоДт2) Тогда
       СубконтоДт.Вставить(Выборка.ВидСубконтоДт2,Выборка.СубконтоДт2);
   КонецЕсли;
   Если  НЕ Выборка.ВидСубконтоДт3=null И НЕ ЗначениеНеЗаполнено(Выборка.СубконтоДт3) Тогда
       СубконтоДт.Вставить(Выборка.ВидСубконтоДт3,Выборка.СубконтоДт3);
   КонецЕсли;
   
   стрТЗ.СубконтоДт = СубконтоДт;
   
   СубконтоКт = Новый Соответствие;
   Если  НЕ Выборка.ВидСубконтоКт1=null И НЕ ЗначениеНеЗаполнено(Выборка.СубконтоКт1) Тогда
       СубконтоКт.Вставить(Выборка.ВидСубконтоКт1,Выборка.СубконтоКт1);
   КонецЕсли;
   Если  НЕ Выборка.ВидСубконтоКт2=null И НЕ ЗначениеНеЗаполнено(Выборка.СубконтоКт2) Тогда
       СубконтоКт.Вставить(Выборка.ВидСубконтоКт2,Выборка.СубконтоКт2);
   КонецЕсли;
   Если  НЕ Выборка.ВидСубконтоКт3=null И НЕ ЗначениеНеЗаполнено(Выборка.СубконтоКт3) Тогда
          СубконтоКт.Вставить(Выборка.ВидСубконтоКт3,Выборка.СубконтоКт3);
   КонецЕсли;
   стрТЗ.СубконтоКт = СубконтоКт;

(35) Тока  это для 8.0 под 8.2 переделал  "И  ЗначениеЗаполнено"

ап

(35) Ну, я же не знаю какая "та же ошибка" и где у тебя возникает и где ты "сделал так" (я два варианта предложил) ...

(38) Как и в (33)

Отладчик останавливается на
Для каждого КлючИЗначение из Значение Цикл
       
ВидСубконто = КлючИЗначение.Ключ;
Субконто = КлючИЗначение.Значение;
ИмяПКО = "";

Обработки XML

(40) Надеюсь ты сворачивать по значению соответствия не пытаешься? Вообще в запросе без проблем эта информация сворачивается. Т.ч. проверяй результат своего кода.

(41) нет

(42) Значит где-то неправильно написал. В отладчике на (40), через ОбъектКоллекции можно проверить строку ТЗ из которой значение берется и сравнить с Значение.

(43) В тело цикла не поподает, в значение находиться контрагент

(44) ОбъектКоллекции смотрел? Проверил в ПКС что это выгрузка СубконтоДт? Можно еще отладчиком (или через ВыбратьСтроку) проверить таблицу из (33)
ЗЫ Если у тебя там контрагент, то это никак не вяжется с (35).

(45) Да сори ошибка в коде была. Исправил. Теперь отладчик встает на ВыгрузитьТипСвойстваЭлемента(УзелСвойства, ПКОКлюч.Приемник);


А ошибка Ошибка в обработчике события ПередОбработкойПравилаВыгрузки
ПВД                    =  Проводки
Обработчик             =  ПередОбработкойВыгрузкиДанных
ОписаниеОшибки         =  Значение не является значением объектного типа (Приемник)
ПозицияМодуля          =  Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(8329)
КодСообщения           =  31

(46) Проверяй там в отладчике ПКОКлюч, ВидСубконто, наличие в КД правила конвертации вида субконто.

(47) Спасибо. Добавил правило по ВидамСубконто заработало (ПВХ). Отблагодарить бы вас какнить.

При переносе справочников указал что переносить в отдельную папку (Как в книге Бояркина) Выходит ошибка при загрузки
   ТипОбъекта             =  Операция (бухгалтерский и налоговый учет)
   Объект                 =  Операция (бухгалтерский и налоговый учет) К0000000005 от 11.05.2011 0:00:00
   ОписаниеОшибки         =  Ошибка при вызове метода контекста (Записать): Запись не верна! Вид субконто "Склады" не доступен для данной записи! (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет); Номер строки: 1)
   ПозицияМодуля          =  Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(4788)
   КодСообщения           =  26

(49) Значит для твоей операции К0000000005 в самой первой строчке либо неправильно перенесся счет, либо у этого счета в приемнике нет субконто склады, либо неправильно перенес субконто для первой строки.
ЗЫ К переносу справочников в группу это ошибка имеет мало отношения.

(50) А как это отловить?

У счета 41.01 вид субконто есть склад у приемника нет(((

Как (52) обойти?

(53) Добавить при необходимости учет по складам в приемнике. Обычно в "Настройки учета" устанавливается.

(54) Нет нельзя. Как его не добавлять (именно эту аналитику а не проводку в целом)?

(55) Когда заполняешь соответствие субконто проверяй что добавляется субконто Склады для счета 41.1 и не добавляй его в соответствие. Можно и в обработчиках проверять, например в ПриВыгрузке ПКС.

56+ если в обработчике, тогда Отказ устанавливать

(56) Как то не не красиво. А если такой счет не один. Может както на стороне приемника проверить этот счет на соответствие видам субконто?

(58) В типовых так. По мне проще сделать список счетов исключений в источнике и его анализировать, чем движения анализировать после загрузки объекта.

(59) А пример где в типовых найти. Что то не догоняю как это сделать.

я не знаю, может за то, что я сейчас покажу меня закидают ссанными тряпками, но я делал примерно так:
http://screencast.com/t/j5ET1H6wgXZ
то есть во-первых куча исключений по счетом. Понятно почему - на 77 есть аналитика, на 8 - нет, или например она в другом порядке...
Все это делалось в ПКГС Хозрасчетный...
кроме того, была еще ситуация когда один и тот же вид субконто в 8-ке должен переходить в разные виды субконто, в зависимости от счета... На одном счете это инвестиция, на другом ОС... Тогда приходлось заводить еще одно правило конвертации в группе Планов видов характеристик, и там указывать конвертацию значеий, и уже в алгоритме при выгрузке субконто анализировать также счета и вызывать то или иное правило конвертации...

(61) v8: Перенос ручных операций с помощью КД из 77 в 8. Как сделать? читал там не закидали и тут не будут. Так понимаю под каждый счет свои условия?

не под каждый, под некоторые... я вообще как делал - сначала взял один вид документов, Банковская Выписка, и перенес в ручную операцию.... Все исключения которые были, попытался описать.. Потом взял следующий вид документа, скопировал с первого, начал выгружать-загружать - увидел еще исключения, которые появились в этом новом виде документа, но не встречались в БВ, добавил их, и так далее... Код для ПГКС хозрасчетный копировал во все виды документов...

В параметрах определены счета у которых  2 или 1 или 0 видов субконто. Мучает вопрос так можно делать?

    СубконтоДт = Новый Соответствие;
Если Параметры.СчетаПрав3.Получить(Выборка.СчетДт.Код) =  Неопределено Тогда            
    Если  НЕ Выборка.ВидСубконтоДт1=null И  ЗначениеЗаполнено(Выборка.СубконтоДт1) Тогда
          СубконтоДт.Вставить(Выборка.ВидСубконтоДт1,Выборка.СубконтоДт1);
    КонецЕсли;
     
    Если Параметры.СчетаПрав1.Получить(Выборка.СчетДт.Код) =  Неопределено Тогда
       
        Если  НЕ Выборка.ВидСубконтоДт2=null И  ЗначениеЗаполнено(Выборка.СубконтоДт2) Тогда
         СубконтоДт.Вставить(Выборка.ВидСубконтоДт2,Выборка.СубконтоДт2);
        КонецЕсли;
     
        Если Параметры.СчетаПрав2.Получить(Выборка.СчетДт.Код) =  Неопределено Тогда
           Если  НЕ Выборка.ВидСубконтоДт3=null И  ЗначениеЗаполнено(Выборка.СубконтоДт3)  Тогда
             СубконтоДт.Вставить(Выборка.ВидСубконтоДт3,Выборка.СубконтоДт3);
           КонецЕсли;
        КонецЕсли;
    КонецЕсли;
КонецЕсли;

Или для каждого отличающегося счета нужно сделать соответствия в которых указанны какие субконто переносить и при выгрузке проверять эти счета какие виды субконто переносить?

(65) Обычно делают так (в общих чертах):
Если Лев(СчетДт.Код, 2) = "20" и ВидСубконто = ВидСубконтоПодразделение Тогда
  // Это субконто отсутствует, пропускаем
Иначе
  // Это субконто есть - добавляем
  СубконтоДт.Вставить(ВидСубконто, ЗначениеСубконто);
КонецЕсли;

А как вам такой вариант, Создаю соответствие где указаны измененные счета в ключе счет значение цифра, и соответствия в которых виды субконто в ключе и значение.

Для Инд=1 По 3 Цикл    
     
       Если  НЕ Выборка["ВидСубконтоДт"+Строка(Инд)]=null И  ЗначениеЗаполнено(Выборка["СубконтоДт"+Строка(Инд)]) Тогда
           Если Параметры.СчетаСИзм.Получить(Выборка.СчетДт.Код) = Неопределено Тогда
                СубконтоДт.Вставить["ВидСубконтоДт"+Строка(Инд)],Выборка["СубконтоДт"+Строка(Инд)]);
           Иначе
               Если Выборка["ВидСубконтоДт"+Строка(Инд)]=Параметры["ВидыСубконто"+Строка(Параметры.СчетаСИзм.Получить(Выборка.СчетДт.Код))].Получить["ВидСубконтоДт"+Строка(Инд)]
                   СубконтоДт.Вставить["ВидСубконтоДт"+Строка(Инд)],Выборка["СубконтоДт"+Строка(Инд)]);
               КонецЕсли;
       КонецЕсли;
      КонецЦикла;

(67) Можно и так, только выигрыша от соответствия в соответствии особого не будет. Можно сразу в ТЗ тогда уж запихнуть и через НайтиСтроки проверять.

(68) Параметры вроде как по быстрее в обмене будут, Могу ошибаться.

Хочу номенклатуру везде подставить одну для каждой организации пишу так:
УникальНомен = Выборка.Организация.Наименование+";"+ПрефиксБазы;
Если Выборка["ВидСубконтоКт"+Строка(Инд)].Наименование = "Номенклатура" Тогда
СубконтоКт.Вставить(Выборка["ВидСубконтоКт"+Строка(Инд)],УникальНомен);


В ПКО номенклатура исчточник убрал. В приемнике в справочнике номенклатура создается но в проводках ее нет.

ап

Никто не делал такое?

Помогите!!!

ап