Advertisement
Guest User

Untitled

a guest
Jan 20th, 2020
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.44 KB | None | 0 0
  1. МассивДобавляемыхРеквизитов = Новый Массив;
  2. МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("План", Новый ОписаниеТипов("ТаблицаЗначений")));
  3. МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"),"План" ,"Номенклатура"));
  4. МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Регион", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,2)),"План" , "Регион"));
  5. МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Разница", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,2)),"План" , "Осталось распределить"));
  6. ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);
  7. ТаблицаФормы = Элементы.Добавить("План", Тип("ТаблицаФормы"));
  8. ТаблицаФормы.ПутьКДанным = "План";
  9. ТаблицаФормы.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиЭлементаФормы.Нет;
  10. ТаблицаФормы.ФиксацияСлева = 3;
  11. ТаблицаФормы.УстановитьДействие("ПередУдалением", "ПланПередУдалением");
  12. ТаблицаФормы.УстановитьДействие("ПередНачаломДобавления", "ПланПередНачаломДобавления");
  13. НоваяКолонка = Элементы.Добавить("ПланНоменклатура", Тип("ПолеФормы"), Элементы.План);
  14. НоваяКолонка.Заголовок = "Номенклатура";
  15. НоваяКолонка.ПутьКДанным = "План.Номенклатура";
  16. НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
  17. НоваяКолонка.РежимРедактирования = РежимРедактированияКолонки.ВходПриВводе;
  18. НоваяКолонка = Элементы.Добавить("ПланРегион", Тип("ПолеФормы"), Элементы.План);
  19. НоваяКолонка.Заголовок = "Регион";
  20. НоваяКолонка.ПутьКДанным = "План.Регион";
  21. НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
  22. НоваяКолонка.РежимРедактирования = РежимРедактированияКолонки.ВходПриВводе;
  23. НоваяКолонка = Элементы.Добавить("ПланРазница", Тип("ПолеФормы"), Элементы.План);
  24. НоваяКолонка.Заголовок = "Разница";
  25. НоваяКолонка.ПутьКДанным = "План.Разница";
  26. НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
  27. НоваяКолонка.РежимРедактирования = РежимРедактированияКолонки.ВходПриВводе;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement