Обычный текст -> RTF

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7326
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

vic7tar писал(а): 15 Август 2019, 15:23Вспомните, а это давно было с Adobe PDF Converter
Вы немного не правильно меня поняли … Это делалось давно, но прекрасно работает и сейчас ...

Идея простая как пробка - получить обычный REPORT в PDF файл. Самый хороший вариант - программа работает
под Windows 10 и пользователь не отключил штатный 'Microsoft Print to PDF' (и такое бывает тоже), иначе пробуем
переключится на какой-нибудь из установленных PDF принтеров, в т.ч. и упомянутый Вами в суе 'Adobe PDF Printer'.

Здесь хорошо использовать свойство, что можно переключится только на существующее в системе имя принтера.
Я просто не стал грузить пример лишними подробностями, но переключение на принтер выглядит примерно так.

Код: Выделить всё

           Printer{PropPrint:Device} = 'Microsoft Print to PDF'
           If Clip(Upper(Printer{PropPrint:Device})) = Upper('Microsoft Print to PDF') then Loc:xOK = True.

           If Loc:xOK = False
              Printer{PropPrint:Device} = 'Adobe PDF Printer'
              If Clip(Upper(Printer{PropPrint:Device})) = Upper('Adobe PDF Printer') then Loc:xOK = True.
           end

           If Loc:xOK = False
              Printer{PropPrint:Device} = 'PDF Printer'
              If Clip(Upper(Printer{PropPrint:Device})) = Upper('PDF Printer') then Loc:xOK = True.
           end
           
           …...
           
           If Loc:xOK = False 
               Message('Установите PDF принтер или переименуйте его в 'PDF Printer')
           end    

        Of 2 OrOf 3  ! XPS / OXPS
        
           Printer{PropPrint:Device} = 'Microsoft XPS Document Writer' 
          ...
Работает года три точно у огромного кол-ва юзеров на разных PDF и никаких нареканий не вызывает ...
Хотя конечно, можно найти какой-нибудь самопальный драйвер PDF принтера, который не выполняет всех команд.
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Всё работает. Игорь, ещё раз большое спасибо! Буду делать обход "WMFtoPNG". Наличие PDF принтера предлагается проверять через ветку реестра "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\Devices". У Вас простое хорошее решение. Но через реестр должно получиться красиво и универсально.
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7326
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 16 Август 2019, 11:09Но через реестр должно получиться красиво и универсально.
Согласен - так более правильно. Просто постоянно есть чем заняться … да и на самом деле вопрос проверки наличия PDF
принтера - это скорее вопрос совместимости c ископаемыми версиями Windows. А их чем дальше - тем меньше, даже за МКАД. ;)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4557
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

А у нас никто не пользуется pdf. Вообще никто. Всем в электронной таблице подавай. Но на всякий случай возьму тему на заметку.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7326
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

finsoftrz писал(а): 16 Август 2019, 12:19Всем в электронной таблице подавай
Это конечно круто, что юзерами была освоена электронная таблица.
Но других способов передать большой и сложный документ (отчёт) в оригинальном виде с оформлением, графикой и т.д.,
кроме PDF (или аналога от Microsoft XPS) - современная наука не знает. Поэтому встроенный кларионовский PDF - жутко бесит. :(
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
vic7tar
Ветеран
Сообщения: 365
Зарегистрирован: 09 Февраль 2017, 20:12

Обычный текст -> RTF

Сообщение vic7tar »

Игорь Столяров писал(а): 16 Август 2019, 12:23Но других способов передать большой и сложный документ (отчёт) в оригинальном виде с оформлением, графикой и т.д.,
кроме PDF (или аналога от Microsoft XPS) - современная наука не знает.
Это с каких пор PDF стал круче XLSX-а?
C10, Win10x64
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7326
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

vic7tar писал(а): 16 Август 2019, 12:53Это с каких пор PDF стал круче XLSX-а?
Наверно, всё-таки нельзя сравнивать форматы XLS и PDF - т.к. у них совершенно разное назначение.
И если, например, Вы хотите отправить клиенту счёт без риска заражения макровирусом и что бы он смог его прочитать
и распечатать без искажений и установки офисного пакета, то формат PDF (или XPS) - это самое подходящее решение вопроса. :)

