code128인경우 4자리 이상일때 적용이 가능.숫자 같은경우는 짝수일때 적용했을때는 단축효과가 있다...
영문대소문자구분 숫자표현 가능...
바코드 폰트는 링크걸린 사이트에서 받을수 있음..
바코드는 demo용 ... 고치는 방법도 있음. 이 부분은 알아서 하시길...
다른 자료 같은 경우는 유럽쪽 소스 내용 같은 경우는 문자코드열때문에 우리나라와 변환이 안맞아 사용이 힘들었는데..
서핑중 발견.. ㅋㅋㅋ
아래 내용을 함수로 만들고 링크사이트에서 바코드 폰트를 받으셔서 사용하시면 됩니다..
다른 바코드관련 자료도 있으니 바코드관련 업무에 참고 하세요...
// PowerBuilder Source Code for IDAutomation.com Code 128 Barcode Fonts
//
Copyright ⓒ 2002, IDAutomation.com, Inc. All rights
reserved.
//
///////////////////////////////////////////////////////////////////////////////////
//
//
NOTE: The following code is only an example that was provided by a
client.
// IDAutomation.com, Inc. does not guarantee, support or
troubleshoot
// PowerBuilder source code.
//
// To use this
function the developer needs to create an external function,
// Set function
arguments and paste all the codes
below.
//
///////////////////////////////////////////////////////////////////////////////////
//
// This
function will convert input to a data string formatted for our
// Code
128 Barcode Fonts. This is a code 128 "auto" function.
//
// This
barcode font is available at:
// http://www.bizfonts.com/code128fonts/
// Download a demo
version from:
// http://www.advancemeants.com/code128fonts/download.htm
//
//
You may incorporate our Source Code in your application
// only if you
own a valid Multi-user or Corporate Distribution
// license from
IDAutomation.com, Inc. for the associated font and
// the copyright
notices are not removed from the source
code.
//
// Arguments:
// Input(Pass By
value)
// Datatype String
// Name as_input
//
// Output(Pass
By reference)
// Datatype String
// Name as_ouptut
//
//
Copyright, IDAutomation.com, Inc. 2002. All rights
reserved.
///////////////////////////////////////////////////////////////////////////////////
string ls_c128_starta
string ls_c128_startb
string ls_c128_startc
string ls_c128_start
string ls_c128_stop
Long ll_len,i
Integer li_curr_char
String ls_curr_char
string ls_curr_encoding
Long ll_curr_value
Long ll_weighted_tot
string ls_datatoencode
Integer li_check_digit
String ls_c128_checkdigit
string ls_datatoprint,
as_input , as_output
as_input = trim(sle_2.text)
If Isnull(as_input) OR as_input = '' Then
Return -1
End IF
ls_c128_starta = char(203)
ls_c128_startb = char(204)
ls_c128_startc =
char(205)
ls_c128_stop = char(206)
// Here we select character set A, B or C for the START
character
ll_len = len(as_input)
li_curr_char = Asc(Mid(as_input, 1,
1))
If li_curr_char < 32 Then ls_c128_start = ls_c128_starta
If
li_curr_char > 31 AND li_curr_char < 127 Then ls_c128_start =
ls_c128_startb
If ((ll_len > 4) AND Isnumber(mid(as_input,1,4))) Then
ls_c128_start = ls_c128_startc
// 202 is the FNC1, with this Start C is mandatory
If li_curr_char = 202
Then ls_c128_start = ls_c128_startc
If ls_c128_start = char(203) Then
ls_curr_encoding = "A"
If ls_c128_start = char(204) Then ls_curr_encoding =
"B"
If ls_c128_start = char(205) Then ls_curr_encoding = "C"
For i = 1 to ll_len
// check for FNC1 in any set
If
((Mid(as_input,i,1)) = Char(202)) Then
ls_datatoencode = ls_datatoencode +
char(202)
// check for switching to character set C
ElseIf ((i <
ll_len - 2) AND (Isnumber(mid(as_input,i,1))) and (isnumber(mid(as_input,i +
1,1))) AND (Isnumber(Mid(as_input,i,4)))) OR ((i < ll_len) AND
(Isnumber(mid(as_input,i,1))) AND (Isnumber(Mid(as_input,i + 1,1))) And
(ls_curr_encoding = "C")) Then
// switch to set C if not already in
it
If ls_curr_encoding <> "C" Then ls_datatoencode =
ls_datatoencode + char(199)
ls_curr_encoding = "C"
ls_curr_char =
(Mid(as_input,i,2))
ll_curr_value = Long(ls_curr_char)
// set the
CurrentValue to the number of String CurrentChar
If (ll_curr_value <
95 AND ll_curr_value > 0 ) Then ls_datatoencode = ls_datatoencode +
char(ll_curr_value + 32)
If ll_curr_value > 94 Then ls_datatoencode =
ls_datatoencode + char(ll_curr_value + 100)
If ll_curr_value = 0 Then
ls_datatoencode = ls_datatoencode + char(194)
i = i + 1
// check for
switching to character set A
ElseIf (i <= ll_len) AND
((ASC(Mid(as_input,i,1)) < 31) OR ((ls_curr_encoding = "A") AND
(ASC(Mid(as_input,i,1)) > 32 AND (asc(mid(as_input,i,1))) < 96)))
Then
// switch to set A if not already in it
If ls_curr_encoding
<> "A" Then ls_datatoencode = ls_datatoencode +
char(201)
ls_curr_encoding = "A"
// Get the ASCII value of the next
character
li_curr_char = (asc(mid(as_input,i,1)))
If li_curr_char = 32
Then
ls_datatoencode = ls_datatoencode + char(194)
ElseIf
li_curr_char < 32 then
ls_datatoencode = ls_datatoencode +
char(li_curr_char + 96)
ElseIf li_curr_char > 32
Then
ls_datatoencode = ls_datatoencode + char(li_curr_char)
End
IF
// check for switching to character set B
ElseIf (i <= ll_len) AND
((ASC(mid(as_input,i,1))) > 31 AND (ASC(mid(as_input,i,1))) < 127)
Then
// switch to set B if not already in it
If ls_curr_encoding
<> "B" Then ls_datatoencode = ls_datatoencode +
char(200)
ls_curr_encoding = "B"
// Get the ASCII value of the next
character
li_curr_char = (asc(mid(as_input,i,1)))
If li_curr_char = 32
Then
ls_datatoencode = ls_datatoencode +
char(194)
Else
ls_datatoencode = ls_datatoencode +
char(li_curr_char)
End IF
End IF
Next
// ***** Calculate Modulo 103 Check Digit *******
// Set WeightedTotal to the value of the start character
ll_weighted_tot =
(ASC(ls_c128_start) - 100)
ll_len = Len(ls_datatoencode)
For i = 1 to ll_len
// Get the ASCII value of each
character
li_curr_char = (asc(mid(ls_datatoencode,i,1)))
// Get the Code
128 value of CurrentChar according to chart
If li_curr_char < 135 Then
ll_curr_value = li_curr_char - 32
If li_curr_char > 134 Then
ll_curr_value = li_curr_char - 100
If li_curr_char = 194 Then ll_curr_value
= 0
// multiply by the weighting character
ll_curr_value = ll_curr_value
* i
// add the values together
ll_weighted_tot = ll_weighted_tot +
ll_curr_value
Next
// divide the WeightedTotal by 103 and get the
remainder, this is the CheckDigitValue
li_check_digit =
Mod(ll_weighted_tot,103)
// Now that we have the CheckDigitValue, find the
corresponding ASCII character from the table
If li_check_digit < 95 AND
li_check_digit > 0 Then ls_c128_checkdigit = char(li_check_digit + 32)
If
li_check_digit > 94 Then ls_c128_checkdigit = char(li_check_digit +
100)
If li_check_digit = 0 Then ls_c128_checkdigit = char(194)
// Check
for spaces or "00" and print ASCII 194 instead
// place changes in data to
print
ll_len = Len(ls_datatoencode)
For i = 1 to ll_len
ls_curr_char =
mid(ls_datatoencode,i,1)
If ls_curr_char = " " Then ls_curr_char =
char(194)
ls_datatoprint = ls_datatoprint + ls_curr_char
Next
// Get Printable String
as_output = ls_c128_start + ls_datatoprint +
ls_c128_checkdigit + ls_c128_stop + " "
Return 0