"1с предприятия 7,7 Торговля и Склад <br>здравствуйте помогите разобраться,после подключения KKM Off-Line выходит ошибка<br><br>ККМ в режиме Off-Line (модель: ККМ в режиме Off-Line) успешно подключена.<br>СписокТоваров.Штрихкод = СокрЛП(Товар.БазоваяЕдиница.Штрихкод);<br>{Обработка.ЗагрузкаККМ.Форма.Модуль(93)}: Поле агрегатного объекта не обнаружено (БазоваяЕдиница)<br><br>//******************************************************************************<br>// Выполнить()<br>//<br>// Параметры:<br>// нет<br>//<br>// Возвращаемое значение: <br>// нет<br>//<br>// Описание: <br>// получает остатки товаров выбранной фирмы на выбранном розничном складе,<br>// формирует таблицу значений, в которую записывает полученную инфрмацию и<br>// и вызывает функцию для загрузки этой информации в выбранную ККМ.<br>//<br>Процедура Выполнить()<br> Перем ОписаниеОш,ЦенаИзСправочника;<br> <br> Если ПустоеЗначение(ВыбКасса) = 1 Тогда<br> Предупреждение("Не выбрана касса.", 60);<br> Возврат;<br> КонецЕсли;<br> <br> Если ПустоеЗначение(ВыбСклад) = 1 Тогда<br> Предупреждение("Не выбран розничный торговый склад.", 60);<br> Возврат;<br> КонецЕсли;<br> <br> Если ПустоеЗначение(ВыбОрганизация) = 1 Тогда<br> Предупреждение("Не выбрана организация.", 60);<br> Возврат;<br> КонецЕсли;<br><br> Способ = СпособВыгрузки.ПолучитьЗначение(СпособВыгрузки.ТекущаяСтрока());<br> <br> ТекстОстРозн = <br> "//{{ЗАПРОС(ОстаткиРозницы)<br> |Организация = Регистр.ОстаткиТМЦ.Организация;<br> |Товар = Регистр.ОстаткиТМЦ.ТМЦ;<br> |Склад = Регистр.ОстаткиТМЦ.Склад;<br> |Цена = Регистр.ОстаткиТМЦ.ЦенаПрод;<br> |Колво = Регистр.ОстаткиТМЦ.Количество;<br> |Функция Количество = КонОст(Колво);<br> |Группировка Товар"+?(Способ="вся номенклатура"," Все","""")+";<br> |Группировка Цена;<br> |Условие(Организация = ВыбОрганизация);<br> |Условие(Склад = ВыбСклад);<br> |"//}}ЗАПРОС<br> ;<br> <br> ОстРозн = СоздатьОбъект("Запрос");<br> <br> Если ОстРозн.Выполнить(ТекстОстРозн) = 0 Тогда<br> Предупреждение("Не выполнился запрос по остаткам", 60);<br> Возврат;<br> КонецЕсли;<br> <br> СписокТоваров = СоздатьОбъект("ТаблицаЗначений");<br> СписокТоваров.НоваяКолонка("Код");<br> СписокТоваров.НоваяКолонка("Штрихкод");<br> СписокТоваров.НоваяКолонка("Наименование");<br> СписокТоваров.НоваяКолонка("Цена");<br> СписокТоваров.НоваяКолонка("Количество");<br> СписокТоваров.НоваяКолонка("Уровень");<br> СписокТоваров.НоваяКолонка("Родитель");<br> <br> Пока ОстРозн.Группировка("Товар") = 1 Цикл<br> Если ОстРозн.Товар.ЭтоГруппа() = 1 Тогда<br> Если флГруппы = 0 Тогда<br> Продолжить;<br> Иначе<br> Товар = ОстРозн.Товар;<br> <br> СписокТоваров.НоваяСтрока();<br> СписокТоваров.Код = СокрЛП(Товар.Код);<br> СписокТоваров.Штрихкод = """";<br> СписокТоваров.Наименование = СокрЛП(Товар.ПолноеНаименование);<br> СписокТоваров.Цена = """";<br> СписокТоваров.Количество = """";<br> СписокТоваров.Уровень = Товар.Уровень();<br> СписокТоваров.Родитель = СокрЛП(?(Товар.Родитель.Выбран()=1,Товар.Родитель.Код,"0"));<br> КонецЕсли;<br> КонецЕсли;<br> <br> КоличествоОбщее = ОстРозн.Количество; <br> Пока ОстРозн.Группировка("Цена") = 1 Цикл<br> Товар = ОстРозн.Товар;<br> Если (КоличествоОбщее <> 0) и (ОстРозн.Количество = 0) Тогда<br> Продолжить;<br> КонецЕсли;<br> <br> СписокТоваров.НоваяСтрока();<br> СписокТоваров.Код = СокрЛП(Товар.Код);<br> СписокТоваров.Штрихкод = СокрЛП(Товар.БазоваяЕдиница.Штрихкод);<br> СписокТоваров.Наименование = СокрЛП(Товар.ПолнНаименование);<br> Если ОстРозн.Количество<>0 Тогда<br> СписокТоваров.Цена = ОстРозн.Цена;<br> ИначеЕсли глВернутьЦену(Товар,Константа.РозничныйТипЦен,,ЦенаИзСправочника) = 1 Тогда<br> СписокТоваров.Цена = ЦенаИзСправочника;<br> Иначе<br> СписокТоваров.Цена = 0;<br> КонецЕсли;<br> СписокТоваров.Количество = ОстРозн.Количество;<br> СписокТоваров.Уровень = Товар.Уровень();<br> СписокТоваров.Родитель = СокрЛП(?(Товар.Родитель.Выбран()=1,Товар.Родитель.Код,"0"));<br> КонецЦикла;<br> КонецЦикла;<br> <br> Если СписокТоваров.КоличествоСтрок() = 0 Тогда<br> Предупреждение("Перечень товаров для загрузки пуст.", 60);<br> Возврат;<br> КонецЕсли;<br> <br> Если глККМЗагрузитьТовары(ВыбКасса, ВыбСклад.НомерСекции, СписокТоваров, ОписаниеОш) = 1 Тогда<br> Предупреждение("Загрузка номенклатуры успешно завершена.", 60);<br> Форма.Закрыть();<br> Иначе<br> Предупреждение(ОписаниеОш, 60);<br> КонецЕсли;<br> <br>КонецПроцедуры<br><br>//******************************************************************************<br>// Предопределенная процедура.<br>//<br>Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)<br> Перем ВыбЗнач;<br> <br> Если ИдентЭлемДиалога = "ВыбСклад" Тогда<br> ФлагСтандОбр = 0;<br> <br> СпрСклады = СоздатьОбъект("Справочник.МестаХранения");<br> СписРозСкладов = СоздатьОбъект("СписокЗначений");<br> <br> СпрСклады.ВыбратьЭлементы();<br> Пока СпрСклады.ПолучитьЭлемент() = 1 Цикл<br> Если (СпрСклады.Выбран() = 1) И (СпрСклады.РозничныйСклад = 1) Тогда<br> СписРозСкладов.ДобавитьЗначение(СпрСклады.ТекущийЭлемент());<br> КонецЕсли;<br> КонецЦикла;<br> <br> Если СписРозСкладов.РазмерСписка() = 0 Тогда<br> Предупреждение("Нет зарегистрированно ни одного розничного склада.", 60);<br> Возврат;<br> КонецЕсли;<br> <br> Если СписРозСкладов.ВыбратьЗначение(ВыбЗнач, , , 60, 2) = 1 Тогда<br> ВыбСклад = ВыбЗнач;<br> КонецЕсли;<br> <br> ИначеЕсли ИдентЭлемДиалога = "ВыбКасса" Тогда<br> ФлагСтандОбр = 0;<br> <br> СпрКассы = СоздатьОбъект("Справочник.ДенежныеСредства");<br> СписКасс = СоздатьОбъект("СписокЗначений");<br> <br> СпрКассы.ВыбратьЭлементы();<br> Пока СпрКассы.ПолучитьЭлемент() = 1 Цикл<br> Если (СпрКассы.Выбран() = 1) И (СпрКассы.РежимККМ = Перечисление.РежимыККМ.OffLine) Тогда<br> СписКасс.ДобавитьЗначение(СпрКассы.ТекущийЭлемент());<br> КонецЕсли;<br> КонецЦикла;<br> <br> Если СписКасс.РазмерСписка() = 0 Тогда<br> Предупреждение("Не зарегистрированно ни одной ККМ в режиме Off-Line.", 60);<br> Возврат;<br> КонецЕсли;<br><br> Если СписКасс.ВыбратьЗначение(ВыбЗнач, , , 60, 2) = 1 Тогда<br> ВыбКасса = ВыбЗнач;<br> КонецЕсли;<br> <br> КонецЕсли;<br> <br>КонецПроцедуры // ПриНачалеВыбораЗначения()<br><br>//******************************************************************************<br>// Предопределенная процедура.<br>//<br>Процедура ПриОткрытии(ФлагЧтенияНастройки)<br> <br> Если ФлагЧтенияНастройки = 0 Тогда<br> Склад = глЗначениеПоУмолчанию("ОсновнойСклад");<br> Если Склад.РозничныйСклад = 1 Тогда<br> ВыбСклад = Склад;<br> КонецЕсли;<br> <br> Касса = глЗначениеПоУмолчанию("ОсновнаяКасса");<br> Если Касса.РежимККМ = Перечисление.РежимыККМ.OffLine Тогда<br> ВыбКасса = Касса;<br> КонецЕсли;<br> КонецЕсли;<br> <br> ВыбФирма = глЗначениеПоУмолчанию("ОсновнаяФирма");<br> <br>КонецПроцедуры // ПриОткрытии()<br><br>// *****************************************************************************<br>// ТЕЛО МОДУЛЯ<br><br>СпособВыгрузки.УдалитьВсе();<br>СпособВыгрузки.ДобавитьЗначение("имеющиеся в наличии на выбранном складе"); <br>СпособВыгрузки.ДобавитьЗначение("вся номенклатура"); <br>СпособВыгрузки.ТекущаяСтрока(1);<br><br>флГруппы=0;"