Т.НоваяКолонка("СтрокиБаланса","Строка",50);
Т.НоваяКолонка("Код","Число",5);
Т.НоваяСтрока();
Т.СтрокиБаланса = "Нематериальные активы";
Т.Код = 110;
Т.НоваяСтрока();
Т.СтрокиБаланса = "Основные средства";
Т.Код = 120;
Т.НоваяСтрока();
Т.СтрокиБаланса = "Незавершенное строительство";
Т.Код = 130;
Т.НоваяСтрока();
и т.д.
Подскажите как сделать и есть ли такой метод, чтобы таблицу значений заполнить используя Стр и Код1???
Стр="Нематериальные активы
|Основные средства
|Незавершенное строительство";
Код1="110
|120
|130";
Т.НоваяКолонка("Код","Число",5);
Т.НоваяСтрока();
Т.СтрокиБаланса = "Нематериальные активы";
Т.Код = 110;
Т.НоваяСтрока();
Т.СтрокиБаланса = "Основные средства";
Т.Код = 120;
Т.НоваяСтрока();
Т.СтрокиБаланса = "Незавершенное строительство";
Т.Код = 130;
Т.НоваяСтрока();
и т.д.
Подскажите как сделать и есть ли такой метод, чтобы таблицу значений заполнить используя Стр и Код1???
Стр="Нематериальные активы
|Основные средства
|Незавершенное строительство";
Код1="110
|120
|130";
По теме из базы знаний
- Печать таблицы значений в 1С 7.7 при отладке
- Консоль кода с поддержкой объявления процедур и функций, с дополнительными функциями отслеживания и вывода значений
- Печать таблицы значений или таблиц запроса через СКД
- Отправка/получение таблицы значений на/с http-сервиса
- Раскраска ячейки таблицы значений для управляемых форм
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
КолСтр1 = СтрКоличествоСтрок(Стр);
КолСтр2 = СтрКоличествоСтрок(Код1);
КолСтр = Макс(КолСтр1,КолСтр2);
Для инд = 1 по КолСтр Цикл
Т.НоваяСтрока();
Если инд <= КолСтр1 Тогда
Т.СтрокиБаланса = СтрПолучитьСтроку(Стр,инд);
КонецЕсли;
Если инд <= КолСтр2 Тогда
Т.Код = СтрПолучитьСтроку(Код1,инд);
КонецЕсли;
КонецЦикла;
КолСтр2 = СтрКоличествоСтрок(Код1);
КолСтр = Макс(КолСтр1,КолСтр2);
Для инд = 1 по КолСтр Цикл
Т.НоваяСтрока();
Если инд <= КолСтр1 Тогда
Т.СтрокиБаланса = СтрПолучитьСтроку(Стр,инд);
КонецЕсли;
Если инд <= КолСтр2 Тогда
Т.Код = СтрПолучитьСтроку(Код1,инд);
КонецЕсли;
КонецЦикла;
так:
| Код |
|---|
стр1 = СтрЗаменить(Стр, "|", Разделительсток);
стр2 = СтрЗаменить(Код1, "|", Разделительсток);
для й=1 по стрКоличествоСтрок(стр1) цикл
Т.НоваяСтрока();
Т.СтрокиБаланса = Стр1.СтрПолучитьСтроку(стр1, й);
Т.Код = Стр2.СтрПолучитьСтроку(стр1, й);
КонецЦикла
Показать полностью |
Можно и без цикла... Например:
| Код |
|---|
Процедура ТЗЗаполнитьСтрокой(ТЗ,Колонка,Знач СтрЗнач)
СтрЗнач = СтрЗаменить(СтрЗнач,"""","""""");
СтрЗнач = СтрЗаменить(СтрЗнач,РазделительСтрок,""",""");
СЗ = СоздатьОбъект("СписокЗначений");
СЗ.ИзСтрокиСРазделителями(СтрЗнач);
ТЗ.КоличествоСтрок(Макс(ТЗ.КоличествоСтрок(),СЗ.РазмерСписка())); //опционально, если должны быть приняты все значения
ТЗ.Заполнить(СЗ,,,Колонка);
КонецПроцедуры
Т = СоздатьОбъект("ТаблицаЗначений");
Т.НоваяКолонка("СтрокиБаланса","Строка",50);
Т.НоваяКолонка("Код","Число",5);
ТЗЗаполнитьСтрокой(Т,"СтрокиБаланса",Стр);
ТЗЗаполнитьСтрокой(Т,"Код",Код1);
Показать полностью |
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот