'=============================================================================== '주 시 스 템 : 공통 개발 '서브 시스템 : 없음 '프로그램 ID : CommonScript.vbs '프로그램 명 : 공통 기능 vbscript '프로그램개요 : 공통적으로 사용되는 vbscript를 정의한다 '작 성 자 : 최용호 '작 성 일 : 2006.04.18 '=============================================================================== Option Explicit Dim SearchName ' * @type : function ' * @access : public ' * @desc : MS 정책에 의하여 바뀐 컴포넌트 사용에 대한 선언 함수 ' * 
' *     
' * 
' * 위와같이 사용했을 경우 페이지에서 사업체를 한번만 체크를 한다.
' * @sig    : NSID
' * @param  : NSID   OBJECT함수명
' * @return : 변환된 스트링 OBJECT
Sub WS(NSID)
	Call document.write( NSID.innerHTML )
	NSID.id = ""
End sub

' * @type   : function
' * @access : public
' * @desc   : VB스크립트의 숫자 뒤에 지정된 자릿수만큼 zero character 를 삽입한다.
' * 
' *     cfbeNumber(5, 123);
' * 

' * 위와같이 사용했을 경우 "12300" 이라는 String을 리턴한다.
' * @sig    : length, number, char
' * @param  : length required 숫자를 표현하는 길이
' * @param  : number required 변환될 숫자
' * @param  : char   required 변경할 숫자
' * @return : 변환된 스트링
function cfbeNumber(length, number, char) 
	Dim numStr, zeroChars, i

	numStr = number & ""

	For i=1 To length - Len(numStr)
		zeroChars = char & zeroChars 
	Next 
    cfbeNumber  = (numStr & zeroChars)
End Function

' * @type   : function
' * @access : public
' * @desc   : VB스크립트의 숫자 앞에 지정된 자릿수만큼 zero character 를 삽입한다.
' * 
' *     cfafNumber(5, 123);
' * 

' * 위와같이 사용했을 경우 "00123" 이라는 String을 리턴한다.
' * @sig    : length, number, char
' * @param  : length required 숫자를 표현하는 길이
' * @param  : number required 변환될 숫자
' * @param  : char   required 변경할 숫자
' * @return : 변환된 스트링
function cfafNumber(length, number, char) 
	Dim numStr, zeroChars, i

	numStr = number & ""

	For i=1 To length - Len(numStr)
		zoroChars = zeroChars & char
	Next 
    cfafNumber  = (zeroChars & numStr)
End Function


' * @type   : function
' * @access : public
' * @desc   : 문자열의 해당 문자를 삭제하여 준다.
' * 
' *     removeChar("123*", "*");
' * 

' * 위와같이 사용했을 경우 "123" 이라는 String을 리턴한다.
' * @sig    : value, char
' * @param  : value required 삭제할 문자열
' * @param  : char  required 변경할 문자
' * @return : 변환된 스트링
Function removeChar(value, char)
	removeChar = Replace(value, char, "")
End Function


' * @type   : function
' * @access : public
' * @desc   : 코드성 문자열에 대하여 스페이스 공간을 삭제를 하며 *로 들어온것이 있으면 삭제를 하고
'             코드 길이에 맞추어 문자를 넣어 준다.
' * 
' *     codeValueVald(5, "123*", "0");
' * 

' * 위와같이 사용했을 경우 "12300" 이라는 String을 리턴한다.
' * @sig    : value, length, char
' * @param  : value  required 문자열
' * @param  : length required 문자열 길이
' * @param  : char   required 변경할 문자
' * @return : 변환된 스트링
Function codeValueVald(value, length, char)
	codeValueVald = cfbeNumber(length, removeChar(trim(value),"*"), char)
End Function


'==========================================================
' 함  수  명 : Window_popup_center
' 인      자 : url, winName, cw, ch
' 함수  설명 : 팝업창을 가운데에 띄우기 위한 함수
'==========================================================
' 작  성  자 : 임원묵
' 최초작성일 : 2005-12-30
'==========================================================
' 최종수정자 : 
' 최종수정일 : 
' 수정  내용 :
'==========================================================
Function Window_popup_center(url, winName, cw, ch)
	Dim sw, sh, px, py
	sw = screen.availWidth
	sh = screen.availHeight
	px = (sw-cw)/2
	py = (sh-ch)/2
	Set Window_popup_center = window.open(url,winName, "left=" & px & ", top =" & py & ",width=" & cw &",height=" & ch & ",toolbar=no,menubar=no,status=yes,scrollbars=no,resizable=yes")
