Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблемы со штрих-кодом, Проблемы со штрих-кодом, Нужно чтобы зна 
:(
    Опции темы
mirbor
Дата 22.4.2011, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.4.2011

Репутация: нет
Всего: нет



Здравствуйте уважаемые

я новичок и столкнулся с такой проблемой. Нужно распечатать почтовые конверты.
Каждый район имеет свой штрих-код. Конверты печатаются большим количеством и количество копии контролируется через
штрих код. Т. е. мне нужно чтобы в каждой копии конверта ставился уникальный штрих-код увеличенный на одну единицу.
Например :
PA50000001811
PA50000002111
PA- идентификатор
50- код района
с 000001-000002-номера конвертов
девятая цифра - контрольная цифра
и 11 - год
т. е. нужно чтобы при печати если указано число копии 8 то 

PA50000001811
PA50000002111
PA50000003511
PA50000004911
PA50000005211
PA50000006611
PA50000007011
PA50000008311
Пожалуйста помогите
PM MAIL   Вверх
MetalFan
Дата 22.4.2011, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128



И чем помочь? не вижу конкретных вопросов.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Данкинг
Дата 22.4.2011, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130



MetalFan, наверное, надо выдрать из строки 0000001 и увеличить на 1. В общем, строку парсить надо. 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
mirbor
Дата 22.4.2011, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.4.2011

Репутация: нет
Всего: нет



MetalFan. И чем помочь? не вижу конкретных вопросов.

Я не знаю как например следующей копии странице присвоить другой штрих код. При печати же указывают количество копии и все.
PM MAIL   Вверх
MetalFan
Дата 22.4.2011, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128



Что-то по-моему и эту тему в центр помощи надо отправить.
Автор сам не знает, что ему надо.
Я НЕ ВИЖУ вопроса вида: делал так-то, не получилось, подскажите, где не правильно?

Код

for i := 1 to CopyCount do
begin
  Code := ID + DistrictCode + Format('%.7d', [i]);
  Code := Code +  CalcCheckSum(Code)+ Year;
...



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
mirbor
Дата 22.4.2011, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.4.2011

Репутация: нет
Всего: нет



MetalFan спасибо. 
Извините если не ясно выразился. 
Попробую еще раз. Допустим если оператор указал, что нужно 5 конвертов распечатать, то он указывает количество копий 5 штук.
Мне нужно, чтобы каждой следующей копии штрих код увеличивался
например:
PA50000001811
PA50000002111
PA50000003511
PA50000004911
PA50000005211

как показано жирным. Т.е. нужно вести учет распечатанных конвертов.

PM MAIL   Вверх
MetalFan
Дата 22.4.2011, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128



mirbor, "нужно" - и что? сами что-то писать пробовали? Какой учет нужно вести? где?
Я привел прототип кода по формированию кода.



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
mirbor
Дата 23.4.2011, 02:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.4.2011

Репутация: нет
Всего: нет



Задача такова как говорил каждой копии конверта дается уникальный штрих код, увеличенный с предыдущего на 
единицу и потом последнее значения я сохраняю в базе. Если поступят новые заказы из этого региона, то счетчик конечно
будет начинаться с этого сохраненного значения. Все я сделал единственное не могу присвоить штрих код каждой отдельной 
копии конверта
PM MAIL   Вверх
mirbor
Дата 23.4.2011, 03:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.4.2011

Репутация: нет
Всего: нет



Спасибо. Вопрос исчерпан. Удалось сделать при  правильной обработке события frxReport2PrintPage(Page: TfrxReportPage;
  CopyNo: Integer)

Всем удачи !!!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.1027 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.