sava1 @ Сегодня, 15:42 ,
Как вариант спасибо. Буду пробывать

Доброго дня.
BAF (8.3.19.1529)
Business Automation Software for small company. PROF (1.6.21.1)

Есть процедура из модуля интеграции Вчаснокасса и Baf

Процедура ВыводЧека(фОбъект) Экспорт    
    Сообщить(Объект.Ответ["info"]["doccode"]);  
    
    Если (фОбъект.Параметры.ВыводЧека = 2 Или фОбъект.Параметры.ВыводЧека = 3) И
           Не (фОбъект.Параметры.ИспользоватьОтправку И (фОбъект.Ответ["info"]["task"] = 1 Или фОбъект.Ответ["info"]["task"] = 2)) Тогда
        Возврат;
    КонецЕсли;
    
    ШиринаЛентыКоэф = фОбъект.Параметры.ШиринаЛенты * 0.95;
    Картинка = Новый Картинка(Base64Значение(СтрЗаменить(фОбъект.Ответ["pf_image"], "data:image/png;base64,", "")));
    
    Файл = Новый Файл(ПолучитьИмяВременногоФайла("png"));
    Картинка.Записать(Файл.ПолноеИмя);
    
    Shell = Новый COMОбъект("Shell.Application");
    Folder = Shell.NameSpace(Файл.Путь);
    Item = Folder.ParseName(Файл.Имя); 
    Детали = Folder.GetDetailsOf(Item, -1);
    Детали = СтрЗаменить(Детали, " ", "");
    Х = Найти(Детали, "x");
    
    ВысотаКартинки = "";
    Сч = Х + 1;
    Пока Истина Цикл
        Если КодСимвола(Детали, Сч) >= 48 И КодСимвола(Детали, Сч) <= 57 Тогда
            ВысотаКартинки = ВысотаКартинки + Сред(Детали, Сч, 1);
            Сч = Сч + 1;
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    ШиринаКартинки = "";
    Сч = Х - 1;
    Пока Истина Цикл
        Если КодСимвола(Детали, Сч) >= 48 И КодСимвола(Детали, Сч) <= 57 Тогда
            ШиринаКартинки = Сред(Детали, Сч, 1) + ШиринаКартинки;
            Сч = Сч - 1;
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    УдалитьФайлы(Файл.ПолноеИмя);
    
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ПолеСверху = 0;
    ТабДок.ПолеСлева = 0;
    ТабДок.ПолеСнизу = 0;
    ТабДок.ПолеСправа = 0;
    ТабДок.АвтоМасштаб = Истина;
    
    Макет = ПолучитьМакетНаСервере("Макет");
    Область = ПолучитьОбластьНаСервере(Макет, "Область");
    Область.ОбластьПечати = Область.Область(1, 1, 1, 1);
    
    Рисунок = Область.Рисунки.PNG;
    Рисунок.Высота = ШиринаЛентыКоэф * ВысотаКартинки / ШиринаКартинки;
    Рисунок.Ширина = ШиринаЛентыКоэф;
    Рисунок.Картинка = Картинка;
    
    ВывестиОбластьНаСервере(ТабДок, Область);
    
    Если фОбъект.Параметры.ВыводЧека = 0 Или фОбъект.Параметры.ИспользоватьОтправку Тогда
        ПараметрыОткрытияФормы = Новый Структура;
        ПараметрыОткрытияФормы.Вставить("Чек", ТабДок);
        Если фОбъект.Параметры.ИспользоватьОтправку И (фОбъект.Ответ["info"]["task"] = 1 Или фОбъект.Ответ["info"]["task"] = 2) Тогда
            ПараметрыОткрытияФормы.Вставить("Отправка", Истина);
            ПараметрыОткрытияФормы.Вставить("ФискальныйНомер", фОбъект.Ответ["info"]["doccode"]);  
            
                //наумов 30.10.2024 передача чека Начало 

            
            
            
                    
            //наумов 30.10.2024 передача чека Конец    
            
            ПараметрыОткрытияФормы.Вставить("Токен", фОбъект.Параметры.Токен);
        Иначе
            ПараметрыОткрытияФормы.Вставить("Отправка", Ложь);    
                
        КонецЕсли;
        ОткрытьФорму("ВнешняяОбработка.ПрограммныйРегистраторКассираВчасноКасаДополнительнаяОбработка.Форма.ФормаЧека", ПараметрыОткрытияФормы, ЭтаФорма);        
    КонецЕсли;
    
    Если фОбъект.Параметры.ВыводЧека = 1 Тогда
        ТабДок.Напечатать();    
            
    КонецЕсли;    
    
КонецПроцедуры

Только в этой процедуре есть запрос Фискального Номера.

ПараметрыОткрытияФормы.Вставить("ФискальныйНомер", фОбъект.Ответ["info"]["doccode"]);

Подскажите можно ли каким то образом получить данный номер.
Хотя бы вывести в сообщении или что то подобное
В дальнейшем нужно данный код передать на форму но с этим думаю разбируся

BAF (8.3.19.1529)
Business Automation Software for small company. PROF (1.6.20.4)

Добрый день.Подскажите, пожалуйста: БАФ, версия Версія 8.3.17, невозможно внести изменения в формы справочников в расширении, ни малейшего измения, При попытках кодить в модулях формы - ситуация таже. Сразу аварийно вылетает. Версии конфигурации и расширений совпадают, кеш чистили, в Стиле конфигурации ничего нет. В журнале регистрации "Ошибка аутентификации"

AnryMc @ Сегодня, 12:06 ,
ру. Может да в этом проблемма. Сейчас попробую и отпишуся. Даже не думал на это вариант

Да проблемма в этом. Загвоздка была в региональных настройках сервера. Я так понимаю это общая проблемма и она касается не только биллинга

Замена кстати не работает. Уже пробывал данный вариант.

...
    МояСтрока = СтрЗаменить(МояСтрока, "Сентябрь", "Вересень");
    МояСтрока = СтрЗаменить(МояСтрока, "Октябрь", "Жовтень");
...

BAF (8.3.19.1529)
Business Automation Software for small company. PROF (1.6.20.4)
Управляемые формы
При формировании счета билинга выподает русское название месяца в строке номенклатуры(формирование из "представление в счете перион/групировка "). В следствии чего и в печатную форму падает на ру. языке. Подскажите в какую сторону копать что бы был укр. язык. База на укр. Языке. Режим печатных форм укр.

sava1 @ Сегодня, 13:33 ,
А если Ст выдает текущий обьект который был выбран на форме. В нем все равно хранится ссылка. Правильно понял?

BAF (8.3.19.1529)
Business Automation Software for small company. PROF (1.6.20.4)
Управляемые формы
Добрый день гуру 1С нужна помощь в написании кода. Начал учить 1с и натнулся на проблему в написании кода. На сколько я понял то я не могу понять понятия Объект и Элемент. Суть проблемы:

&НаСервере
Процедура Розш1_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
    
    ТекПользователь = ПользователиИнформационнойБазы.ТекущийПользователь().Имя;
    Сообщить("Имя тек.польз: " + ТекПользователь);  
    
    
        Если НЕ РольДоступна("Br_Начальство") Тогда
        // Делаем поле доступным
        Элементы.СтатусУтвержденияДокумента.Доступность = Ложь;
        //Элементы.СтатусУтвержденияДокумента.Доступность = Истина;
    Иначе
        // Делаем поле недоступным
        Элементы.СтатусУтвержденияДокумента.Доступность = Истина;  
        
        
        
        Комментарий = "Подпись 1 - Кто то там 02.08.1957 17:52";

    КонецЕсли; 
    
    
КонецПроцедуры

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

Первая часть в зависимости от роли отрабатывает отлично но вот вторая совсем отказуется работать. Ошибок нет но и не срабатывает. Такое ощущение что просто не в переменной Ст не возможно сравнить данные или их просто там нет. Помогите пожалуйста. Не могу понять что не так написал

Добрый день. Подскажите пожайлста как убрать у пользователей право на редактирование формы и добовление дополнительных реквизитов на любую форму (контакты,заказы, и.т.д) В идеале из пункта меню еще убрать пункт Изменение фомы