// 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.idautomation.com/fonts/code128/
//	Download a demo version from:
//      http://www.idautomation.com/fonts/code128/download.html
//
//      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	=	trim(as_input)

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

// PowerBuilder Source Code for IDAutomation.com Code 128 Barcode Fonts
// Copyright © IDAutomation.com, Inc. 2002, All rights reserved.