End Function

Dim windows_open_progress
'==========================================================
' 함  수  명 : progress
' 인      자 : 
' 함수  설명 : 팝업창을 가운데에 띄우기 위한 함수
'==========================================================
' 작  성  자 : 최용호
' 최초작성일 : 2007-01-22
'==========================================================
' 최종수정자 : 
' 최종수정일 : 
' 수정  내용 :
'==========================================================
Function progress()
	Dim sw, sh, px, py, cw, ch
	cw = 360
	ch = 130
	sw = screen.availWidth
	sh = screen.availHeight
	px = (sw-cw)/2
	py = (sh-ch)/2
	Set progress = window.open("/saup/SCRIPT/searching.html","Progress", "left=" & px & ", top =" & py & ",width=" & cw &",height=" & ch & ",directories=no,hotkeys=no,titlebar=no,toolbar=no,menubar=no,location=no,scrollbars=no,statusbar=no,resizable=no")
End Function

'==========================================================
' 함  수  명 : search_wait_start
' 인      자 : 
' 함수  설명 : 조회중입니다 메시지를 표현하기 위한 메시지
'==========================================================
' 작  성  자 : 양대홍
' 최초작성일 : 2006-05-28
'==========================================================
' 최종수정자 : 
' 최종수정일 : 
' 수정  내용 :
'==========================================================
Sub search_wait_start()
	Dim sw, sh, px, py
	sw = screen.availWidth
	sh = screen.availHeight
'	MsgBox "sw=" & sw & ", sh=" & sh
	px = (sw+40)/3
	py = (sh-110)/3
'	MsgBox "px=" & px & ", py=" & py
	document.all.waitFrame.style.top = py
	document.all.waitFrame.style.Left = px
	document.all.waitFrame.style.visibility = "visible"
	document.all.waitFrame.focus()
	
End Sub

'==========================================================
' 함  수  명 : search_wait_stop
' 인      자 : 
' 함수  설명 : 조회중 메시지를 닫기 위한 메시지
'==========================================================
' 작  성  자 : 양대홍
' 최초작성일 : 2006-05-28
'==========================================================
' 최종수정자 : 
' 최종수정일 : 
' 수정  내용 :
'==========================================================
Sub search_wait_stop()
	document.all.waitFrame.style.visibility = "hidden"
End Sub

'==========================================================
' 함  수  명 : popup_search_wait_start
' 인      자 : 
' 함수  설명 : 팝업창에서 [조회중입니다] 메시지를 표현하기 위한 메시지
'==========================================================
' 작  성  자 : 양대홍
' 최초작성일 : 2006-05-28
'==========================================================
' 최종수정자 : 
' 최종수정일 : 
' 수정  내용 :
'==========================================================
Sub popup_search_wait_start()
	Dim sw, sh, px, py
	sw = Document.body.clientwidth
	sh = Document.body.clientHeight
'	MsgBox "sw=" & sw & ", sh=" & sh
	px = (sw-362)/2 
	py = (sh-110)/3
'	MsgBox "px=" & px & ", py=" & py
	document.all.waitFrame.style.top = py
	document.all.waitFrame.style.Left = px
	document.all.waitFrame.style.visibility = "visible"
	document.all.waitFrame.focus()
	
End Sub

'==========================================================
' 함  수  명 : popup_search_wait_stop
' 인      자 : 
' 함수  설명 : 팝업창에서 조회중 메시지를 닫기 위한 메시지
'==========================================================
' 작  성  자 : 양대홍
' 최초작성일 : 2006-05-28
'==========================================================
' 최종수정자 : 
' 최종수정일 : 
' 수정  내용 :
'==========================================================
Sub popup_search_wait_stop()
	document.all.waitFrame.style.visibility = "hidden"
End Sub

' * @type   : function
' * @access : public
' * @desc   : TEXT BOX의 문자열을 받아Trim 등 기본 수행 기능을 하여 값을 전달한다.
'             값이 없을 경우에는 %문자열을 리턴한다.
' * 
' *     textValue(document.all.saup_nm)
' * 

' * 위와같이 사용했을 경우 saup_nm의 입력받은 문자열을 리턴한다.
' *  값이 없을 경우에는 %를 반환한다.
' * @sig    : obj
' * @param  : obj  HTML 의 OBJECT
' * @return : 변환된 스트링 or %
Function textValue(obj)
	Dim txt
	txt = Replace(Trim(obj.value),"*","")
	If(Len(txt) < 1 ) Then
		txt = ""
	End if
	textValue = txt
