Имя: Пароль:
1C
1С v8
где тут скрываются столбцы не нужные ☑
0 Uragan_a
 
14.06.12
✎
11:02
Процедура ДействияПриОткрытии()

   Перем Команда;

   Если СтруктураИсходныхПараметров.Свойство("ДатаРасчетов") Тогда
       ДатаРасчетов = СтруктураИсходныхПараметров.ДатаРасчетов;
   Иначе
       ДатаРасчетов = ТекущаяДата();
   КонецЕсли;
   ЭлементыФормы.СписокВидовПодбора.СписокВыбора = СтруктураИсходныхПараметров.СписокВидовПодбора;

   СписокВидовПоиска = Новый СписокЗначений;
   СписокВидовПоиска.Добавить("Наименование",       "наименованию");
   СписокВидовПоиска.Добавить("НаименованиеПолное", "полному наименованию");
   СписокВидовПоиска.Добавить("Код",                "коду");
   СписокВидовПоиска.Добавить("Артикул",            "артикулу");
   СписокВидовПоиска.Добавить("Штрихкод",           "штрихкоду");
   ЭлементыФормы.СписокВидовПоиска.СписокВыбора = СписокВидовПоиска;

   //УправлениеДиалогом(); // если цен в подборе нет, скроем колонки, относящиеся к ценам
   ПроверитьВидимостьКартинки();
   
   // Восстановим значение варианта подбора.
   // Считаем, что подобр зовется только из форм документов
   НомерВидаПодбора = ВосстановитьЗначение(СокрЛП(ВладелецФормы.ЭтотОбъект.Метаданные().Имя)
                                           + СокрЛП(СтруктураИсходныхПараметров.Команда) + "НомерВидаПодбора");

   // Если не удалось восстановить, то инициализируем список видов подбора первым значением из списка.
   ЭлементыФормы.СписокВидовПодбора.Значение = ?(НомерВидаПодбора = Неопределено
                                                 Или НомерВидаПодбора >= СтруктураИсходныхПараметров.СписокВидовПодбора.Количество(),
                                                 СтруктураИсходныхПараметров.СписокВидовПодбора[0].Значение,
                                                 СтруктураИсходныхПараметров.СписокВидовПодбора[НомерВидаПодбора].Значение);

   // Восстановим значение варианта поиска.
   // Считаем, что подбор зовется только из форм документов
   НомерВидаПоиска = ВосстановитьЗначение(СокрЛП(ВладелецФормы.ЭтотОбъект.Метаданные().Имя)
                                          + СокрЛП(СтруктураИсходныхПараметров.Команда) + "НомерВидаПоиска");

   // Если не удалось восстановить, то инициализируем список видов поиска первым значением из списка.
   ЭлементыФормы.СписокВидовПоиска.Значение = ?(НомерВидаПоиска = Неопределено
                                                Или НомерВидаПоиска >= ЭлементыФормы.СписокВидовПоиска.СписокВыбора.Количество(),
                                                ЭлементыФормы.СписокВидовПоиска.СписокВыбора[0].Значение,
                                                ЭлементыФормы.СписокВидовПоиска.СписокВыбора[НомерВидаПоиска].Значение);

   // Покажем соответствующее табличное поле и заполним таблицу номенклатуры текущего родителя.
   ПриИзмененииВидаПодбора(ЭлементыФормы.СписокВидовПодбора.Значение);
   
   мПерезаполнятьТаблицуНоменклатуры = Истина;
   
   УстановитьВидимостьКолонокСОстатками();
   
   Если ПодборПоСправочнику Тогда
       ЭтаФорма.ТекущийЭлемент = ЭтаФорма.ЭлементыФормы.СправочникНоменклатура;
       УстановитьВидимостьОстатковНаСкладах();
   Иначе
       ЭтаФорма.ТекущийЭлемент = ЭтаФорма.ЭлементыФормы.НоменклатураДляПодбора;
   КонецЕсли;

   ЭтаФорма.Заголовок = СтруктураИсходныхПараметров.Заголовок;

КонецПроцедуры // ДействияПриОткрытии()
1 Defender aka LINN
 
14.06.12
✎
11:03
Забыл дописать "Быстро показали!"
2 birkoFFFF
 
14.06.12
✎
11:03
УстановитьВидимостьКолонокСОстатками();

УстановитьВидимостьОстатковНаСкладах();
3 Buster007
 
14.06.12
✎
11:04
"что подбор зовется только"

его не зовут, он сам приходит
4 andrewks
 
14.06.12
✎
11:12
задачка на смекалку?
5 Uragan_a
 
14.06.12
✎
14:52
не могу найти как сделать видимыми свои столбцы
6 Uragan_a
 
14.06.12
✎
14:52
ну все обыскал)
Программист всегда исправляет последнюю ошибку.