Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 4
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Возможно ли как то вывести сообщение с данными из печатной формы?          
Mr_Daniel_Khorn Подменю пользователя
сообщение 31.10.24, 15:10
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

Доброго дня.
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"]);


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

Сообщение отредактировал Vofka - 05.11.24, 13:14

sava1 Подменю пользователя
сообщение 31.10.24, 15:42
Сообщение #2

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2717
Из: Проскуров
Спасибо сказали: 693 раз
Рейтинг: 671.9

вставить в ТабДок.
потом в табдок найти ячейку и прочитать

Спасибо сказали: Mr_Daniel_Khorn,

Mr_Daniel_Khorn Подменю пользователя
сообщение 31.10.24, 16:03
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

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

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 08.12.24, 0:15
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!