Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: ВЫГРУЗКА ТЧ Через обработку!!!!  (Прочитано 4784 раз)
0 Пользователей и 1 Гость смотрят эту тему.
kidman
Гость
« : 04-08-2006 15:38 » 

Есть несколько документов....из них необходимо выгрузить табличную часть и вставить в один(новый-сводный)... Не понял
Спасибо!!!
Ищу нужные мне документы .....создаю "сводный документ"....и потом все нашедшие документы должны как бы залиться в "сводный"
Вот мой код....где ошибка... не соображу .... -)
   НДок=СоздатьОбъект("Документ.Инвентаризация");
   Док=СоздатьОбъект("Документ.Инвентаризация");
    Если ВариантыДействий.ТекущаяСтрока() = 1 Тогда
         //ДатаДок=РабочаяДата();
          НДок.Новый();
          НДок.Комментарий="Сводный док";
          Стр="Искомая строка";
         Док.ВыбратьДокументы();
          Пока Док.ПолучитьДокумент()=1 Цикл
            Если Найти(НРег(Док.Комментарий), НРег(Стр))>0 Тогда
            Док.ТекущийДокумент();   
               Если Док.ВыгрузитьТабличнуюЧасть(ТЗ) = 1 Тогда
                  Если ПустоеЗначение(ТЗ) = 1 Тогда
                     Возврат;
                  КонецЕсли;
                  ТЗ.ВыбратьСтроки();
                  Пока ТЗ.ПолучитьСтроку() = 1 Цикл
                  НДок.НоваяСтрока();
                  Товар = ТЗ.Товар;
                  Количество = ТЗ.Количество;
                  НДок.ПересчетСтроки();
                  КонецЦикла;

            КонецЕсли;
            НДок.Записать();
« Последнее редактирование: 07-08-2006 07:27 от kidman » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines