Учет и сверка Z-Отчетов ККМ в 1С

ПРЕДПОСЫЛКИ:

Если вы используете ККМ, у вас возникает необходимость сверять отраженную выручку в 1С с предоставленными z-отчетами.

Сразу развею миф: «Если все чеки печатаются из 1С, то и сумма выручки всегда будет совпадать с z-отчетом». В жизни все не так.

Если у вас всего 1-5 контрольно кассовых машин (ККМ), можно ежедневно вручную бухгалтеру сверять выручку по бумажному z-отчету. Но если у вас более 100 ККМ, вопрос автоматизации по проверке достоверности отражения выручки, соблюдения кассовой дисциплины и своевременного пробития чеков становится очень остро. Человеческий фактор в данном случае становится просто катастрофическим.

К сожалению, типовые конфигурации 1С нам не предлагают возможность вести учет z-отчетов, что ж, реализуем сами.

Внедрение бизнес процесса по контролю и учету z-отчетов можно разделить на три этапа:

1. Создание в 1С документа "z-отчет" с ручным вводом информации.
2. Контроль и формирование отчетов по проверке показателей, которые можно извлечь из Z-отчета.
3. Автоматизация загрузки с ККМ данных о z-отчетах (их автоматическое создание в 1С).

Маленькая ремарка: Предоставленная ниже реализация z-отчета, является решением во времена ККМ с ЭКЛЗ и плавно была трансформирована (с обратной совместимостью) в решение для онлайн касс.

ПРИСТУПИМ: 

1 ЭТАП

Создаем новый документ «_ZОтчетФискальный»
Реквизиты:
— Организация (СправочникСсылка.Организации)
— Подразделение (СправочникСсылка.Подразделения)
— ККМ (СправочникСсылка.КассыККМ)
— Накопление (Число15.2)  В новых он-лайн ККМ это поле теперь называется ГРОСС ИТОГ
— Выручка (Число15.2)
— Возвраты (Число15.2)
— ВыручкаБезТоварныхЧеков (Число15.2) В этом поле отражают выручку, регистрируемую при поступлении средств от «оптовых» покупателей (ТОРГ12+ПКО).
— Неиспользованные (Число15.2)
— НомерГашения (Число10.0) В новых он-лайн ККМ это поле теперь называется НОМЕР СМЕНЫ.
— СуммаДокумента (Число15.2)
Для отображения в журнале
— НачальныеСведения (Булево) Этот реквизит необходим для обозначения вноса первого Z-отчета ККМ, или при смене ФН. При его установке не проверяется хронология отчетов по ККМ.
— Ответственный (СправочникСсылка.Пользователи)
— Комментарий (Строка)

В модуле объекта пишем код для проверки заполнения при проведении документа.

Функция НайтиПредыдущееГашение() Экспорт
СведенияОПредыдущем = Новый Структура("НомерГашения,Накопление,СсылкаНаДокумент");
СведенияОПредыдущем.НомерГашения=Неопределено;
СведенияОПредыдущем.Накопление=Неопределено;
СведенияОПредыдущем.СсылкаНаДокумент=Неопределено;
Если НЕ НачальныеСведения Тогда
Запрос=Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
|Ссылка,
|Дата,
|Организация,
|ККМ,
|Накопление,
|НомерГашения,
|Проведен
|ИЗ Документ._ZОтчетФискальный
|ГДЕ Дата<&ДатаКонец И Организация=&ВыбОрганизация И ККМ=&ВыбКасса И Проведен
|УПОРЯДОЧИТЬ ПО Дата УБЫВ");
Запрос.УстановитьПараметр("ВыбОрганизация",Организация);
Запрос.УстановитьПараметр("ВыбКасса",ККМ);
Запрос.УстановитьПараметр("ДатаКонец",Дата);
Выборка =  Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
СведенияОПредыдущем.НомерГашения=Выборка.НомерГашения;
СведенияОПредыдущем.Накопление=Выборка.Накопление;
СведенияОПредыдущем.СсылкаНаДокумент=Выборка.Ссылка;
КонецЕсли;
КонецЕсли;
Возврат СведенияОПредыдущем;
КонецФункции

Процедура ОбработкаПроведения(Отказ, Режим)
Если НЕ НачальныеСведения Тогда
СведенияОПредыдущем= НайтиПредыдущееГашение();
Если СведенияОПредыдущем.НомерГашения=Неопределено Тогда
Сообщить("Не найден предыдущий Финансовый отчет (гашение) для ККМ: "+Строка(ККМ));
Если НЕ РольДоступна("ПолныеПрава") Тогда
Отказ = Истина;
КонецЕсли;

Иначе
Если НомерГашения=СведенияОПредыдущем.НомерГашения Тогда
Сообщить("Уже существует документ с таким номером гашения для выбранной ККМ. Возможно вы задублировали документ.");
Сообщить("Ожидается номер "+Строка(СведенияОПредыдущем.НомерГашения+1));
Если НЕ РольДоступна("ПолныеПрава") Тогда
Отказ = Истина;
КонецЕсли;
ИначеЕсли (НомерГашения<СведенияОПредыдущем.НомерГашения) Тогда
Сообщить("Существует документ с более поздним номером гашения для выбранной ККМ. Отмените более поздние гашения, и проведите их в порядке возрастания номера гашения.");
Сообщить("Ожидается номер "+Строка(СведенияОПредыдущем.НомерГашения+1));
Если НЕ РольДоступна("ПолныеПрава") Тогда
Отказ = Истина;
КонецЕсли;
ИначеЕсли (НомерГашения>(СведенияОПредыдущем.НомерГашения+1)) Тогда
Сообщить("Существуют пропущенные номера гашения для выбранной ККМ. Преверте номер гашения или проведите гашения для пропущенных номеров.");
Сообщить("Ожидается номер "+Строка(СведенияОПредыдущем.НомерГашения+1));
Если НЕ РольДоступна("ПолныеПрава") Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецЕсли;

