konyakov

Функция внешней обработки, для автоматического добавления сл

Apr 11th, 2020
2,521
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.54 KB | None | 0 0
  1.  
  2.  
  3. &НаСервере
  4. Процедура ДобавлениеНовыхТоваровНаСервере()
  5. ГСЧ=Новый ГенераторСлучайныхЧисел;
  6. Для Счетчик=1 По 100 Цикл
  7.  
  8. Если Счетчик<=25 Тогда
  9. Группа=Справочники.Номенклатура.НайтиПоНаименованию("Летняя");
  10. ИначеЕсли Счетчик<=50 Тогда
  11. Группа=Справочники.Номенклатура.НайтиПоНаименованию("С шипами");
  12. Иначе
  13. Группа=Справочники.Номенклатура.НайтиПоНаименованию("Липучки");
  14. КонецЕсли;
  15.  
  16. НовыйТовар=Справочники.Номенклатура.СоздатьЭлемент();
  17. НовыйТовар.Родитель=Группа;
  18. НовыйТовар.Наименование="Товар №"+Счетчик;
  19. НовыйТовар.Склад=Справочники.Склады.Оптовый;
  20. НовыйТовар.ЦенаЗакупочная=ГСЧ.СлучайноеЧисло(500,2000);
  21. НовыйТовар.ЦенаПоступления=НовыйТовар.ЦенаЗакупочная*1.2;
  22. НовыйТовар.Записать();
  23.  
  24. КонецЦикла;
  25.  
  26. КонецПроцедуры
  27.  
  28.  
  29. &НаКлиенте
  30. Процедура ДобавлениеНовыхТоваров(Команда)
  31. ДобавлениеНовыхТоваровНаСервере();
  32. КонецПроцедуры
Add Comment
Please, Sign In to add comment