// Name : ChkDate
// 기능 : 날짜 입력값이 올바른지 검사하고, 연도4자리-월2자리-일2자리의 형식으로 변경해준다.
// Parameter
//    1. fld : input object
Function ChkDate(fld)
	IF trim( fld.value ) <> "" Then
		If not IsDate(fld.value) Then
			alert "년(4)-월(2)-일(2) 형식으로 입력하여 주십시오"
			
			fld.value = ""
			//fld.focus
		else
			fld.value = Year(fld.value) & "-" & right( "00"&month(fld.value), 2) & "-" & right( "00"&day(fld.value), 2)
		end if
	END IF
End Function


function DateCheck(obj)
  mask = "-"
  value = trim(obj.value)
  if value <> "" then
    if len(value) > 1 and len(value) <= 10 then
      value = replace(value,".","-")
      value = replace(value,"/","-")
      value = replace(value,",","-")
      value = replace(value,"~","-")
      arr_value = split(value,"-")
  
      select case ubound(arr_value)
        case 0
          if len(value) <= 8 and isnumeric(value) then
            select case len(value)
              case 2
                TempDate = year(Date())          & mask & MonthCheck(left(value,1))  & mask & DayCheck(MonthCheck(left(value,1)), right(value,1))
              case 3
                TempDate = year(Date())          & mask & MonthCheck(left(value,1))  & mask & DayCheck(MonthCheck(left(value,1)), right(value,2))
              case 4
                TempDate = year(Date())          & mask & MonthCheck(left(value,2))  & mask & DayCheck(MonthCheck(left(value,2)), right(value,2))
              case 5
                TempDate = "20" & left(value,2)  & mask & MonthCheck(mid(value,3,1)) & mask & DayCheck(MonthCheck(mid(value,3,1)), right(value,2))
              case 6
                TempDate = "20" & left(value,2)  & mask & MonthCheck(mid(value,3,2)) & mask & DayCheck(MonthCheck(mid(value,3,2)), right(value,2))
              case 8
                TempDate = left(value,4)         & mask & MonthCheck(mid(value,5,2)) & mask & DayCheck(MonthCheck(mid(value,5,2)), right(value,2))
            end select

          else
            TempDate = ""
          end if

        case 1
          if isnumeric(arr_value(0)) and isnumeric(arr_value(1)) then
            TempDate = year(Date()) & mask & MonthCheck(arr_value(0))  & mask & DayCheck(MonthCheck(arr_value(0)), arr_value(1))
          else
            TempDate = ""
          end if
        case 2
          TempDate = YearCheck(arr_value(0)) & mask & MonthCheck(arr_value(1)) & mask & DayCheck(MonthCheck(arr_value(1)), arr_value(2))
          
        case else
          TempDate = ""
      end select    
    else
      TempDate = ""
    end if
  
    if isDate(TempDate) then
      DateCheck = TempDate
    else
      alert("날짜형식이 잘못되었습니다.")
      obj.focus
      DateCheck = ""
    end if
  else
    DateCheck = ""
  end if
end function

//************************************************
//****************최 락 승*************************
// 작성자 : 최락승
// Name : Auto_DateDash
// 기능 : 날짜 입력값이 올바른지 검사하고, 연도4자리-월2자리-일2자리의 형식으로 변경해준다.
//		  그리고 입력한 날짜가 오늘 이전일자는 입력 불가능하게 한다
// Parameter
//    1. fld : input object
Function Auto_DateInput(fld)
	
	IF trim( fld.value ) <> "" Then
		valueCnt = len(fld.value)
		checkValue = mid(fld.value,valueCnt,1)
		on error resume next
			chgeint = Cint(checkValue)
			if valueCnt = 4 then
				fld.value = fld.value & "-" 
			elseif valueCnt = 7 then
				fld.value = fld.value & "-" 
			end if
			
		if err<>0 then
			fld.value = left(fld.value,valueCnt-1)
		End if
	END IF

End Function
// 작성자 : 최락승
// Name : ChkDate_beforeToday
// 기능 : 날짜 입력값이 올바른지 검사하고, 연도4자리-월2자리-일2자리의 형식으로 변경해준다.
//		  그리고 입력한 날짜가 오늘 이전일자는 입력 불가능하게 한다
// Parameter
//    1. fld : input object
Function ChkDate_beforeToday(fld)
	IF trim( fld.value ) <> "" Then
		If not IsDate(fld.value) Then
			alert "년(4)-월(2)-일(2) 형식으로 입력하여 주십시오."
			
			fld.value = ""
			//fld.focus
		else
			fld.value = Year(fld.value) & "-" & right( "00"&month(fld.value), 2) & "-" & right( "00"&day(fld.value), 2)
			if DateDiff("d", Date,cDate(fld.value))  < 0 then
				alert "입력하신 날짜가 현재 날자보다 이전날짜입니다. 다시 입력하십시오."
			end if

			
		end if
	END IF
End Function
// 작성자 : 최락승
// Name : ChkDate_aftereToday
// 기능 : 날짜 입력값이 올바른지 검사하고, 연도4자리-월2자리-일2자리의 형식으로 변경해준다.
//		  그리고 입력한 날짜가 오늘 이후일자는 입력 불가능하게 한다
// Parameter
//    1. fld : input object
Function ChkDate_aftereToday(fld)
	IF trim( fld.value ) <> "" Then
		If not IsDate(fld.value) Then
			alert "년(4)-월(2)-일(2) 형식으로 입력하여 주십시오."
			
			fld.value = ""
			//fld.focus
		else
			fld.value = Year(fld.value) & "-" & right( "00"&month(fld.value), 2) & "-" & right( "00"&day(fld.value), 2)
			if DateDiff("d", Date,cDate(fld.value))  > 0 then
				alert "입력하신 날짜가 현재 날자보다 이후날짜입니다. 다시 입력하십시오."
			end if

			
		end if
	END IF
End Function
// 작성자 : 최락승
// Name : ChkOnlyNum
// 기능 :  필드에 반드시 숫자만 들어갈수 있게 함 
//		 
// Parameter
//    1. fld : input object
Function ChkOnlyNum(fld)
	IF trim( fld.value ) <> "" Then
		valueCnt = len(fld.value)
		on error resume next
			CheckInt = Cint(fld.value)
		if err<>0 then
			fld.value = left(fld.value,valueCnt-1)
		End if
	END IF
End Function
//****************최 락 승*************************
//************************************************


/// Name : ChkNum
// 기능 : 숫자 입력값이 올바른지 검사하고, 값의 유형에 따라 소숫점 자리 표기. number type 형식으로 변경해준다.
// Parameter
//    1. fld : input object
//    2. typ : 숫자 값의 type
Function ChkNum(fld, typ)		
	
	Dim diswrd, pntcnt
	
	If typ="dan" Then
		diswrd = "단가"
		pntcnt = 4
	elseif typ="sixdan" Then
		diswrd = "단가"
		pntcnt = 6
	elseif typ="qty" Then
		diswrd = "수량"
		pntcnt = 3
	elseif typ="amt" Then
		diswrd = "금액"
		pntcnt = 3
	elseif typ="twoamt" Then
		diswrd = "금액"
		pntcnt = 2
	elseif typ="rate" Then
		diswrd = "Rate"
		pntcnt = 2
	elseif typ="kyu" Then
		diswrd = "중량"
		pntcnt = 1
	elseif typ="int" Then
		diswrd = "수치"
		pntcnt = 0
	else
		diswrd = "수치"
		pntcnt = 0
	end if
	If Trim(fld.value) = emtpy Then
		ChkNum=0
	else
		If not IsNumeric(fld.value) Then
			alert diswrd & "만 입력할 수 있습니다."
			ChkNum=0
		else
			ChkNum = FormatNumber(fld.value, pntcnt) 
		end if
	end if
	fld.value = ChkNum
	
	fld.style.backgroundColor=""
End Function

// Name : ChkCodeWord
// 기능 : EDI 코드 입력값에 사용불가 문자가 있는지 확인하고, 대문자로 변경한다.
// Parameter
//    1. fld : code input object
//    2. tit : message box 에 표기되는 항목 이름.
Function ChkCodeWord(fld, tit)
    Dim s, p
    
    s = fld.value
    p = instr(s,"~")+instr(s,"!")+instr(s,"@")+instr(s,"#")+instr(s,"$")+instr(s,"^")+instr(s,"{")+instr(s,"}")+instr(s,"[")+instr(s,"]")
    p = p+instr(s,"?")+instr(s,"|")+instr(s,"_")+instr(s,"\")+instr(s,"`")
    
    if p > 0 Then
	s = replace( s, "~", "")
	s = replace( s, "!", "")
	s = replace( s, "@", "")
	s = replace( s, "#", "")
	s = replace( s, "$", "")
	s = replace( s, "^", "")
	s = replace( s, "{", "")
	s = replace( s, "}", "")
	s = replace( s, "[", "")
	s = replace( s, "]", "")
	s = replace( s, "?", "")
	s = replace( s, "|", "")
	s = replace( s, "_", "")
	s = replace( s, "\", "")
	s = replace( s, "`", "")
    	alert tit & "은(는) 숫자와 문자만 사용이 가능합니다."
    end if
    fld.value = Ucase(s)

End Function

//***********************************************************************
//
//   Function Name   : AutoDangaDan
//
//   Description     : 단가단위 자동입력
//
//   Input Params    : 1. fld1 : 수량단위 object
//                     2. fld2 : 단가단위 object
//
//   return value    : none
//
//   Modification Date    : 2001/08/06
//
//   Modification Authors : 이윤자                                        
//***********************************************************************

Function AutoDangaDan(fld1, fld2)
	Dim rv
	
	rv = ChkCodeWord(fld1, "수량단위코드")

	fld2.value = fld1.value
End Function

// Name : ChkTextArea
// 기능 : type이 TextArea인 input object에 사용불가 문자가 입력되었는지 확인.
// Parameter
//    1. fld : TextArea object
//    2. tit : message box 에 표기되는 항목 이름.
Function ChkTextArea(fld, tit)
    Dim s, p
    
    s = fld.value
    p = instr(s,"~")+instr(s,"!")+instr(s,"@")+instr(s,"#")+instr(s,"$")+instr(s,"^")+instr(s,"{")+instr(s,"}")+instr(s,"[")+instr(s,"]")
    p = p+instr(s,"?")+instr(s,"|")+instr(s,"_")+instr(s,"\")+instr(s,"`")
    
    if p > 0 Then
    	alert tit & "은(는) 숫자와 문자만 사용이 가능합니다."
    end if
End Function

// Name : QtyDanCal
// 기능 : offer, meddec 문서에서 수량, 단가가 입력, 수정되면 금액 자동계산
// Parameter
//    1. docu : 문서 종류
//    2. fqty : 수량 object
//    3. fdan : 단가 object
//    4. famt : 금액 object
Function QtyDanCal(docu, fqty, fdan, famt)
	Dim vqty, vdan, vdanqty, vamt
	
	vqty = ChkNum(fqty, "qty")
	vdan = ChkNum(fdan, "dan")
	
	If docu = "offer" Then
		vdanqty = 1
	elseif  docu = "meddec" Then
		vdanqty = ChkNum(frmmeddec.dndanqty, "int")
	elseif  docu = "meddecm" Then
		vdanqty = ChkNum(frmmeddecm.dndanqty, "int")
	end if
	
	vamt = ( vqty / vdanqty ) * vdan 
	famt.value = FormatNumber( vamt, 2 )
	
	fqty.style.backgroundColor=""
	fdan.style.backgroundColor=""
	famt.style.backgroundColor=""
End Function

// Name : ChgSelect
// 기능 : 코드와 내용이 필요한 경우. Select object 에서 값을 선택하면 두개의 field에 코드와 내용이 들어간다.
// Parameter
//    1. fld1 : select object
//    2. fld2 : code input object
//    3. fld3 : 내용 input object
Function ChgSelect(fld1, fld2, fld3)
	Dim strarry
	
	strarry = Split( trim(fld1.value), "$")
	fld2.value = trim(strarry(0))
	fld3.value = trim(strarry(1))
End Function

// 사용하지 않음. Text 용이었음.
Function ChkBadWord(fld)
	Dim wrd, pos
	
	wrd = fld.value
	pos = Instr(wrd, "$")
	if pos > 0 Then
		alert "EDI 문서는 [$] 문자를 사용할 수 없습니다."
		fld.focus
	End if		
End Function

function CvtSeq(num, size)
  'crtSize = len(num)
  
  if isnumeric(num) then
    num = cint(num)
    for r=1 to size-len(num)
      seqCode = seqCode & "0"
    next
    CvtSeq = seqCode & num
  else
    CvtSeq = ""
  end if
end function

function YearCheck(value)
  value = trim(value)
  if len(value) <=4 and isnumeric(value) then
    value = cint(value)
    select case len(value)
      case 1
        YearCheck = left(Date(),2) & "0" & value
      case 2
        YearCheck = left(Date(),2) & value
      case 4
        YearCheck = value
      case else
        YearCheck = ""
    end select
  elseif len(value) = 0 then
    YearCheck = ""
  else
    YearCheck = ""
  end if
end function



function MonthCheck(value)
  value = trim(value)
  if len(value) <= 2 and isnumeric(value) then
    if cint(value) >=1 and cint(value) <=12 then
      select case len(value)
        case 1
          MonthCheck = "0" & value
        case 2
          MonthCheck = value
        case else
          MonthCheck = ""
      end select
    else
      MonthCheck = ""
    end if
  elseif len(value) = 0 then
    MonthCheck = ""
  else
    MonthCheck = ""
  end if
end function



function DayCheck(value1, value2)
  value1 = trim(value1)  ' 월
  value2 = trim(value2)  ' 일
  
  if len(value2) <= 2 and isnumeric(value2) then
    if cint(value2) >=1 and cint(value2) <=31 then
      
      value1 = MonthCheck(value1)
      select case value1
        case "01", "03", "05", "07", "08", "10", "12"
          DayCheck = CvtSeq(value2,2)
        case "02", "04", "06", "09", "11"
          if cint(value2) >=1 and cint(value2) <=30 then
            DayCheck = CvtSeq(value2,2)
          else
            DayCheck = ""
          end if
        case else
          DayCheck = CvtSeq(value2,2)
      end select
    else
      DayCheck = ""
    end if
  elseif value2 = "" then
    DayCheck = ""
  else
    DayCheck = ""
  end if
end function

Function DateCheck(obj)
  mask = "-"
  value = trim(obj.value)
  if value <> "" then
    if len(value) > 1 and len(value) <= 10 then
      value = replace(value,".","-")
      value = replace(value,"/","-")
      value = replace(value,",","-")
      value = replace(value,"~","-")
      arr_value = split(value,"-")
  
      select case ubound(arr_value)
        case 0
          if len(value) <= 8 and isnumeric(value) then
            select case len(value)
              case 2
                TempDate = year(Date())          & mask & MonthCheck(left(value,1))  & mask & DayCheck(MonthCheck(left(value,1)), right(value,1))
              case 3
                TempDate = year(Date())          & mask & MonthCheck(left(value,1))  & mask & DayCheck(MonthCheck(left(value,1)), right(value,2))
              case 4
                TempDate = year(Date())          & mask & MonthCheck(left(value,2))  & mask & DayCheck(MonthCheck(left(value,2)), right(value,2))
              case 5
                TempDate = "20" & left(value,2)  & mask & MonthCheck(mid(value,3,1)) & mask & DayCheck(MonthCheck(mid(value,3,1)), right(value,2))
              case 6
                TempDate = "20" & left(value,2)  & mask & MonthCheck(mid(value,3,2)) & mask & DayCheck(MonthCheck(mid(value,3,2)), right(value,2))
              case 8
                TempDate = left(value,4)         & mask & MonthCheck(mid(value,5,2)) & mask & DayCheck(MonthCheck(mid(value,5,2)), right(value,2))
            end select

          else
            TempDate = ""
          end if

        case 1
          if isnumeric(arr_value(0)) and isnumeric(arr_value(1)) then
            TempDate = year(Date()) & mask & MonthCheck(arr_value(0))  & mask & DayCheck(MonthCheck(arr_value(0)), arr_value(1))
          else
            TempDate = ""
          end if
        case 2
          TempDate = YearCheck(arr_value(0)) & mask & MonthCheck(arr_value(1)) & mask & DayCheck(MonthCheck(arr_value(1)), arr_value(2))
          
        case else
          TempDate = ""
      end select    
    else
      TempDate = ""
    end if

    if isDate(TempDate) then
      DateCheck = TempDate
    else
      alert("날짜형식이 잘못되었습니다.")
      obj.focus
      DateCheck = ""
    end if
  else
    DateCheck = ""
  end if
End Function


'############################################################################
' File Desc. : 양식화된 숫자를 계산가능한 일반 숫자로 반환한다.
'              ex) 123,456.789   =>   123456.789
' Caution    : 
'
'############################################################################
function toNumber(value)
  value = replace(value,",","")
  value = replace(value," ","")
  if not isnumeric(value) then
    value = 0
  end if
  toNumber = cdbl(value)
end function


function formatNum(value, length)
  if value = "" then
    value = 0
  end if
  formatNum = FormatNumber(value, length)
end function