Процедура Печать()

	Если (ПустоеЗначение(ДатаНач)=1) или (ПустоеЗначение(ДатаКон)=1) Тогда

		Предупреждение("Не задан период отчета");

		Возврат;

	КонецЕсли;

	Заг="За период с "+ДатаНач+" по "+ДатаКон;

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

	Таб.ВывестиСекцию("Шапка");		

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

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

	ИтогоПриход=0;

	ИтогоРасход=0;

	Чеков=0;   

	//1C-ovec.ru Нужно выводить документы по Номеру, хотя лучше для этих целей использовать Запрос

	ТЗврем = СоздатьОбъект("ТаблицаЗначений");

	ТЗврем.НоваяКолонка("Док");

	ТЗврем.НоваяКолонка("Дата");

	ТЗврем.НоваяКолонка("Номер");

	ТЗврем.НоваяКолонка("Приход");

	ТЗврем.НоваяКолонка("Расход"); 

	ТЗврем.НоваяКолонка("Чеков");

	//Выборка документов

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

		Если Док.Проведен()=0 Тогда

			Продолжить;

		ИначеЕсли (Док.Вид()="ПриходныйОрдерТБ") и (флПКО=1) Тогда

			Приход=Док.Сумма;

			Расход=0;

		ИначеЕсли (Док.Вид()="БезналичнаяОплата") и (флБН=1)  Тогда

			Приход=Док.Сумма;

			Расход=0;

		ИначеЕсли (Док.Вид()="РасходныйОрдерТБ") и (флРКО=1)  Тогда

			Приход=0;

			Расход=Док.Сумма;

		ИначеЕсли Док.Вид()="Чек" Тогда

			Если (Док.Тип=1) и (флЧекиП=1) Тогда

				Приход=Док.Сумма;

				Расход=0;

				Чеков=Чеков+1;

			ИначеЕсли (Док.Тип=2) и (флЧекиВ=1) Тогда

				Приход=0;

				Расход=Док.Сумма;

				Чеков=Чеков+1;

			Иначе

				Продолжить;

			КонецЕсли;

		Иначе

			Продолжить;

		КонецЕсли;  

		//Добавим в ТЗ строку

		НовСТР=ТЗврем.НоваяСтрока();

		ТЗврем.Док = Док;

		ТЗврем.Дата = Док.ДатаДок;

		ТЗврем.Номер = Док.НомерДок;

		ТЗврем.Приход = Приход;

		ТЗврем.Расход =Расход;

		ТЗврем.Чеков = Чеков;

		//Пока рано выводить

		//Таб.ВывестиСекцию("Строка");		 

		ИтогоПриход=ИтогоПриход+Приход;

		ИтогоРасход=ИтогоРасход+Расход;

	КонецЦикла;    

	//Теперь сортируем по номеру и выводим     

	ТЗврем.Сортировать("Номер");

	ТЗврем.ВыбратьСтроки();

	Пока ТЗврем.ПолучитьСтроку() = 1 Цикл  

		Док=ТЗврем.Док;

		Приход=ТЗврем.Приход;

		Расход=ТЗврем.Расход;

		Таб.ВывестиСекцию("Строка");

	КонецЦикла;

	

	Таб.ВывестиСекцию("Итого");		

	Таб.ТолькоПросмотр(1);

	Таб.Показать("Отчет по кассе");

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

 

//Возвращает что-то типо: C:\Documents and Settings\E.S.Migachev\Мои документы\

Функция КаталогМоиДокументы() Экспорт

	

	App = Новый COMОбъект("Shell.Application");

	Folder = App.Namespace(5);

	Результат = "";

	Попытка

		Результат = Folder.Self.Path;

	Исключение

		Результат = "";

	КонецПопытки;

	Если Результат = "" Тогда

		Результат = КаталогВременныхФайлов();

	КонецЕсли; 

	Возврат Результат+"\";

	

КонецФункции

   

 

 СтрокаПоиска="1c-ovec.ru"

 АдресПоиска="http://www.yandex.ru/yandsearch?text="+СтрокаПоиска;

 

 //Пример через COMОбъект

 ИЕ = Новый COMОбъект("InternetExplorer.Application");

 ИЕ.Navigate(АдресПоиска);

 ИЕ.Visible = 1;

 Пока ИЕ.ReadyState<>4 Цикл

	 ОбработкаПрерыванияПользователя();;

 КонецЦикла;

 

 

 //Хотя проще будет так:

 ЗапуститьПриложение(АдресПоиска);