Проблемы со штрих-кодом

Mirbor · April 2011

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

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

PA50000001811
PA50000002111
PA50000003511
PA50000004911
PA50000005211
PA50000006611
PA50000007011
PA50000008311
Пожалуйста помогите

gpi · April 2011

Можно так:

procedure BarCode1OnBeforePrint(Sender: TfrxComponent);
begin
     BarCode1.Text := 'PA50' + FormatFloat('000000', <Line>) + '111';                                                                                         
end;

Расчёт контрольной цифры реализуете сами

Mirbor · April 2011

gpi написал: »

Можно так:

procedure BarCode1OnBeforePrint(Sender: TfrxComponent);
begin
     BarCode1.Text := 'PA50' + FormatFloat('000000', <Line>) + '111';                                                                                         
end;

Расчёт контрольной цифры реализуете сами

Спасибо за ответ. Попробую

Mirbor · April 2011

gpi написал: »

Можно так:

procedure BarCode1OnBeforePrint(Sender: TfrxComponent);
begin
     BarCode1.Text := 'PA50' + FormatFloat('000000', <Line>) + '111';                                                                                         
end;

Расчёт контрольной цифры реализуете сами

Когда например 10 копий страниц штрих-код повторяется не изменяется

gpi · April 2011

<Line> - номер строки бэнда MasterData. Если у Вас данные выводятся не на MasterData, Вам нужно подумать, как организовать счётчик выводимых штрихкодов. Возможно, в коде Delphi, а в отчёт передавать значение через переменную отчёта, скриптовую переменную или TfrxReport.OnGetValue

Mirbor · April 2011

gpi написал: »

<Line> - номер строки бэнда MasterData. Если у Вас данные выводятся не на MasterData, Вам нужно подумать, как организовать счётчик выводимых штрихкодов. Возможно, в коде Delphi, а в отчёт передавать значение через переменную отчёта, скриптовую переменную или TfrxReport.OnGetValue

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

Всем удачи !!!

Проблемы со штрих-кодом

Комментарии

Оставить комментарий