Загрузка в 1с УСН из Е-фарма txt-файла

[berkut321]

Доброго времени суток. 

Не могли бы Вы подсказать где можно найти обработку для загрузки в 1с УСН текстового файла, выгруженного из программы Е-фарма. Примерный текст, выгруженный из программы выглядит так:

0;ЗАО,Поста;11091;01.12.06;71961;04.12.06;3788.89;5338.95;303.86;68.11;1;Закупка для розницы;15ПН-0000008
0;Бюрок;11089;29.11.06;283051_Н10;04.12.06;1783.27;2592.25;162.12;0;1;Закупка для розницы;15ПН-0000009
0;Бюрок;11089;29.11.06;283052_Н18;04.12.06;119.12;172.5;0;18.17;1;Закупка для розницы;15ПН-0000010

Причем текст голый без реквизитов файла и прочей инфы - только такие строки.

Поставлено условие собрать суммы в общую запись, для Бюрок в частности.

С уважением к монстрам 1С, Новичок.

[Kivals]

Наверное быстрее всего будет написать.
Тебе нужны только 2 поля: название фирмы и сумма (какая из или все 4)?

[berkut321]

Нужны только название, первая сумма и номер входящего документа...

[Kivals]

Создаешь новую обработку. В ней процедуру Сформировать заменяешь на код ниже:
(ПутьКФайлу меняешь на правильный путь в формате "C:\Path\To\File.txt")

Код:

Процедура Сформировать()
	// Создадим таблицу полученных значений
	ТЗ=СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("Фирма","Строка");
	ТЗ.НоваяКолонка("Сумма1","Число",12,2);
	ТЗ.НоваяКолонка("Сумма2","Число",12,2);
	ТЗ.НоваяКолонка("Сумма3","Число",12,2);
	ТЗ.НоваяКолонка("Сумма4","Число",12,2);
	
	// Заполним таблицу из файла
	Т=СоздатьОбъект("Текст");
	Т.Открыть(ПутьКФайлу);
	Для И1=1 По Т.КоличествоСтрок() Цикл
		Стр=Т.ПолучитьСтроку(И1);
		Если ПустаяСтрока(Стр)=1 Тогда Продолжить; КонецЕсли;
		Стр=СтрЗаменить(Стр,";",РазделительСтрок);
		// Назв фирмы - строка 2
		// Суммы - строки 7,8,9,10
		Если СтрКоличествоСтрок(Стр)<10 Тогда Продолжить; КонецЕсли;
		
		ТЗ.НоваяСтрока();
		ТЗ.Фирма=СтрПолучитьСтроку(Стр,2);
		ТЗ.Сумма1=Число(СтрПолучитьСтроку(Стр,7));
		ТЗ.Сумма2=Число(СтрПолучитьСтроку(Стр,8));
		ТЗ.Сумма3=Число(СтрПолучитьСтроку(Стр,9));
		ТЗ.Сумма4=Число(СтрПолучитьСтроку(Стр,10));
	КонецЦикла;
	
	// Просуммируем суммы :)
	ТЗ.Свернуть("Фирма","Сумма1,Сумма2,Сумма3,Сумма4");
	ТЗ.Сортировать("Фирма");
	
	// Выведем на экран
	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку()=1 Цикл
		Сообщить(ТЗ.Фирма+СимволТабуляции+ТЗ.Сумма1+СимволТабуляции+
		  ТЗ.Сумма2+СимволТабуляции+ТЗ.Сумма3+СимволТабуляции+ТЗ.Сумма4);
	КонецЦикла;

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

[Kivals]

Успь. Не успел увидить твой ответ.
Модификации следующие:
Добавляешь в таблицу поле входящего документа
   ТЗ.НоваяКолонка("ВхНом","Строка");
Добавляешь чтение этого номера
      ТЗ.ВхНом=СтрПолучитьСтроку(Стр,Х);
(при необходимости - поменяй условие на проверку количества строк)
Меняешь сворачивание ТЗ добавлением поля в первый параметр
   ТЗ.Свернуть("Фирма,ВхНом",...);
Аналогично можешь добавить в сортировку
Меняешь вывод на экран.
Удаляешь лишние суммы если мешают

[berkut321]

Огромное спасибо... Сейчас пытаюсь все смастерить... Очень приятно что откликнулись и помогли...