Доброго времени суток. Помогите кто-нибудь, пожалуйста.
Есть файл загрузки в формате *.xlsb. Я из него беру данные и создаю документы. Есть необходимость создать документ "Операция бухгалтерская", в которой на закладке "Бух и налоговый учет" будут проводки, и дополнительно будет еще и закладка "НДС Продажи", на которой тоже будет строка с движением. (Документ представляет собой Сторно для ПКО с розничной выручкой - ТАК НАДО).
Не приходилось никогда программно создавать документ "Операция бухгалтерская", совсем не знаю как это делать. :(

(0) Смысл такой, БухСправка - это просто пустой документ-регистратор, а регистры - это просто регистры, с регистратором бухсправкой. Вот такая мораль

(1) Тогда вопрос такой. Создам бухСправку, создам отдельно движения в регистрах бухгалтерии и накопления с регистратором бухСправкой, будет ли просмотре документа бухсправки видно проводки и движения в регистре НДС Продажи, как если бы мы стоировали такой справкой реальный ПКО?

(2) Исправлюсь, "стоировали такой справкой реальный ПКО" - сторнировали такой справкой реальный ПКО.. Сори..

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

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

ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
       ДокОперация.Дата = ДатаДокумента;
       ДокОперация.Организация = ВыбОрганизация;
       ДокОперация.Ответственный = ИмяПользователя(); //Ответственный;
       ДокОперация.Содержание = "....";
       ДокОперация.Комментарий = "...";
       ДокОперация.СпособЗаполнения = "Вручную";
       ДокОперация.Записать();
       ДокОперацияСсылка = ДокОперация.Ссылка;

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

   Для каждого Элемента из ЧтоТамМнеНужноЗаписать Цикл
                   РегЗапись = РегХозрасчетный.Добавить();
                   РегЗапись.Период = ДатаДокумента;
                   РегЗапись.Регистратор = ДокОперацияСсылка;
                   РегЗапись.Организация = ВыбОрганизация;
                   РегЗапись.СчетДт = СчетЭЛ;
                   РегЗапись.КоличествоДт = Коплате;
                   РегЗапись.Сумма = Сум;

                   БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Стр.Контр);
...

                   СуммаДокумента = СуммаДокумента + Сум;
                   ЕстьЧтоЗаписать=1;
...
   КонецЦикла;    

   Если ЕстьЧтоЗаписать=1 Тогда
       РегХозрасчетный.Записать(Истина);
       ДокОперация.СуммаОперации = СуммаДокумента;
       ДокОперация.Записать();
       Если ОткрытьОбработанныйДокумент = Истина Тогда
           ДокОперация.ПолучитьФорму().Открыть();
       КонецЕсли;
       
   КонецЕсли;


ЗЫ. возможно, что-нибудь упустил, или код кому тут не нравится, но этот г-код работает именно с exel-евским файлом

(6) У меня с записью в РегистрыБухгалтерии.Хозрасчетный, кажется, все в порядке. Я после отработки своего г-кода :) проверяю наличие и заполненность документов "Операция бухгалтерская", все на месте. Открываю документ и вижу проводки. У меня не получается записать для этого же документа движения в регистр накопления "НДС продажи". Ошибок код не выдает, однако, в документах "Операция бухгалтерская" по-прежнему всего лишь проводки, закладки "НДС продажи" нет и, сответственно, когда смотрю сам регистр, движений тоже нет. Блин. Что делаю не так?

(2) да, все будет, главное вручную сделать все проводки по интересующим тебя регистрам.
Если нужно, что бы отображалось как сторно, то надо еще и в документе ОперацияБух выбрать соответствующие реквизиты (информация о том, что сторно и указать ссылку на документ) - это, что бы красиво было.

(7) покажи код, где ты создаешь проводки других регистров?

(9) Подозреваю, что где-то что-то косячу. Вероятно, неверно то, что пишу прямо из созданной бух.операции. Может, надо переделать. Буду сейчас переделывать. Да, красоту со ссылкой на сторнируемый документ, конечно, хотелось бы добавить. Однако сторнирование из файла выгружается без указания документа, на который сторнируется. Просто дата, и суммы, и тип операции. :(

НоваяБухОперация = Документы.ОперацияБух.СоздатьДокумент();
   НоваяБухОперация.Организация      = ЭтотОбъект.Организация;
   НоваяБухОперация.Дата              = СтрокаДатаОперации;
   НоваяБухОперация.Комментарий      = "Из файла "+СтрокаИмяФайла+". № док."+СтрокаКолон_2+"; "+СтрокаКолон_1+"; "+СтрокаКолон_7+" "+СтрокаИмпТовар;
   НоваяБухОперация.Содержание          = "Возврат/сторно выручки";
   НоваяБухОперация.СпособЗаполнения = "Вручную";
   
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;
   
   Строка1                                         = НоваяБухОперация.ЭтотОбъект.Движения.Хозрасчетный.Добавить();
   Строка1.СчетДт                                     = ПланыСчетов.Хозрасчетный.КассаОрганизации;
   Строка1.СубконтоДт.СтатьиДвиженияДенежныхСредств = ЭтотОбъект.СтатьяДДСРозница;
   Строка1.СчетКт                                     = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   Строка1.СубконтоКт.НоменклатурныеГруппы         = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка1.СубконтоКт.СтавкиНДС                     = СтавкаНДС;
   Строка1.Сумма                                     = СтрокаКолон_11;
   Строка1.Содержание                                 = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка1.Период                                     = СтрокаДатаОперации;
   
   Строка2                                = НоваяБухОперация.ЭтотОбъект.Движения.Хозрасчетный.Добавить();
   Строка2.СчетДт                            = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;
   Строка2.СубконтоДт.НоменклатурныеГруппы = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка2.СчетКт                            = ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговлеВПродажныхЦенахНТТ;
   Строка2.СубконтоКт.Склады                = ЭтотОбъект.СкладНТТ;
   Строка2.СубконтоКт.СтавкиНДС            = СтавкаНДС;
   Строка2.Сумма                            = СтрокаКолон_11;
   Строка2.Содержание                        = "Реализация товаров в розницу";
   Строка2.Период                            = СтрокаДатаОперации;
   
   Строка3                                  = НоваяБухОперация.ЭтотОбъект.Движения.Хозрасчетный.Добавить();
   Строка3.СчетДт                              = ПланыСчетов.Хозрасчетный.Продажи_НДС;
   Строка3.СубконтоДт.НоменклатурныеГруппы   = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка3.СубконтоДт.СтавкиНДС              = СтавкаНДС;
   Строка3.СчетКт                              = ПланыСчетов.Хозрасчетный.НДС;
   Строка3.СубконтоКт.ВидыПлатежейВГосБюджет = Перечисления.ВидыПлатежейВГосБюджет.Налог;
   Строка3.Сумма                              = СтрокаКолон_12;
   Строка3.Содержание                          = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка3.Период                              = СтрокаДатаОперации;
   
   НоваяБухОперация.СуммаОперации = Строка1.Сумма+Строка2.Сумма+Строка3.Сумма;
   
   СтрокаНДСПродажи             = НоваяБухОперация.ЭтотОбъект.Движения.НДСЗаписиКнигиПродаж.Добавить();
   СтрокаНДСПродажи.Регистратор = НоваяБухОперацияСсылка;
   СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = СтавкаНДС;
   СтрокаНДСПродажи.ДатаОплаты  = СтрокаДатаОперации;
   СтрокаНДСПродажи.Событие     = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = СтрокаДатаОперации;
   СтрокаНДСПродажи.СуммаБезНДС = СтрокаКолон_10;
   СтрокаНДСПродажи.НДС         = СтрокаКолон_12;
   СтрокаНДСПродажи.Период     = СтрокаДатаОперации;
   
   НоваяБухОперация.ЭтотОбъект.Движения.НДСЗаписиКнигиПродаж.Записывать = Истина;
   НоваяБухОперация.ЭтотОбъект.Движения.НДСЗаписиКнигиПродаж.Записать();
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);

(10) ну, красоту ты уже сможешь сам навести, в плане указания ссылки на сторнируемый документ, а вот на счет движения по регистру может надо сначала записать Операцию, а потом уже рисовать регистр по НДС? Попробуй так.

(11) Ага, уже..

(12) попробуй тогда пойти другим путем.
НаборЗаписейРегистра = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
НаборЗаписейРегистра.Отбор.Регистратор.Установить(СсылкаНаДокумент);

ну и далее заполнение реквизитов. А в конце
НаборЗаписейРегистра.Записать();

(13) только на тестовой базе делай, что бы регистр не потереть случаем.

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

бух.операция разве является регистратором для регистра накопления НДС Продажи?
P.S. Российских конф не знаю

(16) Кто мешает добавиьт?

(13) Не работает : НаборЗаписейРегистра.Отбор.Регистратор.Установить(СсылкаНаДокумент);

После Отбор нет возможности выбрать Регистратор и установить отбор по ссылке.. :( Как еще?

(16) да никто не мешает, но правильнее было бы использовать Корректировку записей регистра.

(18) у тебя документ не является регистратором для данного регистра

(16) посмотрите в конфигураторе в закладке Регистраторы у регистра накопления НДСЗаписиКнигиПродаж - есть регистратор Бухоперация.

(21)
потестил чутка код - работает, т.е. создает движения, только надо заставить БухОперацию открывать вкладку с этим регистром. На данный момент, после проведения этой обработки я открываю Операцию, добавляю вручную регистр НДС Продажи (галку ставлю) и обновляю открывшийся регистр - и моя строка там появляется.
Но надо будет дозаполнять регистр НДСов полюбому, а также довести программное добавление вкладки с регистром.

НоваяБухОперация = Документы.ОперацияБух.СоздатьДокумент();
   НоваяБухОперация.Организация       = глЗначениеПеременной("ОсновнаяОрганизация");
   НоваяБухОперация.Дата              = ТекущаяДата();
   НоваяБухОперация.Комментарий      = "Тест";
   НоваяБухОперация.Содержание          = "Возврат/сторно выручки";
   НоваяБухОперация.СпособЗаполнения = "Вручную";
   
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;
   
   //НоваяБухОперация.ЭтотОбъект.Движения.НДСЗаписиКнигиПродаж.Записывать = Истина;
   //НоваяБухОперация.ЭтотОбъект.Движения.НДСЗаписиКнигиПродаж.Записать();
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   
   //НоваяБухОперация.СуммаОперации = Строка1.Сумма+Строка2.Сумма+Строка3.Сумма;
   
   НаборЗаписейРегистра = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
   НаборЗаписейРегистра.Отбор.Регистратор.Установить(НоваяБухОперация.Ссылка);
   
   
   СтрокаНДСПродажи              = НаборЗаписейРегистра.Добавить();
   //СтрокаНДСПродажи.Регистратор = НоваяБухОперацияСсылка;
   СтрокаНДСПродажи.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
   СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = Перечисления.СтавкиНДС.НДС18;
   СтрокаНДСПродажи.ДатаОплаты  = ТекущаяДата();
   СтрокаНДСПродажи.Событие      = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = ТекущаяДата();
   СтрокаНДСПродажи.СуммаБезНДС = 10000;
   СтрокаНДСПродажи.НДС          = 1800;
   СтрокаНДСПродажи.Период      = ТекущаяДата();
   
   НаборЗаписейРегистра.Записать();


(22) Я до этого тоже добралась. После добавления закладки НДС продажи и обновления запись появляется. Только вот в регистре она появляется после нажатия в Бухсправке кнопки Ок, а не сразу, когда я пишу движения.. А как добавить активацию закладки НДС продажи и ее обновление? М-м-м.. Что-то не пойму.. :(

(23) вот примеры для "активации" закладок
//Движения по регистрам накопления
                   НоваяСтрока = ОперацияОбъект.ТаблицаРегистровНакопления.Добавить();
                   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.РеализацияУслуг.Имя;
                   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.РеализацияУслуг.Синоним;
                   НоваяСтрока = ОперацияОбъект.ТаблицаРегистровНакопления.Добавить();
                   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.РеализованныеТоварыКомитентов.Имя;
                   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.РеализованныеТоварыКомитентов.Синоним;

(24) Сейчас попробую..


Процедура КнопкаСформироватьНажатие(Кнопка)
   
   НоваяБухОперация = Документы.ОперацияБух.СоздатьДокумент();
   НоваяБухОперация.Организация       = глЗначениеПеременной("ОсновнаяОрганизация");
   НоваяБухОперация.Дата              = ТекущаяДата();
   НоваяБухОперация.Комментарий      = "Тест";
   НоваяБухОперация.Содержание          = "Возврат/сторно выручки";
   НоваяБухОперация.СпособЗаполнения = "Вручную";
   
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   
   НоваяСтрока = НоваяБухОперация.ТаблицаРегистровНакопления.Добавить();
   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Имя;
   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Синоним;
   
   
   НаборЗаписейРегистра = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
   НаборЗаписейРегистра.Отбор.Регистратор.Установить(НоваяБухОперация.Ссылка);
   
   
   СтрокаНДСПродажи              = НаборЗаписейРегистра.Добавить();
   СтрокаНДСПродажи.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
   СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = Перечисления.СтавкиНДС.НДС18;
   СтрокаНДСПродажи.ДатаОплаты  = ТекущаяДата();
   СтрокаНДСПродажи.Событие      = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = ТекущаяДата();
   СтрокаНДСПродажи.СуммаБезНДС = 10000;
   СтрокаНДСПродажи.НДС          = 1800;
   СтрокаНДСПродажи.Период      = ТекущаяДата();
   
   НаборЗаписейРегистра.Записать();
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   
КонецПроцедуры



(25) вышеуказанный код правильно обновляет. Фишка в том, что можно не париться, а просто записать документ в конце.

(26) и (27). Получилось. Огромное мерси. :) Всем! :)

