Подскажите почему нет записей в документе?? док создается


Процедура КнопкаВыполнитьНажатие(Кнопка)
Текст = Новый ТекстовыйДокумент;
// открытие файла
Текст.Прочитать("C:\1.txt");
//создание документа
   Док             = Документы.ОперацияБух.СоздатьДокумент();
   Док.Дата        = Дат;
   Док.Организация = Организция;
   Док.Содержание  = "Ввод началных остатков по счету З73";
   РХоз   = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
   РХоз.Отбор.Регистратор.Установить(Док.Ссылка);
   Рхоз.Записывать = Истина;


   //перебор строк
   Для НомерСтроки = 1 по Текст.КоличествоСтрок() Цикл
   Стр             = Текст.ПолучитьСтроку(НомерСтроки);
   Позиция         = Найти(Стр,";");
   //преобразование строку в массив    
   МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Стр,";");    
   Сотр   = МассивСтрок[0];
   Номен  = МассивСтрок[1];
   Деб    = МассивСтрок[2];
   Кред   = МассивСтрок[3];
   
   Если ЗначениеЗаполнено(Деб) Тогда
       Дебет = Число(Деб);
   КонецЕсли;
   
   Если ЗначениеЗаполнено(Кред) Тогда
       Кредет = Число(Кред);
   КонецЕсли;
   
   // поиск
    Сотруд = Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(Сотр));
    Номенклатура  = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Номен));
   //запись в регистрбух    

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


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

Документ перед отбором регистратора надо записать

через отладчик смотрю, вставляет оба субконто но в доке не появляются записи(

Перед отбором регистра, т.е.

поставил толку нет(

Набор записей регистра кто будет записывать?

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

КонецЕсли;
    Док.Записать(); // - убрать
КонецЦикла;    
//запись документа

   Док.Записать(); // - вместо этого написать РХоз.Записать();

неа(((

(8)

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Текст = Новый ТекстовыйДокумент;
   Текст.Прочитать("C:\1.txt");

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

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

   Для НомерСтроки = 1 по Текст.КоличествоСтрок() Цикл
       Стр             = Текст.ПолучитьСтроку(НомерСтроки);
       МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Стр,";");    
       Сотр   = МассивСтрок[0];
       Номен  = МассивСтрок[1];
       Деб    = МассивСтрок[2];
       Кред   = МассивСтрок[3];
   
       Если ЗначениеЗаполнено(Деб) Тогда
           Дебет = Число(Деб);
       КонецЕсли;
   
       Если ЗначениеЗаполнено(Кред) Тогда
           Кредет = Число(Кред);
       КонецЕсли;
   
       Сотруд = Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(Сотр));
       Номенклатура  = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Номен));

       //Дт

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

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

Если ЗначениеЗаполнено(Деб) Тогда
           Дебет = Число(Деб);
       КонецЕсли;
   
       Если ЗначениеЗаполнено(Кред) Тогда
           Кредет = Число(Кред);
       КонецЕсли;

Обрамляй в "Попытка..Исключение" иначе если там хлам - вылетит

ЗначениеЗаполнено(Кредет) И Кредет >0

заменяй на

Кредет > 0

(соответственно

ЗначениеЗаполнено(Дебет) И Дебет >0

в

Дебет >0

Сотруд = Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(Сотр));
       Номенклатура  = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Номен));


Добавь проверку, что ссылки найдены, и в переменных не лежат пустые ссылки

Благодарность материальная приветствуется

Спасибо! Большое! будет возможность отблагодарю обязательно!

(14) Ну вон на телефон кинь 350 р - достаточно

за  строчку?

(16) За переписывание твоего модуля

а где, пардоньте, оператор
Проводка.Записать();
?

(0) ОперацияБух документ не проводится в свойствах
По этому набор записей надо записывать руками.

(18) А это что такое за метод? К чему он привязан?

част работающего г-кода:
   ДокОперация = Документы.ОперацияБух.СоздатьДокумент(); //документ и шапка
   ДокОперация.Дата = ДатаДокумента;
   ДокОперация.Организация = ВыбОрганизация;
...
   ДокОперация.Записать();
   ДокОперацияСсылка = ДокОперация.Ссылка;

...

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

   СуммаДокумента = СуммаДокумента + Сум;
...
   РегХозрасчетный.Записать(Истина); //записаны проводки = запись регистра - то, что я не увидел в сабже
   ДокОперация.СуммаОперации = СуммаДокумента;
   ДокОперация.Записать(); //записан сам документ