Ростов-на-Дону вряд ли можно назвать хедлайнером мировых информационных технологий, но все квитанции на коммуналку мне
уже несколько лет приходят на почту именно в формате PDF … ;)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4557
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

Квитанции на коммуналку в pdf? Как все запущено. У нас уже давно все через Сбербанк онлайн оплачивается.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7326
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

finsoftrz писал(а): 16 Август 2019, 13:17У нас уже давно все через Сбербанк онлайн оплачивается
Ну Вам-то проще - т.к. видимо в городе остался один банк и все жители его клиенты. Поздравляю, хоть где-то сбылась мечта Грефа.
У нас же ещё наблюдается некоторое разнообразие в секторе предложения банковских услуг. ;)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4557
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

Да нет, полно банков. Просто через Сбербанк онлайн удобно. Заходишь, выбираешь кустовой вычислительный центр, который принимает коммунальные платежи, вводишь свой лицевой счет и все дальше делаешь онлайн. Вводишь показания счетчиков, сумма считается автоматически. То есть прием коммунальных платежей интегрирован со сбербанком онлайн. Деньги списываются с банковской карты. Можно и напрямую платить за газ и т.п. соответствующим службам, но через квц проще, там все в одном месте собрано.
C6/C11, ШВС, tps/btrieve.
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Народ, все счета и отчёты (от банков, мобильных операторов и т.д.) приходят в PDF. Если ничего не просить, то приходить не будет совсем. Попросите в Сбербанке выписку по счёту/своей карте. Это можно сделать и в приложении и в личном кабинете. В каком формате придёт?
Не знаю как у вас. Я подключил автоплатёж через Сбербанк и башка не болит. Приходит смс-ка с суммой списания и за что. Что-то не нравится, можно послать в ответ смс-ку, чтобы не оплачивался счёт. Иначе на следующий день будет оплата. Естественно с уведомительной смс-кой.
We are hard at work… for you. :)
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 16 Август 2019, 12:23Поэтому встроенный кларионовский PDF - жутко бесит. :(
+1. Надеюсь сделать правильный и красивый обход этого дела и забыть о проблеме. Как я писал, что-то подсказывает мне, что даже с внедрением Юникода эта проблема не уйдёт.
We are hard at work… for you. :)
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4557
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

За коммуналку надо показания счетчиков вводить. Автоплатеж тут не сделаешь. Это если за мобильный платить, то да. Я как-то не очень отношусь к автоплатежам.
А куда просить прислать? Все в броузере выводится. Когда билеты заказывали, там был пдф. Который, кстати, не так тривиально было открыть на компе. Оно сейчас все ориентировано на веб. Корректно получилось только в хроме.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7326
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 16 Август 2019, 14:58Надеюсь сделать правильный и красивый обход этого дела и забыть о проблеме
Если забыть об экзотике вроде различных коммерческих библиотек, то видится 2 решения:

1. Обсуждаемый Win10 PDF принтер (или практически любой другой). Мне нравится скорость и бесплатность решения.

2. Можно выбрасывать REPORT в офисный пакет и уже оттуда сохранять в PDF.
Всё это тоже работает скрытно в фоне и для Microsoft Word и для OO Writer (через EasyOpenOffice).
Но не быстро, если задача выгружать в PDF сотни квитанций - то конечно придётся пару раз перекурить … ;)
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

finsoftrz писал(а): 16 Август 2019, 15:11 За коммуналку надо показания счетчиков вводить.
В Москве показания счётчиков передаются на портале mos.ru в личном кабинете, поэтому автоплатёж оправдан. Если не предоставил показания, то по нормам.
finsoftrz писал(а): 16 Август 2019, 15:11 А куда просить прислать? Все в броузере выводится.
На данный момент может, действительно не актуально. Раньше так было. Надо сделать запрос, тогда пришлют выписку на мыло. И мобильные операторы так работали. Биллинг только на почту.
We are hard at work… for you. :)
Ответить