Осталось одна неувязка - в регистре накопления запись появляется все равно после того, как я войду в уже созданный документ и запишу его еще раз. Почему так?

(29) Как написал код записи, так и работает...

(30) ??
В смысле "Код записи".

У меня написано так
НоваяСтрока = НоваяБухОперация.ТаблицаРегистровНакопления.Добавить();
   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Имя;
   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Синоним;
   
   РегСтрокаНДСПродажи = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
   РегСтрокаНДСПродажи.Отбор.Регистратор.Установить(НоваяБухОперацияСсылка);
   РегСтрокаНДСПродажи.Очистить();
   РегСтрокаНДСПродажи.Записать(Истина);

   РегСтрокаНДСПродажи.Записывать = Истина;

   СтрокаНДСПродажи             = РегСтрокаНДСПродажи.Добавить();
   СтрокаНДСПродажи.Регистратор = НоваяБухОперацияСсылка;
   СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = СтавкаНДС;
   СтрокаНДСПродажи.ДатаОплаты  = СтрокаДатаОперации;
   СтрокаНДСПродажи.Событие     = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = СтрокаДатаОперации;
   СтрокаНДСПродажи.СуммаБезНДС = СтрокаКолон_10;
   СтрокаНДСПродажи.НДС         = СтрокаКолон_12;
   СтрокаНДСПродажи.Период     = СтрокаДатаОперации;
   
   РегСтрокаНДСПродажи.Записать(Истина);
       
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);

Что может быть не так, что в регистр не пишется?

(31) ну а где удаление существующих?

(32) Было и удаление существующих , хотя удалять нечего, потому что ничего не записано. А причем тут удаление существующих?

