Версия для печати темы (https://pro1c.org.ua/index.php?s=75746480420ff2579e5e18d1281f7528&showtopic=56809)

Автор: champions 03.02.20, 13:24

1С-Предприятия 8.2, в которой имеются 3 справочника: ТМЦ (с артикулами), Техпроцессы (ТП), Операции. Каждый ТМЦ имеет ссылку на справочник технологических процессов, каждый тех. процесс имеет табличную часть с последовательностью ссылок на справочник операций.

Необходимо выполнить следующие проверки:
1. При записи нового или существующего элемента справочника ТМЦ, необходимо проверить имеется ли уже такой элемент с таким наименованием и если да - выдать предупреждение и не дать возможность записи данного (дублирующего) элемента.

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

3. При изменении последовательности операций (кнопками вверх/вниз или добавлении/удалении операций) в форме элемента ТП необходимо вывести список элементов ТП у которых имеется такая же последовательность (порядок) операций и количество (* или похожая, по признаку наличия указанных в данном ТП).

ВСЕ ЗАДАНИЯ ДОЛЖНЫ БЫТЬ ВЫПОЛНЕНЫ С ИСПОЛЬЗОВАНИЕМ ЗАПРОСОВ.
Например:
xyz и xzy = разные ТП
xyz и xyz = одинаковые ТП
xyz и (xyza или xyzb) = похожие
где x,y,z,a,b - операции из табличной части справочника ТехПроцессов

Файл который нужно проверить



https://pro1c.org.ua/redirect.php?https://drive.google.com/open?id=1NX5pHe5WZIaQ3a7Fjfvb6CEe_aTms2xe

Заранее уважуха и + к вашему респекту!

и могу это делать в 1с 8.3?

Автор: volodya1122 03.02.20, 17:02

champions @ Сегодня, 13:24 ,

1. Писать на 8.2 или 8.3 это нужно спрашивать у своего преподавателя.
2. В своей конфигуракии вы не написали ни одной строчки кода. Что тут проверять то?
3 Помогу Кодом для ТМЦ. А дальше самому

Процедура ПередЗаписью(Отказ)
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    ТМЦ.Наименование
        |ИЗ
        |    Справочник.ТМЦ КАК ТМЦ
        |ГДЕ
        |    ТМЦ.Ссылка <> &ТекЭлемент
        |    И ТМЦ.Наименование = &Наименов";
    
    Запрос.УстановитьПараметр("Наименов", Наименование);
    Запрос.УстановитьПараметр("ТекЭлемент", Ссылка);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
      дублей= ВыборкаДетальныеЗаписи.Количество();

Сообщить("Дублей="+дублей);
Если Дублей>0 тогда
      Отказ=Истина;
КонецЕсли;      
    
КонецПроцедуры

Автор: Макс1С 03.02.20, 18:08

volodya1122 @ Сегодня, 17:02 ,

Автор: volodya1122 03.02.20, 18:23

Макс1С @ Сегодня, 18:08 ,
Потенциальному колеге можно подсказать, а не делать за него всю работу

Автор: Макс1С 04.02.20, 9:20

volodya1122 @ Вчера, 18:23 ,
полностью с вами согласен

Автор: Vofka 04.02.20, 9:39

Цитата(Макс1С @ 03.02.20, 18:08)

это же наш потенциальный коллега )))

Конкурент