Автор Тема: Макрос печати ИЗ  (Прочитано 51389 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Макрос печати ИЗ
« : 16/11/2012 00:44:09 »
Подсобите с макросом! Целый день убил на это дело, правильно не работает :) Дело в том, что я задаю номер строки считая от курсора. Но оказалось, что число строк в штрих-коде зависит от названия модели ККМ. Для КОМБО-ШТРИХ-ФР-К серый макрос работает, а для других моделей - нет.  Высчитывать длину для каждой модели (там количество строк в коде зависит не только от количества букв в модели).


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


« Последнее редактирование: 16/11/2012 11:11:47 от ЮК »
 

Оффлайн Prz777

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #1 : 16/11/2012 10:36:22 »
Если раскрашивать поля в белый цвет так, то ошибка не возникает:
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
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #2 : 16/11/2012 11:16:57 »
Если раскрашивать поля в белый цвет так, то ошибка не возникает:
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

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 303
  • Похвалили: 14 раз(а)
  • ICQ 288705676
  • Откуда: г.Волгодонск Ростовская область
    • ЦТО "ЭВМ-Комплекс"
Re: Макрос печати ИЗ
« Ответ #3 : 16/11/2012 11:38:55 »
Уважаемые.
Не сочтите за наглость.
А можете сделать макрос печати ИЗ "Заполнить белый"?
Зачем? Есть шаблоны синего цвета - пустые.

Хотелось бы впечатывать туда только ШК и текстовую информацию.
Или сделать так, чтобы картинка не печаталась.
С уважением
« Последнее редактирование: 16/11/2012 11:50:18 от otter »
ЦТО «ЭВМ-Комплекс»

Работа, работа - перейди на Федота
С Федота на Якова, с Якова на всякого
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #4 : 16/11/2012 19:21:08 »
Уважаемые.
Не сочтите за наглость.
Можно заменить серый на синий, если хотся.  Или надо обязательно впечатать в существующие картинки? 
Можно и так. Но штрих-код все равно надо будет строить по функции. 
Делаем поля и печатаем только их.
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #5 : 18/11/2012 15:22:31 »
Тут меня попросили сделать синий ИЗ.
Выкладываю здесь - возможно, еще кому понадобится :)
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #6 : 18/11/2012 16:13:32 »
Для otter.
Чтобы распечатать только поля используйте прилагаемый IZbl1.doc
Но сначала надо сгенерить данные  с помощью IZbl.dot и вставить их в IZbl1.doc в соответствующие поля
(для штрих-кода поле самое малюсенькое верхнее во второй ячейке, в другие поля Штрих-код вставится неверно)


Перезагрузил файл (забыл ограничить печать) :)
Проверил печать, почему-то не только поля печатались, пришлось все цвета удалить.
Перезагрузил еще раз.
« Последнее редактирование: 18/11/2012 18:13:43 от ЮК »
 

Оффлайн otter

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 303
  • Похвалили: 14 раз(а)
  • ICQ 288705676
  • Откуда: г.Волгодонск Ростовская область
    • ЦТО "ЭВМ-Комплекс"
Re: Макрос печати ИЗ
« Ответ #7 : 18/11/2012 18:03:50 »
ЮК
Спасибо большое. Завтра посмотрю на работе.
ЦТО «ЭВМ-Комплекс»

Работа, работа - перейди на Федота
С Федота на Якова, с Якова на всякого
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #8 : 18/11/2012 18:20:10 »
 otter,
перезагрузи файл.
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #9 : 21/11/2012 23:10:26 »
otter,
перезагрузи файл.
Дык, получилось или нет?
 

Оффлайн otter

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 303
  • Похвалили: 14 раз(а)
  • ICQ 288705676
  • Откуда: г.Волгодонск Ростовская область
    • ЦТО "ЭВМ-Комплекс"
