1С:Предприятие 8.2 (8.2.16.368)
Бухгалтерия предприятия, редакция 2.0 (2.0.39.6)
для заполнения бух справки, файл так выглядет:  (TOYOTA CAMRY №12648|588673,8)-знак табуляции "|", всего одномерный массив [2] из двух  
Функция ПолучитьПоле(ВходСтрока,НомерПоля, Видразделителя)
   Перем Строка1, Строка2, НашеПоле;
   Перем Позиция1, Позиция2;
   Перем ДлинаРазд, ЧислоРазд;
   ДлинаРазд = СтрДлина(Видразделителя);
   ЧислоРазд = СтрЧислоВхождений(ВходСтрока,Видразделителя);
   Если (ЧислоРазд+1) < НомерПоля Тогда
       Сообщить("Номер поля за пределами строки!!!", СтатусСообщения.ОченьВажное);
       Возврат "ЭтоФигня"
   КонецЕсли;
   Колполей = 0;
   Строка1 = ВходСтрока;
   Для ии = 1 По ЧислоРазд Цикл
       Позиция1 = Найти(Строка1, Видразделителя);
       НашеПоле = Лев(Строка1, Позиция1-1);
       Если ии = НомерПоля Тогда
           Возврат НашеПоле;
       ИначеЕсли ии = ЧислоРазд Тогда
           НашеПоле = Сред(Строка1, Позиция1 + ДлинаРазд);
           Возврат НашеПоле;
       Иначе
           Строка1 = Сред(Строка1, Позиция1 + ДлинаРазд);
       КонецЕсли;
   КонецЦикла;
КонецФункции


Процедура КнопкаВыполнитьНажатие(Кнопка)
       

   Док = ПолучитьCOMОбъект(Путь);
   счСтроки = 1;
Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
   Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
   //////////////Формирование массива услуги    
   Массив = Новый Массив(2);
          Для Сч=1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
          КонецЦикла;
       
   НовыйДокумент= Документы.ОперацияБух.СоздатьДокумент();
       //НовыйДокумент.Организация = Организация ;
 СчКт      = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства.Код;
           СубконтоКт1= Справочники.Контрагенты.НайтиПоКоду("000003173");
           СубконтоКт2= Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[1],Символ(34),""));
Сумма     = Массив[2];      
КонецЦикла;
НовыйДокумент.Записать();
счСтроки = счСтроки + 1;
Док.Application.Quit();

КонецПроцедуры


Процедура ВыбФайлНачалоВыбора(Элемент, СтандартнаяОбработка)
   // Вставить содержимое обработчика.
   ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   ДиалогВыбораФайла.Фильтр                  = "Текстовые файлы (*.csv)|*.csv";
   ДиалогВыбораФайла.Заголовок               = "Выберите файл для загрузки данных";
   ДиалогВыбораФайла.ПредварительныйПросмотр = Ложь;
   ДиалогВыбораФайла.Расширение              ="csv";
   ДиалогВыбораФайла.ИндексФильтра           = 0;
   ДиалогВыбораФайла.ПолноеИмяФайла          = Путь;
   Если ДиалогВыбораФайла.Выбрать() Тогда
       Путь = ДиалогВыбораФайла.ПолноеИмяФайла;
   КонецЕсли;

КонецПроцедуры

не работает в чем дело..не понятно

а счего оно должно работать?
движения ты где пишешь?

внтури цикла делаешь

     
   НовыйДокумент= Документы.ОперацияБух.СоздатьДокумент();
 

затем снаружи цикла записываешь его :)

то есть в цикле 10 000 строк, сделалось 10 000 новых документов а записался 1  последний :) :)

далее
сделав документ внутре цикла ты создаешь пару переменных в памяти и никуда их не записывешь.. и при новом витке ты эти перменные перезаписыаешь новыми значениями..

ясен пень нихера работать не будет

отвечаю только из за уважения к фотке в купальнике...

Красотка!

хорошая фотка, я помню тоже в трудные времена под такими фотками релизы просил :-)

??? хм..спасибо

(8) Брился хоть...?

если цикл значит

