Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 05:16

Нужна помощь с обработкой

Автор Дринкинс, 18 сен 2013, 20:29

0 Пользователей и 1 гость просматривают эту тему.

Дринкинс

Здравствуйте.
Нужно загрузить данные из файла в БП2 с созданием реализаций Данные в прикрепленном файле


  Попытка   
      Эксель = новый COMОбъект("Excel.Application");
   Исключение
      Состояние(ОписаниеОшибки());   
   КонецПопытки;


   Книга = Эксель.WorkBooks.Open(ИмяФайлаЗагрузки);


   Лист = Книга.WorkSheets(1);


   ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
   ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;


   Вода = Справочники.Номенклатура.НайтиПоКоду("00000009851");
   Стоки = Справочники.Номенклатура.НайтиПоКоду("00000009852");


   ДатаНачальная = 0;
   КонтрагентНачальный = Неопределено;


   для Строка = 2 по ВсегоСтрок цикл
             
      Контрагент          = Справочники.Контрагенты.НайтиПоНаименованию(Лист.Cells(Строка,1).Value);
      Содержание            = Лист.Cells(Строка,2).Value;
      ДатаДокумента        = Лист.Cells(Строка,3).Value;                     
      КоличествоВоды       =  Лист.Cells(Строка,4).Value;
      КоличествоСтоков    =  Лист.Cells(Строка,5).Value;
     
      Если ДатаДокумента <> ДатаНачальная Тогда
         
         ДокументРеализация = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
         ДокументРеализация.Контрагент = Контрагент;
         ДокументРеализация.Дата = ДатаДокумента;
         ДокументРеализация.ДоговорКонтрагента = Контрагент.ОсновнойДоговорКонтрагента;
         ТЧ = ДокументРеализация.Услуги.Получить(0);
         //ДокументРеализация.Услуги.Получить(0).Номенклатура = Вода;
         //ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(Вода, ДокументРеализация, мВалютаРегламентированногоУчета);
         //ДокументРеализация.Услуги.ДокументРеализация.Услуги.Получить(0).Количество = КоличествоВоды;




      Иначе
     
         
     
      КонецЕсли;
     
     
   КонецЦикла;
                                                                                                                                         


Подскажите как получить длступ до ТЧ для добавления в нее данных

Dethmontt

СтрокаТЧ = ДокументРеализация.Услуги.Добавить();
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск