Глава_01

Цель:
Научиться переносить данные из документа в текстового файл.

Во первых скопируем в конфигураторе через буфер обмена отчет ОтчетРН.
Скопированный, он автоматич переименуется как ОтчетРН1.

Замечательная способность программы копировать через буфер обмена
весь справочник, документ или отчет!

Функция выводит в текстовый файл все данные из всех расходных накладных.

//*******************************************



Процедура Сформировать()


            Текст = СоздатьОбъект("Текст");

        Текст.Открыть("ТекстФайл.txt");

	

        Док = СоздатьОбъект("Документ.РН"); 

        Док.ВыбратьДокументы();

	

	Пока (Док.ПолучитьДокумент() = 1) Цикл

		Основание = Док.Вид() + " №" + СокрЛП(Док.НомерДок) + " от " + Док.ДатаДок;

                Текст.ДобавитьСтроку(Основание);		   

		                         

		Док.ВыбратьСтроки(); 

		Пока (Док.ПолучитьСтроку() = 1) Цикл  

                   //действия с очередным элементом  

		   ПчНомТов = Док.НомерСтроки; 

		   ПчТовар = Док.Товар; 

		   ПчЦена  = Док.Цена;

		   ПчКолич = Док.Количество;

		   ПчЕдИзм = Док.ЕИ;

		   ПчСумма = Док.Сумма;

		   СтрДок = "      " + ПчТовар+" " +ПчЦена+" руб " +ПчКолич+" " +ПчЕдИзм+" " +ПчСумма+" руб";

                   Текст.ДобавитьСтроку(СтрДок);		   

	        КонецЦикла; 

                Текст.ДобавитьСтроку("");		   

	КонецЦикла;

        Текст.ТолькоПросмотр(0);

        Текст.Показать("Пример1", "ТекстФайл.txt");

РН № 1 от 04.09.09
Лимонад "Тархун" 35 руб 30 бут 1,5 1050 руб
Макароны 16 руб 50 пачки 800 руб
Пиво "Бочковое" 45 руб 10 бут 1,5 450 руб

РН № 2 от 04.09.09
Босоножки 330 руб 50 шт 16500 руб
Валенки 550 руб 80 шт 44000 руб
Кросовки 200 руб 100 шт 20000 руб

//----------------
Функция Вид() - Название вида документа.

Возвращаемое значение:
Строковое значение, содержащее название вида документа, как он задан в конфигураторе.

Вывод в текстовый файл данных из документа