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

Посчитать количество колонок в ТЧ

Автор kot_oo, 30 мая 2014, 12:47

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

kot_oo

Цитата: cska-fanat-kz от 30 мая 2014, 16:07
нет, я имею ввиду сравните как у меня написано и у вас...

&Наклиенте
Процедура Подсчет2()
ИменаСкладываемыхРеквизитов = Новый Массив;
ИменаСкладываемыхРеквизитов.Добавить("ОсновыФилософии");
ИменаСкладываемыхРеквизитов.Добавить("ОсновыПрава");
ИменаСкладываемыхРеквизитов.Добавить("РусскийЯзыкИКультураРечи");
ИменаСкладываемыхРеквизитов.Добавить("ИностранныйЯзык");
ИменаСкладываемыхРеквизитов.Добавить("ФизическаяКультура");
ИменаСкладываемыхРеквизитов.Добавить("ОсновыЭкономики");
ИменаСкладываемыхРеквизитов.Добавить("ОсновыСоциологииИПолитологии");
ИменаСкладываемыхРеквизитов.Добавить("Культурология");
ИменаСкладываемыхРеквизитов.Добавить("ПсихологияМежличностногоОбщения");
ИменаСкладываемыхРеквизитов.Добавить("Математика");
ИменаСкладываемыхРеквизитов.Добавить("Информатика");
ИменаСкладываемыхРеквизитов.Добавить("ЭкологическиеОсновыПриродопользования");
ИменаСкладываемыхРеквизитов.Добавить("ИнжинернаяГрафика");
ИменаСкладываемыхРеквизитов.Добавить("ТехническаяМеханика");
ИменаСкладываемыхРеквизитов.Добавить("ЭлектротехникаИэлектроника");
ИменаСкладываемыхРеквизитов.Добавить("Материаловедение");
ИменаСкладываемыхРеквизитов.Добавить("МетрологияСтандартизацияИСертификация");
ИменаСкладываемыхРеквизитов.Добавить("ПравилаИБезопасностьДорожногоДвижения");
ИменаСкладываемыхРеквизитов.Добавить("ПравовоеОбеспечениеПрофессиональнойДеятельности");
ИменаСкладываемыхРеквизитов.Добавить("Менеджмент");
ИменаСкладываемыхРеквизитов.Добавить("БезопасностьЖизнедеятельности");
ИменаСкладываемыхРеквизитов.Добавить("ЭкономикаОтрасли");
ИменаСкладываемыхРеквизитов.Добавить("Автомобили");
ИменаСкладываемыхРеквизитов.Добавить("АвтомобильныеИЭксплутационныеМатериалы");
ИменаСкладываемыхРеквизитов.Добавить("ТехническоеОбслуживаниеАвтомобилей");
ИменаСкладываемыхРеквизитов.Добавить("РемонтАвтомобилей");
ИменаСкладываемыхРеквизитов.Добавить("ИнформационныеТехнологииВПрофессиональнойДеятельности");
ИменаСкладываемыхРеквизитов.Добавить("ОсновыВзаимозаменяемостиДеталейИУзловПриРемонтеАвтомобилей");
ИменаСкладываемыхРеквизитов.Добавить("ТехнологияИОборудованиеВосстановленияДеталейСваркой");
ИменаСкладываемыхРеквизитов.Добавить("ТехнологияИОборудованиеИзготовленияДеталей");
ИменаСкладываемыхРеквизитов.Добавить("ПервыйЭтапСлесарная");
ИменаСкладываемыхРеквизитов.Добавить("ВторойЭтапСтаночная");
ИменаСкладываемыхРеквизитов.Добавить("ТретийЭтапСварочная");
ИменаСкладываемыхРеквизитов.Добавить("ЧетвертыйЭтапПоОбслуживаниюИРемонтуАвтомобильногоТранспорта");
ИменаСкладываемыхРеквизитов.Добавить("ПрактикаПоПрофилюСпециальности");
ИменаСкладываемыхРеквизитов.Добавить("ПрактикаПреддипломная");
ИменаСкладываемыхРеквизитов.Добавить("КурсоваяРаботаПоДисциплинеЭкономикаОтрасли");
ИменаСкладываемыхРеквизитов.Добавить("КурсоваяРаботаПоДисциплинамТехническоеОбслуживаниеАвтомобилей");
ИменаСкладываемыхРеквизитов.Добавить("КурсоваяРаботаПоДисциплинеРемонтАвтомобилей");

СтрокаТЧ = Элементы.Студенты.ТекущиеДанные;

Сумма = 0;
Для каждого РеквизитТЧ Из ИменаСкладываемыхРеквизитов Цикл
Сумма = Сумма + СтрокаТЧ[СтрокаТЧ];
Сообщить (Сумма);
КонецЦикла;
   
КонецПроцедуры


Пробывал еще РеквизитТЧ = Элементы.СтудентыСреднийБалл

Тож ошибку выдает

KrivosheevEV


КоллекцияЭлементов = Новый массив;
КоолекцияЭлементов.Добавить("СуммаТовара1");
КоолекцияЭлементов.Добавить("СуммаТовара2");
//..
ДанныеВыделеннойСтрокиТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
//...
Сумма = 0;
Для Каждого ЭлементИзКоллекцииЭлементов Из КоллекцияЭлементов Цикл
    Сумма = Сумма + ДанныеВыделеннойСтрокиТабличнойЧасти[ЭлементИзКоллекцииЭлементов];
    // Всего будет два прохода цикла, т.к. "КоллекцияЭлементов" имеет только 2 элемента (в данном примере).
    // Первый проход: Сумма = Сумма + ДанныеВыделеннойСтрокиТабличнойЧасти.СуммаТовара1
    // Второй проход: Сумма = Сумма + ДанныеВыделеннойСтрокиТабличнойЧасти.СуммаТовара2
КонецЦикла;

kot_oo

Цитата: KrivosheevEV от 30 мая 2014, 16:29

КоллекцияЭлементов = Новый массив;
КоолекцияЭлементов.Добавить("СуммаТовара1");
КоолекцияЭлементов.Добавить("СуммаТовара2");
//..
ДанныеВыделеннойСтрокиТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
//...
Сумма = 0;
Для Каждого ЭлементИзКоллекцииЭлементов Из КоллекцияЭлементов Цикл
    Сумма = Сумма + ДанныеВыделеннойСтрокиТабличнойЧасти[ЭлементИзКоллекцииЭлементов];
    // Всего будет два прохода цикла, т.к. "КоллекцияЭлементов" имеет только 2 элемента (в данном примере).
    // Первый проход: Сумма = Сумма + ДанныеВыделеннойСтрокиТабличнойЧасти.СуммаТовара1
    // Второй проход: Сумма = Сумма + ДанныеВыделеннойСтрокиТабличнойЧасти.СуммаТовара2
КонецЦикла;

Спасибо получилось

Теги:

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

Рейтинг@Mail.ru

Поиск