Процедура ДокументСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

	ТекДокумент = ДанныеСтроки.Ссылка;

	СуммаДокумента = ТекДокумент.Товары.Итог("СуммаСНДС");

	СуммаБезнал = ТекДокумент.Оплата.Итог("СуммаОплаты");

	СуммаНал = ?(СуммаДокумента > СуммаБезнал, СуммаДокумента - СуммаБезнал, 0);

	ОформлениеСтроки.Ячейки.СуммаДокумента.ОтображатьТекст = Истина;

	ОформлениеСтроки.Ячейки.НаличнаяОплата.ОтображатьТекст = Истина;

	ОформлениеСтроки.Ячейки.БезналичнаяОплата.ОтображатьТекст = Истина;

	ОформлениеСтроки.Ячейки.СуммаДокумента.Текст = Формат(СуммаДокумента, "ЧДЦ=2; ЧН=");

	ОформлениеСтроки.Ячейки.НаличнаяОплата.Текст = Формат(СуммаНал, "ЧДЦ=2; ЧН=");

	ОформлениеСтроки.Ячейки.БезналичнаяОплата.Текст = Формат(СуммаБезнал, "ЧДЦ=2; ЧН=");



	//Определяем наличие ПКО

	Если ТекДокумент.ПолучитьОбъект().ПолучитьСвязанныйПКО() <> Неопределено Тогда

		ОформлениеСтроки.Ячейки.ЕстьПКО.ОтображатьКартинку = Истина;

		ОформлениеСтроки.Ячейки.ЕстьПКО.Картинка = БиблиотекаКартинок.ВыполненоУспешно32;

	КонецЕсли;

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



Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)

	//Определяем наличие ПКО

	МассивДокументов = Новый Массив;

	Для каждого ТекСтрока Из ОформленияСтрок Цикл

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

	КонецЦикла;

	Запрос = Новый Запрос("ВЫБРАТЬ Основание ИЗ РегистрСведений.АА_СвязанныеДокументы КАК СД ГДЕ СД.Основание В (&Документы)");

	Запрос.УстановитьПараметр("Документы", МассивДокументов);

	Результат = Запрос.Выполнить().Выгрузить();

	Для Каждого ТекСтрока Из ОформленияСтрок Цикл

		Ссылка = ТекСтрока.ДанныеСтроки.Ссылка;

		ТекСтрока.Ячейки.ЕстьПКО.ЗначениеКартинки = Результат.Найти(Ссылка,"Основание") <> Неопределено;

	КонецЦикла;

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

 

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

	Если (ПустоеЗначение(ДатаНач)=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);

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

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