gifts2017

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

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

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

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

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

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

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

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

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

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

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

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

См. также

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


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

2. Александр Иванов (beara24) 19.10.16 08:20
(1) 1C82, спасибо внесу изменения