Доброго времени суток! Конфа УТ 10.3 ... довольно старый релиз. Документ "Установка типов цен по номенклатурным группа для покупателей". Процедура

"ПроверитьПересекающиесяДокументы(Отказ, Заголовок)"


И там текст (ТИПОВОЙ):

Запрос = Новый Запрос;

   Запрос.УстановитьПараметр("ДокументСсылка", Ссылка);
   Запрос.УстановитьПараметр("ПустойТипЦен", Справочники.ТипыЦенНоменклатуры.ПустаяСсылка());
   Запрос.УстановитьПараметр("Дата", Дата);
   Запрос.УстановитьПараметр("Контрагент", Контрагент);

   Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
   |    Док.НоменклатурнаяЦеноваяГруппа КАК Группа,
   |    Док.ДатаНачала КАК ДатаНачалаДок,
   |    Док.ДатаОкончания КАК ДатаОкончанияДок,
   |    РегТипыДляПокупателей.ТипЦен КАК ТипЦен,
   |    РегТипыДляПокупателей.Период КАК ДатаНачала,
   |    РегТипыДляПокупателей.Регистратор КАК Регистратор
   |ИЗ
   |    Документ.УстановкаТиповЦенПоГруппамНоменклатурыДляПокупателей.НоменклатурныеЦеновыеГруппы КАК Док
   |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК СпрНоменклатура
   |        ПО (Док.Ссылка = &ДокументСсылка)
   |            И (СпрНоменклатура.НоменклатурнаяГруппа = Док.НоменклатурнаяЦеноваяГруппа
   |                ИЛИ СпрНоменклатура.ЦеноваяГруппа = Док.НоменклатурнаяЦеноваяГруппа)
   |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ТипыЦенПоГруппамНоменклатурыДляПокупателей КАК РегТипыДляПокупателей
   |        ПО (СпрНоменклатура.НоменклатурнаяГруппа = РегТипыДляПокупателей.НоменклатурнаяЦеноваяГруппа
   |                ИЛИ СпрНоменклатура.ЦеноваяГруппа = РегТипыДляПокупателей.НоменклатурнаяЦеноваяГруппа)
   |            И (РегТипыДляПокупателей.Контрагент = &Контрагент)
   |
   |УПОРЯДОЧИТЬ ПО
   |    ДатаНачала,
   |    Группа,
   |    ТипЦен УБЫВ";

   ТЗ = Запрос.Выполнить().Выгрузить();

   ТЗ.Колонки.Добавить("ДатаОкончания");
   ТЗ.ЗаполнитьЗначения('00010101' ,"ДатаОкончания");

   КоличествоСтрок = ТЗ.Количество() - 1;
   Для Тмп = 0 По КоличествоСтрок Цикл
       СтрокаТЗ = ТЗ[КоличествоСтрок - Тмп];

       Если НЕ ЗначениеЗаполнено(СтрокаТЗ.ТипЦен) Тогда
           Для Тмп1 = 0 По ТЗ.Количество() -1 Цикл
               СтрокаПоиска = ТЗ[Тмп1];

               Если СтрокаПоиска.Группа = СтрокаТЗ.Группа
                  И НЕ ЗначениеЗаполнено(СтрокаПоиска.ДатаОкончания) Тогда
                   СтрокаПоиска.ДатаОкончания = СтрокаТЗ.ДатаНачала;
                   ТЗ.Удалить(СтрокаТЗ);
                   Прервать;
               КонецЕсли;
           КонецЦикла;
       КонецЕсли;
   КонецЦикла;


Этот кусок кода направлен на выявление пересекающихся периодов по одной номенклатурной группе для одного контрагента. Вот объясните мне, это я ТУПЛЮ или это действительно сделано как-то через *опу!?!

почему через опу?

Что-то я не припомню такого документа в УТ...
Может, конечно, это я ее уже забыл, но уж больно название подозрительное

(2) почему подозрительное? Вот имя из конфы:

"УстановкаТиповЦенПоГруппамНоменклатурыДляПокупателей"

Конфа "(10.3.1.17)", нов более поздних он тоже есть.

(1) во-первых зачем в запросе вот это:

|        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК СпрНоменклатура
   |        ПО (Док.Ссылка = &ДокументСсылка)
   |            И (СпрНоменклатура.НоменклатурнаяГруппа = Док.НоменклатурнаяЦеноваяГруппа
   |                ИЛИ СпрНоменклатура.ЦеноваяГруппа = Док.НоменклатурнаяЦеноваяГруппа)

Во-вторых зачем проверка через 2 таблицы значений:

ТЗ = Запрос.Выполнить().Выгрузить();

   ТЗ.Колонки.Добавить("ДатаОкончания");
   ТЗ.ЗаполнитьЗначения('00010101' ,"ДатаОкончания");

   КоличествоСтрок = ТЗ.Количество() - 1;
   Для Тмп = 0 По КоличествоСтрок Цикл
       СтрокаТЗ = ТЗ[КоличествоСтрок - Тмп];

       Если НЕ ЗначениеЗаполнено(СтрокаТЗ.ТипЦен) Тогда
           Для Тмп1 = 0 По ТЗ.Количество() -1 Цикл
               СтрокаПоиска = ТЗ[Тмп1];

               Если СтрокаПоиска.Группа = СтрокаТЗ.Группа
                  И НЕ ЗначениеЗаполнено(СтрокаПоиска.ДатаОкончания) Тогда
                   СтрокаПоиска.ДатаОкончания = СтрокаТЗ.ДатаНачала;
                   ТЗ.Удалить(СтрокаТЗ);
                   Прервать;
               КонецЕсли;
           КонецЦикла;
       КонецЕсли;
   КонецЦикла;

Таже отладчиком этот код крайне тяжело понять!

Искать неохота, но 1с не дает в своих конфах переменным имена Тмп, тмп1.
По их стандартам не проходят :)

почему, счетчикам вполне могут дать

v8: Абстрактный вопрос по УТ
якобы такой документ есть

(5) сейчас проверил в типовой УТ: такой документ есть, и переменная тмп1 тоже есть.

(7) не совсем понял к чему это

(5) я уверен ,что это типовой док и процедура тоже типовая!
Ну дело не в этом...как эту фигню переделать под нормальный, удобочитаемый код

ну так что, люд?! какие предложения?

(9) к (2)

(11) Переделаю по внятному ТЗ. Строго в выходные. Дорого.

Для начала переделал запрос:

Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
   |    Док.НоменклатурнаяЦеноваяГруппа КАК Группа,
   |    Док.ДатаНачала КАК ДатаНачалаДок,
   |    Док.ДатаОкончания КАК ДатаОкончанияДок,
   |    РегТипыДляПокупателей.ТипЦен КАК ТипЦен,
   |    РегТипыДляПокупателей.Период КАК ДатаНачала,
   |    РегТипыДляПокупателей.Регистратор КАК Регистратор
   |ИЗ
   |    Документ.УстановкаТиповЦенПоГруппамНоменклатурыДляПокупателей.НоменклатурныеЦеновыеГруппы КАК Док
   |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ТипыЦенПоГруппамНоменклатурыДляПокупателей КАК РегТипыДляПокупателей
   |        ПО (Док.Ссылка = &ДокументСсылка) И (РегТипыДляПокупателей.Контрагент = &Контрагент)
   |            И (Док.НоменклатурнаяЦеноваяГруппа = РегТипыДляПокупателей.НоменклатурнаяЦеноваяГруппа)
   |
   |УПОРЯДОЧИТЬ ПО
   |    ДатаНачала,
   |    Группа,
   |    ТипЦен УБЫВ";

Сейчас немного посижу, попробую понять все-таки принцип тех таблиц и их обходов, если мне НЕ ПОНРАВИТСЯ - буду переделывать полностью...

(13) за дорого я тебе ее сам сделаю и не в выходные, а в течении этого дня.

(15) но вообще-то глупо. Зачем переделывать?

(14) Угрожаешь? :)

(15) потому что в некоторые моменты эта штука работает ошибочно! Пересечения периодов нет ,а она говорит ,что есть!

(17) неее, просто хотел совета спросить ,как лучше переделать

(14) Это неравнозначная замена типовой.

Навскидку (особо не думая): проверь работу запросов, если в документе указаноНапример: если в документе указаны группы, которые не использует справочник номенклатуры.

(20) мне такое условие не нужно.

(18) как-то курсовая у меня была курсе на третьем на пересечение периодов. надо было упорядочить произвольное расписание сторожей с их наименьшими трудозатратами. все работало, делал сам (тогда с инетом были напряги), но преподу объяснить сложный алгоритм не смог, ввиду абсолютно непросветной тупости первого. за что и получил три, хотя даже графику подключал и асмовские вставки были, а другие пять за тупую консольную обработку массивов получали, вот тогда я уже понял, что жисть несправедлива... ;)