Re: Макрос печати ИЗ
« Ответ #10 : 22/11/2012 00:38:45 »
otter,
перезагрузи файл.
Дык, получилось или нет?
Уважаемые, простите, тупо нет времени проверить. :(
И несут, и несут то " трупы", по "полу-трупы"
Плановые замены приближаются.
Завтра попрошу нашего программиста проверить все
ЦТО «ЭВМ-Комплекс»

Работа, работа - перейди на Федота
С Федота на Якова, с Якова на всякого
 

Оффлайн otter

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 303
  • Похвалили: 14 раз(а)
  • ICQ 288705676
  • Откуда: г.Волгодонск Ростовская область
    • ЦТО "ЭВМ-Комплекс"
Re: Макрос печати ИЗ
« Ответ #11 : 29/11/2012 12:35:46 »
Ну вот, малехо "разгрёбся", отвечаю.
ЮК
Ваш макрос конечно же работает и попадает в границы.
Но в верхней части ИЗ "подъедается" нижняя часть Зав.№ ККМ
Как устранить это, наш программист не понял :(
А я в этом не силён, тем более.
В итоге, вышедшего из отпуска, нашего программиста я попросил сделать Универсальный макрос печати ИЗ, на основе всех сделаных ранее макросов ИЗ
В нём есть вариант заполнения: Чёрного, Серого, Синего и Шаблона ИЗ
Выкладываю для всеобщего пользования.
Если что, нас сильно не пинать  :-\ ;)
ЦТО «ЭВМ-Комплекс»

Работа, работа - перейди на Федота
С Федота на Якова, с Якова на всякого
 

Оффлайн Olegrom63

  • Ветеран
  • ****
  • Сообщений: 604
  • Похвалили: 3 раз(а)
  • Откуда: Троицк Челябинской обл.
Re: Макрос печати ИЗ
« Ответ #12 : 26/02/2013 13:45:46 »
to ЮК: Почему не все модели в списке? Нет Феликсов, Ориона 2-ой версии, Меркурий 180. Может кто скинет полную версию IZ.
 

Оффлайн Olegrom63

  • Ветеран
  • ****
  • Сообщений: 604
  • Похвалили: 3 раз(а)
  • Откуда: Троицк Челябинской обл.
Re: Макрос печати ИЗ
« Ответ #13 : 26/02/2013 13:48:43 »
to Otter:  в вашей проге IZ All испорчен профиль и не грузится табличка :)
 

Оффлайн Olegrom63

  • Ветеран
  • ****
  • Сообщений: 604
  • Похвалили: 3 раз(а)
  • Откуда: Троицк Челябинской обл.
Re: Макрос печати ИЗ
« Ответ #14 : 26/02/2013 13:54:15 »
Или модели ККМ можно самому вводить? как и номер версии?
 

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
Re: Макрос печати ИЗ
« Ответ #15 : 26/02/2013 14:49:11 »
Или модели ККМ можно самому вводить? как и номер версии?

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

Оффлайн ewgen

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 721
  • Похвалили: 43 раз(а)
Re: Макрос печати ИЗ
« Ответ #16 : 26/02/2013 15:12:30 »
Кстати. Как убрать черную рамочку вокруг знаков? Ну чтобы приблизиться к реальному изображению. Она блин из кусков состоит.
 

Оффлайн Olegrom63

  • Ветеран
  • ****
  • Сообщений: 604
  • Похвалили: 3 раз(а)
  • Откуда: Троицк Челябинской обл.
Re: Макрос печати ИЗ
« Ответ #17 : 26/02/2013 15:33:39 »
Спасибо!
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #18 : 26/02/2013 21:04:10 »
Ну вот, малехо "разгрёбся", отвечаю.
ЮК
Ваш макрос конечно же работает и попадает в границы.
Но в верхней части ИЗ "подъедается" нижняя часть Зав.№ ККМ
Как устранить это, наш программист не понял :(
А я в этом не силён, тем более.
В итоге, вышедшего из отпуска, нашего программиста я попросил сделать Универсальный макрос печати ИЗ, на основе всех сделаных ранее макросов ИЗ
В нём есть вариант заполнения: Чёрного, Серого, Синего и Шаблона ИЗ
Выкладываю для всеобщего пользования.
Если что, нас сильно не пинать  :-\ ;)


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

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #19 : 26/02/2013 21:17:23 »
Кстати. Как убрать черную рамочку вокруг знаков? Ну чтобы приблизиться к реальному изображению. Она блин из кусков состоит.


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

Оффлайн Prz777

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #20 : 26/02/2013 21:50:10 »
Ошибка кода формы возникает (обрезает функцию), как я понял, из-за длинных строк CodageMC$ в тексте кода. Я делил строку пополам, на две строки. Ошибок больше не возникало.

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

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

Оффлайн ewgen

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 721
  • Похвалили: 43 раз(а)
Re: Макрос печати ИЗ
« Ответ #21 : 26/02/2013 23:16:43 »
Не понял,  о чем речь? Вокруг всего знака?
Да, вокруг знаков такая двойная сплошная слеплена :)  Да и знаки слишком близко друг к другу расположены- едва лезвием разрезать. Я вобщем-то ничо, но если "наш дом борется за звание высокой культуры быта".. © :)
И кстате,  у меня в 2003-м офисе всё окей. Оба макроса. Хотя знаю случаи, что в 2010-м под семеркой не работали...
 

Оффлайн Prz777

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #22 : 27/02/2013 00:37:15 »
Изображение ИД знака - это таблица. Если нужно убрать двойную сплошную вокруг таблицы, т.е. вокруг всего ИД знака, нужно щелкнуть правой кнопкой мыши и выбрать "границы и заливка" и потом выбрать "нет". Это в офисе 2010. В 2003-ем примерно также. Все, что нужно изменить в ИД знаке - это работа с таблицей.
 

Оффлайн otter

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 303
  • Похвалили: 14 раз(а)
  • ICQ 288705676
  • Откуда: г.Волгодонск Ростовская область
    • ЦТО "ЭВМ-Комплекс"
Re: Макрос печати ИЗ
« Ответ #23 : 27/03/2013 17:40:16 »
Парни, кто делал ИЗ, у всех правильно работает исходник Программа печати ИЗ от Димы Рязанского?
В чём проблема возникла у меня.
Надо сделать ИЗ для Штрих-Мини-К Версия 02 Зав № допустим 12345678
Сгенерировал ИЗ:
Читаю его сканером Honeywell Xenon 1900:
Русская раскладка клавиатуры: 015 ЛЛЬ -- 12345678                     _
Английская раскладка клавиатуры: 015 KKM -- 12345678                     _
А вот, что прочитал данный сканер с заводского ИЗ Штрих-М-ФР-К:
028 ЛЛЬ ЫРЕКШР-Ь-АК-Л 08 002665                      _ - в русской раскладке
028 KKM SHTRIH-M-FR-K 08 002665                      _  -  в английской раскладке
Вопрос: почему в данном случае у меня ( а может быть у всех) не выводится после сканирования ИЗ, название ККМ ???
Что я делаю не так? Может доп настройки какие нибудь нужно сделать?
P.S. Те кто отписались мне в личку, НЕ ПРОВЕРЯЛИ НИКОГДА, то что получилось после генерации ИЗ.
« Последнее редактирование: 27/03/2013 18:20:04 от otter »
ЦТО «ЭВМ-Комплекс»

Работа, работа - перейди на Федота
С Федота на Якова, с Якова на всякого
 

Оффлайн Рязанский

  • Резидент
  • Старожил
  • ****
  • Сообщений: 349
  • Похвалили: 43 раз(а)
  • Димка
  • Откуда: Рязань
    • Сайт поддержки ДК
Re: Макрос печати ИЗ
« Ответ #24 : 27/03/2013 18:21:57 »
в шаблоне в ШК пишется название KKM Штрих-Мини-К а завод решил туда написать KKM SHTRIH-M-FR-K
Причём, каждый завод пишет туда то, что ему хочется.
А у нас в Рязани  - грибы с глазами,
Их едят, а они глядят.
Рязанский
 

Оффлайн gvskazan

  • Бывалый
  • *
  • Сообщений: 43
Re: Макрос печати ИЗ
« Ответ #25 : 04/04/2013 19:19:00 »
А где на Феликсы найти ИЗ
 

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
 

Оффлайн g.sergey.a

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 953
  • Похвалили: 24 раз(а)
  • Стреляю первым
  • Откуда: г.Красноярск
Re: Макрос печати ИЗ
« Ответ #27 : 05/04/2013 07:54:56 »
Сам то пробовал сей продукт ,который при запуске ошибки вываливает?
 

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
Re: Макрос печати ИЗ
« Ответ #28 : 05/04/2013 11:43:21 »
Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320



 

Оффлайн g.sergey.a

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 953
  • Похвалили: 24 раз(а)
  • Стреляю первым
  • Откуда: г.Красноярск
Re: Макрос печати ИЗ
« Ответ #29 : 05/04/2013 11:58:14 »
Ну не знаю ,после инсталяции жалуется на толи фаерберд ,толи еще на что то ,и то что это демо не очень.
Возможно что у меня вин7 64.
 

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
Re: Макрос печати ИЗ
« Ответ #30 : 05/04/2013 12:00:05 »
Так ты файл то , который я выложил скачай! Там уже ограничения все сняты + чистая база!
P.S>
На 7 win не испытывал :) ;)
 

Оффлайн g.sergey.a

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 953
  • Похвалили: 24 раз(а)
  • Стреляю первым
  • Откуда: г.Красноярск
Re: Макрос печати ИЗ
« Ответ #31 : 05/04/2013 12:33:04 »
Лень  ;D
 

Оффлайн Dsergey

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 208
  • Похвалили: 6 раз(а)
Re: Макрос печати ИЗ
« Ответ #32 : 05/04/2013 14:09:20 »
Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320

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

Оффлайн bakk

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 537
  • Похвалили: 7 раз(а)
  • Откуда: Удм
Re: Макрос печати ИЗ
« Ответ #33 : 05/04/2013 14:34:21 »
Почему у половины поставщиков коды 000, как поправить?
Есть возможность сделать серое обрамление?
 

Оффлайн Николай_Б

  • r9uaz
  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 116
  • Похвалили: 4 раз(а)
  • Откуда: QTH locator: NO43DP #RDA KE-22
Re: Макрос печати ИЗ
« Ответ #34 : 05/04/2013 15:22:45 »
Я всю базу правлю программой IBExpert, работает с базами данных. 
 

Оффлайн gvskazan

  • Бывалый
  • *
  • Сообщений: 43
Re: Макрос печати ИЗ
« Ответ #35 : 05/04/2013 16:09:00 »
Я всю базу правлю программой IBExpert, работает с базами данных.


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

Оффлайн bakk

  • Наш человек
  • Ветеран
  • ***
  • Сообщений: 537
  • Похвалили: 7 раз(а)
  • Откуда: Удм
Re: Макрос печати ИЗ
« Ответ #36 : 05/04/2013 16:31:07 »
А может есть у кого перечень кодов поставщиков, или где посмотреть?
 

Оффлайн otter

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 303
  • Похвалили: 14 раз(а)
  • ICQ 288705676
  • Откуда: г.Волгодонск Ростовская область
    • ЦТО "ЭВМ-Комплекс"
Re: Макрос печати ИЗ
« Ответ #37 : 05/04/2013 17:33:08 »
Вот здесь можно посмотреть некоторые и потом самому дополнять
ЦТО «ЭВМ-Комплекс»

Работа, работа - перейди на Федота
С Федота на Якова, с Якова на всякого
 

Оффлайн Volodz

  • Новичок
  • Сообщений: 1
Re: Макрос печати ИЗ
« Ответ #38 : 08/04/2013 01:01:01 »
повторите ссылочку или на мыло vaz72rus@mail.ru

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

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
Re: Макрос печати ИЗ
« Ответ #39 : 08/04/2013 11:11:36 »
Отправил!
 

Оффлайн Scald

  • Новичок
  • Сообщений: 2
Re: Макрос печати ИЗ
« Ответ #40 : 10/04/2013 14:10:59 »
Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320



доброе время суток. ссылка, к сожалению, не работает. Можете перезалить файл или выслать по почте scald1981@mail.ru?
« Последнее редактирование: 10/04/2013 15:14:10 от Scald »
 

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
Re: Макрос печати ИЗ
« Ответ #41 : 10/04/2013 16:43:07 »
Перезалил

http://webfile.ru/6471466
 

Оффлайн vvm

  • Модератор раздела
  • Эксперт
  • ****
  • Сообщений: 1668
  • Похвалили: 164 раз(а)
  • Откуда: Владимир
Re: Макрос печати ИЗ
« Ответ #42 : 10/04/2013 22:53:18 »
АМС-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

  • Новичок
  • Сообщений: 2
Re: Макрос печати ИЗ
« Ответ #43 : 11/04/2013 15:31:36 »
 

Оффлайн angre

  • Резидент
  • Старожил
  • ****
  • Сообщений: 270
  • Похвалили: 16 раз(а)
    • Портабельные программы для ККТ
Re: Макрос печати ИЗ
« Ответ #44 : 11/04/2013 15:32:57 »
Обработка для печати ИЗ для 1С 7.7
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #45 : 07/06/2013 19:04:13 »
Обработка для печати ИЗ для 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

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #46 : 07/06/2013 23:09:15 »
У меня тоже нет 2D сканера. Но порывшись в интернете наткнулся на хорошую софтиночку. Без сканера можно прочитать pdf417. Если название модели ККМ в ид. знаке забивать кириллицей, то название читается как байты.
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #47 : 08/06/2013 00:21:15 »
У меня тоже нет 2D сканера. Но порывшись в интернете наткнулся на хорошую софтиночку. Без сканера можно прочитать pdf417. Если название модели ККМ в ид. знаке забивать кириллицей, то название читается как байты.
Я то ж нашел прграммки для компа:
 

Оффлайн Prz777

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #48 : 11/06/2013 11:19:15 »
Добавил в шаблончик возможность вручную написать название ККМ на английском в 2D штрихкод, кому как захочется.
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #49 : 11/06/2013 15:16:51 »
Добавил в шаблончик возможность вручную написать название ККМ на английском в 2D штрихкод, кому как захочется.


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

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #50 : 11/06/2013 15:33:49 »
Отсканировал заводской ИЗ Штриха - у них текст скана на английском, а видимый текст на русском.
 

Оффлайн Prz777

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #51 : 11/06/2013 16:55:07 »
Отсканировал заводской ИЗ Штриха - у них текст скана на английском, а видимый текст на русском.
Для этого и добавил в шаблон Рязанского дополнительное поле для произвольного написания на английском языке названия ККМ. Ну чтоб был как заводской.
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #52 : 11/06/2013 21:09:37 »
Отсканировал заводской ИЗ Штриха - у них текст скана на английском, а видимый текст на русском.
Для этого и добавил в шаблон Рязанского дополнительное поле для произвольного написания на английском языке названия ККМ. Ну чтоб был как заводской.



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

 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #53 : 12/06/2013 11:55:54 »
Нашел несколько картинок ИЗ, вот результаты декодирования:



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


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

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #54 : 12/06/2013 23:51:18 »
Нашел несколько картинок ИЗ, вот результаты декодирования:



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


Пока только Инкотекс использует кириллицу :)
Может у кого-то есть свои сканы, киньте, если не жаль.
 
Странно, что никто не может выложить  сканы ИЗ, я просто не в офисе, ну тады позже...
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #55 : 13/06/2013 12:04:31 »
Добавил в шаблончик возможность вручную написать название ККМ на английском в 2D штрихкод, кому как захочется.


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

Оффлайн Intrepid

  • Наш человек
  • Свой в доску
  • ***
  • Сообщений: 65
  • Похвалили: 8 раз(а)
  • Откуда: Брянская губерния
    • diana-service.ru
Re: Макрос печати ИЗ
« Ответ #56 : 13/06/2013 13:14:42 »
ЮК, моя лепта:
 (Мерки можно было не вносить, но на всякий случай включил... "Галка" перед Ярусом-ТК, не ошибка - реально присутствует)
  • 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

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 915
  • Похвалили: 38 раз(а)
Re: Макрос печати ИЗ
« Ответ #57 : 13/06/2013 16:27:40 »
...
Пока только Инкотекс использует кириллицу :)
Может у кого-то есть свои сканы, киньте, если не жаль.
Декодировал этой программкой Орион 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


Чегось у меня в программке, декодированный текст скопировать не получается.
« Последнее редактирование: 13/06/2013 16:51:40 от SkaT »
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #58 : 13/06/2013 17:48:11 »
...
Чегось у меня в программке, декодированный текст скопировать не получается.


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

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #59 : 13/06/2013 18:25:23 »
Из наличного кол-ва сканов:

"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


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

ЗЫ Извиняюсь была ошибка в форме, - перезалил.
« Последнее редактирование: 14/06/2013 19:35:46 от ЮК »
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #60 : 14/06/2013 21:06:12 »
Отсканировал АМС-100К
002 KKM "AMS-100K" 13 105234
и ШТРИХ-ЛАЙТ-ФР-К
028 KKM ShTRIH-LIGHT-FR-K 13 01397




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


Что делать с Меркуриями? Вступать в полемику с инспекторами нет желания. Мож написать Merqury-115K или Merkuriy-115K?
« Последнее редактирование: 16/06/2013 19:11:10 от ЮК »
 

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #61 : 18/06/2013 18:08:37 »
Вопрос не совсем в тему:
- У кого-нибудь нормально декодируются 2D-коды марок пломб от Гильдии (Москва)?

 

Оффлайн SkaT

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 915
  • Похвалили: 38 раз(а)
Re: Макрос печати ИЗ
« Ответ #62 : 20/06/2013 15:36:38 »
Нашел на просторах необъятного.... программульку, она декодирует коды Ид.Знаков, марок-пломб, и еще какойто формат.
Прикольно, что можно как файл загружать, так и просто побнести к наклейке веб-камеру.
Орионовский Ид.Знак декодировать так и не получилось, а так вполне "играбельно".
Дык вот, попробовал декодировать марки-пломбы которые мы получаем, на новых все правильно, а вот на старых вместо ИНН набор буковок, вобщем мусор :(
Выходит они там перед тем как напечатать, даже не проверяют :(
 

Оффлайн Master X

  • Глобальный модератор
  • Эксперт
  • ****
  • Сообщений: 1710
  • Похвалили: 103 раз(а)
  • Искать тут: 282255340@qip.ru
  • Откуда: г.Горький
    • АРХИВ_Профсоюза
Re: Макрос печати ИЗ
« Ответ #63 : 21/06/2013 02:33:56 »
Нашел на просторах необъятного.... программульку, она декодирует коды Ид.Знаков, марок-пломб, и еще какойто формат....

За глаза не говорят. Ссылку или программу...
Linux is working. The future is open(Ц)IBM
Если найдёте ошибки в форуме пишите мне в личку -исправлю!
Я тут главный шут, тролль и хейтер :)
 

Оффлайн SkaT

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 915
  • Похвалили: 38 раз(а)
Re: Макрос печати ИЗ
« Ответ #64 : 21/06/2013 09:29:10 »
Нашел на просторах необъятного....

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

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

Оффлайн AJE

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 102
  • Похвалили: 8 раз(а)
  • Откуда: Калуга
    • ООО "ВТИ"
Re: Макрос печати ИЗ
« Ответ #65 : 21/10/2013 18:23:37 »
Принесли сегодня на проверку чтения ИЗ - идеально читается кирилица.
Наверное, используют другие шрифты?
Что за программа, кто знает?
http://s38-temporary-files.radikal.ru/291ec941be7145ed8dc5bc5b4407dbf4/-929206895.jpg
2 мб
Не надо забывать, что ковчег построил любитель. Профессионалы построили Титаник...
 

Оффлайн Intrepid

  • Наш человек
  • Свой в доску
  • ***
  • Сообщений: 65
  • Похвалили: 8 раз(а)
  • Откуда: Брянская губерния
    • diana-service.ru
Re: Макрос печати ИЗ
« Ответ #66 : 21/10/2013 19:02:39 »
У нас так же делает обработка из под 1С 7.7

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

Оффлайн ЮК

  • Администратор
  • Ветеран
  • *******
  • Сообщений: 707
  • Похвалили: 18 раз(а)
  • Откуда: Москва
    • Инструкции по ККМ
Re: Макрос печати ИЗ
« Ответ #67 : 12/11/2013 13:03:49 »
Потребовалось уменьшить размер ИЗ.




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

Онлайн frost

  • Наш человек
  • Старожил
  • ***
  • Сообщений: 391
  • Похвалили: 59 раз(а)
Re: Макрос печати ИЗ
« Ответ #68 : 15/12/2013 04:54:18 »
Мы пользуемся обработкой для 1с ,если кому нужно могу выложить)
 

Оффлайн drfaust

  • Резидент
  • Эксперт
  • ****
  • Сообщений: 2694
  • Похвалили: 80 раз(а)
  • Я не Шариков, просто судьба располосовала мой лоб.
  • Откуда: РФ, Лангепас, MSK+2 (UTC+5)
    • drfaust.asuscomm.com
Re: Макрос печати ИЗ
« Ответ #69 : 15/12/2013 18:41:03 »
Мы пользуемся обработкой для 1с ,если кому нужно могу выложить)
Закидывай в файлопомойку - для коллекции. Многие ЦТО используют автоматизацию своей деятельности на 1С v7.7 - могут воткнуть Вашу обработку в свои конфиги.


Заранее - спасибо!
Не кассами одними жив ЦТО ;-)
 

Оффлайн Prz777

  • Резидент
  • Ветеран
  • ****
  • Сообщений: 553
  • Похвалили: 85 раз(а)
  • Откуда: Тамбов
Re: Макрос печати ИЗ
« Ответ #70 : 02/01/2014 14:13:46 »
Добавил возможность плавного изменения цвета ИД знака на предмет более точному соответствию оригиналу, а также возможность определения цвета по отсканированному изображению ИД знака, нужно только мышкой кликнуть по цвету.
 

Оффлайн esboy

  • Новичок
  • Сообщений: 1
Re: Макрос печати ИЗ
« Ответ #71 : 06/01/2014 03:03:38 »
Доброго времени суток. ребята, нигде не могу найти программу для Идентификационного знака на ФЕЛИКС 02К очень надо.
 

Оффлайн AGKKM

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 185
  • Откуда: NSK
Re: Макрос печати ИЗ
« Ответ #72 : 06/01/2014 09:00:05 »
А на Феликсе разве какой-то особый знак? Марку вводи вручную.
---***---
 

Оффлайн Avesha

  • Новичок
  • Сообщений: 3
  • Откуда: Ангарск
Re: Макрос печати ИЗ
« Ответ #73 : 01/03/2015 10:36:18 »
Конечно, и благополучно пользуюсь!
А насчёт ошибок, можешь попробовать вот эту http://webfile.ru/6463320


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

Оффлайн KLAUS

  • Наш человек
  • Постоялец
  • ***
  • Сообщений: 139
  • Откуда: Иркутская область
Re: Макрос печати ИЗ
« Ответ #74 : 03/03/2015 16:39:57 »
Отправил!!
Но сам пользуюсь ID_znak.dot от Prz777  ;)
 

Оффлайн sib525

  • Новичок
  • Сообщений: 29
  • Похвалили: 3 раз(а)
  • Откуда: Новосибирск
Re: Макрос печати ИЗ
« Ответ #75 : 17/04/2015 12:24:40 »
Перезалил

http://webfile.ru/6471466


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

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20