//РасчВозврат=?(Касса.ОтражениеВозвратовВНакоплении=Перечисления.ВлияниеНаИтоги.Увеличивают,Возвраты,?(Касса.ОтражениеВозвратовВНакоплении=Перечисления.ВлияниеНаИтоги.Уменьшают,-Возвраты,0));
//РасчНеиспользованные=?(Касса.ОтражениеНеиспользованныхВНакоплении=Перечисления.ВлияниеНаИтоги.Увеличивают,Неиспользованные,?(Касса.ОтражениеНеиспользованныхВНакоплении=Перечисления.ВлияниеНаИтоги.Уменьшают,-Неиспользованные,0));
РасчВозврат = Возвраты; //Считаем что всегда увеличивают;
РасчНеиспользованные = 0; //Считаем что не влияют;
Если (Накопление<>(СведенияОПредыдущем.Накопление+Выручка+РасчВозврат+РасчНеиспользованные)) Тогда
Сообщить("Контроль накопления не пройден! Проверьте правильность внесения данных с бумажного чека ""Z-ОТЧЕТ (фискальный)""!");
Если НЕ РольДоступна("ПолныеПрава") Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
Конецесли;
КонецПроцедуры

Если вы обратили внимание, пользователь не может провести документ «_ZОтчетФискальный», если не выполняется математика или не соблюдается очередность отчетов.

Закомментированный код применялся при подсчете накопления в старых моделях ККМ с ЭКЛЗ, теперь в нем нет необходимости.

Документ «_ZОтчетФискальный» все проверки производит по указанной в документе конкретной кассе ККМ.

Небольшое лирическое отступление:

При эксплуатации касс АТОЛ 11Ф у нас неоднократно случались ошибки математики «ГРОСС ИТОГА» во время пробития z-отчета на ККМ, как правило при сбое (окончание бумаги или разряд аккумулятора).
Что ж, не беда, в нашем случае предусмотрен флаг «НачальныеСведения» в документе, при его установки документ позволяет начать отсчет номер гашения и накопление заново.

Вызов форма списка документа поместил в меню: Документы>Управление денежными средствами>Z-Отчеты

Форма списка выглядит так:

Форму документа я оформил в наглядном и понятном бухгалтеру виде:

Код формы документа:

Процедура ПриОткрытии()
Если НЕ ЭтоНовый() Тогда
НастройкаПравДоступа.ОпределитьДоступностьВозможностьИзмененияДокументаПоДатеЗапрета(ДокументОбъект, ЭтаФорма);
КонецЕсли;

Если ЭтоНовый() Тогда // проверить объект на то, что он еще не внесен в ИБ
Если НЕ ЗначениеЗаполнено(ДокументОбъект.Дата) Тогда
ДокументОбъект.Дата=ТекущаяДата();
Конецесли;
ДокументОбъект.Подразделение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновноеПодразделение");
ДокументОбъект.Организация   = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяОрганизация");
ДокументОбъект.ККМ      = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяКассаККМ");
ДокументОбъект.Ответственный = Пользователи.ТекущийПользователь();
КонецЕсли;
ОбновитьНадписи();
ОбновитьОбразецЧека();
КонецПроцедуры

Процедура ОбновитьНадписиПриИзмененииЭлемента(Элемент)
ОбновитьНадписи();
ОбновитьОбразецЧека();
КонецПроцедуры

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
ДокументОбъект.СуммаДокумента=ДокументОбъект.Выручка-ДокументОбъект.Возвраты-ДокументОбъект.Неиспользованные;
КонецПроцедуры

Функция НайтиПредыдущееГашениеНаСервере()
Возврат НайтиПредыдущееГашение();
КонецФункции

Процедура ОбновитьНадписи()
СведенияОПредыдущем= НайтиПредыдущееГашениеНаСервере();
ЭлементыФормы.РамкаСтарыйОтчет.Видимость=ДокументОбъект.НачальныеСведения;
Если СведенияОПредыдущем.НомерГашения=Неопределено Тогда
ЭлементыФормы.ПРНомерГашения.Заголовок="Номер гашения: Нет сведений";
ЭлементыФормы.ПРНакопление.Заголовок="Накопление: Нет сведений";
ЭлементыФормы.ПРНомерГашения.Видимость = Ложь;
ЭлементыФормы.ПРНакопление.Видимость = Ложь;
Иначе
ЭлементыФормы.ПРНомерГашения.Заголовок="Номер гашения: "+ФОРМАТ(СведенияОПредыдущем.НомерГашения,"ЧГ=");
ЭлементыФормы.ПРНакопление.Заголовок="Накопление: "+ФОРМАТ(СведенияОПредыдущем.Накопление)+" руб.";
ЭлементыФормы.ПРНомерГашения.Видимость = Истина;
ЭлементыФормы.ПРНакопление.Видимость = Истина;
КонецЕсли;
КонецПроцедуры

