Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пометка на удаление. 1C 
:(
    Опции темы
bucdapus
Дата 5.7.2007, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 14.5.2007

Репутация: нет
Всего: нет



Существует справочник в нем есть группы и подгруппы и записи в них.нужно сделать процедуру чтобы она помечала все объекты на удаление(группы и подгруппы).я смог сделать только чтобы пометка делалась на одну группу(142).

***********************************************************************************
Процедура Сформировать()
    перем СпрН;
    ОчиститьОкноСообщений();
    СпрН=СоздатьОбъект("Справочник.Номенклатура");
    Если СпрН.НайтиПоКоду("142",0)=1 Тогда
      Если Вопрос("Пометить для удаления группу",4)=6  Тогда
          СпрН.Удалить(0);
    иначе 
        Предупреждение("Подразделение не найдено.");
    КонецЕсли;
       ОткрытьФорму("Справочник.Номенклатура.ФормаСписка");
       КонецПроцедуры
**********************************************************************************************************************************************************************
PM MAIL   Вверх
Engee
Дата 7.7.2007, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 25.3.2007
Где: Санкт-Петербург

Репутация: нет
Всего: нет



Вообще 1С при интерактивном удалении группы помечает и все вложенные элементы на удаление. Или проблема в том, как это сделать программно? Рекурсия форева!

PM MAIL   Вверх
Kaboom
Дата 9.7.2007, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 25.5.2007

Репутация: нет
Всего: нет



Если тебе надо пометить на удаление ВСЕ (???)  элементы справочника то это можно сделать так:
        
        Спр = СоздатьОбъект("Справочник.Номенклатура");
    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
        Спр.Удалить(0);
    КонецЦикла; 

Если чего я не правильно понял вопрос - пиши будем разбиратсяsmile
PM MAIL   Вверх
bucdapuswert
Дата 19.7.2007, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 30
Регистрация: 14.5.2007

Репутация: нет
Всего: нет



Огромное спасибо!! 
PM MAIL   Вверх
Zero
Дата 19.7.2007, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24



Цитата(Kaboom @  9.7.2007,  16:20 Найти цитируемый пост)
Если тебе надо пометить на удаление ВСЕ (???) 

Нет, ему нужно было только одну группу пометить. А для этого пере применением в твоём случае метода выбора элементов:
Код

Спр.ВыбратьЭлементы();

Нужно ещё добавить Метод ИспользоватьРодителя(), где параметры указываютсья в соответствии с документацией или синтаксис помощником.
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0637 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.