/*------------------------------------------------------------------------------
  1. Function Name    : f_korean_truncate
  2. Input Arguments  : String  a_sstr - 숫자한글영어 혼합 문자열
                        Integer a_ilen - Length
  3. Access Type      : Public
  4. Return Value     : String
  5. Logic Note       : 지정 문자열을 지정 길이로 만들어 Return
                        한글이 있을 경우 글자가 짤리지 않게 함
  6. EX) sle_1.text = f_korean_truncate("1가나2다",4) ===> "1가"를 return.
 -------------------------------------------------------------------------------
     Date             Author                         Description
 ------------ ------------------------ -----------------------------------------
  2008/03/28  XXX                       새로 만듬
 -----------------------------------------------------------------------------*/

String ls_Cur
long ll_i, ll_byte

FOR ll_i = 1 TO LEN(a_sstr)
	If ASC(Mid(a_sstr, ll_i, 1)) > 127 Then
		if ll_byte <= (a_ilen - 2) then
			ll_byte += 2
		end if
	Else
		if ll_byte <= (a_ilen - 1) then
			ll_byte += 1
		end if
	End If
	ls_Cur = LeftA(a_sstr, ll_byte)
	If ll_byte = a_ilen or ll_byte = (a_ilen - 1)  Then
		Return ls_Cur
		EXIT
	End if
NEXT

Return ls_Cur