Процедура ОбновитьОбразецЧека()
ЭлементыФормы.ФД.Очистить();
ЭлементыФормы.ФД.ДобавитьСтроку("ИНН "+ДокументОбъект.Организация.ИНН);
ЭлементыФормы.ФД.ДобавитьСтроку("Z-ОТЧЕТ ФИСКАЛЬНЫЙ");
ЭлементыФормы.ФД.ДобавитьСтроку("ККМ "+ДокументОбъект.ККМ.СерийныйНомер);
ЭлементыФормы.ФД.ДобавитьСтроку("ЗАКР.СМЕНЫ  "+ПРАВ("0000"+ФОРМАТ(ДокументОбъект.НомерГашения,"ЧГ="),4));
ЭлементыФормы.ФД.ДобавитьСтроку("");
ЭлементыФормы.ФД.ДобавитьСтроку("НАКОПЛЕНИЕ");
ЭлементыФормы.ФД.ДобавитьСтроку("ГРОСС-ИТОГ");
ЭлементыФормы.ФД.ДобавитьСтроку("  "+ПРАВ("..........."+ФОРМАТ(ДокументОбъект.Накопление,"ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧН=0.00; ЧГ="),15));
ЭлементыФормы.ФД.ДобавитьСтроку("ВЫРУЧКА");
ЭлементыФормы.ФД.ДобавитьСтроку("  "+ПРАВ("..........."+ФОРМАТ(ДокументОбъект.Выручка,"ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧН=0.00; ЧГ="),15));
ЭлементыФормы.ФД.ДобавитьСтроку(Формат(ДокументОбъект.Дата,"ДФ=""дд.ММ.гг ЧЧ.мм""")+"Ф");
ЭлементыФормы.ФД.ДобавитьСтроку("ВОЗВРАТЫ");
ЭлементыФормы.ФД.ДобавитьСтроку("  "+ПРАВ("..........."+ФОРМАТ(ДокументОбъект.Возвраты,"ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧН=0.00; ЧГ="),15));
КонецПроцедуры

Если используете управляемые формы, то получать ИНН организации и серийный номер ККМ нужно через вызов функции на сервере.

2 ЭТАП

Создаем средства проверки и контроля данных в z-отчетах. Для этого у нас уже существует решение для бухгалтеров «ЕДИНАЯ ПРОВЕРКА ОШИБОК». Добавляем раздел по проверке сразу всех Z-отчетов, внесенных в 1С за определенный период.

Макет для вывода результатов проверки там выглядит как-то так:

Создаем процедуры по проверке документов «_ZОтчетФискальный»:

Перечисляю все варианты сообщений при проверке, по ним вы сможете понять, какие проверки производятся с документом z-отчет.

ОШИБКИ:

— В Z-отчете указаны неиспользованные чеки, но при этом ПКО оформлен на всю сумму выручки в Z-отчете на дату ХХХ
— В Z-отчете указаны оптовые продажи, но при этом ПКО с видом ""Прием розничной выручки"" оформлен на всю сумму выручки в Z-отчете на дату ХХХ
— Чистая выручка по Z-отчету ХХХ не соответсвует сумме ПКО ХХХ по кассе ККМ ХХХ на дату ХХХ
— Сумма неиспользованных чеков и оптовых продаж превышает общую выручку
— Сумма опта Z-отчетов ХХХ по подразделению ХХХ не сходится с суммой ПКО ХХХ на дату ХХХ
— Не найден предыдущий Финансовый отчет (гашение) для ККМ ХХХ
— Уже существует документ с таким номером гашения для выбранной ККМ. Возможно вы задублировали документ. Ожидается номер ХХХ
— Существует документ с более поздним номером гашения для выбранной ККМ. Отмените более поздние гашения, и проведите их в порядке возрастания номера гашения.  Ожидается номер ХХХ
— Существуют пропущенные номера гашения для выбранной ККМ. Преверте номер гашения или проведите гашения для пропущенных номеров. Ожидается номер ХХХ
— Контроль накопления не пройден! Проверьте правильность внесения данных с бумажного чека "Z-ОТЧЕТ (фискальный)"!
 

ПРЕДУПРЕЖДЕНИЯ:

— По кассе ККМ ХХХ на дату ХХХ должен быть оформлен акт по неиспользованным кассовым чекам(КМ-3) на сумму ХХХ
— По кассе ККМ ХХХ на дату ХХХ должен быть оформлено заявление на возврат на сумму ХХХ
— По кассе ККМ ХХХ найдено несколько Z-отчетов с признаком "Начальные сведения"
 

