7.7 Программирование Проблемы

Тема в разделе "Общие вопросы "1С:Предприятие 7.7"", создана пользователем komolov, 13 июл 2016.

  1. TopicStarter Overlay
    komolov
    Offline

    komolov

    Регистрация:
    13 июл 2016
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Добрый день, специалисты.
    Что не так. Не изменяется справочник и все, хоть тресни

    Спр =СоздатьОбъект("Справочник.Товары");
    Кол=0;
    Дбф.Первая();
    // Проверим отчетную базу
    стр="ШтрихКод";
    Пока Дбф.Вконце()=0 Цикл
    Если Дбф.ЗаписьУдалена() = 0 Тогда
    дКод= Формат(Строка(Дбф.PLU),"Ч013");
    // Обработка записи
    // ОБРАБТКА по Коду товара из поля PLU
    Если Спр.НайтиПоКоду( дКод,0 ) =1 Тогда
    // Нашли
    Дбф.PLU=Спр.Код;
    Если Спр.ШтрихКод <> Дбф.EAN Тогда
    Спр.ШтрихКод = Дбф.EAN;
    Спр.Записать();
    КонецЕсли;
    // ПРОВЕРИМ НАЗВАНИЕ
    ИначеЕсли Спр.НайтиПоНаименованию( Врег(Дбф.Name),0 ) =1 Тогда
    // Нашли
    Дбф.PLU=Спр.Код;
    Если Спр.ШтрихКод <> Дбф.EAN Тогда
    Спр.ШтрихКод = Дбф.EAN;
    Спр.Записать();
    КонецЕсли;
    // Проврим по ШтрихКоду
    Иначе
  2. Катюфка
    Offline

    Катюфка Профессионал в 1С

    Регистрация:
    3 июн 2013
    Сообщения:
    405
    Симпатии:
    71
    Баллы:
    54
    Здравствуйте.
    Смотрите в отладчике работу алгоритма. Если ошибок программой не выдается, то скорее всего не находятся нужные элементы. В ИНАЧЕ у Вас какое-то сообщение или создаете новый элемент?
  3. TopicStarter Overlay
    komolov
    Offline

    komolov

    Регистрация:
    13 июл 2016
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Да в том то и печаль. Элемент находит, ошибок не выдает но и не фиксирует изменений. А новый элемент создавать каждый раз при согласовании не будешь.
  4. Катюфка
    Offline

    Катюфка Профессионал в 1С

    Регистрация:
    3 июн 2013
    Сообщения:
    405
    Симпатии:
    71
    Баллы:
    54
    У Вас запись элемента справочника идет, только если не равен штрих-код.
    Во-первых, можно убрать условие и сразу присваивать Спр.ШтрихКод = Дбф.EAN; Я за упрощение кода. :)
    Во-вторых, проверить, совпадают ли типы значений в файле и в справочнике.
    В-третьих, сделать ИНАЧЕ с выводом сообщения, если элемент не найден (хотя бы для проверки).
Похожие темы
  1. sscc
    Ответов:
    0
    Просмотров:
    1.423
  2. Максим!
    Ответов:
    3
    Просмотров:
    658
  3. Матвеева Ирина
    Ответов:
    1
    Просмотров:
    389
Загрузка...

Поделиться этой страницей