(33) я в (26) выложил ведь рабочий код. Посмотри внимательно - там перед работой с регистрами накопления стоит запись документа Операция.

я документ открывал и открывал и у меня отображалась строка с регистром накопления.

(34) Есть такая запись.

НоваяБухОперация = Документы.ОперацияБух.СоздатьДокумент();
   НоваяБухОперация.Организация      = ЭтотОбъект.Организация;
   НоваяБухОперация.Дата              = СтрокаДатаОперации;
   НоваяБухОперация.Комментарий      = "Из файла "+СтрокаИмяФайла+". № док."+СтрокаКолон_2+"; "+СтрокаКолон_1+"; "+СтрокаКолон_7+" "+СтрокаИмпТовар;
   НоваяБухОперация.Содержание          = "Возврат/сторно выручки";
   НоваяБухОперация.СпособЗаполнения = "Вручную";
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

   // формируем движения в регистре Хозрасчетный - проводки
   
   РегСтрока = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
   РегСтрока.Отбор.Регистратор.Значение = НоваяБухОперацияСсылка;
   РегСтрока.Очистить();
   РегСтрока.Записать(Истина); //так НАДО! :)
   РегСтрока.Записывать = Истина;
   
   Строка1                                         = РегСтрока.Добавить();
   Строка1.СчетДт                                     = ПланыСчетов.Хозрасчетный.КассаОрганизации;
   Строка1.СубконтоДт.СтатьиДвиженияДенежныхСредств = ЭтотОбъект.СтатьяДДСРозница;
   Строка1.СчетКт                                     = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   Строка1.СубконтоКт.НоменклатурныеГруппы         = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка1.СубконтоКт.СтавкиНДС                     = СтавкаНДС;
   Строка1.Сумма                                     = СтрокаКолон_11;
   Строка1.Содержание                                 = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка1.Период                                     = СтрокаДатаОперации;
   РегСтрока.Записать(Истина);    
   
   Строка2                                = РегСтрока.Добавить();
   Строка2.СчетДт                            = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;
   Строка2.СубконтоДт.НоменклатурныеГруппы = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка2.СчетКт                            = ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговлеВПродажныхЦенахНТТ;
   Строка2.СубконтоКт.Склады                = ЭтотОбъект.СкладНТТ;
   Строка2.СубконтоКт.СтавкиНДС            = СтавкаНДС;
   Строка2.Сумма                            = СтрокаКолон_11;
   Строка2.Содержание                        = "Реализация товаров в розницу";
   Строка2.Период                            = СтрокаДатаОперации;
   РегСтрока.Записать(Истина);
   
   Строка3                                  = РегСтрока.Добавить();
   Строка3.СчетДт                              = ПланыСчетов.Хозрасчетный.Продажи_НДС;
   Строка3.СубконтоДт.НоменклатурныеГруппы   = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка3.СубконтоДт.СтавкиНДС              = СтавкаНДС;
   Строка3.СчетКт                              = ПланыСчетов.Хозрасчетный.НДС;
   Строка3.СубконтоКт.ВидыПлатежейВГосБюджет = Перечисления.ВидыПлатежейВГосБюджет.Налог;
   Строка3.Сумма                              = СтрокаКолон_12;
   Строка3.Содержание                          = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка3.Период                              = СтрокаДатаОперации;
   РегСтрока.Записать(Истина);
   
   НоваяБухОперация.СуммаОперации = Строка1.Сумма+Строка2.Сумма+Строка3.Сумма;
       
   // формируем движения в регистре накопления НДС продажи - движения
   
   НоваяСтрока = НоваяБухОперация.ТаблицаРегистровНакопления.Добавить();
   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Имя;
   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Синоним;
   
   РегСтрокаНДСПродажи = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
   РегСтрокаНДСПродажи.Отбор.Регистратор.Установить(НоваяБухОперацияСсылка);
   РегСтрокаНДСПродажи.Очистить();
   РегСтрокаНДСПродажи.Записать(Истина); //так НАДО! :)

   РегСтрокаНДСПродажи.Записывать = Истина;

   СтрокаНДСПродажи             = РегСтрокаНДСПродажи.Добавить();
   СтрокаНДСПродажи.Регистратор = НоваяБухОперацияСсылка;
   СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = СтавкаНДС;
   СтрокаНДСПродажи.ДатаОплаты  = СтрокаДатаОперации;
   СтрокаНДСПродажи.Событие     = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = СтрокаДатаОперации;
   СтрокаНДСПродажи.СуммаБезНДС = СтрокаКолон_10;
   СтрокаНДСПродажи.НДС         = СтрокаКолон_12;
   СтрокаНДСПродажи.Период     = СтрокаДатаОперации;
   
   РегСтрокаНДСПродажи.Записать(Истина);
       
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);

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