Процедура КнопкаВыполнитьНажатие(Кнопка)
НовыйДокумент= Документы.ОперацияБух.СоздатьДокумент();        

   Док = ПолучитьCOMОбъект(Путь);
   счСтроки = 1;
Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
   Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
   //////////////Формирование массива услуги    
   Массив = Новый Массив(2);
          Для Сч=1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
          КонецЦикла;
       
   
       
                                               СчКт      = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства.Код;
           СубконтоКт1= Справочники.Контрагенты.НайтиПоКоду("000003173");
           СубконтоКт2= Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[1],Символ(34),""));
Сумма     = Массив[2];      
КонецЦикла;
НовыйДокумент.Записать();
счСтроки = счСтроки + 1;
Док.Application.Quit();

КонецПроцедуры



Венесла из цикла НовыйДокумент= Документы.ОперацияБух.СоздатьДокумент();
 -все?
фото мое это я

(12) ну тогда еще момент: Массив[2] - это не второй, а третий элемент массива.

..какая прекрасная женственная фигура..

Наверное так??? :

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();        
       Док = ПолучитьCOMОбъект(Путь);
   Для счСтроки = 1 По Док.Sheets(1).UsedRange.Rows.Count Цикл
       Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
       //////////////Формирование массива услуги    

       Массив = Новый Массив(2);
       Для Сч = 1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
       КонецЦикла;
       
       Проводка = НовыйДокумент.Движения.Хозрасчетный.Добавить();
       Проводка.СчетКт = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства;
       Проводка.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("000003173");
       Проводка.СубконтоКт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[0],Символ(34),""));
       Проводка.Сумма = Массив[1];
   КонецЦикла;
   
   НовыйДокумент.Записать();
   Док.Application.Quit();

КонецПроцедуры


P.S. (С) Bash.im
Элька: Олегин спасибо тебе огромное выручил
Элька: че с меня?
Oleg: Ты же знаешь - я с красивых девушек только натурой беру
Элька: ;)
Oleg: C тебя 500р

(15) На месте девушки я б оскордился после такого :)

(16) Это не мое - это Баш

(10) точно...все все равно получиться..вот увидите) Спасибо)

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
       Док = ПолучитьCOMОбъект(Путь);
   Для счСтроки = 1 По Док.Sheets(1).UsedRange.Rows.Count Цикл
       Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
       //////////////Формирование массива услуги    


       Массив = Новый Массив(2);
       Для Сч = 1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
       КонецЦикла;
       
       Проводка = НовыйДокумент.Движения.Хозрасчетный.Добавить();
       Проводка.СчетКт = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства;
       Проводка.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("000003173");
       Проводка.СубконтоКт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[0],Символ(34),""));
       Проводка.Сумма = Массив[1];
   КонецЦикла;
   
   НовыйДокумент.Записать();
   Док.Application.Quit();
    Сообщить("Загрузка документов завершена !!!");
       СД=Документы.ОперацияБух.ПолучитьФормуСписка();

   
КонецПроцедуры

но вот ошибка новая теперь
Процедура КнопкаВыполнитьНажатие(Кнопка)
   
НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
       Док = ПолучитьCOMОбъект(Путь);
   Для счСтроки = 1 По Док.Sheets(1).UsedRange.Rows.Count Цикл
       Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
       //////////////Формирование массива услуги    


       Массив = Новый Массив(2);
       Для Сч = 1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
       КонецЦикла;
       
       Проводка = НовыйДокумент.Движения.Хозрасчетный.Добавить();
       Проводка.СчетКт = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства;
       Проводка.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("000003173");
       Проводка.СубконтоКт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[0],Символ(34),""));
       Проводка.Сумма = Массив[1];
   КонецЦикла;
   
   НовыйДокумент.Записать();
   Док.Application.Quit();
    Сообщить("Загрузка документов завершена !!!");
       СД=Документы.ОперацияБух.ПолучитьФормуСписка();

   
КонецПроцедуры

{Форма.Форма.Форма(53)}: Ошибка при вызове метода контекста (Записать)
   НовыйДокумент.Записать();
по причине:
Запись не верна! Период не может быть пустым! (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет); Номер строки: 1)

(21) так заполни период!

Как? я ищу но пока не нашла-что это вообще такое

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

Все равно ругается

(23)
Процедура КнопкаВыполнитьНажатие(Кнопка)
   
НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
       Док = ПолучитьCOMОбъект(Путь);
   Для счСтроки = 1 По Док.Sheets(1).UsedRange.Rows.Count Цикл
       Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
       //////////////Формирование массива услуги    



       Массив = Новый Массив(2);
       Для Сч = 1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
       КонецЦикла;
       
       Проводка = НовыйДокумент.Движения.Хозрасчетный.Добавить();
       ПРОВОДКА.ПЕРИОД = ТЕКУЩАЯДАТА(); // ТИПА ТАК
       Проводка.СчетКт = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства;
       Проводка.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("000003173");
       Проводка.СубконтоКт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[0],Символ(34),""));
       Проводка.Сумма = Массив[1];
   КонецЦикла;
   
   НовыйДокумент.Записать();
   Док.Application.Quit();
    Сообщить("Загрузка документов завершена !!!");
       СД=Документы.ОперацияБух.ПолучитьФормуСписка();

   
КонецПроцедуры

так по строке надо-я не знала -сейчас попробую спасибо. я думала отдельну процу надо и под свои потребы как"Процедура ПередЗаписью(Отказ, РежимЗаписи)"

(0) Я бы вдул!

(27) обычно в модуле записей перед записью проверяется - если период не заполнен, то лепится текущая дата

(29) Теперь не ругается,  Сообщить("Загрузка документов завершена !!!");-сообщает))))но ничего нет с массивом буду разбираться теперь

фотка супер, код ацтой! )))

(30) так выложи, что сейчас получилось...

вот это загрузить пытаюсь: TOYOTA CAMRY №12648|588673,8

наименование и сумма в док ОперацияБух

(31)так учимся загрузку писать

(30) нечего выкладывать документа даже в списке нет)))

(35) дуй в отладчик и смотри что получается

(37)Хорошо... эх время то...позже за ребенком погнала в школу..результат выложу позже! Спасибо!

(37) ранняя ты мамочка )))

ай нет даже не создал документ((((

так  точка останова стоит на месте(((

я таки не понял - ребенок в школе ночует? )

на строке НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент(); F9нажимаю и ни с места

Ребенок-нет дома ночует))) сейчас в школе ещё -на танцах, после уроков основных

(42) отладчик поломала оО
рестартани отладку

Байк мне подарила на днях! ))) http://vk.com/anisalatypova?z=photo19433951_292570115%2Fwall19433951_394

(45) кто?

(45) там не фиксин на фотках? оО

Дочка моя

Короче не отлаживается( так и стоит на месте точка-останова рестартанула, не создает док. вот реализацию делала ранее-все отлично получилось а бух справка-никак не получается

(47) для меня это сузуки имазума 400)))

(48) тебе дочка подарила байк?
зы: фото не смотрел, недоступно

игрушечный)))))

Я просто оч люблю мото

а 1с не очень..не отлаживается,  зараза, скоро продолжу. спасибо!

Процедура КнопкаВыполнитьНажатие(Кнопка)
//Создаю регистратор    
НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
НовыйДокумент.Организация=Справочники.Организации.НайтиПоКоду("000000001");
НовыйДокумент.Содержание="Загрузка";
НовыйДокумент.Записать();
НовыйДокументСсылка = НовыйДокумент.Ссылка;

//Получаю файл для загрузки

Док = ПолучитьCOMОбъект(Путь);
   Для счСтроки = 1 По Док.Sheets(1).UsedRange.Rows.Count Цикл
       Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
       //////////////Формирование массива услуги    




       Массив = Новый Массив(2);
       Для Сч = 1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
       КонецЦикла;
       
       Проводка = НовыйДокумент.Движения.Хозрасчетный.Добавить();
       ПРОВОДКА.ПЕРИОД = ТЕКУЩАЯДАТА(); // ТИПА ТАК

       Проводка.СчетКт = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства;
       Проводка.СубконтоКт.Контрагенты = Справочники.Контрагенты.НайтиПоКоду("000003173");
       Проводка.СубконтоКт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоКоду(СтрЗаменить(Массив[1],Символ(34),""));
       Проводка.Сумма = Массив[2];
   КонецЦикла;
   
   НовыйДокумент.Записать();
   Док.Application.Quit();
    Сообщить("Загрузка документов завершена !!!");
       СД=Документы.ОперацияБух.ПолучитьФормуСписка();

 
   КонецПроцедуры

Как и обещала) говорила же все получиться) потом отрываю док ставлю опер в ручную, проверяю и провожу) в регистрах движение происходит) Спасибо мои дорогие Мистеры!