Имя: Пароль:
1C
1C 7.7
v7: редактирование ячейки таблицы значений
0 Масянька
 
24.07.12
11:47
День добрый!
Чего-то я потерялась... В 7.7 можно ли отредактировать ячейку ТЗ? Если да, то как?
Спасибо.
1 Андрей_Андреич
 
naïve
24.07.12
11:49
Штатно без ВК нет. Определять колонку и ввестизначение()
2 Надсмотрщик
 
24.07.12
11:49
Вешаем процедуру на ТЗ и... - двойным кликом
3 Мулька
 
24.07.12
11:50
Можно. ОбработкаЯчейкиТаблицы / ПриВыбореЯчейкиТаблицы
4 1Сергей
 
24.07.12
11:51
(3) выдыхай, бобёр
5 Мулька
 
24.07.12
11:51
(2) +1 (или предварительно через повешенную процедуру)
6 ЧеловекДуши
 
24.07.12
11:51
Кури 1С++, Табличное поле ;)
7 Мулька
 
24.07.12
11:52
(4) Учи МатЧасть
8 ЧеловекДуши
 
24.07.12
11:52
(7)Не, это обыденно и не красиво :)
9 Мимохожий Однако
 
24.07.12
11:55
//*****************
Процедура ПоТЗ()
   ТекСтр = ТЗ.ТекущаяСтрока();
   Если ТекСтр > 0 Тогда        
       ТекКол = ТЗ.ТекущаяКолонка();
       ТекЗн = ТЗ.ПолучитьЗначение(ТекСтр,ТекКол);
       Если ТекКол = "Хочу" Тогда
           Марш = СоздатьОбъект("Справочник.Маршруты");
           ТекЗн = ТЗ.ПолучитьЗначение(ТекСтр,"Завтра"); //код текущего маршрута
           Марш.НайтиПоКоду(ТекЗн);
           Если Марш.Выбрать("Выберите МАРШРУТ","ФормаСписка") = 1 Тогда
               Если ""+ТекЗн+"" <> Марш.Код Тогда
                   ТекЗн = Марш.Код;                                          
                   ТЗ.УстановитьЗначение(ТекСтр,ТекКол,ТекЗн);
                   ТЗ.УстановитьЗначение(ТекСтр,"Пометка",2);
                   ТЗ.УстановитьЗначение(ТекСтр,"ГрузоперевозчикХочу",Марш.Грузоперевозчик.Получить(ДатаОтчета + 1));
               КонецЕсли;
           КонецЕсли;
10 Масянька
 
24.07.12
11:55
СПАСИБО.
11 Надсмотрщик
 
24.07.12
11:55
(3) ТЗ или Таблица?
12 Масянька
 
24.07.12
11:56
(9) Не совсем так: в колонке цена, вот ее нужно редактировать - просто число.
13 1Сергей
 
24.07.12
11:56
(7) какое слово из "Таблица значений" тебе не понятно?
14 Масянька
 
24.07.12
11:56
(11) Таблица значение на форме внешней обработки. При открытии - устанавливаются колонки.
15 Мулька
 
24.07.12
11:57
(13) Для ТЗ см.(5)=(2)
16 Масянька
 
24.07.12
11:57
ПриВыбореОбъекта()
Если ТекКолонка = "Цена" Тогда
...... ЧТО?
17 Мимохожий Однако
 
24.07.12
11:58
Если ТекКол= "Цена" тогда
Если ВвестиЧисло(ТекЗн...).. Тогда
ТЗ.УстановитьЗначение...
18 1Сергей
 
24.07.12
11:59
(15) потому и говорю, выдыхай
19 Мимохожий Однако
 
24.07.12
11:59
Процедура ПоТЗ()
   ТекСтр = ТЗ.ТекущаяСтрока();
   Если ТекСтр>0 Тогда
       ТекКол = ТЗ.ТекущаяКолонка();
       ТекЗн = ТЗ.ПолучитьЗначение(ТекСтр,ТекКол);
       Если ТекКол="Цена" Тогда                  
           Спр.НайтиЭлемент(ТЗ.ПолучитьЗначение(ТекСтр,"Номенклатура"));
           СтароеЗначение = ТекЗн;
           Если ВвестиЧисло(ТекЗн,"Цена",14,2,30)=1 Тогда
               Если (ТекЗн<>СтароеЗначение)И(ТекЗн>0) Тогда
                   Цена.ИспользоватьВладельца(Спр.ТекущийЭлемент());
                   Цена.ИспользоватьДату(ДатаЦены);
                   Если Цена.НайтиПоРеквизиту("ТипЦен",ВыбТипЦены,0)=0 Тогда
                       Цена.Новый();
                       Цена.Владелец    = Спр.ТекущийЭлемент();
                       Цена.Валюта    = Константа.ВалютаБухУчета;
                       Цена.Единица    = Спр.БазоваяЕдиница;
                       Цена.Цена        = ТекЗн;
                       Цена.ТипЦен    = ВыбТипЦены;
                       Цена.Записать();
                   КонецЕсли;
                   Цена.Цена= ТекЗн;
                   Цена.ТипЦен    = ВыбТипЦены;
                   Цена.Записать();
                   ТЗ.УстановитьЗначение(ТекСтр,"Цена",ТекЗн);
               КонецЕсли;
           КонецЕсли;
       иначеЕсли ТекКол = "Номенклатура" Тогда
           ОткрытьФорму(ТЗ.Номенклатура,);
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры // ПоТЗ()
20 Масянька
 
24.07.12
12:00
Спасибо.
ВвестиЗначение
Огромное спасибо!!!!!!!
21 Надсмотрщик
 
24.07.12
12:01
(20) Квалификация подтверждена!!!!                :-)
22 Масянька
 
24.07.12
12:03
Мда....
Значение вводится, но в ячейке не изменяется... Чего не так делаю?
ВвестиЗначение("Цена",, "Число",10,0);
23 1Сергей
 
24.07.12
12:03
(22) в переменную, потом в таблицу
24 Масянька
 
24.07.12
12:05
(23) Каким каком? :)
25 1Сергей
 
24.07.12
12:06
Цена = ТЗ.ПолучитьЗначение(...
Если ВвестиЧисло(Цена... )=1 Тогда
   ТЗ.УстановитьЗначение(...
26 Масянька
 
24.07.12
12:11
СПАСИБО!!!!!!
Заработало!!!!!
27 1Сергей
 
24.07.12
12:11
(26) да?????? странно... о_О
28 Надсмотрщик
 
24.07.12
12:17
(27) Взял бы да и написал ей ВСЕ - было бы быстрее и качественней
29 1Сергей
 
24.07.12
12:19
(28) ей мимохожий уже 3 раза до меня тоже самое написал
30 Надсмотрщик
 
24.07.12
12:28
(29) Я и говорю...              :-)))
31 Ыщъ
 
24.07.12
13:39
(3) Можно.ОбработкаЯчейкиТаблицы

Что за объект - Можно?