Мне нужно получить программно номер смены на ККМ. Нашла код типа
    ФР.ПолучитьСостояниеККМ();
    НомерСмены=ФР.НомерСмены;
Но не могу разобраться как сам объект ФР получить?

(0) подключить ФР?

он подключен. Мне нужно номер открытой смены узнать

(2) ФР - это и есть экземпляр кассы.

ну так понятно, я вот и спрашиваю как получить?

От ККТ зависит (что такое ККМ не в курсе)

Штрих-М

(5) ККМ - контрольно-кассовая машина ))

(7) И где вы машину нашли? Когда были Фискальные Регистраторы а сейчас Контрольно Кассовая Техника ?

(2) тогда без отладчика никак

(2) бред.

Ну, например, так:
    Если глФРВкл = 1 Тогда
        глФР = Параметры.Получить("Объект");
    Иначе
        Сообщить("Фискальный регистратор: ошибка при подключении", "!");
        Сообщить("    " + Параметры.Получить("ОписаниеРезультата"));
    КонецЕсли;

(11) + Если НЕ СменаОткрыта тогда
сообщить("ой");
конецЕсли

(12) Погоди...
До смены еще не дошли...
Ой.

https://www.shtrih-m.ru/docs/download.php?file=30901&iblock=21

(8) ну да ))) по привычке пишу так

(11) а Параметры - это что?

(14) тут не понятно мне (((
Мне бы в обработке получить подключенный ФР и получить с него номер открытой смены.
Попробую в отладчике покопаться при пробитии чека КкМ, может возьму там и запишу куда-нибудь в тот момент

в обработке "ТОСервер" в процедуре "печать чека" есть номер смены, не знаю как мне его сохранять что ли, чтобы потом в отчёте моём самописном отразить какой номер смены был у чека?

Метод ПолучитьТекущееСостояние(ID_KKT) - возвращает НомерФД, НомерЧека, НомерСмены, СтатусСмены. Можно вызвать в любой момент. Не зависимо, закрыта смена или нет (ККТ должен быть включен в сеть и к ПК).

Я делала так

    МассивФР      = ПолучитьСерверТО().ПолучитьСписокУстройств(
    Перечисления.ВидыТорговогоОборудования.ФискальныйРегистратор,
    Справочники.КассыККМ.НайтиПоКоду("КСКС00001"));
    
    ФР            = Неопределено;
    СписокФР      = Новый СписокЗначений();
    Вид           = Неопределено;
    Представление = Неопределено;
    
    Для каждого ФР Из МассивФР Цикл
        ПолучитьСерверТО().ПолучитьПредставлениеУстройства(ФР, Вид, Представление);
        СписокФР.Добавить(ФР, Представление);
        ФР.ПолучитьСостояниеККМ();
        НомерСмены=ФР.НомерСмены;
    КонецЦикла;

на строке [ФР.ПолучитьСостояниеККМ()] ругается, что не такой объект ФР

фр=неопределено
для каждого фр из
я не претендую на то,что это неправильно ,но глаз режет

(20) а если создать объект компоненты и обратиться через него?

(22) не знаю как это

из ут 11:
Функция ПолучитьОбъектДрайвера(ДанныеДрайвера, ТекстОшибки = Неопределено)
    
    ОбъектДрайвера = Неопределено;
    
    Для Каждого ДрайверПО Из глПодключаемоеОборудование.ДрайвераПодключаемогоОборудования Цикл
        Если ДрайверПО.Ключ = ДанныеДрайвера.ДрайверОборудования  Тогда
            ОбъектДрайвера = ДрайверПО.Значение;
            Прервать;
        КонецЕсли;
    КонецЦикла;  
    
    Если ОбъектДрайвера = Неопределено Тогда
        Попытка
            
            ProgID = ДанныеДрайвера.ИдентификаторОбъекта;
            Если ПустаяСтрока(ProgID) Тогда
                ОбъектДрайвера = ""; // Драйвер не требуется
            Иначе
                ProgID1 = ?(Найти(ProgID, "|") > 0, Сред(ProgID, 1, Найти(ProgID, "|")-1), ProgID);
                ProgID2 = ?(Найти(ProgID, "|") > 0, Сред(ProgID, Найти(ProgID, "|")+1), ProgID);
                Если ДанныеДрайвера.ПоставляетсяДистрибутивом Тогда
                    ПодключитьВнешнююКомпоненту(ProgID1);
                Иначе
                    ИмяОбъекта = Сред(ProgID1, Найти(ProgID1, ".") + 1);
                    Префикс = Сред(ProgID1, 1, Найти(ProgID1, "."));
                    ProgID2 = Префикс + СтрЗаменить(ИмяОбъекта, ".", "_") + "." + ИмяОбъекта;
                    Если ДанныеДрайвера.ВСоставеКонфигурации Тогда
                        Результат = ПодключитьВнешнююКомпоненту("ОбщийМакет." + ДанныеДрайвера.ИмяМакетаДрайвера, СтрЗаменить(ИмяОбъекта, ".", "_"));
                    Иначе
                        СсылкаНаДрайвер = ПолучитьНавигационнуюСсылку(ДанныеДрайвера.ДрайверОборудования, "ЗагруженныйДрайвер");
                        Результат = ПодключитьВнешнююКомпоненту(СсылкаНаДрайвер, СтрЗаменить(ИмяОбъекта, ".", "_"));
                    КонецЕсли;
                КонецЕсли;
                ОбъектДрайвера = Новый (ProgID2);
            КонецЕсли;
                
        Исключение
            Инфо = ИнформацияОбОшибке();
            ТекстОшибки = Инфо.Описание;
        КонецПопытки;
        
        Если ОбъектДрайвера <> Неопределено Тогда
            глПодключаемоеОборудование.ДрайвераПодключаемогоОборудования.Вставить(ДанныеДрайвера.ДрайверОборудования, ОбъектДрайвера);
            ОбъектДрайвера = глПодключаемоеОборудование.ДрайвераПодключаемогоОборудования[ДанныеДрайвера.ДрайверОборудования];
        КонецЕсли;
        
    КонецЕсли;  
        
    Возврат ОбъектДрайвера;
    
КонецФункции

или Новый("AddIn.DrvFR1C")

(24) нашла у себя аналогичную функцию. Только в глПодключаемоеОборудование.ДрайвераПодключаемогоОборудования - нет ничего почему-то
Хотя в торговом оборудовании галки на  трёх ККМ стоят

ну так и не получается никак ((((

(27) и не получится, потому чо Новый("AddIn.DrvFR1C") это прокладка между 1С и основным драйвером
вот тебе код

&НаКлиенте


Функция ПодключитьсяКФР(Пароль)
    Рез = 0;
    
    глФР.Password=Пароль;
    глФР.Connect();
    
    Ответ = глФР.ResultCode;
    Если Ответ=0 Тогда
        Рез=1;
    Иначе
        Сообщить(глФР.ResultCodeDescription);
    КонецЕсли;
    глФР.Beep();
    
    Возврат Рез;
КонецФункции
&НаКлиенте
Функция ОтключитьсяОтФР(Пароль, ЗапоминатьОшибку = 1)
    Рез = 0;
    
    // пеключим ФР в нерабочий режим
    глФР.Password=Пароль;
    глФР.Disconnect();
    
    Ответ = глФР.ResultCode;
    Если Ответ=0 Тогда
        Рез=1;
    ИначеЕсли ЗапоминатьОшибку = 1 Тогда
        Сообщить(глФР.ResultCodeDescription);
    КонецЕсли;
    
    Возврат Рез;
КонецФункции

&НаКлиенте
Процедура ИнициализироватьФР() Экспорт
    Попытка
        ПодключитьВнешнююКомпоненту("AddIn.DrvFR"); // достаточно штатной установки драйвера на локальный ПК или сервер
        ком=Новый COMОбъект("AddIn.DrvFR"); // никакой более регистрации на современных ОС обычно не требуется
        глФР=ком; // экспортная переменная глФР переменная должна быть объявлена в глобальном модуле обычного приложения
    Исключение
        Сообщить("Ошибка инициализации фискального регистратора кассовых чеков: "+ОписаниеОшибки(),СтатусСообщения.Важное);
    КонецПопытки;
    Пароль = 30;
    ПодключитьсяКФР(Пароль);
    глФР.ПолучитьСостояниеККМ();
        НомерСмены=глФР.НомерСмены;
Сообщить(НомерСмены);
ОтключитьсяОтФР(Пароль, ЗапоминатьОшибку = 1)
КонецПроцедуры;

и да не забудь переменную глФР объявить как общую экспортную

Сообщить(НомерСмены);
ОтключитьсяОтФР(Пароль, ЗапоминатьОшибку = 1)
КонецПроцедуры;

писать как

Сообщить(НомерСмены);
ОтключитьсяОтФР(Пароль);
КонецПроцедуры;

в ФР получает COM-объект, но на строку глФР.ПолучитьСостояниеККМ() пишет "метод не обнаружен".

В начале обработки прописала

Перем глФр Экспорт;

я пробовала глФР.LastSessionNumber пишет значение 1

SessionNumber номер последней закрытой смены

попробуйте вместо получитьсостояниеккм
его англ каманду
GetECRStatus()

И надеюсь что глФР вы объявили на клиенте

(34) ТАк вроде это 7.7

(35) какие же это клюшки если
Для каждого ФР Из МассивФР Цикл

&НаКлиенте
Перем глФР Экспорт

(36) Да пардон

(34) у меня НЕ управляемые формы

у меня комплексная автоматизация ред.1

Отсюда: http://catalog.mista.ru/public/617491/
// Возвращает структуру вида СостояниеСмены (см.руководство программиста), НомерЧека, НомерСмены.
// При ошибке возвращает Неопределено.
//
Функция ПолучитьНомерСменыИЧека(рКодОшибки=0) Экспорт
Попытка
    рКодОшибки=0;
    
    фр=глФР;
    фр.Password=30; // и только так
    
    рез=фр.FNGetCurrentSessionParams();
    Если рез<>0 Тогда
        Сообщить("ПолучитьНомерСменыИЧека, ошибка получения: "+фр.ResultCodeDescription+" (использован пароль "+СокрЛП(фр.Password)+").");
        рКодОшибки=фр.ResultCode;
        Возврат Неопределено;
    КонецЕсли;    
    
    рРезультат=Новый Структура;
    рРезультат.Вставить("СостояниеСмены",фр.FNSessionState);
    рРезультат.Вставить("НомерСмены",фр.SessionNumber); // если закрыта, то последней, если открыта, то текущей
    рРезультат.Вставить("НомерЧека",фр.ReceiptNumber); // если закрыта, то 1, если открыта, то последниего текущего
    
    Возврат рРезультат;
Исключение
    Сообщить("ПолучитьНомерСменыИЧека, ошибка: "+ОписаниеОшибки(),СтатусСообщения.Важное);
    Возврат Неопределено;
КонецПопытки;
КонецФункции

(33) результат = 0

в фр.SessionNumber  получила номер смены ККМ. УРА!!!!!!
Спасибо огромное!!!!

Kigo_Kigo и    isa2net, вы меня прям спасли! так помогли!! жалко что нет возможности вам шоколадку передать или бутылочку пива ))