(36) перед // формируем движения в регистре накопления НДС продажи - движения
вставь строчку
НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

(37) Было и так. У меня в Хозрасчетный тоже проводка не пишется, хотя там стоит
НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

Я проверяла отчетом по проводкам за указанное число. проводка появляется только после перезаписи документа...

(37) это и так есть

Попробуй так, неужели не работает? В (26) несколько упращенный вариант, но он у меня работает. Скопируй ниже код:
НоваяБухОперация = Документы.ОперацияБух.СоздатьДокумент();
   НоваяБухОперация.Организация       = ЭтотОбъект.Организация;
   НоваяБухОперация.Дата              = СтрокаДатаОперации;
   НоваяБухОперация.Комментарий      = "Из файла "+СтрокаИмяФайла+". № док."+СтрокаКолон_2+"; "+СтрокаКолон_1+"; "+СтрокаКолон_7+" "+СтрокаИмпТовар;
   НоваяБухОперация.Содержание          = "Возврат/сторно выручки";
   НоваяБухОперация.СпособЗаполнения = "Вручную";
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

   // формируем движения в регистре Хозрасчетный - проводки

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

   РегСтрока.Записывать = Истина;
   
   Строка1                                          = РегСтрока.Добавить();
   Строка1.СчетДт                                      = ПланыСчетов.Хозрасчетный.КассаОрганизации;
   Строка1.СубконтоДт.СтатьиДвиженияДенежныхСредств = ЭтотОбъект.СтатьяДДСРозница;
   Строка1.СчетКт                                      = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   Строка1.СубконтоКт.НоменклатурныеГруппы          = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка1.СубконтоКт.СтавкиНДС                      = СтавкаНДС;
   Строка1.Сумма                                      = СтрокаКолон_11;
   Строка1.Содержание                                  = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка1.Период                                      = СтрокаДатаОперации;
   РегСтрока.Записать(Истина);    
   
   Строка2                                 = РегСтрока.Добавить();
   Строка2.СчетДт                             = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД;
   Строка2.СубконтоДт.НоменклатурныеГруппы = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка2.СчетКт                             = ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговлеВПродажныхЦенахНТТ;
   Строка2.СубконтоКт.Склады                = ЭтотОбъект.СкладНТТ;
   Строка2.СубконтоКт.СтавкиНДС             = СтавкаНДС;
   Строка2.Сумма                             = СтрокаКолон_11;
   Строка2.Содержание                         = "Реализация товаров в розницу";
   Строка2.Период                             = СтрокаДатаОперации;
   РегСтрока.Записать(Истина);
   
   Строка3                                   = РегСтрока.Добавить();
   Строка3.СчетДт                               = ПланыСчетов.Хозрасчетный.Продажи_НДС;
   Строка3.СубконтоДт.НоменклатурныеГруппы   = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Розница");
   Строка3.СубконтоДт.СтавкиНДС               = СтавкаНДС;
   Строка3.СчетКт                               = ПланыСчетов.Хозрасчетный.НДС;
   Строка3.СубконтоКт.ВидыПлатежейВГосБюджет = Перечисления.ВидыПлатежейВГосБюджет.Налог;
   Строка3.Сумма                               = СтрокаКолон_12;
   Строка3.Содержание                           = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка3.Период                               = СтрокаДатаОперации;
   РегСтрока.Записать(Истина);
   
   НоваяБухОперация.СуммаОперации = Строка1.Сумма+Строка2.Сумма+Строка3.Сумма;
       
   // формируем движения в регистре накопления НДС продажи - движения
         
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

   НоваяСтрока = НоваяБухОперация.ТаблицаРегистровНакопления.Добавить();
   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Имя;
   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Синоним;
   
   РегСтрокаНДСПродажи = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
   РегСтрокаНДСПродажи.Отбор.Регистратор.Установить(НоваяБухОперацияСсылка);
   РегСтрокаНДСПродажи.Очистить();
   РегСтрокаНДСПродажи.Записать(Истина); //так НАДО! :)


   РегСтрокаНДСПродажи.Записывать = Истина;

   СтрокаНДСПродажи              = РегСтрокаНДСПродажи.Добавить();
  СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = СтавкаНДС;
   СтрокаНДСПродажи.ДатаОплаты  = СтрокаДатаОперации;
   СтрокаНДСПродажи.Событие      = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = СтрокаДатаОперации;
   СтрокаНДСПродажи.СуммаБезНДС = СтрокаКолон_10;
   СтрокаНДСПродажи.НДС          = СтрокаКолон_12;
   СтрокаНДСПродажи.Период      = СтрокаДатаОперации;
   
   РегСтрокаНДСПродажи.Записать(Истина);
       
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);

(40). Ни фига.. :( Захожу в созданный документ, Перейти - НДС Продажи - и пусто..
Отчет по проводкам - пусто.. Может, дело в платформе?

(41) я уже дома, позже попробую именно твой код запустить.
А ты попробуй именно мой код в (26). Просто создай тестовую обработку и как есть код вставь без изменений. Должен создаться ОперацияБух текущей датой и посмотри что будет при открытии вкладки про НДС. Я запускаю обработку, потом открываю создавшийся документ, кликаю на вкладку и вижу готовую строку без перезаписи документа. Если ты тоже это увидишь, то сравнивай мой код с твоим и удали все лишнее из своего кода и понемногу раскручивай.

(41) только что взял твой код и чуть под себя адаптировал и все работает. Тестировал на бухне (не посмотрел какая версия, но нормальная, т.к. бухи не жалуются), а тут дома 2.0.30.8 тестовая база.

Попробуй у себя еще и нижепредставленный код (кроме кода в (26)):

Процедура КнопкаВыполнитьНажатие(Кнопка)
   НоваяБухОперация = Документы.ОперацияБух.СоздатьДокумент();
   НоваяБухОперация.Организация       = глЗначениеПеременной("ОсновнаяОрганизация");
   НоваяБухОперация.Дата              = ТекущаяДата();
   НоваяБухОперация.Комментарий      = "тест";
   НоваяБухОперация.Содержание          = "Возврат/сторно выручки";
   НоваяБухОперация.СпособЗаполнения = "Вручную";
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

   // формируем движения в регистре Хозрасчетный - проводки

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

   РегСтрока.Записывать = Истина;
   
   Строка1                                          = РегСтрока.Добавить();
   Строка1.СчетДт                                      = ПланыСчетов.Хозрасчетный.КассаОрганизации;
   Строка1.СубконтоДт.СтатьиДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000015");
   Строка1.СчетКт                                      = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   Строка1.СубконтоКт.НоменклатурныеГруппы          = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Обувь");
   Строка1.СубконтоКт.СтавкиНДС                      = Перечисления.СтавкиНДС.НДС18;
   Строка1.Сумма                                      = 1000;
   Строка1.Содержание                                  = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка1.Период                                      = ТекущаяДата();
   РегСтрока.Записать(Истина);    
   
   Строка2                                          = РегСтрока.Добавить();
   Строка2.СчетДт                                      = ПланыСчетов.Хозрасчетный.КассаОрганизации;
   Строка2.СубконтоДт.СтатьиДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000015");
   Строка2.СчетКт                                      = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   Строка2.СубконтоКт.НоменклатурныеГруппы          = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Обувь");
   Строка2.СубконтоКт.СтавкиНДС                      = Перечисления.СтавкиНДС.НДС18;
   Строка2.Сумма                                      = 1000;
   Строка2.Содержание                                  = "Загружено "+СокрЛП(Строка(ТекущаяДата()));
   Строка2.Период                                      = ТекущаяДата();
   РегСтрока.Записать(Истина);    
   
   НоваяБухОперация.СуммаОперации = Строка1.Сумма+Строка2.Сумма;
       
   // формируем движения в регистре накопления НДС продажи - движения
   
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);
   НоваяБухОперацияСсылка = НоваяБухОперация.Ссылка;

   
   НоваяСтрока = НоваяБухОперация.ТаблицаРегистровНакопления.Добавить();
   НоваяСтрока.Имя = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Имя;
   НоваяСтрока.Представление = Метаданные.РегистрыНакопления.НДСЗаписиКнигиПродаж.Синоним;
   
   РегСтрокаНДСПродажи = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
   РегСтрокаНДСПродажи.Отбор.Регистратор.Установить(НоваяБухОперацияСсылка);
   РегСтрокаНДСПродажи.Очистить();
   РегСтрокаНДСПродажи.Записать(Истина); //так НАДО! :)


   РегСтрокаНДСПродажи.Записывать = Истина;

   СтрокаНДСПродажи              = РегСтрокаНДСПродажи.Добавить();
   СтрокаНДСПродажи.Регистратор = НоваяБухОперацияСсылка;
   СтрокаНДСПродажи.ВидЦенности = Перечисления.ВидыЦенностей.Товары;
   СтрокаНДСПродажи.СтавкаНДС     = Перечисления.СтавкиНДС.НДС18;
   СтрокаНДСПродажи.ДатаОплаты  = ТекущаяДата();
   СтрокаНДСПродажи.Событие      = Перечисления.СобытияПоНДСПродажи.Реализация;
   СтрокаНДСПродажи.ДатаСобытия = ТекущаяДата();
   СтрокаНДСПродажи.СуммаБезНДС = 10000;
   СтрокаНДСПродажи.НДС          = 1800;
   СтрокаНДСПродажи.Период      = ТекущаяДата();
   
   РегСтрокаНДСПродажи.Записать(Истина);
       
   НоваяБухОперация.Записать(РежимЗаписиДокумента.Запись);

КонецПроцедуры


(41) ааа, я понял! Ты говоришь, что не видишь строки не в самом документе на вкладке НДС, а сам регистр не видишь, когда переходишь через меню "Перейти к регистру"!! Так для того, что бы строка там появилась необходимо все заполнить по регистру - Организацию (обязательно), покупателя и документ реализации (реквизит СчетФактура). Из-за незаполненного поля Организация строка не отображалась в регистре через "Перейти".
Итого, надо дозаполнить в ТЧ:
СтрокаНДСПродажи.Организация
СтрокаНДСПродажи.Покупатель
СтрокаНДСПродажи.СчетФактура

(44) Я тоже уже дома. Попробую все сделать, как ты сказал. Только вот у меня нет ни покупателя, ни счета-фактуры. Есть файл выгрузки из магазина. где в строке Возврат/сторно выручки тупо только дата и суммы - без НДС, НДС и с НДС. Мне даже неизвестно, на какую выручку это сторно. А то я бы сделала "бантик" в виде ссылки на сторнируемый документ (ПКО). Но не могу, к сожалению.
Рекомендацию твою попробую и отпишусь.. :)

(44) Все получилось. Действительно, не хватало записи измерения "организация". Добавила и все заработало..
ГрандСпасибо!!!

(46) =)