PDA

Просмотр полной версии : Ошибка в расширении 1С:Комплексная автоматизация 2 (2.5.12.60)



igarewa
14.07.2023, 11:29
Не могу понять как задать значение ПКО.Кассы =
В ВыемкеДС нет такого реквизита, указывается только КассаККМ.

&После ("ВыполнитьАвтоматическуюИн кассациюДС")
Процедура Автоматическое_СозданиеПК� �_ПриЗакрытииСмены(КассаКК� �, ОшибкаПриСнятииZОтчета) Экспорт

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

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

Если ЗначениеЗаполнено(Последн� �яВыемка) Тогда

// Создаем объект ПКО
ПКО = Документы.ПриходныйКассов� �йОрдер.СоздатьДокумент();

// Заполняем ПКО на основании последней выемки
ПКО = Документы.ПриходныйКассов� �йОрдер.СоздатьДокумент();
ПКО.Дата = ТекущаяДата();
ПКО.Организация = ПоследняяВыемка.Организац� �я;
ПКО.СуммаДокумента = ПоследняяВыемка.СуммаДоку� �ента;
ПКО.Валюта = ПоследняяВыемка.Валюта;
ПКО.Кассир = ПоследняяВыемка.Кассир;
ПКО.ХозяйственнаяОперация = Перечисления.Хозяйственны� �Операции.ПоступлениеДенеж ныхСредствИзКассыККМ;
ПКО.КассаККМ = ПоследняяВыемка.КассаККМ;
//ПКО.Касса =

// Запись и проведение ПКО
ПКО.Записать(РежимЗаписиДо кумента.Проведение);

// Вывод информации о созданном ПКО
Сообщить("ПКО успешно создан на основе последней выемки денежных средств.");
КонецЕсли;

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

Знаю что касса привязывается к фискальному устройству в Настройках РМК, но нет идеи как достать нужное мне значение.

igarewa
14.07.2023, 13:13
:ism (104):