Помогите с обработкой
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 4 из 4
  1. #1
    Пришел за помощью

    Регистрация
    24.05.2009
    Сообщений
    10
    Сказал(а) спасибо
    41
    Поблагодарили 1 раз в 1 сообщении

    По умолчанию Помогите с обработкой

    1с:Предприятие 7.7, конфигурация "Комплексная" релиз 510. В справочнике "Номенклатура" пропали(очистились) базовые единицы измерения. Сами справочники "единиц" остались на месте. Для восстановления ситуации сделано:
    1) Тестирование и исправление ИБ(с настройками - создавать объекты) - без положительного результата.
    2) написана обработка:
    //*******************************************
    Процедура Выполнить()

    Номенклатура = СоздатьОбъект("Справочник.� �оменклатура");
    СпрЕдиниц = СоздатьОбъект("Справочник.� �диницы");

    Шт = глЗначениеПоУмолчанию("Осн овнаяОКЕИ");

    Номенклатура.ВыбратьЭлеме� �ты();
    Пока Номенклатура.ПолучитьЭлем� �нт() = 1 Цикл
    ТекНоменклатура = Номенклатура.ТекущийЭлеме� �т();
    Если (ТекНоменклатура.ЭтоГруппа () = 1) ИЛИ (ПустоеЗначение(ТекНоменкл атура.БазоваяЕдиница) = 0) Тогда
    // Сообщить("Пропускаем" + ТекЭлем.Наименование);
    Продолжить;
    Иначе
    СпрЕдиниц.ВыбратьЭлементы( );
    СпрЕдиниц.ИспользоватьВла� �ельца(ТекНоменклатура);

    // СпрЕдиниц.ВыбратьЭлементы� �оРеквизиту("Владелец", ТекНоменклатура,,);
    Если СпрЕдиниц.НайтиПоРеквизит� �("ОКЕИ",Шт,) = 1 Тогда
    ТекЕдиница = СпрЕдиниц.ТекущийЭлемент();
    ТекНоменклатура.БазоваяЕд� �ница = ТекЕдиница;
    Попытка
    Номенклатура.Записать();
    Сообщить("Записали " +ТекНоменклатура.Наименова ние + " " + ТекНоменклатура.БазоваяЕд� �ница);
    // Прервать; // для отладки, что бы не ждать конца обработки всего справочника
    Исключение
    Предупреждение( "Не выполнено сохр. спр. " + ТекНоменклатура + ОписаниеОшибки() +
    РазделительСтрок + "Элемент не сохранен)", 60);
    КонецПопытки;
    Иначе
    Сообщить("У номенклатуры " + ТекНоменклатура + " нет едниц");
    КонецЕсли;

    КонецЕсли;
    КонецЦикла

    Но она не дает результата. В какую сторону смотреть?
    Последний раз редактировалось kostromin63; 31.10.2011 в 11:36. Причина: не сохраняет табуляции

  2. #2
    Пришел за помощью

    Регистрация
    24.05.2009
    Сообщений
    10
    Сказал(а) спасибо
    41
    Поблагодарили 1 раз в 1 сообщении

    По умолчанию

    Вопрос решен. Вместо метода ТекНоменклатура.Базовая..... = ....; применили Номенклатура.Базовая... = ...; Странно, но сработало. Подсказано на другом форуме

  3. #3
    Пришел за помощью

    Регистрация
    21.07.2011
    Сообщений
    0
    Сказал(а) спасибо
    11
    Поблагодарили 2 раз(а) в 2 сообщениях

    По умолчанию

    На каком?

  4. #4
    Пришел за помощью

    Регистрация
    24.05.2009
    Сообщений
    10
    Сказал(а) спасибо
    41
    Поблагодарили 1 раз в 1 сообщении

    По умолчанию

    На buh ру

  5. Пользователь сказал cпасибо:

    Amisoft (19.12.2011)

Похожие темы

  1. Ответов: 4
    Последнее сообщение: 04.07.2014, 02:16
  2. Помогите разобраться с настройкой сети
    от bertezen в разделе В помощь системному администратору
    Ответов: 1
    Последнее сообщение: 26.01.2011, 00:58
  3. Помогите кто сталкивался с ошибкой...
    от ivs-hit в разделе СОФТ (SOFT)
    Ответов: 1
    Последнее сообщение: 07.10.2010, 21:50
  4. Помогите с цепочкой прокси
    от ShadeRU в разделе В помощь системному администратору
    Ответов: 1
    Последнее сообщение: 25.09.2010, 20:54

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •