Макрос печати ИЗ

[ЮК]

Подсобите с макросом! Целый день убил на это дело, правильно не работает Дело в том, что я задаю номер строки считая от курсора. Но оказалось, что число строк в штрих-коде зависит от названия модели ККМ. Для КОМБО-ШТРИХ-ФР-К серый макрос работает, а для других моделей - нет.  Высчитывать длину для каждой модели (там количество строк в коде зависит не только от количества букв в модели).


Макрос прилагается.

[Prz777]

Если раскрашивать поля в белый цвет так, то ошибка не возникает:
With ActiveDocument.Tables(1)
     .Cell(2, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(4).Shading.BackgroundPatternColorIndex = wdWhite
     .Cell(7, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(9).Shading.BackgroundPatternColorIndex = wdWhite
End With

[ЮК]

Если раскрашивать поля в белый цвет так, то ошибка не возникает:
With ActiveDocument.Tables(1)
     .Cell(2, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(4).Shading.BackgroundPatternColorIndex = wdWhite
     .Cell(7, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(9).Shading.BackgroundPatternColorIndex = wdWhite
End With

Prz777, спасибо тебе за помощь!
Действительно, заработало без ошибок

ЗЫ Загруженный макрос поправил.

[otter]

Уважаемые.
Не сочтите за наглость.
А можете сделать макрос печати ИЗ "Заполнить белый"?
Зачем? Есть шаблоны синего цвета - пустые.

Хотелось бы впечатывать туда только ШК и текстовую информацию.
Или сделать так, чтобы картинка не печаталась.
С уважением

[ЮК]

Уважаемые.
Не сочтите за наглость.

Можно заменить серый на синий, если хотся.  Или надо обязательно впечатать в существующие картинки? 
Можно и так. Но штрих-код все равно надо будет строить по функции. 
Делаем поля и печатаем только их.

[ЮК]

Тут меня попросили сделать синий ИЗ.
Выкладываю здесь - возможно, еще кому понадобится

[ЮК]

Для otter.
Чтобы распечатать только поля используйте прилагаемый IZbl1.doc
Но сначала надо сгенерить данные  с помощью IZbl.dot и вставить их в IZbl1.doc в соответствующие поля
(для штрих-кода поле самое малюсенькое верхнее во второй ячейке, в другие поля Штрих-код вставится неверно)


Перезагрузил файл (забыл ограничить печать)
Проверил печать, почему-то не только поля печатались, пришлось все цвета удалить.
Перезагрузил еще раз.

[otter]

ЮК
Спасибо большое. Завтра посмотрю на работе.

[ЮК]

 otter,
перезагрузи файл.

[ЮК]

otter,
перезагрузи файл.

Дык, получилось или нет?

[otter]

otter,
перезагрузи файл.

Дык, получилось или нет?

Уважаемые, простите, тупо нет времени проверить.
И несут, и несут то " трупы", по "полу-трупы"
Плановые замены приближаются.
Завтра попрошу нашего программиста проверить все

[otter]

Ну вот, малехо "разгрёбся", отвечаю.
ЮК
Ваш макрос конечно же работает и попадает в границы.
Но в верхней части ИЗ "подъедается" нижняя часть Зав.№ ККМ
Как устранить это, наш программист не понял
А я в этом не силён, тем более.
В итоге, вышедшего из отпуска, нашего программиста я попросил сделать Универсальный макрос печати ИЗ, на основе всех сделаных ранее макросов ИЗ
В нём есть вариант заполнения: Чёрного, Серого, Синего и Шаблона ИЗ
Выкладываю для всеобщего пользования.
Если что, нас сильно не пинать 

[Olegrom63]

to ЮК: Почему не все модели в списке? Нет Феликсов, Ориона 2-ой версии, Меркурий 180. Может кто скинет полную версию IZ.

[Olegrom63]

to Otter:  в вашей проге IZ All испорчен профиль и не грузится табличка

[Olegrom63]

Или модели ККМ можно самому вводить? как и номер версии?

[KLAUS]

Или модели ККМ можно самому вводить? как и номер версии?

Можно и самому вести, не забыв указать верный код поставщика!

[ewgen]

Кстати. Как убрать черную рамочку вокруг знаков? Ну чтобы приблизиться к реальному изображению. Она блин из кусков состоит.

[Olegrom63]

Спасибо!

[ЮК]

Ну вот, малехо "разгрёбся", отвечаю.
ЮК
Ваш макрос конечно же работает и попадает в границы.
Но в верхней части ИЗ "подъедается" нижняя часть Зав.№ ККМ
Как устранить это, наш программист не понял
А я в этом не силён, тем более.
В итоге, вышедшего из отпуска, нашего программиста я попросил сделать Универсальный макрос печати ИЗ, на основе всех сделаных ранее макросов ИЗ
В нём есть вариант заполнения: Чёрного, Серого, Синего и Шаблона ИЗ
Выкладываю для всеобщего пользования.
Если что, нас сильно не пинать 

У меня офис 2003, в нем мои макросы работают нормально, - ни че не подъедается, а ваш макрос дает ошибки синтаксиса (функция не определена) и не работает.

[ЮК]

Кстати. Как убрать черную рамочку вокруг знаков? Ну чтобы приблизиться к реальному изображению. Она блин из кусков состоит.

Не понял,  о чем речь? Вокруг всего знака?   

[Prz777]

Ошибка кода формы возникает (обрезает функцию), как я понял, из-за длинных строк CodageMC$ в тексте кода. Я делил строку пополам, на две строки. Ошибок больше не возникало.

вместо  CodageMC$(1) = CodageMC$(1) & "abcdefgh" ,

пишем CodageMC$(1) = CodageMC$(1) & "abcd" 
            CodageMC$(1) = CodageMC$(1) & "efgh" 

[ewgen]

Не понял,  о чем речь? Вокруг всего знака?

Да, вокруг знаков такая двойная сплошная слеплена   Да и знаки слишком близко друг к другу расположены- едва лезвием разрезать. Я вобщем-то ничо, но если "наш дом борется за звание высокой культуры быта".. ©
И кстате,  у меня в 2003-м офисе всё окей. Оба макроса. Хотя знаю случаи, что в 2010-м под семеркой не работали...

[Prz777]

Изображение ИД знака - это таблица. Если нужно убрать двойную сплошную вокруг таблицы, т.е. вокруг всего ИД знака, нужно щелкнуть правой кнопкой мыши и выбрать "границы и заливка" и потом выбрать "нет". Это в офисе 2010. В 2003-ем примерно также. Все, что нужно изменить в ИД знаке - это работа с таблицей.

[otter]

Парни, кто делал ИЗ, у всех правильно работает исходник Программа печати ИЗ от Димы Рязанского?
В чём проблема возникла у меня.
Надо сделать ИЗ для Штрих-Мини-К Версия 02 Зав № допустим 12345678
Сгенерировал ИЗ:
Читаю его сканером Honeywell Xenon 1900:
Русская раскладка клавиатуры: 015 ЛЛЬ -- 12345678                     _
Английская раскладка клавиатуры: 015 KKM -- 12345678                     _
А вот, что прочитал данный сканер с заводского ИЗ Штрих-М-ФР-К:
028 ЛЛЬ ЫРЕКШР-Ь-АК-Л 08 002665                      _ - в русской раскладке
028 KKM SHTRIH-M-FR-K 08 002665                      _  -  в английской раскладке
Вопрос: почему в данном случае у меня ( а может быть у всех) не выводится после сканирования ИЗ, название ККМ
Что я делаю не так? Может доп настройки какие нибудь нужно сделать?
P.S. Те кто отписались мне в личку, НЕ ПРОВЕРЯЛИ НИКОГДА, то что получилось после генерации ИЗ.

[Рязанский]

в шаблоне в ШК пишется название KKM Штрих-Мини-К а завод решил туда написать KKM SHTRIH-M-FR-K
Причём, каждый завод пишет туда то, что ему хочется.

[gvskazan]

А где на Феликсы найти ИЗ

[KLAUS]

http://narod.ru/disk/31368354001/KKTSignDemoSetup.zip.html

[g.sergey.a]

Сам то пробовал сей продукт ,который при запуске ошибки вываливает?

[KLAUS]

Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320

[g.sergey.a]

Ну не знаю ,после инсталяции жалуется на толи фаерберд ,толи еще на что то ,и то что это демо не очень.
Возможно что у меня вин7 64.

[KLAUS]

Так ты файл то , который я выложил скачай! Там уже ограничения все сняты + чистая база!
P.S>
На 7 win не испытывал

[g.sergey.a]

Лень 

[Dsergey]

Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320

Всё работает, вот только  номер идентификационного знака можно увеличить.
 Пример: Меркурий-180К знак ИН 0293097 год выпуска 2012

[bakk]

Почему у половины поставщиков коды 000, как поправить?
Есть возможность сделать серое обрамление?

[Николай_Б]

Я всю базу правлю программой IBExpert, работает с базами данных. 

[gvskazan]

Я всю базу правлю программой IBExpert, работает с базами данных.

а не поделишься базой

[bakk]

А может есть у кого перечень кодов поставщиков, или где посмотреть?

[otter]

Вот здесь можно посмотреть некоторые и потом самому дополнять

[Volodz]

повторите ссылочку или на мыло vaz72rus@mail.ru

Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320

[KLAUS]

Отправил!

[Scald]

Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320

доброе время суток. ссылка, к сожалению, не работает. Можете перезалить файл или выслать по почте scald1981@mail.ru?

[KLAUS]

Перезалил

http://webfile.ru/6471466

[vvm]

АМС-100К 002                    ОАО Аркус-Д
МИКРО-103К 006                  ЗАО ПО Искра
МИКРО-104К 006                  ЗАО ПО Искра
МИКРО-105К 006                  ЗАО ПО Искра
МИКРО-106К 006                  ЗАО ПО Искра
ПРИМ-07К 007                    ОАО СКБ ВТ Искра
ПРИМ-08ТК 007                   ОАО СКБ ВТ Искра
КАСБИ-02К 008                   ОАО КЗТА
КАСБИ-03К 008                   ОАО КЗТА
ЭЛВЕС-МИКРО-К 015               ОАО НТЦ Измеритель
ЭЛВЕС-ФР-К 028                  ЗАО ШТРИХ-М
ШТРИХ-ФР-К 028                  ЗАО ШТРИХ-М
ШТРИХ-950К 028                  ЗАО ШТРИХ-М
ШТРИХ-КОМБО-ФР-К 028            ЗАО ШТРИХ-М
ШТРИХ-М-ФР-К 028                ЗАО ШТРИХ-М
ШТРИХ-МИНИ-ФР-К 028             ЗАО ШТРИХ-М
ШТРИХ-МИНИ-К 028                ЗАО ШТРИХ-М
ШТРИХ-LIGHT-ФР-К 028            ЗАО ШТРИХ-М
АМС-110К 031                    ЗАО Шанс
АМС-101К 031                    ЗАО Шанс
PAY 033                         ООО Пей Киоск
WAB 04 RK 035                   ЗАО УЭБ Технолоджи
WAB 08 RK 035                   ЗАО УЭБ Технолоджи
SHARP ER-A250RK 035             ЗАО УЭБ Технолоджи
ОРИОН-100К 100                  НТЦ Орион
МЕРКУРИЙ-115К 312               ЗАО Инкотекс
МЕРКУРИЙ-130К 312               ЗАО Инкотекс
МЕРКУРИЙ-180К 312               ЗАО Инкотекс
МЕРКУРИЙ MS-K 312               ЗАО Инкотекс
ОКА-102К 772                    ЗАО ПРО САМ
ОКА-600К 772                    ЗАО ПРО САМ
SAM4S.ER-4615RK 010             ККС Самсунг
SAM4S.ER-250RK 010              ККС Самсунг
SAMS. ER-4615RK 010             ККС Самсунг
SAMS. ER-250RK 010              ККС Самсунг
FPRINT-02K 006                  ATOL
FPRINT-03K 006                  ATOL
FPRINT-5200K 006                ATOL
ЭКР-2102К 200                  ЗАО СчетМаш
ФЕЛИКС-РК 200                  ОАО СчетМаш
ФЕЛИКС-02 К 200                 ОАО СчетМаш
ФЕЛИКС-02К 200         ОАО СчетМаш
МИНИКА-1102.3К 200              ОАО СчетМаш
МИНИКА-1102.1К 200              ОАО СчетМаш
NCR 7197-printer-МЕБИУС-3К 001  Арес Компани
СПАРК-617ТК 009                 ККС Москва
СПАРК-700ТК 009                 ККС Москва
АСТРА-100К 000                  СПЗ
СП101ФР-К 020                   Сервис Плюс
АЛЬФА-400К 029                  НТЦ Альфа-Проект
Пирит-ФР-01К 012                ООО "Кристалл-Сервис"
Ладога-К 017                    ООО "ОКА"
СОЮЗ-К 041                      ООО "МПО" СОЮЗ"

[Scald]

Перезалил

http://webfile.ru/6471466

спасибо 

[angre]

Обработка для печати ИЗ для 1С 7.7

[ЮК]

Обработка для печати ИЗ для 1С 7.7

Вот тут: http://www.kkm.info/myboard/viewthread.php?number=16212&PostsPerPage=20
народ зовет недалеких от VBA:) 
У меня нет 2D сканера, - проверять не чем ( и 1С у меня 8-ка), но как я понял из комментариев автора:
"Автор: leonid_t2


Создать данную компоненту меня подвиг сильный дефицит бесплатных компонент по печати 2D штрих-кодов. Уж не знаю с чем это связано, но самое дешевое, что я нашёл на просторах Интернета, стоило 3000 рублей. Может, конечно, просто искал плохо. В общем, ничего лучше не придумал, как написать свою.
Компонента позволяет печатать двумерные штрих-коды PDF417. Так как в компоненте используется дополнительное сжатие по алгоритму zlib, то в один штрих-код у меня получалось упаковать до 4КБ данных, хотя тут всё зависит от поля сканирования. Теоретически объём данных может быть не ограничен, просто будет один очень длинный штрих-код


Подцепляется к любой системе разработки она как стандартное ОЛЕ (objPDF = CreateObject("PDF417Font.PDF417"))
Методов "документированных" всего 2
DecodeString(ByVal <строка со сканера> As String, Optional <распаковать> As Boolean = False) As String
Эта функция декодирует строку данных полученных со сканера, ранее зашифрованные функцией EncodeString и в качестве результата возвращает ваши первоначальные данные.
EncodeString(ByVal <строка данных> As String, Optional <упаковать> As Boolean = False) As String
Результат этой функции нужно написать шрифтом, который находится в архиве и вывести на принтер. В первый параметр передаются ваши первоначальные данные.


Упаковка/распаковка опционально производится по алгоритму zlib + ещё дополнительно производится всегда преобразование Base64, потому что стандарт PDF417 может хранить только буквы латинского алфавита, цифры, и ещё несколько спец. символов. Мои методы всё это дело инкапсулируют, поэтому в них можно кидать любые символы."


Типа чел говорит, что надо все сначала упаковать в Base64.
Я не соображу,  как это написать? Надо только названия моделей преобразовать?  И чет с функцией Base64Encode не все понятно. Коды функций прилагаются:

[Prz777]

У меня тоже нет 2D сканера. Но порывшись в интернете наткнулся на хорошую софтиночку. Без сканера можно прочитать pdf417. Если название модели ККМ в ид. знаке забивать кириллицей, то название читается как байты.

[ЮК]

У меня тоже нет 2D сканера. Но порывшись в интернете наткнулся на хорошую софтиночку. Без сканера можно прочитать pdf417. Если название модели ККМ в ид. знаке забивать кириллицей, то название читается как байты.

Я то ж нашел прграммки для компа:

[Prz777]

Добавил в шаблончик возможность вручную написать название ККМ на английском в 2D штрихкод, кому как захочется.

[ЮК]

Добавил в шаблончик возможность вручную написать название ККМ на английском в 2D штрихкод, кому как захочется.

Чет сбоит шаблон - то часть читается на латинице, то воще не читается.
Читаю прогой decode417pro_demo

[ЮК]

Отсканировал заводской ИЗ Штриха - у них текст скана на английском, а видимый текст на русском.

[Prz777]

Отсканировал заводской ИЗ Штриха - у них текст скана на английском, а видимый текст на русском.

Для этого и добавил в шаблон Рязанского дополнительное поле для произвольного написания на английском языке названия ККМ. Ну чтоб был как заводской.

[ЮК]

Отсканировал заводской ИЗ Штриха - у них текст скана на английском, а видимый текст на русском.

Для этого и добавил в шаблон Рязанского дополнительное поле для произвольного написания на английском языке названия ККМ. Ну чтоб был как заводской.

Вроде заработал шаблон - пару раз еще попробовал - все нормально, но передает только латинский текст из штрих кода, если новое поле не заполнено, то названия модели нет в расшифровке. 
Но все равно этот вариант пригодится.
Надо только все заводские ИЗ отсканировать и посмотреть у кого чего есть

[ЮК]

Нашел несколько картинок ИЗ, вот результаты декодирования:



312ККМ Меркурий-130К версия 111 308002


008 KKM KASBI-03K-01 09 005832


028 KKM ShTRIH-MINI-FR-K  versija 01 11 060442   
015 KKM ELVES-MK 13 051146


010 KKM Samsung 250RK KKS080520702


Пока только Инкотекс использует кириллицу
Может у кого-то есть свои сканы, киньте, если не жаль.

[ЮК]

Нашел несколько картинок ИЗ, вот результаты декодирования:



312ККМ Меркурий-130К версия 111 308002


008 KKM KASBI-03K-01 09 005832


028 KKM ShTRIH-MINI-FR-K  versija 01 11 060442   
015 KKM ELVES-MK 13 051146


010 KKM Samsung 250RK KKS080520702


Пока только Инкотекс использует кириллицу
Может у кого-то есть свои сканы, киньте, если не жаль.

 
Странно, что никто не может выложить  сканы ИЗ, я просто не в офисе, ну тады позже...

[ЮК]

Добавил в шаблончик возможность вручную написать название ККМ на английском в 2D штрихкод, кому как захочется.

А вот к ним раскраски.

[Intrepid]

ЮК, моя лепта:
 (Мерки можно было не вносить, но на всякий случай включил... "Галка" перед Ярусом-ТК, не ошибка - реально присутствует)

• 035 KKM "AGAT 1K" 13 000368   
• 039 KKM ^YARUS-TK 10 001754       
• 312ККМ Меркурий-180К версия 112401665
• 312ККМ Меркурий-115К версия 113106180
• 041 KKM SOYUZ-K 11 001766           
• 017 KKM LADOGA-K versiya 01 11 037838

[SkaT]

...
Пока только Инкотекс использует кириллицу
Может у кого-то есть свои сканы, киньте, если не жаль.

Декодировал этой программкой Орион 100К, Элвес-ФР-К, Элвес-Микро-К, Меркурий-MSK.
Орион тоже кириллицей декодировалось.
А в Меркурии MSK аж 5 колонок, но программа выделяет синим полем только 4, хотя данные в декодированном тексте вроде все.



015 KKM ELVES-MIKRO-K versija 01 12 559029


028 KKM E`LVES-FR-K versiya 01 08 032514


333162  13  100
ККМ ОРИОН-100К версия 02


312ФР Меркурий MS-K версия 1 (1-принт. Гепард)08602340


Чегось у меня в программке, декодированный текст скопировать не получается.

[ЮК]

...
Чегось у меня в программке, декодированный текст скопировать не получается.

И у меня не получается. Демка:)

[ЮК]

Из наличного кол-ва сканов:

"AGAT 1K"
AMS-100K
ELVES-MK
ELVES-MIKRO-K
E`LVES-FR-K
KASBI-03K
LADOGA-K
Samsung 250RK
SOYUZ-K
ShTRIH-LIGHT-FR-K
^YARUS-TK


 можно добавить в англ. форму эти модели.

ЗЫ Извиняюсь была ошибка в форме, - перезалил.

[ЮК]

Отсканировал АМС-100К
002 KKM "AMS-100K" 13 105234
и ШТРИХ-ЛАЙТ-ФР-К
028 KKM ShTRIH-LIGHT-FR-K 13 01397




-----------------
Дополнил список ККТ и список английских названий (не все проверены).


Что делать с Меркуриями? Вступать в полемику с инспекторами нет желания. Мож написать Merqury-115K или Merkuriy-115K?

[ЮК]

Вопрос не совсем в тему:
- У кого-нибудь нормально декодируются 2D-коды марок пломб от Гильдии (Москва)?

[SkaT]

Нашел на просторах необъятного.... программульку, она декодирует коды Ид.Знаков, марок-пломб, и еще какойто формат.
Прикольно, что можно как файл загружать, так и просто побнести к наклейке веб-камеру.
Орионовский Ид.Знак декодировать так и не получилось, а так вполне "играбельно".
Дык вот, попробовал декодировать марки-пломбы которые мы получаем, на новых все правильно, а вот на старых вместо ИНН набор буковок, вобщем мусор
Выходит они там перед тем как напечатать, даже не проверяют

[Master X]

Нашел на просторах необъятного.... программульку, она декодирует коды Ид.Знаков, марок-пломб, и еще какойто формат....

За глаза не говорят. Ссылку или программу...

[SkaT]

Нашел на просторах необъятного....

За глаза не говорят. Ссылку или программу...

http://vidikon.com/products.php?Lang=ru

[AJE]

Принесли сегодня на проверку чтения ИЗ - идеально читается кирилица.
Наверное, используют другие шрифты?
Что за программа, кто знает?
http://s38-temporary-files.radikal.ru/291ec941be7145ed8dc5bc5b4407dbf4/-929206895.jpg
2 мб

[Intrepid]

У нас так же делает обработка из под 1С 7.7

Нашёл... angre выкладывал.. ответ №44

[ЮК]

Потребовалось уменьшить размер ИЗ.




Не в тему: как сделать нормальный размер у проги "линейка"?

[frost]

Мы пользуемся обработкой для 1с ,если кому нужно могу выложить)

[drfaust]

Мы пользуемся обработкой для 1с ,если кому нужно могу выложить)

Закидывай в файлопомойку - для коллекции. Многие ЦТО используют автоматизацию своей деятельности на 1С v7.7 - могут воткнуть Вашу обработку в свои конфиги.


Заранее - спасибо!

[Prz777]

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

[esboy]

Доброго времени суток. ребята, нигде не могу найти программу для Идентификационного знака на ФЕЛИКС 02К очень надо.

[AGKKM]

А на Феликсе разве какой-то особый знак? Марку вводи вручную.

[Avesha]

Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320

Ссылка умерла. Можно повторить или отправить на мыло azacepurin@mail.ru

[KLAUS]

Отправил!!
Но сам пользуюсь ID_znak.dot от Prz777 

[sib525]

Перезалил

http://webfile.ru/6471466

ссылка не работает можно на почту из профиля