Имя: Пароль:
1C
1С v8
Программно подставить пустое значение опред типа в проводку
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" Тогда
           Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизации] = Справочники.ФизическиеЛица.ПустаяСсылка();
       КонецЕсли;
       
   КонецЦикла;
   
   Набор.Записать();
   Сообщить("Успешно записано");
Основная теорема систематики: Новые системы плодят новые проблемы.