Процедура ПроверкаZОтчетов(ТД,Макет)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| _ZОтчетФискальный.ККМ КАК ККМ,
| МИНИМУМ(_ZОтчетФискальный.Дата) КАК Дата
|ИЗ
| Документ._ZОтчетФискальный КАК _ZОтчетФискальный
|ГДЕ
| _ZОтчетФискальный.Дата >= &Дата1
|
|СГРУППИРОВАТЬ ПО
| _ZОтчетФискальный.ККМ";
Запрос.Параметры.Вставить("Дата1",НачалоДня(ОбработкаОбъект.Период.ДатаНачала));
ТаблицаКасс = Запрос.Выполнить().Выбрать();
Пока ТаблицаКасс.Следующий() Цикл
Запрос = Новый Запрос;
Запрос.Текст="ВЫБРАТЬ
| ПКО.День КАК Дата,
| ЕСТЬNULL(ПКО.СуммаДокумента, 0) КАК СуммаПКО,
| ПКО.Контрагент КАК ККМ,
| ЕСТЬNULL(Отчеты.Выручка, 0) КАК СуммаОтчета,
| ЕСТЬNULL(Отчеты.Неиспользованные, 0) КАК Неиспользованные,
| ЕСТЬNULL(Отчеты.Возвраты, 0) КАК Возвраты,
| Отчеты.День КАК ДатаОтчета,
| Отчеты.ККМ КАК ККМОтчета,
| ЕСТЬNULL(Отчеты.ВыручкаБезТоварныхЧеков, 0) КАК Опт,
| ЕСТЬNULL(Отчеты.ВыручкаЧистая, 0) КАК СуммаОтчетаЧистая
|ИЗ
| (ВЫБРАТЬ
|  _ZОтчетФискальный.Организация КАК Организация,
|  _ZОтчетФискальный.ККМ КАК ККМ,
|  СУММА(_ZОтчетФискальный.Выручка) КАК Выручка,
|  НАЧАЛОПЕРИОДА(_ZОтчетФискальный.Дата, ДЕНЬ) КАК День,
|  СУММА(_ZОтчетФискальный.Неиспользованные) КАК Неиспользованные,
|  СУММА(_ZОтчетФискальный.Возвраты) КАК Возвраты,
|  СУММА(_ZОтчетФискальный.ВыручкаБезТоварныхЧеков) КАК ВыручкаБезТоварныхЧеков,
|  СУММА(_ZОтчетФискальный.Выручка - _ZОтчетФискальный.Неиспользованные -  _ZОтчетФискальный.ВыручкаБезТоварныхЧеков) КАК ВыручкаЧистая
| ИЗ
|  Документ._ZОтчетФискальный КАК _ZОтчетФискальный
| ГДЕ
|  _ZОтчетФискальный.Дата МЕЖДУ &Дата1 И &Дата2
|  И _ZОтчетФискальный.Проведен = ИСТИНА
|  И _ZОтчетФискальный.Организация = &Организация
|  И _ZОтчетФискальный.ККМ = &ККМ
|
| СГРУППИРОВАТЬ ПО
|  _ZОтчетФискальный.Организация,
|  _ZОтчетФискальный.ККМ,
|  НАЧАЛОПЕРИОДА(_ZОтчетФискальный.Дата, ДЕНЬ)) КАК Отчеты
|  ПОЛНОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
|   ПриходныйКассовыйОрдер.Организация КАК Организация,
|   ПриходныйКассовыйОрдер.Контрагент КАК Контрагент,
|   СУММА(ПриходныйКассовыйОрдер.СуммаДокумента) КАК СуммаДокумента,
|   НАЧАЛОПЕРИОДА(ПриходныйКассовыйОрдер.Дата, ДЕНЬ) КАК День
|  ИЗ
|   Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
|  ГДЕ
|   ПриходныйКассовыйОрдер.Проведен = ИСТИНА
|   И ПриходныйКассовыйОрдер.Дата МЕЖДУ &Дата1 И &Дата2
|   И ПриходныйКассовыйОрдер.Организация = &Организация
|   И ТИПЗНАЧЕНИЯ(ПриходныйКассовыйОрдер.Контрагент) = ТИП(Справочник.КассыККМ)
|   И ПриходныйКассовыйОрдер.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийПКО.ПриходДенежныхСредствРозничнаяВыручка)
|   И ПриходныйКассовыйОрдер.ОтражатьВБухгалтерскомУчете = ИСТИНА
|   И ПриходныйКассовыйОрдер.Контрагент = &ККМ
|
|  СГРУППИРОВАТЬ ПО
|   ПриходныйКассовыйОрдер.Организация,
|   ПриходныйКассовыйОрдер.Контрагент,
|   НАЧАЛОПЕРИОДА(ПриходныйКассовыйОрдер.Дата, ДЕНЬ)) КАК ПКО
|  ПО Отчеты.Организация = ПКО.Организация
|   И Отчеты.ККМ = ПКО.Контрагент
|   И Отчеты.День = ПКО.День";
Запрос.УстановитьПараметр("Организация",ОбработкаОбъект.Организация);
Запрос.УстановитьПараметр("Дата1",?(ТаблицаКасс.Дата>ОбработкаОбъект.Период.ДатаНачала,НачалоДня(ТаблицаКасс.Дата),НачалоДня(ОбработкаОбъект.Период.ДатаНачала)));
Запрос.УстановитьПараметр("Дата2",КонецДня(ОбработкаОбъект.Период.ДатаОкончания));
Запрос.УстановитьПараметр("ККМ",ТаблицаКасс.ККМ);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.СуммаПКО = Выборка.СуммаОтчета И Выборка.Неиспользованные >0 Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ);
ОбластьМакета.Параметры.Ошибка       ="В Z-отчете указаны неиспользованные чеки, но при этом ПКО оформлен на всю сумму выручки в Z-отчете на дату: " + Формат(?(Выборка.Дата = Null,Выборка.ДатаОтчета,Выборка.Дата),"ДФ=dd.MM.yy; ДЛФ=D");
ТД.Вывести(ОбластьМакета);
КонецЕсли;
Если Выборка.СуммаПКО = Выборка.СуммаОтчета И Выборка.Опт >0 Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ);
ОбластьМакета.Параметры.Ошибка       ="В Z-отчете указаны оптовые продажи, но при этом ПКО с видом ""Прием розничной выручки"" оформлен на всю сумму выручки в Z-отчете на дату: " + Формат(?(Выборка.Дата = Null,Выборка.ДатаОтчета,Выборка.Дата),"ДФ=dd.MM.yy; ДЛФ=D");
ТД.Вывести(ОбластьМакета);
КонецЕсли;
Если Выборка.СуммаПКО <> Выборка.СуммаОтчетаЧистая Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ);
ОбластьМакета.Параметры.Ошибка       ="Чистая выручка по Z-отчету: "+Выборка.СуммаОтчетаЧистая+" не соответсвует сумме ПКО: "+Выборка.СуммаПКО+" по кассе ККМ: "+Выборка.ККМ+" на дату: "+Формат(?(Выборка.Дата = Null,Выборка.ДатаОтчета,Выборка.Дата),"ДФ=dd.MM.yy; ДЛФ=D");
ТД.Вывести(ОбластьМакета);
КонецЕсли;
Если Выборка.Неиспользованные>0 Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Предупреждение");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ);
ОбластьМакета.Параметры.Ошибка       ="По кассе ККМ: "+?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ)+" на дату: "+Формат(?(Выборка.Дата = Null,Выборка.ДатаОтчета,Выборка.Дата),"ДФ=dd.MM.yy; ДЛФ=D") + " должен быть оформлен акт по неиспользованным кассовым чекам(КМ-3) на сумму " + Выборка.Неиспользованные;
ТД.Вывести(ОбластьМакета);
КонецЕсли;
Если Выборка.Возвраты>0 Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Предупреждение");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ);
ОбластьМакета.Параметры.Ошибка       ="По кассе ККМ: "+?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ)+" на дату: "+Формат(?(Выборка.Дата = Null,Выборка.ДатаОтчета,Выборка.Дата),"ДФ=dd.MM.yy; ДЛФ=D") + " должен быть оформлено заявление на возврат на сумму " + Выборка.Возвраты;
ТД.Вывести(ОбластьМакета);
КонецЕсли;
КонецЦикла;
Запрос = Новый Запрос;
ЕстьНачальный = Ложь;
Запрос.Текст="ВЫБРАТЬ
| _ZОтчетФискальный.Ссылка КАК Ссылка,
| _ZОтчетФискальный.НачальныеСведения КАК НачальныеСведения
|ИЗ
| Документ._ZОтчетФискальный КАК _ZОтчетФискальный
|ГДЕ
| _ZОтчетФискальный.ККМ = &ККМ
| И _ZОтчетФискальный.Дата МЕЖДУ &Дата1 И &Дата2
| И _ZОтчетФискальный.Проведен = ИСТИНА
| И _ZОтчетФискальный.Организация = &Организация";
Запрос.УстановитьПараметр("Дата1",?(ТаблицаКасс.Дата>ОбработкаОбъект.Период.ДатаНачала,НачалоДня(ТаблицаКасс.Дата),НачалоДня(ОбработкаОбъект.Период.ДатаНачала)));
Запрос.УстановитьПараметр("Дата2",КонецДня(ОбработкаОбъект.Период.ДатаОкончания));
Запрос.УстановитьПараметр("ККМ",ТаблицаКасс.ККМ);
Запрос.УстановитьПараметр("Организация",ОбработкаОбъект.Организация);
ZОтчеты = Запрос.Выполнить().Выбрать();
Пока ZОтчеты.Следующий() Цикл
Если ЕстьНачальный И ZОтчеты.НачальныеСведения Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Предупреждение");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ);
ОбластьМакета.Параметры.Ошибка       ="По кассе ККМ " + ?(Выборка.ККМ = Null,Выборка.ККМОтчета,Выборка.ККМ) + " найдено несколько Z-отчетов с признаком ""Начальные сведения""";
ТД.Вывести(ОбластьМакета);
КонецЕсли;
Если ZОтчеты.НачальныеСведения Тогда
ЕстьНачальный = Истина;
КонецЕсли;
ПроверкаКорректностиZОтчетов(ZОтчеты.Ссылка,Выборка.ККМ,ТД,Макет);
КонецЦикла;
КонецЦикла;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| МИНИМУМ(_ZОтчетФискальный.Дата) КАК Дата,
| _ZОтчетФискальный.ККМ.ПодразделениеОрганизации КАК Подразделение
|ИЗ
| Документ._ZОтчетФискальный КАК _ZОтчетФискальный
|ГДЕ
| _ZОтчетФискальный.Дата >= &Дата1
|
|СГРУППИРОВАТЬ ПО
| _ZОтчетФискальный.ККМ.ПодразделениеОрганизации";
Запрос.Параметры.Вставить("Дата1",НачалоДня(ОбработкаОбъект.Период.ДатаНачала));
ТаблицаПодразделений = Запрос.Выполнить().Выбрать();
Пока ТаблицаПодразделений.Следующий() Цикл
ЗапросОпт = Новый Запрос;
ЗапросОпт.Текст = "ВЫБРАТЬ
| ПКО.День КАК Дата,
| ЕСТЬNULL(ПКО.СуммаДокумента, 0) КАК СуммаПКО,
| Отчеты.День КАК ДатаОтчета,
| ЕСТЬNULL(Отчеты.ВыручкаБезТоварныхЧеков, 0) КАК Опт,
| Отчеты.Подразделение,
| ПКО.Подразделение КАК ПодразделениеПКО
|ИЗ
| (ВЫБРАТЬ
|  _ZОтчетФискальный.Организация КАК Организация,
|  НАЧАЛОПЕРИОДА(_ZОтчетФискальный.Дата, ДЕНЬ) КАК День,
|  СУММА(_ZОтчетФискальный.ВыручкаБезТоварныхЧеков) КАК ВыручкаБезТоварныхЧеков,
|  _ZОтчетФискальный.Подразделение КАК Подразделение
| ИЗ
|  Документ._ZОтчетФискальный КАК _ZОтчетФискальный
| ГДЕ
|  _ZОтчетФискальный.Дата МЕЖДУ &Дата1 И &Дата2
|  И _ZОтчетФискальный.Проведен = ИСТИНА
|  И _ZОтчетФискальный.Организация = &Организация
|  И _ZОтчетФискальный.ВыручкаБезТоварныхЧеков > 0
|  И _ZОтчетФискальный.Подразделение = &Подразделение
|
| СГРУППИРОВАТЬ ПО
|  _ZОтчетФискальный.Организация,
|  НАЧАЛОПЕРИОДА(_ZОтчетФискальный.Дата, ДЕНЬ),
|  _ZОтчетФискальный.Подразделение) КАК Отчеты
|  ПОЛНОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
|   ПриходныйКассовыйОрдер.Организация КАК Организация,
|   СУММА(ПриходныйКассовыйОрдер.СуммаДокумента) КАК СуммаДокумента,
|   НАЧАЛОПЕРИОДА(ПриходныйКассовыйОрдер.Дата, ДЕНЬ) КАК День,
|   ПриходныйКассовыйОрдер.Подразделение КАК Подразделение
|  ИЗ
|   Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
|  ГДЕ
|   ПриходныйКассовыйОрдер.Проведен = ИСТИНА
|   И ПриходныйКассовыйОрдер.Дата МЕЖДУ &Дата1 И &Дата2
|   И ПриходныйКассовыйОрдер.Организация = &Организация
|   И ПриходныйКассовыйОрдер.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийПКО.ОплатаПокупателя)
|   И ПриходныйКассовыйОрдер.ОтражатьВБухгалтерскомУчете = ИСТИНА
|   И ПриходныйКассовыйОрдер.Подразделение = &Подразделение
|
|  СГРУППИРОВАТЬ ПО
|   ПриходныйКассовыйОрдер.Организация,
|   НАЧАЛОПЕРИОДА(ПриходныйКассовыйОрдер.Дата, ДЕНЬ),
|   ПриходныйКассовыйОрдер.Подразделение) КАК ПКО
|  ПО Отчеты.Организация = ПКО.Организация
|   И Отчеты.День = ПКО.День
|   И Отчеты.Подразделение = ПКО.Подразделение";
ЗапросОпт.УстановитьПараметр("Организация",ОбработкаОбъект.Организация);
ЗапросОпт.УстановитьПараметр("Дата1",?(ТаблицаКасс.Дата>ОбработкаОбъект.Период.ДатаНачала,НачалоДня(ТаблицаКасс.Дата),НачалоДня(ОбработкаОбъект.Период.ДатаНачала)));
ЗапросОпт.УстановитьПараметр("Дата2",КонецДня(ОбработкаОбъект.Период.ДатаОкончания));
ЗапросОпт.УстановитьПараметр("Подразделение",ПодразделениеОрганизацииВПодразделение(ТаблицаПодразделений.Подразделение));
ВыборкаОпт = ЗапросОпт.Выполнить().Выбрать();
Пока ВыборкаОпт.Следующий() Цикл
Если ВыборкаОпт.Опт <> ВыборкаОпт.СуммаПКО Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =?(ВыборкаОпт.Подразделение = Null,ВыборкаОпт.ПодразделениеПКО,ВыборкаОпт.Подразделение);
ОбластьМакета.Параметры.Ошибка       ="Сумма опта Z-отчетов: " + ВыборкаОпт.Опт + " по подразделению " + ?(ВыборкаОпт.Подразделение = Null,ВыборкаОпт.ПодразделениеПКО,ВыборкаОпт.Подразделение) + " не сходится с суммой ПКО: " + ВыборкаОпт.СуммаПКО + " на дату " + Формат(?(ВыборкаОпт.Дата = Null,ВыборкаОпт.ДатаОтчета,ВыборкаОпт.Дата),"ДФ=dd.MM.yy; ДЛФ=D");
ТД.Вывести(ОбластьМакета);
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры

Процедура ПроверкаКорректностиZОтчетов(СсылкаНаОтчет,ККМ,ТД,Макет)
Если НЕ СсылкаНаОтчет.НачальныеСведения Тогда
СведенияОПредыдущем= НайтиПредыдущееГашение(СсылкаНаОтчет);
Если СведенияОПредыдущем.НомерГашения=Неопределено Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =СсылкаНаОтчет;
ОбластьМакета.Параметры.Ошибка       ="Не найден предыдущий Финансовый отчет (гашение) для ККМ: "+Строка(ККМ);
ТД.Вывести(ОбластьМакета);
Иначе
Если СсылкаНаОтчет.НомерГашения=СведенияОПредыдущем.НомерГашения Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =СсылкаНаОтчет;
ОбластьМакета.Параметры.Ошибка       ="Уже существует документ с таким номером гашения для выбранной ККМ. Возможно вы задублировали документ." + Символы.ПС + "Ожидается номер "+Строка(СведенияОПредыдущем.НомерГашения+1);
ТД.Вывести(ОбластьМакета);
ИначеЕсли (СсылкаНаОтчет.НомерГашения<СведенияОПредыдущем.НомерГашения) Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =СсылкаНаОтчет;
ОбластьМакета.Параметры.Ошибка       ="Существует документ с более поздним номером гашения для выбранной ККМ. Отмените более поздние гашения, и проведите их в порядке возрастания номера гашения." + Символы.ПС + "Ожидается номер "+Строка(СведенияОПредыдущем.НомерГашения+1);
ТД.Вывести(ОбластьМакета);
ИначеЕсли (СсылкаНаОтчет.НомерГашения>(СведенияОПредыдущем.НомерГашения+1)) Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =СсылкаНаОтчет;
ОбластьМакета.Параметры.Ошибка       ="Существуют пропущенные номера гашения для выбранной ККМ. Преверте номер гашения или проведите гашения для пропущенных номеров." + Символы.ПС + "Ожидается номер "+Строка(СведенияОПредыдущем.НомерГашения+1);
ТД.Вывести(ОбластьМакета);
КонецЕсли;
КонецЕсли;

РасчВозврат = СсылкаНаОтчет.Возвраты; //Считаем что всегда увеличивают;
РасчНеиспользованные = 0; //Считаем что не влияют;
Если (СсылкаНаОтчет.Накопление<>(СведенияОПредыдущем.Накопление+СсылкаНаОтчет.Выручка+РасчВозврат+РасчНеиспользованные)) Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =СсылкаНаОтчет;
ОбластьМакета.Параметры.Ошибка       ="Контроль накопления не пройден! Проверьте правильность внесения данных с бумажного чека ""Z-ОТЧЕТ (фискальный)""!";
ТД.Вывести(ОбластьМакета);
КонецЕсли;
КонецЕсли;
Если СсылкаНаОтчет.Неиспользованные + СсылкаНаОтчет.ВыручкаБезТоварныхЧеков>СсылкаНаОтчет.Выручка Тогда
ОбластьМакета         = Макет.ПолучитьОбласть("Ошибка");
ОбластьМакета.Параметры.ОбъектаПроверки        =СсылкаНаОтчет;
ОбластьМакета.Параметры.Ошибка       ="Сумма неиспользованных чеков и оптовых продаж превышает общую выручку";
ТД.Вывести(ОбластьМакета);
КонецЕсли;

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

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

Запрос.УстановитьПараметр("ПодразделениеОрганизации",ПодразделениеОрганизации);
Запрос.УстановитьПараметр("Организация",ПодразделениеОрганизации.Владелец);

Результат=Запрос.Выполнить().Выбрать();
Если Результат.Следующий() Тогда
Возврат  Результат.Подразделение;
КонецЕсли;
Возврат Справочники.Подразделения.ПустаяСсылка();

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

В результате можно формировать отчеты по проверки z- отчетов за любой период и вовремя устранять нарушения, не дожидаясь того, что на эти ошибки укажет вам ФНС.

Пример работы проверки:

3 ЭТАП

Когда количество касс вырастает к трехзначной цифре, остро назревает вопрос об автоматизации процесса получения сведений из z-отчета ККМ в автоматическом режиме.

Рассмотрим на примере POS систем АТОЛ и их ККМ.

Стандартный обмен текстовыми файлами с POS системами АТОЛ нам не особо помогает в процессе автоматизации.
При пробитии z-отчета POS система АТОЛа пишет в файл report.txt  строку с кодом "63"
Пример строки:
 

1937;19.04.2024;20:09:47;63;1;195;2;;19;1379;1379;1379;9;2;0;0;0;;;1379;;0;8;0;;146/245/19;1;;;;;;;0;0 - Ошибок нет,0 - Ошибок нет,0 - Ошибок нет;;;;;;;; 

Что можно из нее выдернуть :
дата — 19.04.2024,
время – 20:09:47
порядковый номер z-отчета —  19
выручку -1379.00
наличную часть выручки – 1379.00
накопление (ГРОСС ИТОГ) – такой информации АТОЛ в файл не записывает.

АТОЛ дает обработку «82АТОЛ.epf». В ее модуле объекта можно найти участок кода:

Функция ПрочитатьФайлВыгрузки(Объект, Файл, Отчет, Карты, Оплаты)
//++Комментарий автора
// Эта функция вызывается из Функции ЗагрузитьОтчет(Объект, Отчет, Карты = Неопределено, Оплаты = Неопределено)
// А она вызывается из функции «ЗагрузитьОтчетОПродажах» обработки конфигурации «ТОСервер»
//--Комментарий автора
//… разбор файла и запись его в таблицу «Отчет»…

ИначеЕсли ТипТранзакции = 63 Тогда
// Z-отчёт
Если Объект.Параметры.КритичныеОперации Тогда
Попытка
НомерСмены  = Число(СтрПолучитьСтроку(ТекущаяСтрока, 9));
Выручка  = Число(СтрПолучитьСтроку(ТекущаяСтрока, 10));
Наличность = Число(СтрПолучитьСтроку(ТекущаяСтрока, 11));
СменныйИтог = Число(СтрПолучитьСтроку(ТекущаяСтрока, 12));

Исключение
КонецПопытки;
КонецЕсли;

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

Для автоматизации загрузки Z-отчетов нужно передать по функциям пустую табличку с полями z-отчета и заполнить ее в указанном участке кода, а по возврату таблицы из функций — создать документ _ZОтчетФискальный в  модуле обработки «ТОСервер».

Нам этот способ не подходил, поскольку АТОЛ не выдает накопление (ГРОСС ИТОГ) и возвраты, а их проверка была жизненно необходима.

Мы пошли другим путем, написали свою POS  систему и сведения брали из драйвера ККМ в полном объеме в виде XML.

Пример xml

О обработках по автоматической загрузке данных с ККМ в 1С парсим приходящие файлы XML от ККМ.

Функция ЗагрузитьXML_reg(ПолноеИмяФайла) Экспорт
Перем ПостроитьДУМ,ДокументДУМ;
ПостроитьДУМ = Новый ПостроительDOM;
ПолучитьКорневойУзелXMLФайла(ПолноеИмяФайла,ПостроитьДУМ,ДокументДУМ);
Если ДокументДУМ=Неопределено Тогда
Возврат Ложь;
КонецЕсли;
КорневойУзел = ДокументДУМ.ПервыйДочерний;
Если КорневойУзел=Неопределено Тогда
Возврат Истина;
КонецЕсли;

//...
ЕстьОшибки = Ложь;
Если КорневойУзел.ЕстьДочерниеУзлы() Тогда
Для Каждого Узел_entry ИЗ КорневойУзел.ПолучитьЭлементыПоИмени("Документы") Цикл
Если Узел_entry.ЕстьДочерниеУзлы() Тогда
//…
Для Каждого Узел_requests ИЗ Узел_entry.ПолучитьЭлементыПоИмени("Документ.ZОтчёт") Цикл  //ZОтчет
СтруктураДок = Новый Структура("ИДОтчета,НомерГашения,НомерСмены,ДатаККМ,НомерККМ,СуммаВыручки,СуммаВозвратов,СуммаВКассе,СуммаПрихода,СуммаНеобнуляемая","",0,0,Дата(1,1,1),"",0,0,0,0,0);
Для Каждого УзелРеквизитЭлемента ИЗ Узел_requests.ПолучитьЭлементыПоИмени("*") Цикл
ТекИмяУзла = УзелРеквизитЭлемента.ИмяУзла;
ТекЗначениеУзла = СокрЛП(УзелРеквизитЭлемента.ТекстовоеСодержимое);
Если ТекИмяУзла="ДатаККМ"  Тогда
СтруктураДок.Вставить(ТекИмяУзла,ПолучитьДатуВремяИзСтроки(ТекЗначениеУзла,6));
ИначеЕсли ТекИмяУзла="СуммаВыручки" ИЛИ ТекИмяУзла="СуммаВозвратов" ИЛИ  ТекИмяУзла="СуммаВКассе" ИЛИ  ТекИмяУзла="СуммаПрихода" ИЛИ  ТекИмяУзла="СуммаНеобнуляемая" Тогда
СтруктураДок.Вставить(ТекИмяУзла,Число(ТекЗначениеУзла));
Иначе
СтруктураДок.Вставить(ТекИмяУзла,СокрЛП(ТекЗначениеУзла));
КонецЕсли;
КонецЦикла;//конец шапки документа
НовЧек = ZОтчет.Добавить();
НовЧек.ИДОтчета    =СтруктураДок.ИДОтчета;
НовЧек.НомерГашения   =СтруктураДок.НомерГашения;
НовЧек.НомерСмены   =СтруктураДок.НомерСмены;
НовЧек.ДатаККМ    =СтруктураДок.ДатаККМ;
НовЧек.НомерККМ    =СтруктураДок.НомерККМ;
НовЧек.СуммаВыручки   =СтруктураДок.СуммаВыручки;
НовЧек.СуммаВозвратов  =СтруктураДок.СуммаВозвратов;
НовЧек.СуммаВКассе   =СтруктураДок.СуммаВКассе;
НовЧек.СуммаПрихода   =СтруктураДок.СуммаПрихода;
НовЧек.СуммаНеобнуляемая =СтруктураДок.СуммаНеобнуляемая;
НовЧек.СсылкаZОтчета  = ПолучитьДокZОтчетПоИД(СтруктураДок.ИдОтчета, СтруктураДок.ДатаККМ);
КонецЦикла;
КонецЕсли;

КонецЦикла;
КонецЕсли;


Возврат ЕстьОшибки;
КонецФункции

Отдельно загружает загруженную таблицу z-отчетов

Функция ПолучитьКассуККМПоСерийномуНомеру(СерНомер)
Запрос = новый Запрос;
Запрос.УстановитьПараметр("СерНомер", СерНомер);
Запрос.Текст= "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| КассыККМ.Ссылка
|ИЗ
| Справочник.КассыККМ КАК КассыККМ
|ГДЕ
| КассыККМ.СерийныйНомер = &СерНомер";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() = 0 тогда
Сообщить("Не удалось найти кассу с серийным номером " + СерНомер +" !!!");
Возврат Неопределено;
ИначеЕсли Выборка.Количество() > 1 тогда
ТекстЗаголовок = "В базе найдено две Кассы с одинаковым серийным номером";
Сообщить(ТекстЗаголовок);
Возврат Неопределено;
ИначеЕсли Выборка.Количество() = 1 тогда
Выборка.Следующий();

Возврат Выборка.Ссылка;
КонецЕсли;

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

Функция ПроверитьПервыйВвод(КассаККМ)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ККМ", КассаККМ);
Запрос.Текст= "ВЫБРАТЬ
| _ZОтчетФискальный.Ссылка
|ИЗ
| Документ._ZОтчетФискальный КАК _ZОтчетФискальный
|ГДЕ
| _ZОтчетФискальный.ККМ = &ККМ
| И _ZОтчетФискальный.Проведен
| И НЕ _ZОтчетФискальный.ПометкаУдаления";
Выборка = Запрос.Выполнить().Выбрать();
Возврат НЕ Выборка.Следующий();
КонецФункции

Процедура СоздатьДокументыZОтчеты(Кнопка)
// Вставить содержимое обработчика.
Если ZОтчет.Количество() = 0 тогда
Сообщить("Нет Z-Отчетов доступных для загрузки");
КонецЕсли;
ДЛя Каждого Ст Из ZОтчет Цикл
Если Ст.СоздатьZ тогда
ДокZ = Документы._ZОтчетФискальный.СоздатьДокумент();
ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокZ);
ДокZ.Дата = Ст.ДатаККМ;
//Проверим организации
Если ДокZ.Организация.Пустая() тогда
Организация = Справочники.Организации.НайтиПоКоду("000000001");
Если Организация = Неопределено тогда
Сообщить("Не удалось установить организацию");
Возврат;
КонецЕсли;
ДокZ.Организация = Организация;
КонецЕсли;
КассаККМ = ПолучитьКассуККМПоСерийномуНомеру(Ст.НомерККМ);
Если не КассаККМ = Неопределено тогда
ДокZ.ККМ = КассаККМ;
Иначе
Возврат;
КонецЕсли;

Если ДокZ.Ответственный.Пустая() Тогда
ДокZ.Ответственный = ПараметрыСеанса.ТекущийПользователь;
КонецЕсли;
ДокZ.НачальныеСведения = ПроверитьПервыйВвод(ДокZ.ККМ);
ДокZ.Подразделение = Подразделение;
ДокZ.Возвраты   = Ст.СуммаВозвратов;
ДокZ.Выручка    = Ст.СуммаВыручки;
ДокZ.Накопление  = Ст.СуммаНеобнуляемая;
ДокZ.НомерГашения   = Ст.НомерСмены;
ДокZ.СуммаДокумента =ДокZ.Выручка-ДокZ.Возвраты-ДокZ.Неиспользованные;
ДокZ.Комментарий    = "АвтоСоздание ##"+Ст.ИДОтчета+"##";
Попытка
ДокZ.Записать(РежимЗаписиДокумента.Проведение);
Ст.СоздатьZ = Ложь;
Исключение
Сообщить("Документ не удалось записать и провести!!! " + ОписаниеОшибки());
ДокZ.Записать(РежимЗаписиДокумента.Запись);
Ст.СоздатьZ = Ложь;
КонецПопытки;
Ст.СсылкаZОтчета = ДокZ.Ссылка;
КонецЕсли;
КонецЦикла;

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

В РЕЗУЛЬТАТЕ:

Теперь у нас за несколькими сотнями ККМ наблюдает один бухгалтер, благодаря автоматической загрузке и единой проверке ошибок.

Настало время переходить на сверку данных не с ККМ, а с ОФД. Но это тема уже для следующих статей.