End Function 

' * @type   : function
' * @access : public
' * @desc   : 행정구역 코드값을 비교하여 전과 후값을 채워준다.
'  
' * 
' *     getzone_cdvalue('11020', '')
' * 

' * 위와같이 사용했을 경우 1102000, 9999999을 반환한다.
' *  값이 없을 경우에는 %를 반환한다.
' * @sig    : obj
' * @param  : obj  HTML 의 OBJECT
' * @return : 변환된 스트링 or %
Function getzone_cdvalue(obj1, obj2, length)
	Dim zone_cd(1), val1, val2
	val1 = codeValueVald(obj1.value, length, "0") 
	val2 = codeValueVald(obj2.value, length, "9") 
	zone_cd(0) = val1
	zone_cd(1) = val2
	getzone_cdvalue = zone_cd
End Function

' * @type   : function
' * @access : public
' * @desc   : 산업분류 코드값을 비교하여 전과 후값을 채워준다.
'  
' * 
' *     getsnb_cdvalue('110', '')
' * 

' * 위와같이 사용했을 경우 11000, 9999을 반환한다.
' *  값이 없을 경우에는 %를 반환한다.
' * @sig    : obj
' * @param  : obj  HTML 의 OBJECT
' * @return : 변환된 스트링 or %
Function getsnb_cdvalue(obj1, obj2)
	Dim snb_cd(1), val1, val2
	val1 = codeValueVald(obj1.value, 5, "0") 
	val2 = codeValueVald(obj2.value, 5, "9") 
	snb_cd(0) = val1
	snb_cd(1) = val2
	getsnb_cdvalue = snb_cd
End Function

' * @type   : function
' * @access : public
' * @desc   : 값에 대하여 문자열과 NULL에 대하여 체크를 하여 값의 유무에 대하여 확인한다.
'  
' * 
' *     chkValue('aaa')
' * 

' * 위와같이 사용했을 경우 false를 반환한다.
' *  값이 없을 경우에는 true 반환한다.
' * @sig    : val 
' * @param  : val   비교할 값
' * @return : true, false
Function chkValue(val)
	Dim ret
	ret = false
	If Len(val) < 1 Then
		ret = true
	End if
	chkValue = ret
End Function


' * @type   : function
' * @access : public
' * @desc   : OBJECT에 대하여 문자열과 NULL에 대하여 체크를 하여 값의 유무에 대하여 확인한다.
'  
' * 
' *     chkObj(document.all.saup_nm)
' * 

' * 위와같이 사용했을 경우 false를 반환한다.
' *  값이 없을 경우에는 true를 반환한다.
' * @sig    : val 
' * @param  : val   비교할 값
' * @return : true, false
Function chkObj(obj)
	Dim ret
	ret = false
'	If obj Is Null Or chkValue(obj.value) Then
	If chkValue(textValue(obj)) Then
		ret = true
	End if
	chkObj = ret
End Function

' * @type   : function
' * @access : public
' * @desc   : Input Box에 대한 이벤트 사용으로 
' *           숫자이외의 값이 들어오면 마지막으로 입력한 값은 제외하고 해당 인풋박스에 삽입한다.
' * 
' *     chkNumber(document.all.saup_nm)
' * 

' * 위와같이 사용했을 경우 숫자인지 판단하여 문자이면 지워주고 숫자이면 그대로 한다.
' *          인자로 받은 OBJECT에 대하여 직접 입력
' * @sig    : obj 
' * @param  : obj   HTML OBJECT
Function chkNumber(obj)
	Dim tmp
	tmp = obj.value
	If Len(tmp) <> 0 then
		If InStr("0123456789",Mid(tmp,Len(tmp),1)) = 0 then
			obj.value = Mid(tmp,1,Len(tmp)-1)
			obj.focus
		End If
	End if
End Function


' * @type   : function
' * @access : public
' * @desc   : OBJECT에 대한 Type이 설정되어 있을때 타입을 반환하여 NUMBER체크를 하도록 한다.    
' * 
' *     EV_GetFormType(document.all.saup_nm)
' * 

' *		    
' * @sig    : obj 
' * @param  : obj   HTML OBJECT
' *		      C : Code Type
' *			  N : Number Type
' *		      S : String Type
' * @return   숫자면 True, String이면 false
function EV_GetInputType(Obj)
on error resume Next
	If UCase(obj.tagName) = "INPUT" Then
		If UCase(obj.type) = "TEXT" Then
			select case ObjType.itype
				Case "C"
				Case "N"
					chkNumber(obj)
			end Select			
		End if
	End If
	EV_GetInputType = obj
on error goto 0
End Function

' * @type   : function
' * @access : public
' * @desc   : OBJECT에 대한 Tag Name을 반환한다.
' * 
' *     EV_GetTagName(document.all.saup_nm)
' * 

' * @sig    : obj 
' * @param  : obj   HTML OBJECT
Function EV_GetTagName(ObjType)
	Dim ret
on error resume next
	select case ObjType.tagName
		Case "TEXTAREA"
			ret = "TEXTAREA"
		case "INPUT"
			ret = "INPUT"
		Case "SELECT"
			ret = "SELECT"
		case else
			ret = ""
	end Select
	EV_GetTagName = ret
on error goto 0
End function


' * @type   : function
' * @access : public
' * @desc   : OBJECT에 대한 Tag Type을 반환한다.
' * 
' *     EV_GetTypeName(document.all.saup_nm)
' * 

' * @sig    : obj 
' * @param  : obj   HTML OBJECT
Function EV_GetTypeName(ObjType)
	Dim ret
on error resume Next	
	select case ObjType.type
		case "text"
			ret = "text"
		Case "select-one"
			ret = "select-one"
		Case "textarea"
			ret = "textarea"
		Case "checkbox"
			ret = "checkbox"
			If ObjType.checked = True Then
				ObjType.value = "1"
			Else
				ObjType.value = "0"
			End if
		case else
			ret = ""
	end Select

	EV_GetTypeName = ret
on error goto 0
End Function


' * @type   : function
' * @access : public
' * @desc   : 각 통계 업무에 대한 테이블명, 페이지경로, 키필드를 셋하여 반환한다.
' * 
' *     getSystemInfo("A")
' * 

' *      위와 같이 입력하였을 경우에 해당 시스템의 경로를 반환한다.
' * @sig    : sid
' * @param  : sid   통게 업무 코드
' * @return : Info(0) 테이블명
' *           Info(1) 경로
' *           Info(2) Key 필드
Function getSystemInfo(sid)
	Dim Info(2)
on error resume Next		
	select case sid
		case "A"
			Info(0) = "ASAMOT"
			Info(1) = "ASAMO"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""A"",""SEQNO_FIELD_NAME"")%>"
		case "B"
			Info(0) = "BKIMOT"
			Info(1) = "BKIMO"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""B"",""SEQNO_FIELD_NAME"")%>"
		case "D"
			Info(0) = "DSAUPBASET"
			Info(1) = "DSAUP"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""D"",""SEQNO_FIELD_NAME"")%>"
		case "E"
			Info(0) = "EKWANGJOSAT"
			Info(1) = "EKWANG"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""E"",""SEQNO_FIELD_NAME"")%>"
		case "F"
			Info(0) = "FDONGSAUPT"
			Info(1) = "FDONG"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""F"",""SEQNO_FIELD_NAME"")%>"
		case "K"
			Info(0) = "KDOSOJOSAT"
			Info(1) = "KDOSO"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""K"",""SEQNO_FIELD_NAME"")%>"
		case "T"
			Info(0) = "TTRANJOSAV"
			Info(1) = "TTRAN"
			Info(2) = "<%=InfoCache.SYSINFO().getSystemInfo(""T"",""SEQNO_FIELD_NAME"")%>"
		case else 
			msgbox "잘못된 정보입니다."
	end select	
	getSystemInfo = Info
on error goto 0
End Function 


' * @type   : function
' * @access : public
' * @desc   : 들어온 값을 확인하여 길이만큼 앞에 0을 채워 넣는다.
'  
' * 
' *     getzone_cdvalue('11020', '')
' * 

' * 위와같이 사용했을 경우 1102000, 9999999을 반환한다.
' *  값이 없을 경우에는 %를 반환한다.
' * @sig    : obj
' * @param  : obj  HTML 의 OBJECT
' * @return : 변환된 스트링 or %
Function getbefore_value(obj1, obj2, length)
	Dim before(1), val1, val2, defalut, i
	defalut = ""
	For i = 0 To length - 1
		defalut = defalut & "0"
	next

	val1 = Left(defalut,Len(defalut) - Len(obj1.value)) & obj1.value
	val2 = Left(defalut,Len(defalut) - Len(obj2.value)) & obj2.value
	before(0) = val1
	before(1) = val2
	getbefore_value = before
End Function