|
|
Обсуждение вопросов, связанных с Crystal Reports 2008, Crystal Reports Server, Crystal Xcelsius, BusinessObjects Enterprise, BusinessObjects Edge и другими продуктами Business Objects.
Тема "Re: Штрих-код в отчетах"
|
| Alex пишет 17.09:
>
>>Елементарно... Ставишь шрифт EAN 13 и вперед! Способ преобразования есть!
>
>Доброго времени суток.
>Может быть подскажете, где взять этот шрифт и способ преобразования.
>
Лови...
numberVar x := 1;
stringVar xx := "";
stringVar xxx := {klm.barcode};
stringVar array x0 := ['0123456789','0123456789','0123456789','0123456789','0123456789','0123456789'];
stringVar array x1 := ['0123456789','0123456789','ABCDEFGHIJ','0123456789','ABCDEFGHIJ','ABCDEFGHIJ'];
stringVar array x2 := ['0123456789','0123456789','ABCDEFGHIJ','ABCDEFGHIJ','0123456789','ABCDEFGHIJ'];
stringVar array x3 := ['0123456789','0123456789','ABCDEFGHIJ','ABCDEFGHIJ','ABCDEFGHIJ','0123456789'];
stringVar array x4 := ['0123456789','ABCDEFGHIJ','0123456789','0123456789','ABCDEFGHIJ','ABCDEFGHIJ'];
stringVar array x5 := ['0123456789','ABCDEFGHIJ','ABCDEFGHIJ','0123456789','0123456789','ABCDEFGHIJ'];
stringVar array x6 := ['0123456789','ABCDEFGHIJ','ABCDEFGHIJ','ABCDEFGHIJ','0123456789','0123456789'];
stringVar array x7 := ['0123456789','ABCDEFGHIJ','0123456789','ABCDEFGHIJ','0123456789','ABCDEFGHIJ'];
stringVar array x8 := ['0123456789','ABCDEFGHIJ','0123456789','ABCDEFGHIJ','ABCDEFGHIJ','0123456789'];
stringVar array x9 := ['0123456789','ABCDEFGHIJ','ABCDEFGHIJ','0123456789','ABCDEFGHIJ','0123456789'];
stringVar xc := "&'()*+,-./";
stringVar xret := "[";
if Length (xxx)<>13 then
" "
else
(
xx:=Mid (xxx,1 ,1 );
if xx='0' then
(
x:=tonumber(mid(xxx,2,1))+1;
xret:=xret+ Mid (x0[1],x ,1 );
x:=tonumber(mid(xxx,3,1))+1;
xret:=xret+ Mid (x0[2],x ,1 );
x:=tonumber(mid(xxx,4,1))+1;
xret:=xret+ Mid (x0[3],x ,1 );
x:=tonumber(mid(xxx,5,1))+1;
xret:=xret+ Mid (x0[4],x ,1 );
x:=tonumber(mid(xxx,6,1))+1;
xret:=xret+ Mid (x0[5],x ,1 );
x:=tonumber(mid(xxx,7,1))+1;
xret:=xret+ Mid (x0[6],x ,1 );
)
else
if xx='1' then
(
x:=tonumber(mid(xxx,2,1))+1;
xret:=xret+ Mid (x1[1],x ,1 );
x:=tonumber(mid(xxx,3,1))+1;
xret:=xret+ Mid (x1[2],x ,1 );
x:=tonumber(mid(xxx,4,1))+1;
xret:=xret+ Mid (x1[3],x ,1 );
x:=tonumber(mid(xxx,4,1))+1;
xret:=xret+ Mid (x1[4],x ,1 );
x:=tonumber(mid(xxx,6,1))+1;
xret:=xret+ Mid (x1[5],x ,1 );
x:=tonumber(mid(xxx,7,1))+1;
xret:=xret+ Mid (x1[6],x ,1 );
)
else
if xx='2' then
(
x:=tonumber(mid(xxx,2,1))+1;
xret:=xret+ Mid (x2[ |
| Ответить на сообщение » |
|
Автор:
Alex
|
Дата: 17.09.2002 20:26 |
|
>Елементарно... Ставишь шрифт EAN 13 и вперед! Способ преобразования есть!
Доброго времени суток.
Может быть подскажете, где взять этот шрифт и способ преобразования.
|
| Ответить на сообщение » |
|
| Дмитрий пишет 22.06:
>Как вставить в Details код, преобразованный в штрих-код в формате Code 128 или EAN13.
Елементарно... Ставишь шрифт EAN 13 и вперед! Способ преобразования есть! |
| Ответить на сообщение » |
|
