Имя: Пароль:
1C
1С v8
Добавление в регистр данных
0 example221
 
27.01.20
09:23
Альфа-Авто: Автосалон+Автосервис+Автозапчасти. Редакция 4.1 (4.1.01.28)
Обычный,база стоит на сервере
Доброе утро форумчане ,подскажите новичку,есть такое задание,надо добавить,в регистр новые автоработы(автозапчасти) по всем ТО Моделям и их кодам моделей
Набросал такой простенький интерфейс, https://pastenow.ru/3c9d439063f9bb50e1347bf6b077e527
В теории как я думал вот есть два поля автоработы и запчасти,те колонки поним добавляю в регистр,типо выбираю автоработу к ней привязан норматив и цена,а по колонке ТО модель и код он добавляет в регистр автоработу(запчасть)
подскажите как это можно реализовать.
1 mpei
 
27.01.20
09:40
не очень понял тебе нужен код?

регистра какой сведений или накопления?
2 example221
 
27.01.20
09:41
(1) Сведений,да какой нибудь намек как это должно выглядит гуглю уже полтора дня не могу понять
понятно дело что начинается как то так ,а дальше тупик
м_одель = новый Массив;
    Для каждого стр Из Модели Цикл
        Если стр.Пометка Тогда
            м_одель.Добавить(стр.Модель);
        КонецЕсли;
    КонецЦикла;
    
    Для каждого стр Из ВидТО Цикл
        Если стр.Пометка Тогда
            м_одель.Добавить(стр.ВидТО);
        КонецЕсли;
    КонецЦикла;
    
    Для каждого стр Из КодМодели Цикл
        Если стр.Пометка Тогда
            м_одель.Добавить(стр.КодМодели);
        КонецЕсли;
    КонецЦикла;
    
    
    рег = РегистрыСведений.ПрайсМенюСервис.СоздатьМенеджерЗаписи();
    рег.ВидТО = стр.ВидТО;
    рег.Модель = стр.Модель;
    рег.КодМодели = стр.КодМодели
3 mpei
 
27.01.20
09:49
А КодМодели и ВидТО это реквизиты модели?
4 example221
 
27.01.20
09:52
(3) ВидТО КодМодели Модель и ТоварУслуга измерение регистра
5 hhhh
 
27.01.20
10:06
(4) а где тут норматив и цена?
6 example221
 
27.01.20
10:07
(5) Всмысле?,цену вводить человек будет в ручную,норматив тянется при добавление автоработы
7 hhhh
 
27.01.20
10:13
(6) пока вообще непонятно, что делает эта программа из (2)
8 example221
 
27.01.20
10:22
(7) Да мне подсказали что зря я все в один массив фигачу работать не будет,сказали табзнач сделать
9 example221
 
27.01.20
10:24
(7) Есть форма со скрина,она работает как должна все норм,мне надо сделать так ,что бы добавляло автоработы(или запчасти) по всем моделям,кодамМоделей и видамТо(колонки).
10 Momus
 
27.01.20
10:32
(9) в (2) добавить все в разные массивы и запись в регистр с двумя вложенными циклами
для каждого Модель из Модели Цикл
    для каждого ВидТО из ВидыТо Цикл
        Для каждого КодМодели Из КодыМОдели Цикл
            рег = РегистрыСведений.ПрайсМенюСервис.СоздатьМенеджерЗаписи();
            рег.ВидТО = ВидТО;
            рег.Модель = Модель;
            рег.КодМодели = КодМодели;
            рег.Записать();
       КонецЦикла;
   КонецЦикла;
КонецЦикла;

Ну и проверки всякие добавить
11 example221
 
27.01.20
10:33
(9) Как заполнить колонки ТЗ данными с формы?
12 example221
 
27.01.20
10:33
(10) Щас попробуй,спасиб
13 example221
 
27.01.20
13:35
(10)Momus спасибо тебе огромное,чуть еще посидел,от твоего по делал,и вышло вроде как по плану,Спасибо огромное
вот итоговое
Массив2 = Новый Массив;
    Для каждого стр из ВидТО цикл
        Если стр.Пометка Тогда
            Массив2.Добавить(стр.ВидТО)
        КонецЕсли;
    КонецЦикла;
    
    Массив3 = Новый Массив;
    Для каждого стр из КодМодели цикл
        Если стр.Пометка тогда
            Массив3.Добавить(стр.КодМодели)
        КонецЕсли;
    КонецЦикла;

    для каждого стр1 из Массив2 Цикл
        Для каждого стр2 Из Массив3 Цикл
            Для каждого стр3 из Авторабота цикл
                рег = РегистрыСведений.ПрайсМенюСервис.СоздатьМенеджерЗаписи();
                рег.ВидТО = стр1;
                рег.КодМодели = стр2;
                Рег.ТоварУслуга = стр3.АвтоРабота;
                Рег.Стоимость = стр3.цена;
                рег.Модель = стр2.Модель;
                рег.Записать();
            КонецЦикла;
            Для каждого стр4 из АвтоЗапчасти цикл
                рег1 = РегистрыСведений.ПрайсМенюСервис.СоздатьМенеджерЗаписи();
                рег1.ВидТО = стр1;
                рег1.КодМодели = стр2;
                Рег1.ТоварУслуга = стр4.Запчасть;
                Рег1.Стоимость = стр4.Цена*стр4.Количество;
                рег1.Модель = стр2.Модель;
                Рег1.Количество = стр4.Количество;
                рег1.Записать();
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
14 example221
 
27.01.20
13:35
Закрыто.