Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 21:10

Закладки формы из результатов запроса. Как? (

Автор Gaidn, 06 дек 2010, 18:49

0 Пользователей и 1 гость просматривают эту тему.

Gendelf


prog1c7.7

Почему? что говорит?
У меня работает.

Gendelf

Цитата: prog1c7.7 от 09 дек 2010, 09:29
Почему? что говорит?

ничего, без ошибок, ставлю флаг, форма обновляется и всё =/

prog1c7.7

а если так:
Если ФлЗакладки=1 Тогда
Форма.ИспользоватьЗакладки(ФлЗакладки);
...
бла бла бла
...
Спис.Выгрузить(Форма.Закладки);
МОДИФИЦИРОВАННОСТЬ();
  Иначе
УстановитьОтбор("");
Форма.ИспользоватьЗакладки(ФлЗакладки);
МОДИФИЦИРОВАННОСТЬ();
  КонецЕсли;


Gendelf


prog1c7.7

//о как...
//а нука добавь:
Спис.ДобавитьЗначение(Спр.ТекущийЭлемент(), СокрЛП(Спр.ТипСклада));
Сообщить(Спр.ТекущийЭлемент() + "   " + СокрЛП(Спр.ТипСклада));
          КонецЕсли;

//он пополняет или нет вообще

prog1c7.7

на форме во флаге пропиши в "дополительно"
Приоткрытии()

Но лучше так примерно сделай:
Во  флаге пропиши в "дополительно"
ПриФлаге(),

а модуль примерно так:

Процедура ПриОткрытии()
Форма.ИспользоватьЗакладки(ФлЗакладки);
ПриФлаге();
КонецПроцедуры

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

prog1c7.7


Gendelf

мне хорошо бы вообще без флага, чтобы при открытии сразу были вкладки...
щас попробую, надеюсь хоть что-то получиться

Gendelf

Спис.ДобавитьЗначение(Спр.ТекущийЭлемент(), СокрЛП(Спр.ТипСклада));

не выполняет...

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск