Создание отчета о розничных продажах

Опубликовал Александр Иванов (beara24) в раздел Обработки - Обработка документов

Обработка создает отчет о розничных продажах и изменяет статусы Чек ККМ. Обработка написана под 1С: Розница 2.2

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

1С: Розница  дает возможность создать отчет о продаже прошлым периодом. Эта обработка позволяет создавать отчет 1 кликом.

Работает обработка следующим образом. Выбираем дату, за которую необходимо сформировать отчет о розничных продажах. Обработка осуществит поиск созданного отчета за данный период времени, в случае обнаружения отчета пометит на удаление, а вместо старого создаст новый, таким образом исключается возможность дублирования документов.

Также имеется механизм изменения статуса чека. Принцип работы изменения статуса чека так же прост:  выбираем чек  который нужно исправить, выбираем статус, нажимем кнопку Изменить статус чека. Статус чека меняется. 

В Строке обработки справочник не предопределенный  оплата платежными картами  

в "Строке Если ОбъектЧекККМ.Оплата[Индекс].ВидОплаты.Код = "А1-000001" Тогда"
"А1-000001" заменить своим номером  

Обработка написана для 1С розницы вер 2.2

Скачать файлы

Наименование Файл Версия Размер
Создание отчетов розничных продаж
.epf 10,82Kb
17.08.16
16
.epf 1.1 10,82Kb 16 Скачать

См. также

Комментарии
1. Сергей (1C82) 40 19.10.16 07:42 Сейчас в теме
Запрос можно сократить до
ВЫБРАТЬ
	 |	ЧекККМ.Ссылка КАК Ссылка
	 |ИЗ
	 |	Документ.ЧекККМ КАК ЧекККМ
	 |ГДЕ
	 |	ЧекККМ.Дата >= &Начало
	 |	И ЧекККМ.Дата <= &Конец
	 |	И ЧекККМ.Проведен = ИСТИНА
	 |	И ЧекККМ.ПометкаУдаления = ЛОЖЬ
	 |	И ЧекККМ.КассаККМ = &КассаККМ
...Показать Скрыть


И для возвратов надо бы добавить :
//Возвратов не должно быть в таблице Товары	
        Для Каждого СтрокаВозвраты Из ДокументОбъект.ВозвращенныеТовары Цикл
		ПараметрыОтбора = Новый Структура;
		ПараметрыОтбора.Вставить("Номенклатура", СтрокаВозвраты.Номенклатура);
		ПараметрыОтбора.Вставить("Сумма", СтрокаВозвраты.Сумма);
		НайденныеСтроки = ДокументОбъект.Товары.НайтиСтроки(ПараметрыОтбора);
			 Если НайденныеСтроки.Количество() > 0 Тогда
		          ДокументОбъект.Товары.Удалить(НайденныеСтроки[0]);
			 КонецЕсли;
			  
		КонецЦикла;
...Показать Скрыть

2. Александр Иванов (beara24) 4 19.10.16 08:20 Сейчас в теме
(1) 1C82, спасибо внесу изменения
Оставьте свое сообщение