Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 ноя 2024, 15:01

Добавление строки и заполнение строки в ТЗ на форме

Автор Св Ч, 25 сен 2017, 08:06

0 Пользователей и 1 гость просматривают эту тему.

Св Ч

Добрый День! Кто может подсказать? везде описано как добавить строку в ТЗ, но негде не описано если ТЗ на форме.
8.3, интерфейс обычный
вот код
  ТЗ=  Запрос.Выполнить().Выгрузить();
   Счетчик = 1;
   Отбор_дат = новый Соответствие;
   Отбор_сотрудников = новый Соответствие;

   Для Каждого Стр Из ТЗ Цикл
Отбор_дат.Вставить(Строка(Стр.Дат), Стр.Дат); 
Отбор_сотрудников.Вставить(Стр.Сотрудник,Стр.Сотрудник);
Счетчик = Счетчик + 1;
   КонецЦикла;   
   
    //добавляем колонки в таблицу значений
Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("отм");

Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Сотрудник");

   Для Каждого Элемент Из Отбор_дат Цикл
       Сообщить(Строка(Элемент.Ключ) + " " + Элемент.Значение);
    //на каждую дату колонка оплата + колонка часы
   e="Ч"+Строка(День(Элемент.Значение)) + Строка(Месяц(Элемент.Значение));
   ee="О"+Строка(День(Элемент.Значение))+ Строка(Месяц(Элемент.Значение));
   если День(Элемент.Значение)>0 тогда
      Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить(e);
      Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить(ee);
       конецесли;
    КонецЦикла;    

//добавляем дополнительные колонки
//часы за период
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Час_итого");
//оплата за период
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Опл_итого");
//карточка за период
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Карточки");
//удержание
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Удержание");
//премии
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Премии");
//штрафы
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Штраф");
//выдача за период
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки.Добавить("Выдача");
  //Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.СоздатьКолонки();
    //добавляем строки в таблицу значений
   Для Каждого Элемент Из Отбор_сотрудников Цикл
      Сообщить(Строка(Элемент.Ключ) + " " + Элемент.Значение);
//по всем сотрудникам
           
 
  Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.ДобавитьСтроку();               
// стр = Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.ТекущаяСтрока;
//   Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке[1][1].Значение=   Элемент.Значение ;
//стр.Сотрудник=    Элемент.Значение;
// Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.Значение
//   Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке[1].Сотрудник = Элемент.Значение;




    КонецЦикла;

   

    ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки["отм"].Ширина=4;


ставлю строку Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.СоздатьКолонки();
сразу ругается что не видит колонки в строке
ЭлементыФормы.ТабличноеПоле_На_проверке.Колонки["отм"].Ширина=4; и колонки не добавляет, убираю не ругается и колонки добавляет.
ставлю

стр = Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке.ТекущаяСтрока;
стр.Сотрудник=    Элемент.Значение;

не видит поле стр.Сотрудник и ругается
Цитироватьполе объекта не обнаружено  Сотрудник=
ставлю Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке[1][1].Значение=   Элемент.Значение ;
ругается
ЦитироватьПолучение элемента по индексу для значения не определено
     Этаформа.ЭлементыФормы.ТабличноеПоле_На_проверке[1][1].Значение=   Элемент.Значение ;
как правильно добавить и заполнить строку (форма не управляемая)? Помогите пожалуйста

Св Ч


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск