Имя: Пароль:
1C
1С v8
Проведение документа
0 first_may
 
21.09.11
17:23
Добрый день. Конфа: Бухгалтерия предприятия, редакция 2.0 (2.0.26.8). Пишу следующий код проведения:

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

Проводка делается, счета заполняются. Однако субконто по дебету пустое. Что я делаю не так? Прошу помощи!
1 Grusswelle
 
21.09.11
17:26
Что говорит отладчик?
2 first_may
 
21.09.11
17:26
Ошибок нет никаких, проведение идет, носубконто пустое.
3 SMakcik
 
21.09.11
17:27
А может его воще там нет?
4 noprogrammer
 
21.09.11
17:27
(0) нельзя так субконто устанавливать.....
5 first_may
 
21.09.11
17:28
Счет по дебету 60.22. В нем есть три субконта.
6 first_may
 
21.09.11
17:28
Я понял что нельзя, но как то через запрос же можно наверное?
7 unregistered
 
21.09.11
17:29
(0) Бред какой.
8 unregistered
 
21.09.11
17:29
(6) Можно.
9 first_may
 
21.09.11
17:30
А как?
10 unregistered
 
21.09.11
17:32
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|    СписаниеСРасчетногоСчета.Дата КАК Период,
|    СписаниеСРасчетногоСчета.Ссылка КАК Регистратор,
|    ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.РасчетыПоАвансамВыданнымВал) КАК СчетДт,
|    ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты) КАК ВидСубконтоДт1,
|    СписаниеСРасчетногоСчета.Контрагент КАК СубконтоДт1,
|    ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры) КАК ВидСубконтоДт2,
|    СписаниеСРасчетногоСчета.ДоговорКонтрагента КАК СубконтоДт2,
|    ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.ВалютныеСчета) КАК СчетКт,
|    СписаниеСРасчетногоСчета.Организация,
|    СписаниеСРасчетногоСчета.ВалютаДокумента КАК ВалютаДт,
|    СписаниеСРасчетногоСчета.ВалютаДокумента КАК ВалютаКт,
|    ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.РасчетныеСчета) КАК ВидСубконтоКт1,
|    СписаниеСРасчетногоСчета.СчетОрганизации КАК СубконтоКт1,
|    СписаниеСРасчетногоСчета.СуммаДокумента КАК Сумма
|ИЗ
|    Документ.СписаниеСРасчетногоСчета КАК СписаниеСРасчетногоСчета
|ГДЕ
|    СписаниеСРасчетногоСчета.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
Движения.Хозрасчетный.Записывать = Истина;
Движения.Хозрасчетный.Загрузить(РезультатЗапроса.Выгрузить());


И где валютная сумма Дт и Кт?
11 zbv
 
21.09.11
17:32
(9) номера субконто должны быть и виды субконто еще, тоже с номером.
12 first_may
 
21.09.11
17:33
Я понимаю что строка
СписаниеСРасчетногоСчета.Контрагент КАК СубконтоДт,
заполнена не верно, поэтому и в набор записей не попадает. А вот как оформить это поле я не знаю, поэтому и обратился.
13 tertva_1C
 
21.09.11
17:33
а зачем через запрос, стандарным путем ни как ?
14 unregistered
 
21.09.11
17:34
+ к (10) Имена предопределенных видов субконто мог и наврать.

В запрос еще надо добавить ВалютнаяСуммаДт и ВалютнаяСуммаКт.
15 first_may
 
21.09.11
17:39
ТО unregistered - спасибо, получилось!!! :) принцип я понял, дальше добью!
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс