Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
16 Дек 2017, 23:21
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Нужна помощь с обработкой  (Прочитано 1421 раз)

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

Оффлайн Дринкинс

  • **
  • Сообщений: 55
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-03-27
  • Сайт: 
  • Профессия: Ученик 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).Количество = КоличествоВоды;




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


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

Последний раз редактировалось: MuI_I_Ika; 18 Сен 2013, 22:55


Оффлайн Dethmontt

  • Денис
  • Модератор
  • *****
  • Сообщений: 2857
  • РЕПУТАЦИЯ: 546
  • КПД: 19%
  • Адын Эс
  • Регистрация: 2010-11-01
  • Сайт: 
  • Профессия: Программист 1С
СтрокаТЧ = ДокументРеализация.Услуги.Добавить();
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
157 Сообщений
ilyay ilyay
66 Сообщений
alex0402
53 Сообщений
AIFrame
51 Сообщений
andron81_81
44 Сообщений
oleg-x
44 Сообщений
BuhRust
33 Сообщений
MuI_I_Ika MuI_I_Ika
32 Сообщений
Golickoff Golickoff
31 Сообщений
Dima Dddd Dima Dddd
24 Сообщений

* Кто онлайн

  • Точка Гостей: 217
  • Точка Скрытых: 0
  • Точка Пользователей: 2
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal