Имя: Пароль:
1C
1С v8
Таблица значений
,
0 Arutynov
 
07.12.12
16:22
Всем привет. При заполнении таблицы значений первая колонка Булево. Если ее значение истина то реквизит записывать если ложь то нет. Надо условие написать. Не могу придумать.

   ТипБулево = Новый ОписаниеТипов("Булево",,,);
       ТЗ = Новый ТаблицаЗначений;
       ТЗ.Колонки.Добавить("У",ТипБулево);
       ТЗ.Колонки.Добавить("Номер");
       ТЗ.Колонки.Добавить("Дата");
       ТЗ.Колонки.Добавить("Контрагент");
       ТЗ.Колонки.Добавить("Водитель");
       ТЗ.Колонки.Добавить("Адрес");

      Выборка = Документы.РеализацияТоваровУслуг.Выбрать(НачПериода,КонецДня(КонПериода));
     
    Пока Выборка.Следующий() Цикл
         НоваяСтрока = ТЗ.Добавить();
         НоваяСтрока.Номер = Выборка.Номер;
         НоваяСтрока.Дата = Выборка.Дата;
         НоваяСтрока.Контрагент = Выборка.Контрагент;
         НоваяСтрока.Водитель = Выборка.Водитель;
         НоваяСтрока.Адрес = Выборка.АдресДоставки;

       Если Выборка.ПометкаУдаления Тогда
         Продолжить;
     КонецЕсли;
      ЭлементыФормы.ТАб.Значение = ТЗ;
      ЭлементыФормы.ТАб.СоздатьКолонки();

         Состояние(""+Выборка.Ссылка);
       Об = Выборка.ПолучитьОбъект();
       
               Об.Водитель =Водители ;
     Попытка
           Если Об.Проведен Тогда
               Об.Записать(РежимЗаписиДокумента.Проведение);
           иначе
               Об.Записать(РежимЗаписиДокумента.Запись);
           КонецЕсли;
           
     Исключение
           ОбщегоНазначения.СообщитьОбОшибке("Не удалось записать документ """ + Выборка.Ссылка + """");
     КонецПопытки;    
         

   КонецЦикла;
1 zak555
 
07.12.12
16:24
задача заполнить табличную часть ?
2 Arutynov
 
07.12.12
16:26
Она заполняется. заполнив видим список, ставим да где надо и она записывает их
3 le_
 
07.12.12
16:27
Бред какой-то.
4 Besometr
 
07.12.12
16:29
пятнично
5 Arutynov
 
07.12.12
16:30
Мне сказали придумай обработку в которой я увижу список документов, проставлю галочки где надо и в них запишутся нужные водители. Может я не правильно объяснил.
6 mikecool
 
07.12.12
16:32
Перебор строк
Если значение колонки тогда
чтото делаю
Конецесли
7 Проггер
 
07.12.12
16:32
Я работаю и получаю за это деньги, поработайте за меня...
8 НЕА123
 
07.12.12
16:33
Для каждого строкаТЗ из ТЗ Цикл
  Если СтрокаТЗ.у тогда
   //что-то делаем
  КонецЕсли;
КонецЦикла;

ЗЫ на год в личке глянул
9 Arutynov
 
07.12.12
16:33
это я понимаю,перепробовал. Как мне написать...
10 le_
 
07.12.12
16:33
(5) Приведенный код мало коррелирует с задачей.

Посмотри в СП описание ЗаполнитьЗначенияСвойств() - там можно указать либо список заполняемых свойств, либо исключаемых.
11 Reset
 
07.12.12
16:34
Потроллить автора и разойтись, помочь не реально, имхо.
Ну можно все за него сделдать, долго и нудно вытягивая условия тз
12 Arutynov
 
07.12.12
16:38
Я понимаю, но не знаю как галочки ставить в таблицеЗначений
13 mikecool
 
07.12.12
16:42
(12) в поиск, искать ДанныеФлажка
14 НЕА123
 
07.12.12
16:44
(12)
определяй колонки в конфигураторе.
15 НЕА123
 
07.12.12
16:55
"Вазелин! Заходи!" (с)
почему-то вспомнилось....
16 Reset
 
07.12.12
17:04
Жестокий ты. Парень все сделал, ему осталось - то галочку поставить в таблице значений
17 НЕА123
 
07.12.12
17:12
(16)
да. не сомневаюсь что поставит.
а потом типа

          Если Об.Проведен Тогда
               Об.Записать(РежимЗаписиДокумента.Проведение);
           иначе
               Об.Записать(РежимЗаписиДокумента.Запись);
           КонецЕсли;

вот тут что-то и вспомнилось (15).
18 Evrepid
 
07.12.12
19:13
Трындец! Какой то троллинг!
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn