@Jlokys

Как из excel в 1с, в 1 реализацию записывать по 1 строке?

Есть код он из файла excel записывает все строки в одну реализацию товаров и услуг 1с, что нужно поправить что бы одна строка из excel записывалась в 1 реализацию.
Для каждого ДокументаТоварыИУслуги Из Данныефайла Цикл 
		
					
		ДокументДляЗаписи            			           = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
		ДокументДляЗаписи.ВидОперации 	           = Перечисления.ВидыОперацийРеализацияТоваров;
		ДокументДляЗаписи.Дата       			    = ТекущаяДата(); 
		ДокументДляЗаписи.Контрагент 			    = Контрагент;
		ДокументДляЗаписи.БанковскийСчетОрганизации = БанковскийСчет;
		ДокументДляЗаписи.ДоговорКонтрагента               = Договор;
		ДокументДляЗаписи.Организация			    = Организация;
		ДокументДляЗаписи.Склад                                        = Склад; 
	        ДокументДляЗаписи.ДополнительныеСвойства.Вставить("ЗаполнитьСчетаУчетаПередЗаписью", Истина);
	        СчетаУчетаВДокументах.ЗаполнитьПередЗаписью(ДокументДляЗаписи, РежимЗаписиДокумента.Запись);

	КоличествоСтрок = 0;
	Для каждого Строка  из Данныефайла Цикл 
		ТаблицаДокумента = ДокументДляЗаписи.Товары.Добавить(); 
		
		ТаблицаДокумента.Номенклатура     = Справочники.Номенклатура.НайтиПоНаименованию(Строка.Товар);
		ТаблицаДокумента.Количество          = Строка.Количество;	
	        ТаблицаДокумента.Цена                 = Строка.Цена; 
		ТаблицаДокумента.Цена             = Строка.Цена * 20/120;
		ТаблицаДокумента.Цена             = Строка.Цена - ТаблицаДокумента.Цена;
		ТаблицаДокумента.Сумма            = Строка.Цена * Строка.Количество;
			
		Если ТаблицаДокумента.Номенклатура.Пустая() Тогда 
			
			НоваяНоменклатура 			         = Справочники.Номенклатура.СоздатьЭлемент();
			НоваяНоменклатура.Наименование       = Строка.Товар;
			НоваяНоменклатура.Артикул            = Строка.Артикул;
			НоваяНоменклатура.ВидСтавкиНДС       = Перечисления.СтавкиНДС.НДС20;
			НоваяНоменклатура.ЕдиницаИзмерения   = 
                        Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
			НоваяНоменклатура.Записать();
				
		Иначе  
			Если ТаблицаДокумента.Номенклатура.Артикул =  "" Тогда 
				ДобавитьАртикул 		    = ТаблицаДокумента.Номенклатура.ПолучитьОбъект();	
				ДобавитьАртикул.Артикул    	= Строка.Артикул;  
				ДобавитьАртикул.Записать();
		Иначе
			Если ТаблицаДокумента.Номенклатура.ЕдиницаИзмерения.Пустая() Тогда
				 ДобавитьЕдиницуИзмерения = ТаблицаДокумента.Номенклатура.ПолучитьОбъект();
				 ДобавитьЕдиницуИзмерения.ЕдиницаИзмерения = 
                                 Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
				
		Иначе
			Если ТаблицаДокумента.СтавкаНДС.Пустая() тогда
				    ТаблицаДокумента.СтавкаНДС =  Перечисления.СтавкиНДС.НДС20;  					
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецЕсли;
   КоличествоСтрок = КоличествоСтрок + 1;
КонецЦикла;

  Сообщить("Количество строк = " + КоличествоСтрок);
 ДокументДляЗаписи.Записать();
КонецЦикла;
  • Вопрос задан
  • 62 просмотра
Решения вопроса 1
Mi11er
@Mi11er
A human...
то нужно поправить что бы одна строка из excel записывалась в 1 реализацию.


Нужно чтоб в цикле, для каждой строки, создавался документ =)
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы