|
Программно подставить пустое значение опред типа в проводку |
☑ |
0
Cherokee
18.11.11
✎
15:03
|
Здравствуйте!
Надо программно подставить пустые значения в проводки по 70 счету по документу, но чтоб они были типа справочника "физлица". Вот код, чето не так. Но что.
Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Док);
Набор.Прочитать();
Для Каждого Движение Из Набор Цикл
Если Строка(Движение.СчетДт) = "70" Тогда
Движение.СубконтоДт[1] = Справочники.ФизическиеЛица.ПустаяСсылка();
КонецЕсли;
Если Строка(Движение.СчетКт) = "70" Тогда
Движение.СубконтоКт[1] = Справочники.ФизическиеЛица.ПустаяСсылка();
КонецЕсли;
КонецЦикла;
Набор.Записать();
|
|
1
Рэйв
18.11.11
✎
15:07
|
попробуй
Если Строка(Движение.СчетДт.Код) = "70" Тогда
|
|
2
Cherokee
18.11.11
✎
15:11
|
(1) да не, условие проходит норм. Он не приравнивает
|
|
3
Рэйв
18.11.11
✎
15:12
|
Тогда попробу прямо
Движение.СубконтоДт.ИмяСубконто =
|
|
4
Maxus43
18.11.11
✎
15:13
|
(2) неправильно всё равно, не по человечески так писать
|
|
5
Maxus43
18.11.11
✎
15:14
|
СубконтоДт[0]
|
|
6
Cherokee
18.11.11
✎
15:15
|
сработало так. Извините за беспокойство
Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Док);
Набор.Прочитать();
Для Каждого Движение Из Набор Цикл
Если Строка(Движение.СчетДт) = "70" Тогда
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизации] = Справочники.ФизическиеЛица.ПустаяСсылка();
КонецЕсли;
Если Строка(Движение.СчетКт) = "70" Тогда
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизации] = Справочники.ФизическиеЛица.ПустаяСсылка();
КонецЕсли;
КонецЦикла;
Набор.Записать();
Сообщить("Успешно записано");
|
|