Имя: Пароль:
1C
1С v8
Как програмно выбрать план счетов?
0 Sintez123
 
26.09.11
11:41
По идее юзер в форме выбирать план счетов из существующих. Существующие получаются через цикл по метаданным. Все есть, уже написал, только не могу понять как сделать так, чтобы выбрались счета по нужному мне плану счетов. Вот код:

Процедура ЧитатьПланы()
   Счетчик = 0;
   Для А = 0 По Планы.Количество() - 1 Цикл
       Если Планы.Получить(А).Пометка = Истина Тогда
           Счетчик = Счетчик + 1;
           Сообщить(Планы.Получить(А));
           ВыбПлан = Планы.Получить(А).Значение;
       КонецЕсли;
   КонецЦикла;
   Если Счетчик <> 1 Тогда
       Ошибки = Истина;
       Предупреждение("Нужно выбрать один план счетов");
   Иначе
       Выборка = ПланыСчетов.Хозрасчетный.Выбрать();
       Пока Выборка.Следующий() Цикл
           Сообщить(Выборка.Код);
       КонецЦикла;    
   КонецЕсли;
КонецПроцедуры //ЧитатьПланы


Там где делает выборка, должно стоять не хозрасчетный а выбранный ВыбПлан. Всяко пробовал - не получается.

Нафиг оно им надо: хотят быстро сравнивать планы счетов между файлом екселя. Отчет должен показать отличия между планом счетов и тем, что в екселе.

Вопрос: как сделать выборку по заранее не известному плану счетов и получить все счета и субконто?
1 zak555
 
26.09.11
11:42
запросом ?
2 Beduin
 
26.09.11
11:43
(0) ПланыСчетов.[ИмяПланаСчетов].Выбрать();
3 Sintez123
 
26.09.11
11:43
(1) вот тоже думал что запросом. но тоже пока не представляю как. пробую сижу запросом
4 Sintez123
 
26.09.11
11:44
(2) получилось вот что
Выборка = ПланыСчетов.[ВыбПлан].Выбрать();
{Форма.ФормаОтчета.Форма(26,25)}: Ожидается идентификатор
       Выборка = ПланыСчетов.<<?>>[ВыбПлан].Выбрать(); (Проверка: Толстый клиент (обычное приложение))
5 Reset
 
26.09.11
11:45
Точку убери ёлки
6 Sintez123
 
26.09.11
11:45
О! Получилось! точку убрал
7 Sintez123
 
26.09.11
11:46
(5) спс! Я уже и сам догнал точку убрать =)
8 Sintez123
 
26.09.11
11:46
Тема закрыта всем спасибо =)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший