Онлайн кассы

СуммаОборотаПоФР=SafeArrayТаблицаОстатковВКассе.GetValue(0,2);

&Вместо("ПроверитьРасхожденияСумм")
Функция Расш1_ПроверитьРасхожденияСумм() Экспорт
   
   РазрешитьЗакрытиеСменыПриРасхождениях = обПраво("РазрешитьЗакрытиеСменыПриРасхождениях",глПрава);
   
   Если РазрешитьЗакрытиеСменыПриРасхождениях = Перечисления.ВидыКонтроля.НеКонтролировать Тогда
      Возврат Истина;
   ИначеЕсли РазрешитьЗакрытиеСменыПриРасхождениях = Перечисления.ВидыКонтроля.Предупреждать Тогда
      РазрешитьЗакрытиеСменыПриРасхождениях = Истина;
   ИначеЕсли РазрешитьЗакрытиеСменыПриРасхождениях = Перечисления.ВидыКонтроля.Запрещать Тогда
      РазрешитьЗакрытиеСменыПриРасхождениях = Ложь;
   КонецЕсли;
      
   Состояние("Проверка расхождения сумм ...");
      
   ТаймаутФР = 60;
   
   СуммыВФР = Новый Соответствие;
   
   Результат = Истина;
   
   Для Каждого ТекКасса Из КассыККМ Цикл
      Если НЕ ТекКасса.Использовать Тогда
         Продолжить;
      КонецЕсли;   
            
      //Определим последний документ закрытия смены по данной кассе

      Запрос=Новый Запрос;
      Запрос.Текст="ВЫБРАТЬ ПЕРВЫЕ 1
                |   ЗакрытиеСмены.ДатаПоследнегоДокумента КАК ДатаПоследнегоДокумента
                |ИЗ
                |   Документ.ЗакрытиеСмены КАК ЗакрытиеСмены
                |ГДЕ
                |   ЗакрытиеСмены.КассаККМ = &КассаККМ
                |  И ЗакрытиеСмены.Проведен
                |   И ЗакрытиеСмены.ДатаПоследнегоДокумента < &ДатаПоследнегоДокумента
                |
                |УПОРЯДОЧИТЬ ПО
                |   ДатаПоследнегоДокумента УБЫВ";

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


                   |
                   |СГРУППИРОВАТЬ ПО
                   |   ЧекОплаты.Ссылка,
                   |   ЧекОплаты.Ссылка.Проведен,
                   |   ЧекОплаты.Ссылка.ФР
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |   ЧекНаОплату.Ссылка.ФР,
                   |   ЧекНаОплату.Ссылка,
                   |   ЧекНаОплату.Ссылка.Проведен,
                   |   СУММА(ВЫБОР
                   |         КОГДА ЧекНаОплату.Ссылка.ХозОперация = ЗНАЧЕНИЕ(Справочник.ХозОперации.ЧекНаОплату)
                   |            ТОГДА ЧекНаОплату.Сумма
                   |         ИНАЧЕ -ЧекНаОплату.Сумма
                   |      КОНЕЦ)
                   |ИЗ
                   |   Документ.ЧекНаОплату.Оплаты КАК ЧекНаОплату
                   |ГДЕ
                   |   (НЕ ЧекНаОплату.Ссылка.ПометкаУдаления)
                   |   И ЧекНаОплату.Ссылка.НомерЧека > 0
                   |   И ЧекНаОплату.Ссылка.ДатаФР <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                   |   И ЧекНаОплату.Ссылка.Дата <= &ДатаКонец
                   |   И ЧекНаОплату.Ссылка.КассаККМ = &КассаККМ
                |   "+?(ДатаНачало=Неопределено,"","И ЧекНаОплату.Ссылка.Дата > &ДатаНачало")+"


                   |
                   |СГРУППИРОВАТЬ ПО
                   |   ЧекНаОплату.Ссылка,
                   |   ЧекНаОплату.Ссылка.Проведен,
                   |   ЧекНаОплату.Ссылка.ФР
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |   ПКО.ФР,
                   |   ПКО.Ссылка,
                   |   ПКО.Проведен,
                   |   ПКО.СуммаДокумента КАК Сумма
                   |ИЗ
                   |   Документ.ПриходныйКассовыйОрдер КАК ПКО
                   |ГДЕ
                   |   (НЕ ПКО.ПометкаУдаления)
                   |   И ПКО.НомерЧека > 0
                   |   И ПКО.ДатаФР <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                   |   И ПКО.Дата <= &ДатаКонец
                |   "+?(ДатаНачало=Неопределено,"","И ПКО.Дата > &ДатаНачало")+"
                   |
                   |СГРУППИРОВАТЬ ПО
                   |   ПКО.Ссылка,
                   |   ПКО.Ссылка.Проведен,
                   |   ПКО.Ссылка.ФР
                |
                |
                   |ИТОГИ
                   |   СУММА(Сумма)
                   |ПО
                   |   ФР,
                   |   Проведен";
                
      Запрос.УстановитьПараметр("ДатаКонец", Дата);
      Запрос.УстановитьПараметр("ДатаНачало", ДатаНачало);
      Запрос.УстановитьПараметр("КассаККМ", ТекКасса.КассаККМ);

      ВыборкаПоФР = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
            
      Пока ВыборкаПоФР.Следующий() Цикл
         ТекФР = ВыборкаПоФР.ФР;
         
         СтрокаОборудования = Оборудование.Найти(ТекФР,"Оборудование");
         Если СтрокаОборудования = Неопределено ИЛИ НЕ СтрокаОборудования.Использовать Тогда
            Продолжить;
         КонецЕсли;   
         
         //Получаем сумму, если конечно до этого ее уже не получили
         СуммаОборотаПоФР = СуммыВФР.Получить(ТекФР);
         Если СуммаОборотаПоФР = Неопределено Тогда 
            //Получаем данные о продажах и возвратах из ФР
            Если СтатусыОборудования[ТекФР]<>Перечисления.СтатусыОборудования.Включено Тогда Продолжить; КонецЕсли;
              GUID_ФР = ТекФР.ИдентификаторОборудования;
            SafeArrayСтатусыФР=Рарус_Компонента.СоздатьПараметры(,);
            КодОшибки=Рарус_Компонента.ЗаказатьВыполнениеДействияСинхронно(GUID_ФР,"ПолучитьСтатус",SafeArrayСтатусыФР,ТаймаутФР);
            Если НЕ КодОшибки = 0 Тогда
               Если НЕ РазрешитьЗакрытиеСменыПриРасхождениях Тогда
                  СообщитьПользователю("Ошибка при получении статуса оборудования "+ТекФР+"
                     |Проверка расхождения сумм не может быть выполнена.
                     |Закрытие кассовой смены ПРЕРВАНО");
                  Возврат Ложь;
               КонецЕсли;
               
               Если Вопрос("Ошибка при получении статуса оборудования "+ТекФР+"
                     |Проверка расхождения сумм на этом ФР не может быть выполнена.
                     |Продолжить закрытие кассовой смены?",РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
                  Возврат Ложь;
               Иначе
                  Продолжить;
               КонецЕсли;
            КонецЕсли;

            Попытка   
               SafeArrayСчетчикиФР=SafeArrayСтатусыФР.GetValue(0, 0);
               СуммаПродаж=Окр(Число(SafeArrayСчетчикиФР.GetValue(5, 0)),2);
               Если СуммаПродаж<0 Тогда
                  СуммаПродаж=0;
               КонецЕсли; 
               СуммаВозвратов=Окр(Число(SafeArrayСчетчикиФР.GetValue(6, 0)),2);
               Если СуммаВозвратов<0 Тогда
                  СуммаВозвратов=0;
               КонецЕсли;
            Исключение
               Если НЕ РазрешитьЗакрытиеСменыПриРасхождениях Тогда
                  СообщитьПользователю("Ошибка при получении итогов смены из оборудования "+ТекФР+ТекФР+"
                     |"+ОписаниеОшибки()+"
                     |Проверка расхождения сумм не может быть выполнена.
                     |Закрытие кассовой смены ПРЕРВАНО");
                  Возврат Ложь;
               КонецЕсли;
               
               Если Вопрос("Ошибка при получении итогов смены из оборудования "+ТекФР+"
                     |"+ОписаниеОшибки()+"
                     |Проверка расхождения сумм на этом ФР не может быть выполнена.
                     |Продолжить закрытие кассовой смены?",РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
                  Возврат Ложь;
               Иначе
                  Продолжить;   
               КонецЕсли;
            КонецПопытки;   

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