Имя: Пароль:
1C
1C 7.7
v7: как в таблицу перенести значения из справочника?
0 Velka
 
01.04.13
12:34
Добрый день!
у меня самописная конфигурация.
Есть справочник деталей, в нем реквизиты заполнены в "полях ввода". К примеру у одной детали есть несколько схожих характеристик.
Создаю документ по конкретному виду детали. Можно сделать так, чтобы при выборе в шапке документа Детали, в табличную часть (таблицу) переносились характеристики из справочника, но построчно.
К примеру у одной детали 4 вида обработки -> в табличной части документа должно создаться четыре строки с характеристиками их справочника.
1 Безработный 1Сник
 
01.04.13
12:38
(0) Можно!
2 Velka
 
01.04.13
12:41
(1) интересно как?
3 cw014
 
01.04.13
12:44
ДобавитьСтроку();
Характеристика = Деталь.Характеристика1;

ДобавитьСтроку();
Характеристика = Деталь.Характеристика2;

ДобавитьСтроку();
Характеристика = Деталь.Характеристика3;

ДобавитьСтроку();
Характеристика = Деталь.Характеристика4;
4 cw014
 
01.04.13
12:44
С тебя 200 рублев :)
5 Velka
 
01.04.13
13:18
(3) (4) мне не выходную таблицу нужно вывести данные, а в таблицу на форме докмента
6 oslokot
 
01.04.13
13:44
(5)
НоваяСтрока();
Характеристика = Деталь.Характеристика1;

НоваяСтрока();
Характеристика = Деталь.Характеристика2;

НоваяСтрока();
Характеристика = Деталь.Характеристика3;

НоваяСтрока();
Характеристика = Деталь.Характеристика4;
7 oslokot
 
01.04.13
13:44
С тебя 300 рублев :)
8 Velka
 
15.04.13
11:51
получилось вывести в строки таблицы значения, но при этом в начале добавились пустые. Получилось сначала в таблице 4 пустых строки, а потом с заполненными значениями строки.
как избавиться от пустых?
9 Dolly_EV
 
15.04.13
14:39
Процедура ПриВыбореДетали()
   Если Деталь.Выбран()=0 Тогда
       Возврат;
   КонецЕсли;
   Если ПустоеЗначение(Деталь.Характеристика1)=0 Тогда
       НоваяСтрока();
       Характеристика = Деталь.Характеристика1;
   КонецЕсли;
   Если ПустоеЗначение(Деталь.Характеристика2)=0 Тогда
       НоваяСтрока();
       Характеристика = Деталь.Характеристика2;
   КонецЕсли;
   Если ПустоеЗначение(Деталь.Характеристика3)=0 Тогда
       НоваяСтрока();
       Характеристика = Деталь.Характеристика3;
   КонецЕсли;
   Если ПустоеЗначение(Деталь.Характеристика4)=0 Тогда
       НоваяСтрока();
       Характеристика = Деталь.Характеристика4;
   КонецЕсли;
КонецПроцедуры


процу ПриВыбореДетали() повесить на поле Детали в шапке...
это уже пицот рублей...
Основная теорема систематики: Новые системы плодят новые проблемы.