Имя: Пароль:
1C
1С v8
Не подставляется счет ДТ в Корректировку регистров
,
0 Baglandir
 
21.10.11
15:58
Переношу остатки в базу.
При записи в документ Корректировка регистров новой строчки
Не подставляется счет ДТ несмотря на что что в отладчике сам счет находит ?

Код :
       Запрос = Восьмерка.NewObject("Запрос");
   Запрос.Текст = "ВЫБРАТЬ
                  |    ХозрасчетныйОстатки.Счет,
                  |    ХозрасчетныйОстатки.Субконто1,
                  |    ХозрасчетныйОстатки.Субконто2,
                  |    ХозрасчетныйОстатки.Субконто3,
                  |    ХозрасчетныйОстатки.Субконто4,
                  |    ХозрасчетныйОстатки.Организация,
                  |    ХозрасчетныйОстатки.Валюта,
                  |    ХозрасчетныйОстатки.СуммаОстаток,
                  |    ХозрасчетныйОстатки.ВалютнаяСуммаОстаток,
                  |    ХозрасчетныйОстатки.КоличествоОстаток
                  |ИЗ
                  |    РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, , , ) КАК ХозрасчетныйОстатки" ;
                 
     Запрос.УстановитьПараметр("Дата",ТекущаяДата());
   Результат = Запрос.Выполнить().Выгрузить();
   
   НДок =    Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
   НоваяСтрокаРегБух = НДок.ТаблицаРегистровБухгалтерии.Добавить();
   НоваяСтрокаРегБух.Имя = "Хозрасчетный";
   НоваяСтрокаРегБух.Представление = "Журнал проводок (бухгалтерский учет)";
   НДок.Дата = ТекущаяДата();
   НДок.Записать();
   //НДок.Заблокировать();
   
   Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
   Движ.Отбор.Регистратор.Значение = НДок.Ссылка;
   Движ.Прочитать();
   
   Для каждого ел из Результат цикл
       ОбработкаПрерыванияПользователя();
       Нстрока            = Движ.Добавить();
       Нстрока.Период        = ТекущаяДата();
       Нстрока.Регистратор = НДок.Ссылка;
       //Нстрока.Валюта        = Справочники.Валюты.НайтиПоКоду(ел.Валюта.Код);
       Нстрока.Организация = Справочники.Организации.НайтиПоКоду(Ел.Организация.Код);
       Нстрока.СчетДт      = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СокрЛП(Ел.Счет.Код));
       Нстрока.СчетКт        = ПланыСчетов.Хозрасчетный.НайтиПоКоду(00);
       
       //Нстрока.Субконто1    = ПланыСчетов.Хозрасчетный.НайтиПоКоду(Ел.Счет.Код);
       
   КонецЦикла;                          
   
   Движ.Записать();
   НДок.Записать();


Не заполняется только счет дт...
1 Axel2009
 
21.10.11
16:08
(0) Нстрока.СчетДт после присвоения пустое али нет?
2 Baglandir
 
21.10.11
16:17
Заполненное, а в документ не выводит :(
3 catena
 
21.10.11
16:27
А зачем так сложно?
ПланыСчетов.Хозрасчетный.НайтиПоКоду(СокрЛП(Ел.Счет.Код));
Почему не просто
Ел.Счет
???
4 catena
 
21.10.11
16:27
Ой, пардон...
5 Axel2009
 
21.10.11
16:31
а в документе данные то привязаны?
6 Baglandir
 
21.10.11
16:54
(5) Да, привязаны.
7 Axel2009
 
21.10.11
16:58
а если запросом выводить то как?
в передзаписью регистра бухгалтерии зайди, там может очищать типа если счет не участвует в проводках
8 DrShad
 
21.10.11
17:03
(0) вобще-то по фэншую запросом получить уже готовую к записи в НЗ таблицу и в нее записать
9 acsent
 
21.10.11
17:07
Может все-таки СчетКт не заполнен?
10 DrShad
 
21.10.11
17:08
(9) +1
одного знака в коде не хватает
11 Baglandir
 
21.10.11
17:43
(7) спасибо. Помогло !
Программист всегда исправляет последнюю ошибку.