//ат
Процедура глВыгрузитьОстаткиТоваров() Экспорт

    ТЗ = СоздатьОбъект("ТаблицаЗначений");
	
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(ОстаткиТоваров)
	//|Период с (ТекущаяДата()) по (КонГода(ТекущаяДата()));
	|Период с (ПолучитьДатуТА()) по (ПолучитьДатуТА());
	|Без итогов;
	|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
	|Количество = Регистр.ОстаткиТМЦ.Количество;
	|Функция КоличествоКонОст = КонОст(Количество);
	|Группировка Номенклатура Упорядочить по Номенклатура.Наименование;"//}}ЗАПРОС
	//|Группировка Номенклатура без групп без упорядочивания;"//}}ЗАПРОС
    ;
	
    Запрос.Выполнить(ТекстЗапроса);
    Запрос.Выгрузить(ТЗ);  

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

     ТЗ.ВыбратьСтроки();         
     Пока ТЗ.ПолучитьСтроку()=1 Цикл
        Если ТЗ.Номенклатура.ЭтоГруппа() = 0 Тогда
	 		//Состояние("Экспорт: "+Цел(ТЗ.НомерСтроки/ТЗ.КоличествоСтрок()*100)+"%");
        	тНоменклатура=ТЗ.Номенклатура;
		 	тКод=ТЗ.Номенклатура.Код;
          	тКоличество=ТЗ.КоличествоКонОст;
          	Т.ДобавитьСтроку("" + тКод +";" + тКоличество +";" + тНоменклатура +";");
		КонецЕсли;
     КонецЦикла;

     Файл="c:\ex\_export.csv";
     
     Попытка
	 	Т.Записать(Файл);
	 	Сообщить("Выгружены остатки товров: "+ Файл); //+КаталогИБ()
	 Исключение
	 	Сообщить("Ошибка при выгрузке: " + Файл); //+КаталогИБ()
	 	Сообщить(ОписаниеОшибки(), "!!!");
	 КонецПопытки;

КонецПроцедуры //глВыгрузитьОстаткиТоваров 

Процедура глЗагрузитьРозничныеПродажи() Экспорт
                 
	 Файл="c:\ex\_import.csv";	
	 
	
КонецПроцедуры //глЗагрузитьРозничныеПродажи()

Процедура глИмпортЭкспорт Экспорт
	глЗагрузитьРозничныеПродажи();
	глВыгрузитьОстаткиТоваров();
КонецПроцедуры //глИмпортЭкспорт
//\\ат