//****************************************************************************
// 작 성 자 : 기술지원셀 김기경 
// 작 성 일 : 2001-04-09
// 파일 설명: Global Library
// 수 정 일 |  수 정 차 수(U:Update, I:Insert)  |  수 정 자
//****************************************************************************

	dim dirRoot, dirDC, dirDW, dirDZ
	dirRoot = "/EXC"
	dirDC = dirRoot + "/DC"
	dirDW = dirRoot + "/DW"
	dirDZ = dirRoot + "/DZ"

	// grid variable	:	Color
	
	const	gGridTitleColor = &HE4E4E4&				'&H00EADED2& '&H00E2E8E8&
	const	gGridTitleTextColor = &H00000000&
	const	gcolGridBackColorBkg = &HEFEFEF&		'&H00D3ECEF&   '&H00F7F7F7&
	const	gGridReadOnlyColor = &H00F3F5F3&
	const	gGridFrozenColor = &H00EEF1F1&
	const	gGridSoKeColor = &H00E9F6F7&
	const	gGridChongKeColor =&H00DCEFF3&
	const	gGridGangJoColor = &H00F8F4EC&
	const	gGridKuBunColor = &H00EAF6F6&
	const	gGridFooterColor = &H00E2E8E8&
	const	gGridFixedColor = &H00E2E8E8&
	const	gGridLineColor = &H00D7CCC8&
	const	gGridTrueLineColor = &H00B29689&
	const	gSingleReadOnly = &H00ECF0ED&
	const	gSingleKangJo = &H00C17201&
	const	gWhiteColor = &H00FFFFFF&
	const	gBackColorSel = &HF3ECDB&
	const	gForeColorSel = &H5A4000&
	
	const	gRowColor1 = &H00FBB37B&
	const	gRowColor2 = &H00FCC69C&
	const	gRowColor3 = &H00FDD4B5&
	const	gRowColor4 = &H00FEDFC8&
	const	gRowColor5 = &H00FEE7D6&
	const	gRowColor6 = &H00FEEDE0&
	const	gRowColor7 = &H00FEF2E8&

	//	grid variable
	const gGridFlat = 0	' flexFlat	 0, flex3D	1,flex3Dlight	2, flexXPThemes	3
	const gRowHeight = 400
	const gRowHeightMin = 300

	sub sbGridInitial(objGrid)

			With objGrid
				.FontName           ="굴림체"
				.FontSize           ="9"
				.BackColorFixed		= gGridTitleColor
				.BackColorBkg   	= gcolGridBackColorBkg
				.ForeColorFixed 	= gGridTitleTextColor
				.appearance     	= 0'gGridFlat
				.BackColorFrozen 	= gGridFrozenColor 
				.scrollTrack 		= True
				'FlexExNone 0, FlexExSort 1, FlexExMove 2, FlexExSortAndMove 3, FlexExSortShow 5, 
				'FlexExSortShowAndMove 7, FlexExMoveRows 8
				.BackColorSel		= gBackColorSel
				.ForeColorSel		= gForeColorSel
				.ExplorerBar		= 0
				.RowHeightMin		= gRowHeightMin
			end with
	end sub	

// 전체 설명 
// Sub는 해당 Event를 발생 시킨 곳에 값을 넣어 준다. 
// function return값을 넘겨 준다. 해당 return 값을 개발자가 프로그램을 해야 한다.

// *****************************************************
// 						숫자
// *****************************************************
//	Input Tag Validation

// input 숫자 필드의 onKeyUp에서 천 단위 마다 "," 추가하는 부분
// Sub sbInputAmtKeyUpObj(pDesc)  
//		: pDesc : Data 설명 

	 	 
// onBlur 에서 숫자, Length, 필수 입력 체크 하는 프로시져
// Sub sbInputAmtBlurObj(pDesc, pTY_Necessary, pLength)
//		: pDesc : Data 설명 
//  	: pTY_Necessary : 필수 정보 구분
//		: pLength : 길이 예: "3,2" --> 100.02

// Object명을 주고 숫자, Length, 필수 입력 체크 하는 프로시져
// Sub sbInputAmtObj(pObj, pDesc, pTY_Necessary, pLength)
//		: pObj : Call 하는 object
//		: pDesc : Data 설명 
//		: pTY_Necessary  : 필수 정보 구분
//		: pLength : 길이 예: "3,2" --> 100.02

// Data를 가져오고 저장할때 자료중에서 "," 추가 // 메지지는 없고 무조건 값만 변환 한다.
//	Function fnAmtCommaAdd(pData) 
// 		: pData : Comma를 붙일 Data
// 		: return : yes : Comma를 붙인 Data 
//			       no  : pData

// Data를 가져오고 저장할때 자료중에서 "," 빼는 부분 // 메지지는 없고 무조건 값만 변환 한다.
//	Function fnAmtCommaMinus(pData) 
//		: pData  : Comma를 뺀 Data
// 		: return : yes : Comma를 뺀 Data 
//			       no  : pData

// pData 문자 중에서 숫자가 아닌 문자만 빼고 Return
//	Function fnRetrunOnlyNumeric(pData)
//		: pData : 작업할 Data
//		: return : 문자 중에서 문자를 뺀 Data 



// pData 문자 중에서 숫자가 아닌 문자만 빼고 소수점 이하 버리고 숫자만 리턴 
// Function fnRetrunOnlyNumericFix(pData)
// 		: pData : 작업할 Data 
//		: return : pData 문자 중에서 숫자가 아닌 문자만 빼고 소수점 이하 버리고 숫자만 리턴 		

// pData 문자 중에서 숫자가 아닌 문자만 빼고('.'와 '-'(제일 처음 문자) 문자는 하나만 인정) Return	 
//	Function fnRetrunOnlyNumericComma(pData)
// 		: pData : 작업할 Data 
//		: return : pData 문자 중에서 숫자가 아닌 문자만 빼고('.'와 '-'(제일 처음 문자) 문자는 하나만 인정) Return	 

// 입력한 문자가 숫자인지 아닌지 체크 
//	Function fnCheckNumeric (pData, pDesc)
// 		: pData : 작업할 Data 
//		: return : true / false

// Grid에서 숫자 Validate 체크
//	Sub sbChkNumericGrid(pData, pDesc, pTY_Necessary)
//		: pData : 작업할 Data
//		: pDesc : Data 설명 
//		: pTY_Necessary : 필수 정보 구분

// 입력한 문자가 숫자인지 아닌지 체크하고 메시지 No
//  Function fnCheckNumericNoMsg (pData)
//		: pData : 작업할 Data
// 		: return : True / False 

// 숫자 Data의 Length Check 소수점 이하와 윗 자리 체크 
//	Function fnChkLenNumber(pData, pDesc, pLength)
// 		: pData  : 작업할 Data
//		: pDesc  : Data 설명 
//		: pLength : check할 숫자 자리수 
//		: return : True / False

// 자리수에 맞게 숫자리턴 (천 단위 마다 ',')  (예 : 3,2 => 222.02 ) 
//	Function fnLenNumber(pData, pLength)
// 		: pData : 작업할 Data
// 		: pLength : 자리수 
//		: return : 자리수에 맞게 숫자 리턴

// *****************************************************
// 						날자
// *****************************************************

// 날자 Validation Input 
// input 날자 필드의 onKeyUp에서 "YYYY-MM-DD" 처럼 "-" 추가하는 부분
//	Sub sbInputDateKeyUpObj(pDesc)
// 		: pDesc : 작업할 Data
	 
// onBlur 에서 Date type 및 필수 입력 체크 하는 프로시져
// 	Sub sbInputDateBlurObj (pDesc, pTY_Necessary) 
// 		: pDesc : 작업할 Data
//		: pTY_Necessary : 필수 입력 요소 구분 (Y/N)

// 	Sub sbInputDateBlurYMObj (pDesc, pTY_Necessary)
// 		: pDesc : 작업할 Data
//		: pTY_Necessary : 필수 입력 요소 구분 (Y/N)

	 
// Date Type 체크 (YYYY-MM-DD)
//	Function fnChkDate(pData, pDesc)
//		: pData : 작업할 Data 
//		: pDesc : Data 설명 
//		: return : True / False

// Date YYYY-MM  체크 (YYYY-MM)
// Function fnChkDateYM(pData, pDesc)
//		: pData : 작업할 Data 
//		: pDesc : Data 설명 
//		: return : True / False


// 날자 체크 함수 (No Msg) (YYYY-MM-DD) return : True , False
// Function fnChkDateNoMsg(pData)
//		: pData : 작업할 Data 

// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 "YYYY-MM-DD"으로 만든어 준다.
//	 Function fnDateSepaAdd(pData)
//		: pData : 작업할 Data 
//		: return : Empty / pData / "YYYY-MM-DD"

// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 "YYYY-MM"으로 만든어 준다.
// 	 Function fnDateSepaAddYM(pData)	
// 		: pData : 작업할 Data 
//		: return : Empty / pData / "YYYY-MM"

// Data를 가져오고 저장할때 자료중에서 "-" 빼는 부분
//	 Function fnDateSepaMinus(pData)
// 		: pData : 작업할 Data 
//		: return : Empty / Data를 가져오고 저장할때 자료중에서 "-" 뺀 Data

// Grid에서날자 Validation 할 때 쓸 함수 (YYYY-MM-DD)
//   Function fnChkDateGrid(pData, pDesc , pTY_Necessary)
//		: pData : 작업할 Data
//		: pDesc : Data 설명 
//		: pTY_Necessary : 필수 요소 구분 
//		: return : True / False



// Grid에서날자 Validation 할 때 쓸 함수 (YYYY-MM)
//   Function fnChkDateYMGrid(pData, pDesc , pTY_Necessary)	
//		: pData : 작업할 Data
//		: pDesc : Data 설명 
//		: pTY_Necessary : 필수 요소 구분 
//		: return : True / False

// 기준 날자에서 날자를 더한 값을 리턴 하는 함수
//   Function fnDateAddDay(pData,pAdd)
// 		: pData : 작업할 Data
//		: pAdd :  추가 하고자 하는 날자 , 빼고 싶으면 음수로 입력한다.
//		: return : 기준 날자에서 날자를 더한 값




// *****************************************************
//					 Empty Check 
// *****************************************************


// Empty Check() 후 Empty면 false Return
//	Function fnChkEmpty(pData)
//		: pData : 작업할 Data 
//		: return : empty / true 

// Empty Check() 후 Empty면 Msgbox 
//	Function fnChkEmptyMsg(pData, pDesc, pTY_Msg)
//		: pData  : 작업할 Data
//		: pDesc  : Data 설명 
//		: pTY_Msg : 메시지를 띄울지 안 띄울지 구분 
// 		: return : True / False


// *****************************************************
// 						기타 
// *****************************************************
// e-mail 체크
// Function fnCheckE_Mail(pData)
//		: pData : 작업할 Data
//		: return : True / False

// 									MSGBOX 
// MsgBox "경고를 나타낼 때 사용합니다.", vbOKOnly+vbExclamation, "주의"
// MsgBox "정보를 알릴 때 사용합니다.", vbOKOnly+vbInformation, "알림"
// MsgBox "에러를 나타낼 때 사용합니다. ", vbOKOnly+vbCritical, "오류"
// MsgBox "질문을 할 때 사용합니다. ", vbYesNoCancel+vbQuestion, "확인"
// MsgBox ("첫번째 줄" & (Chr(13))  & "두번째 줄" , vbYesNo +vbQuestion, "확인") = vbYes   

// 이미지file의  마지막 글자 가져 오는 function (.확장자 제외)
// function fnImageLastText(pImgObj)
//		: pImgObj : 작업할 이미지 객체
//		: return : 	이미지file의  마지막 글자

// 주어진 이미지 파일을 Diabled 이미지("X")로 바꾸는 것 
// Sub sbDisabledImage(pImgObj,pBoolean)
//		: pImgObj : 작업할 이미지 객체
//		: pBoolean : True / False

// Menu를 사용 하지 못하게 하는 함수 
// Sub sbDisabledMenu(pTY_Menu, pBoolean)
// 		: pTY_Menu : 작업할 메뉴  
//		: pBoolean : True / False

// 주민 번호 체크 (pData : xxxxxx-ddddddd) 
// Function fnCheckSocialNo(pData)
//		: pData : 작업할 Data
//		: return : True / False

// 주민 번호에 - 붙여 주는 함수 
// Function fnJuminSepaAdd(pData)

// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 우편번호를 만들어 준다.
// Function fnZipSepaAdd(pData)	

// 주민 번호 체크 (pObj :xxxxxx-ddddddd)
// Sub sbCheckSocialNo(pObj)
//		: pObj : 작업할 객체 


// Status Bar 글씨 세팅 
// Sub sbStatus(pDesc)
//		: pDesc : status bar에 넣을 내용 


// object Visibility  원하는 object나 tag 숨기는 기능 
// Sub sbObjSetVisibility(pobj,pBoolean)
//		: pobj : 작업할 객체 
//		: pBoolean : True / False


// Page Tab 세팅 
// Sub sbSetPageTab(pCaller ,parrTab, parrDiv)
//		: pCaller : Call한 Page Tab
// 		: parrTab : pageTab 배열 
//		: parrDiv : 내부 내용 

// 영문세팅, 대문자 
// Sub sbSetEnglish()

// 한글세팅, 대문자 
// Sub sbSetHanGul()

// 영문세팅, 소문자
// Sub sbSetEnglishOff()

// 한글 세팅, 소문자 
// Sub sbSetHanGulOff()

// Object를 Disabled 시키는 프로시져
// Sub sbDisabledObj(pObj, pYN_Disabled) 
//		:pObj : 작업할 obj
//		:pYN_Disabled : Y : Disabled  / N : Enabled

// IP Address Check
// function fnIPAddress(pData)
//		:pData : IP Address Check 할 Data
//		: return : True / False

// file 명에서 .과 확장자를 뺀 나머지 값(즉 이름이 된다.) 
// function fnFileName(pData)
	
// file OCX를 이용해서 저장하는 함수 
// Sub sbFileSave(pValue, pFile, bOpen ,objFile) 
// pValue : business OCX Value 
// pFile : 저장할 파일 Name 
// bOpen : Dialog Show 유무
// objFile : 파일 OCX Name

// *****************************************************
// *****************************************************
// 				 	Function 
// *****************************************************
// *****************************************************



// *****************************************************
// 						숫자 Function
// *****************************************************

// input 숫자 필드의 onKeyUp에서 천 단위 마다 "," 추가하는 부분
Sub sbInputAmtKeyUpObj(pDesc, pLength) 
	Dim ObjData, strData
	Dim arrLength 
	arrLength = Split(pLength,".")
	Set ObjData = Window.Event.srcElement
	ObjData.style.textalign = "right"
	if ObjData.Value = "" then Exit Sub
	
	strData = fnRetrunOnlyNumericComma(Trim(Replace(ObjData.value,"","")))
	
	ObjData.Value = strData //FormatNumber(strData,0)
	
End Sub 


// Data를 가져오고 저장할때 자료중에서 "," 추가하는 부분
Function fnAmtCommaAdd(pData)
  	Dim strData
	
	if pData = "" then Exit Function
	
	strData = Trim(Replace(pData,",",""))
	if isNumeric(strData) then
		fnAmtCommaAdd = FormatNumber(strData,0)
	else 
		fnAmtCommaAdd = pData
	end if 
End Function 	

// Data를 가져오고 저장할때 자료중에서 ","  빼는 부분
Function fnAmtCommaMinus(pData)
	fnAmtCommaMinus = Trim(Replace(pData,",","")) 
End Function 


// onBlur 에서 숫자, Length, 필수 입력 체크 하는 프로시져
Sub sbInputAmtBlurObj(pDesc, pTY_Necessary, pLength)
	// pDesc : 정보 요소
	// pTY_Necessary : 필수 입력 요소 "Y" : Not Null Field , "N" or other : Null Field
	// pLength: 숫자 자리수 (예: 3,2 => 123.20)
	Dim strData , objData
	Set objData = Window.event.srcElement
//	ObjData.style.textalign = "right"
	strData = Trim(objData.Value)
	//strData = fnRetrunOnlyNumericComma(Trim(objData.Value))
	
	// 필수입력 정보면 focus 재 위치
	if Trim(strData) = Empty and pTY_Necessary ="Y" then 
	
		MsgBox pDesc & "에 Data가 비어 있습니다." & (chr(13)) & "반드시 입력해 주셔야 합니다.", vbOKOnly+vbCritical, "오류"
//		ObjMessage.MsgBoxOpen pDesc & "에 Data가 비어 있습니다." & "|"  & (chr(9)) & "반드시 입력해 주셔야 합니다.",160	
		objData.focus
		Exit Sub
	elseif Trim(strData) = Empty and pTY_Necessary <>"Y" then 
		Exit Sub
	end if 		
	
	// 숫자가 아니면 
	if Not fnCheckNumeric(strData, pDesc) then 
		// focus 재 위치
		objData.focus
		Exit Sub 
	end if 
	
	// Length Check()
	if fnChkLenNumber(strData, pDesc, pLength) then
		// focus 재 위치
		objData.Value = fnLenNumber(strData, pLength)
	else 
		objData.focus
		Exit Sub 
	end if 
End Sub 

// Object명을 주고 숫자, Length, 필수 입력 체크 하는 프로시져
Sub sbInputAmtObj(pObj, pDesc, pTY_Necessary, pLength)
	// pObj : Object 
	// pDesc : 정보 요소
	// pTY_Necessary : 필수 입력 요소 "Y" : Not Null Field , "N" or other : Null Field
	// pLength: 숫자 자리수 (예: 3,2 => 123.20)
	Dim strData , objData
	Set objData = pObj
	ObjData.style.textalign = "right"
	strData = Trim(objData.Value)
	//strData = fnRetrunOnlyNumericComma(Trim(objData.Value))
	
	// 필수입력 정보면 focus 재 위치
	if Trim(strData) = Empty and pTY_Necessary ="Y" then 
		
		MsgBox pDesc & "에 Data가 비어 있습니다." & (chr(13)) & "반드시 입력해 주셔야 합니다.", vbOKOnly+vbCritical, "오류"
		objData.focus
		Exit Sub
	elseif Trim(strData) = Empty and pTY_Necessary <> "Y" then 
		Exit Sub
	end if 		
	
	// 숫자가 아니면 
	if Not fnCheckNumeric(strData, pDesc) then 
		// focus 재 위치
		objData.focus
		Exit Sub 
	end if 
	
	// Length Check()
	if fnChkLenNumber(strData, pDesc, pLength) then
		// focus 재 위치
		objData.Value = fnLenNumber(strData, pLength)
	else 
		objData.focus
		Exit Sub 
	end if 

	
End Sub 

// pData 문자 중에서 숫자가 아닌 문자만 빼고 Return
Function fnRetrunOnlyNumeric(pData)
	Dim strData, i 
	for i = 1 to len(pData)
		if isNumeric(Mid(pData,i,1)) then
			strData = strData & Mid(pData,i,1)
		end if 
	next 
		fnRetrunOnlyNumeric = strData
End Function
	 
// pData 문자 중에서 숫자가 아닌 문자만 빼고 소수점 이하 버리고 숫자만 리턴 
// 100.100 은 100만 -100.20 은 -100만 리턴 한다.
Function fnRetrunOnlyNumericFix(pData)
	Dim strData, i 
	if len(Trim(pData)) = 1 then 	
		if Trim(pData) = "." then
			fnRetrunOnlyNumericFix = 0
			Exit Function
		end if 
	end if 
	
	
	for i = 1 to len(pData)
		if isNumeric(Mid(pData,i,1)) or (Mid(pData,i,1)= ".")  or (Mid(pData,i,1)= "-") then
			strData = strData & Mid(pData,i,1)			
		end if 
	next 
		fnRetrunOnlyNumericFix = Fix(strData)
End Function	 
	 
// pData 문자 중에서 숫자가 아닌 문자만 빼고('.'와 '-'(제일 처음 문자) 문자는 하나만 인정) Return	 
Function fnRetrunOnlyNumericComma(pData)
	Dim strData, i, j
	for i = 1 to len(pData)
		// "."는 제일 먼저 나온 것만 Return된다.
		if Mid(pData,i,1) = "." then 
			if j = 0 then 
				strData = strData & "."
				j = 1				
			else 			
				strData = strData
			end if 
		elseif Mid(pData,i,1) = "-" then 
			if i = 1 then 
				strData = strData & "-"
			end if 
		elseif Mid(pData,i,1) <> "." then
			if isNumeric(Mid(pData,i,1)) then
				strData = strData & Mid(pData,i,1)
			end if 
		end if 
	next 
		fnRetrunOnlyNumericComma = strData
End Function
	 
// 입력한 문자가 숫자인지 아닌지 체크 
Function fnCheckNumeric (pData, pDesc)
	if isNumeric(pData) then 
		fnCheckNumeric = True
	else
		if pDesc <> "" then 
			MsgBox pDesc & "에 입력된 값이" & (chr(13)) & "숫자 타입이 아닙니다.", vbOKOnly+vbExclamation, "주의"
		end if 
		fnCheckNumeric = False
	end if 
 End function 
 
 
 // 입력한 문자가 숫자인지 아닌지 체크하고 메시지 No
Function fnCheckNumericNoMsg (pData)
	if isNumeric(pData) then 
		fnCheckNumericNoMsg = True
	else
		fnCheckNumericNoMsg = False
	end if 
 End function 

 

// 입력한 문자가 숫자인지 아닌지 체크한 후 True / False 값을 넘겨 준다.
//  pData  : Data
//	pDesc  : 설명 
//	pTY_Necessary: Y : 필수 입력 , N : No 필수 입력 	
//		우선 Grid의 Grid.ColFormat(ucAM_DATA)= "#,###"를 지정한다.
// 	 	Cell을 빠져 나갈 때 숫자타입인지(true)아니지만 체크한다.
//		Empty만 체크한다.
function fnChkNumericGrid(pData, pDesc, pTY_Necessary)
	if Trim(pData) = Empty and  pTY_Necessary = "Y" then
		MsgBox pDesc & "에는 Data를 반드시 입력하셔야 합니다. " & (chr(13)) & _
						"숫자를 입력하세요 " _ 
						, vbOKOnly+vbCritical, "오류"
		fnChkNumericGrid = False 
		Exit Function
	elseif Trim(pData) = Empty and  pTY_Necessary = "N" then
		fnChkNumericGrid = True
		Exit Function 
	end if 		

	// DATA를 입력했으면 숫자타입인지 체크
	if fnCheckNumeric(pData, pDesc) then
		fnChkNumericGrid = True
		Exit Function		
	else 
		fnChkNumericGrid = False
		Exit Function
	end if 
	
End function

 
 // 입력한 문자가 숫자인지 아닌지 체크
//  pData  : Data
//	pDesc  : 설명 
//	pTY_Necessary: Y : 필수 입력 , N : No 필수 입력 	
//		우선 Grid의 Grid.ColFormat(ucAM_DATA)= "#,###"를 지정한다.
// 	 	Cell을 빠져 나갈 때 숫자타입인지(true)아니지만 체크한다.
//		Empty만 체크한다.
Sub sbChkNumericGrid(pData, pDesc, pTY_Necessary)
	if Trim(pData) = Empty and  pTY_Necessary = "Y" then
		MsgBox pDesc & "에는 Data를 반드시 입력하셔야 합니다. " & (chr(13)) & _
						"숫자를 입력하세요 " _ 
						, vbOKOnly+vbCritical, "오류"
		Exit Sub
	elseif Trim(pData) = Empty and  pTY_Necessary = "N" then

		Exit Sub
	
	end if 		
	

	// DATA를 입력했으면 숫자타입인지 체크
	if fnCheckNumeric(pData, pDesc) then
		Exit Sub
	else 
		Exit Sub
	end if 
End Sub
	 
// 숫자 Data의 Length Check 소수점 이하와 윗 자리 체크 
Function fnChkLenNumber(pData, pDesc, pLength)
	if Trim(pData) = empty then 
		pData = 0
	end if 
	
	Dim arrData , arrLeng	
	arrData = split(Trim(Replace(pData,"-","")),".")
	arrLength = split(Trim(pLength),",")
	
	if UBound(arrLength) = 0 then
		Dim arrTemp
		ReDim arrTemp(0)
		arrTemp(0) = arrLength(0)
		ReDim arrLength(1)
		arrLength(0) = arrTemp(0)
		arrLength(1) = 0
	end if
		
	if len(arrData(0)) > cint(arrLength(0)) then
		MsgBox pDesc & "에 입력하신 Data의소수점 윗부분의 길이가 깁니다.", vbOKOnly+vbCritical, "오류"
		fnChkLenNumber = false
		Exit function
	end if
	 
	// Data는 소수점 이하가 존재 , 설정은 소수점 이하 없슴 (10,0)
	
		if UBound(arrData)> 0 and  cint(arrLength(1)) = 0 then
			MsgBox pDesc & "에 정수로 입력 하셔야 합니다.", vbOKOnly+vbCritical, "오류"
			fnChkLenNumber = false
			Exit function
		end if 
	
	
	if uBound(arrData)> 0 then 
		if len(arrData(1)) > cint(arrLength(1)) then
			MsgBox pDesc & "에 입력하신 Data의 소수점 이하가 길이가 깁니다.", vbOKOnly+vbCritical, "오류"
			fnChkLenNumber = false
			Exit function
		end if 
	end if 
	
	fnChkLenNumber = true
End Function	 






// 자리수에 맞게 숫자리턴 (천 단위 마다 ',')  (예 : 3,2 => 222.02 ) 
Function fnLenNumber(pData, pLength)
	if Trim(pData) = empty then 
		pData = 0
	end if
	
	Dim arrData , arrLeng	
	arrData = split(Trim(Replace(pData,"-","")),".")
	arrLength = split(Trim(pLength),",")
	
	// 기본 자리 세팅이 소수점 뒤가 있으면 
	if uBound(arrLength)> 0 then 
		fnLenNumber = formatNumber(pData,arrLength(1),-1)	
	elseif uBound(arrLength)=0 then 
		fnLenNumber = formatNumber(pData,0,-1)	
	end if 
End Function 	
	


// *****************************************************
// 						날자 Functon
// *****************************************************
// input 날자 필드의 onKeyUp에서 "YYYY-MM-DD" 처럼 "-" 추가하는 부분
Sub sbInputDateKeyUpObj(pDesc)
	Dim strData  
	Dim ObjData
	Dim strSepValue
	Set ObjData = Window.Event.srcElement
	strData = fnRetrunOnlyNumeric(Trim(ObjData.Value))

	If  strData = "" then Exit Sub

	strData = Trim(Replace(strData,"-",""))

 	If Len(strData) > 8 then  
		MsgBox pDesc & "에 Data가 형식에 맞지 낳습니다." & (chr(13)) & _
				"날짜 타입(YYYY-MM-DD)에 맞게 입력 하세요" _ 
				, vbOKOnly+vbCritical, "오류"		
		Exit Sub
	ElseIf Len(strData)< 8 then 
		
		If Len(strData) < 4 then
			strSepValue =Mid(strData,1,4) 
		ElseIf Len(strData) = 4 then
			if  Window.event.Keycode <> 8 then 
				strSepValue =Mid(strData,1,4) & "-" 			
			else 
				strSepValue =Mid(strData,1,4)
			end if 
		ElseIf Len(strData) = 5 then
			strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) 
		ElseIf Len(strData) = 6 then
			if  Window.event.Keycode <> 8 then 
				strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-"
			else 
				strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2)
			end if 
		ElseIf (Len(strData)>=7) then
			strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2)
		End If 
	
		ObjData.Value = strSepValue
		Exit Sub
	ElseIf Len(strData) = 8 then 
		
		strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2)
		
	//	if fnChkDate(strSepValue, pDesc) then 
	//		ObjData.Value = strSepValue
	//	else 
	//		Exit Sub
	//	end if 
	End If 
	

End Sub
	 
	

// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 "YYYY-MM-DD"으로 만든어 준다.
Function fnDateSepaAdd(pData)	
	Dim strData
	Dim strSepValue
	if Trim(pData) = empty then 
		fnDateSepaAdd = Empty
		Exit Function
	end if
	
	if Len(pData) > 8 or Len(pData) < 8 then 
		fnDateSepaAdd = pData
	end if 
	
	strData = Trim(Replace(pData,"-",""))
	strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2)
	fnDateSepaAdd = strSepValue
End Function	

// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 "YYYY-MM"으로 만든어 준다.
Function fnDateSepaAddYM(pData)	
	Dim strData
	Dim strSepValue
	if Trim(pData) = empty then 
		fnDateSepaAddYM = Empty
		Exit Function
	end if
	
	if Len(pData) > 6 or Len(pData) < 6 then 
		fnDateSepaAddYM = pData
	end if 
	
	strData = Trim(Replace(pData,"-",""))
	strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) 
	fnDateSepaAddYM = strSepValue
End Function	

	 
// 주어진 Data에서 Msg없이단순히 "-"를 제거 한다.
Function fnDateSepaMinus(pData)	
	Dim strData
	if Trim(pData) = empty then 
		fnDateSepaMinus = empty
		Exit Function
	end if
	
	strData = Trim(Replace(pData,"-",""))
	fnDateSepaMinus = strData
End Function	

	
	
	
// onBlur 에서 Date type 및 필수 입력 체크 하는 프로시져
Sub sbInputDateBlurObj(pDesc, pTY_Necessary)
	// pDesc : 정보 요소
	// pTY_Necessary : 필수 입력 요소 "Y" : Not Null Field , "N" or other : Null Field
	
	Dim strData , objData
	Set objData = Window.event.srcElement
	strData = fnRetrunOnlyNumeric(objData.Value)
	
	// 필수입력 정보면 focus 재 위치
	if Trim(strData) = Empty and pTY_Necessary ="Y" then 
		MsgBox pDesc & "에 Data가 비어 있습니다." & (chr(13)) & "반드시 입력해 주셔야 합니다.", vbOKOnly+vbCritical, "오류"
		objData.focus
		Exit Sub
	elseif Trim(strData) = Empty and pTY_Necessary <> "Y" then 
		Exit Sub
	end if 	
	
	// 날자 Type이 아니면 
	if Not fnChkDate(strData, pDesc) then 
		// focus 재 위치
		objData.focus
		Exit Sub 
	else 
		objData.value = fnDateSepaAdd(strData)
	end if 

End Sub 

// onBlur 에서 년월만을 입력 할 때 체크 하는 프로시져
Sub sbInputDateBlurYMObj(pDesc, pTY_Necessary)
	// pDesc : 정보 요소
	// pTY_Necessary : 필수 입력 요소 "Y" : Not Null Field , "N" or other : Null Field
	
	Dim strData , objData
	Set objData = Window.event.srcElement
	strData = fnRetrunOnlyNumeric(objData.Value)
	
	// 필수입력 정보면 focus 재 위치
	if Trim(strData) = Empty and pTY_Necessary ="Y" then 
		MsgBox pDesc & "에 Data가 비어 있습니다." & (chr(13)) & "반드시 입력해 주셔야 합니다.", vbOKOnly+vbCritical, "오류"
		objData.focus
		Exit Sub		
	elseif Trim(strData) = Empty and pTY_Necessary <> "Y" then 
		Exit Sub
	end if 	
	
	// 날자 Type이 아니면 
	if Not fnChkDateYM(strData, pDesc) then 
		// focus 재 위치
		objData.focus
		Exit Sub 
	else 
		objData.value = fnDateSepaAddYM(strData)
	end if 

End Sub 

// Date Type 체크 (YYYY-MM-DD)
Function fnChkDate(pData, pDesc)
	Dim strData
	Dim strSepValue
	
	strData = Trim(Replace(pData,"-",""))
	
	// 자리수가 8이 아니면 
	if Len(strData) <> 8 then 
			MsgBox pDesc & "에 Data가 형식에 맞지 낳습니다." & (chr(13)) & _
							"날짜 타입(YYYY-MM-DD)에 맞게 입력 하세요" _ 
							, vbOKOnly+vbCritical, "오류"
			fnChkDate = false  
			Exit Function
	end if 
	
	
	strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2)
	
	if Mid(strData,1,2) <> "19" and Mid(strData,1,2) <> "20" then 
			MsgBox pDesc & "에 Data가 19XX년 20XX년이 아닙니다." & (chr(13)) & _
							"날짜 타입(19XX년 20XX년)에 맞게 입력 하세요" _ 
							, vbOKOnly+vbCritical, "오류"
			fnChkDate = false  
			Exit Function
	end if 
	
	On Error Resume Next 
		FormatDateTime(Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2))
		// Error 가 발생이 됐다면 
		If Err.Number <> 0 then 
			MsgBox pDesc & "에 Data가 형식에 맞지 낳습니다." & (chr(13)) & _
							"날짜 타입(YYYY-MM-DD)에 맞게 입력 하세요" _ 
							, vbOKOnly+vbCritical, "오류"
			fnChkDate = false  
			Exit Function
		End If
	On Error Goto 0
	fnChkDate = true
End Function

// 날자 체크 함수 (No Msg) (YYYY-MM-DD) return : True , False
Function fnChkDateNoMsg(pData)
	Dim strData
	Dim strSepValue
	
	strData = Trim(Replace(pData,"-",""))
	
	// 자리수가 8이 아니면 
	if Len(strData) <> 8 then 
			fnChkDateNoMsg = false  
			Exit Function
	end if 
	
	
	strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2)
	
	if Mid(strData,1,2) <> "19" and Mid(strData,1,2) <> "20" then 
			fnChkDateNoMsg = false  
			Exit Function
	end if 
	
	On Error Resume Next 
		FormatDateTime(Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2))
		// Error 가 발생이 됐다면 
		If Err.Number <> 0 then 
			fnChkDateNoMsg = false  
			Exit Function
		End If
	On Error Goto 0
	fnChkDateNoMsg = true
End Function

// Date YYYY-MM  체크 (YYYY-MM)
Function fnChkDateYM(pData, pDesc)
	Dim strData
	Dim strSepValue
	
	// 날자 type체크 하기 위해 뒤에 "01"를 붙여서 YYYY-MM-DD로 만들어 놓는다.
	strData = Trim(Replace(pData,"-","")) & "01"
	
	// 자리수가 8이 아니면 
	if Len(strData) <> 8 then 
			MsgBox pDesc & "에 Data가 형식에 맞지 낳습니다." & (chr(13)) & _
							"날짜 타입(YYYY-MM)에 맞게 입력 하세요" _ 
							, vbOKOnly+vbCritical, "오류"
			fnChkDateYM = false  
			Exit Function
	end if 
	
	
	strSepValue =Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2)
	
	if Mid(strData,1,2) <> "19" and Mid(strData,1,2) <> "20" then 
			MsgBox pDesc & "에 Data가 19XX년 20XX년이 아닙니다." & (chr(13)) & _
							"날짜 타입(19XX년 20XX년)에 맞게 입력 하세요" _ 
							, vbOKOnly+vbCritical, "오류"
			fnChkDateYM = false  
			Exit Function
	end if 
	
	On Error Resume Next 
		FormatDateTime(Mid(strData,1,4) & "-" & Mid(strData,5,2) & "-" & Mid(strData,7,2))
		// Error 가 발생이 됐다면 
		If Err.Number <> 0 then 
			MsgBox pDesc & "에 Data가 형식에 맞지 낳습니다." & (chr(13)) & _
							"날짜 타입(YYYY-MM)에 맞게 입력 하세요" _ 
							, vbOKOnly+vbCritical, "오류"
			fnChkDateYM = false  
			Exit Function
		End If
	On Error Goto 0
	fnChkDateYM = true
End Function


// Grid에서날자 Validation 할 때 쓸 함수 
//  pData  : Data
//	pDesc  : 설명 
//	pTY_Necessary: Y : 필수 입력 , N : No 필수 입력 	
//  Grid에서 focus가 되지 않기 때문에 메시지만 뿌려 준다. 
//		Cell 을 빠져 나갈 때 fnChkDateGrid를 Call하여 True이면 
//	 	    Data에 "    -  - "를 붙여 준다.fnDateSepaAdd 이용
Function fnChkDateGrid(pData, pDesc , pTY_Necessary)		

	if Trim(pData) = Empty and  pTY_Necessary = "Y" then
		MsgBox pDesc & "에는 Data를 반드시 입력하셔야 합니다. " & (chr(13)) & _
						"날짜 타입(YYYY-MM-DD)에 맞게 입력 하세요" _ 
						, vbOKOnly+vbCritical, "오류"
		fnChkDateGrid = false
		Exit Function
	elseif Trim(pData) = Empty and  pTY_Necessary = "N" then
		fnChkDateGrid = True
		Exit Function
	end if 		
	
	if fnChkDate(pData, pDesc) then 
		fnChkDateGrid = True
	else 
		fnChkDateGrid = false
	end if 
	
End Function	

// Grid에서날자 Validation 할 때 쓸 함수 
//  pData  : Data
//	pDesc  : 설명 
//	pTY_Necessary: Y : 필수 입력 , N : No 필수 입력 	
//  Grid에서 focus가 되지 않기 때문에 메시지만 뿌려 준다. 
//		Cell 을 빠져 나갈 때 fnChkDateGrid를 Call하여 True이면 
//	 	    Data에 "    -  "를 붙여 준다.fnDateSepaAddYM 이용
Function fnChkDateYMGrid(pData, pDesc , pTY_Necessary)		

	if Trim(pData) = Empty and  pTY_Necessary = "Y" then
		MsgBox pDesc & "에는 Data를 반드시 입력하셔야 합니다. " & (chr(13)) & _
						"날짜 타입(YYYY-MM)에 맞게 입력 하세요" _ 
						, vbOKOnly+vbCritical, "오류"
		fnChkDateYMGrid = false
		Exit Function
	elseif Trim(pData) = Empty and  pTY_Necessary = "N" then
		fnChkDateYMGrid = True
		Exit Function
	end if 		
	
	if fnChkDateYM(pData, pDesc) then 
		fnChkDateYMGrid = True
	else 
		fnChkDateYMGrid = false
	end if 
	
End Function	
	
	
// 기준 날자에서 날자를 더한 값을 리턴 하는 함수
// pAdd : 추가 하고자 하는 날자 , 빼고 싶으면 음수로 입력한다.
Function fnDateAddDay(pData,pAdd)
	Dim strData
	strData = fnDateSepaAdd(pData)
	fnDateAddDay =  cstr(DateAdd("d",pAdd, strData))
End Function
// *****************************************************
//					 Empty Check Function 
// *****************************************************
// Empty Check() 후 Empty면 false Return
Function fnChkEmpty(pData)
	if Trim(pData) = empty then
		fnChkEmpty = false
		Exit Function
	end if
	fnChkEmpty = True
End Function
 
// Empty Check() 후 Empty면 Msgbox 
Function fnChkEmptyMsg(pData, pDesc, pTY_Msg)
	if Trim(pData) = empty then
		if pTY_Msg = "Y" then 
			MsgBox pDesc & "에 Data가 비어 있습니다.", vbOKOnly+vbCritical, "오류"
			fnChkEmptyMsg = false
			Exit Function
		end if 
			fnChkEmptyMsg = false
			Exit Function
	end if
	fnChkEmptyMsg = True
End Function

// *****************************************************
// 						기타  Function
// *****************************************************

// e-mail 체크
Function fnCheckE_Mail(pData)
	If Instr(pData, "@") = 0 Or Instr(pData, ".") = 0 then
		MsgBox "올바른 Email주소가 아닙니다.", vbOKOnly+vbExclamation, "주의"	
		fnCheckE_Mail = false
	else
		fnCheckE_Mail = true
	end if
End Function

// 이미지file의  마지막 글자 가져 오는 function (.확장자 제외)
function fnImageLastText(pImgObj)

	fnImageLastText = Mid(pImgObj.src,InStrRev(pImgObj.src,".")-1,1)
	
End function 

// 주어진 이미지 파일을 Diabled 이미지("X")로 바꾸는 것 
// pImgObj : 메뉴 : 작업메뉴 버튼 이름 idMenuWork ,리포트메뉴 버튼 이름  idMenuReport
Sub sbDisabledImage(pImgObj, pBoolean)
	Dim ImgNewSrc
	Dim imgName
	imgName = Mid(pImgObj.src,InStrRev(pImgObj.src,"/")+1,InStrRev(pImgObj.src,".")-2-InStrRev(pImgObj.src,"/"))
	if pBoolean = true then
		ImgNewSrc = mid(pImgObj.src, 1, InStrRev(pImgObj.src,"/")) & imgName & "X.gif"
		pImgObj.Disabled = True
		
		//pImgObj.style.cursor = "Default"
		pImgObj.src = ImgNewSrc
	elseif pBoolean = false then
		ImgNewSrc = mid(pImgObj.src, 1, InStrRev(pImgObj.src,"/")) & imgName & "O.gif"
		pImgObj.Disabled = False
		//pImgObj.style.cursor = "Hand"
		pImgObj.src = ImgNewSrc	
	end if 
End Sub

// Menu를 사용 하지 못하게 하는 함수 
// pTY_Menu : "작업" , "보고서", "작업/보고서" 
//  pBoolean : True : Disabled , False : Enabled
Sub sbDisabledMenu(pTY_Menu, pBoolean)
	if pTY_Menu = "작업" then
		Call sbDisabledImage(idMenuWork, pBoolean)
	elseif pTY_Menu = "보고서" then
		Call sbDisabledImage(idMenuReport, pBoolean)
	elseif pTY_Menu = "작업/보고서" then
		Call sbDisabledImage(idMenuWork, pBoolean)
		Call sbDisabledImage(idMenuReport, pBoolean)		
	end if 
End Sub

// 주민 번호 체크 (xxxxxx-ddddddd) (pObj : xxxxxx  , pObj2 : ddddddd)
Function fnCheckSocialNo(pData)
	dim strSno
	dim checkNum
	dim No(12)
	dim i
	
	if fnCheckNumericNoMsg(replace(pData,"-","")) = False then
		MsgBox "주민번호가 올바르지 않습니다.", vbOKOnly+vbExclamation, "주의"	
		fnCheckSocialNo = False
		Exit Function
	elseif Len(replace(pData,"-","")) <> 13  then
		MsgBox "주민번호가 올바르지 않습니다.", vbOKOnly+vbExclamation, "주의"	
		fnCheckSocialNo = False
		Exit Function
	elseif not(mid(pdata,7,1) = "1" or mid(pdata,7,1) = "2" or mid(pdata,7,1) = "3" or mid(pdata,7,1) = "4") Then     
		MsgBox "주민번호가 올바르지 않습니다.", vbOKOnly+vbExclamation, "주의"	
		fnCheckSocialNo = False
		Exit Function
	end if

	if mid(pdata,7,1) = "1" or mid(pdata,7,1) = "2" Then
		if	fnChkDateNoMsg("19" & mid(pData,1,6)) = False Then
			fnCheckSocialNo = False
			Exit Function
		end if	
	else
		if	fnChkDateNoMsg("20" & mid(pData,1,6)) = False Then
			fnCheckSocialNo = False
			Exit Function
		end if	
	end if	
		
	strSno = pData
	
	for i = 0 to 12
		No(i) = mid(strSno, i+1, 1)
	next
	
	checkNum = 11-(No(0)*2+No(1)*3+No(2)*4+No(3)*5+No(4)*6+No(5)*7+No(6)*8+No(7)*9+No(8)*2+No(9)*3+No(10)*4+No(11)*5) Mod 11
	
	if (checkNum >= 10) and (checkNum <= 11) then
		checkNum = checkNum - 10
	end if
	
	if No(12) <> cStr(checkNum) then
		MsgBox "주민번호가 올바르지 않습니다.", vbOKOnly+vbExclamation, "주의"	
		fnCheckSocialNo = False
	else
		fnCheckSocialNo = True
	end if
End Function

// 주민 번호 체크 (xxxxxx-ddddddd)
Sub sbCheckSocialNo(pObj)
	dim strSno
	dim checkNum
	dim No(12)
	dim i
	
	strSno = PObj.Value
	
	for i = 0 to 12
		No(i) = mid(strSno, i+1, 1)
	next
	
	checkNum = 11-(No(0)*2+No(1)*3+No(2)*4+No(3)*5+No(4)*6+No(5)*7+No(6)*8+No(7)*9+No(8)*2+No(9)*3+No(10)*4+No(11)*5) Mod 11
	
	if (checkNum >= 10) and (checkNum <= 11) then
		checkNum = checkNum - 10
	end if
	
	if No(12) <> cStr(checkNum) then
		MsgBox "주민번호가 올바르지 않습니다.", vbOKOnly+vbExclamation, "주의"	
		pObj.select
		pObj.focus
	else
		//
	end if
End Sub

//   1 1 6 8 1 4 0 1 9 3 
// x 1 3 7 1 3 7 1 3 5 
//   1+3+2+8+3+8+0+3+4+5+3 = 40 : 끝자리가 0으로 끝나야 한다. 
Function fnCheckVendor(strData) 
	Dim varCheck, strValue, varData, intSum, intTemp, strTemp, iCheckValue, i

	IF strData = "1388108534" THEN
	   fnCheckVendor = False 
	   Exit Function 
	End if 
		
	strValue = "137137135" 

	If fnCheckNumericNoMsg(strData) = False Then
		fnCheckVendor = False
		Exit Function
	ElseIf Len(strData) <> 10 Then 
	   fnCheckVendor = False 
	   Exit Function 
	End if 

	ReDim varCheck(8) 
	For i = 0 To 8 
		varCheck(i) = Mid(strValue, i+1, 1) 
	Next 

	ReDim varData(9) 
	For i = 0 To 9 
		varData(i) = Mid(strData, i+1,1) 
	Next 

	For i = 0 To 7 
		intTemp = (varCheck(i) * varData(i)) mod 10 
	 	intSum = intSum + intTemp 
	Next 
	strTemp = varCheck(8) * varData(8) 

	Select Case Len(strTemp) 
		Case 1 iCheckValue = CInt(strTemp)
		Case 2 iCheckValue = CInt(Left(strTemp,1)) + CInt(Right(strTemp,1))
	End Select 

	intSum = intSum + iCheckValue + varData(9) 

	If intSum mod 10 <> 0 Then 
		fnCheckVendor = False 
	Else 
		fnCheckVendor = True 
	End If 
End Function 

// Status Bar 글씨 세팅 
Sub sbStatus(pDesc)
	
	window.status=  gstrUserName & " | " & gstrDS_DEPT & " | " & gstrAspName & " | " & pDesc
End Sub

// object Visibility  원하는 object나 tag 숨기는 기능 
Sub sbObjSetVisibility(pobj,pBoolean)
	// pBoolean : True  : Visible
	//			  False : Hidden		
	if pBoolean = True then
		pObj.Style.Visibility =  "Visible"
	else
		pObj.Style.Visibility =  "Hidden" 
	end if 

End Sub


// Page Tab 세팅 
// parrTab : Page Tab Button 이름(Object)을 배열로 넘긴다.
// parrDiv : Div의  id를 배열로 넘긴다. 
// 예: sbSetPageTab(array(Tab1,Tab2). array(div1,div2))
Sub sbSetPageTab(pCaller ,parrTab, parrDiv)
	Dim i , j
	// 어떤 Tab Button을 클릭했는지 찾는다.
	for i= 0 to UBound(parrTab)
		if parrTab(i).name = pCaller.name then 
			j =  i
		end if 
	next
	
	// Click() 한 버튼은 On button , Div visibilty visible 으로 나머지는 off 버튼, Div visibilty hidden 으로 
	for i = 0 to UBound(parrTab)
		if i = j then
			Call sbTabImageChange(parrTab(i), False)
			parrDiv(i).style.visibility = "Visible"
		else
			Call sbTabImageChange(parrTab(i), True)
			parrDiv(i).style.visibility = "Hidden"
		end if 		
	next 

End Sub

// Tab 이미지 변환하는 프로시져 
// pImgObj: 이미지 객체 
// pBack  : True :  앞으로  False :  뒤로  
Sub sbTabImageChange(pImgObj,pForward)
	Dim ImgNewSrc
	Dim ImgPath
	Dim imgName
	ImgPath = mid(pImgObj.src, 1, InStrRev(pImgObj.src,"/"))
	imgName = Mid(pImgObj.src,InStrRev(pImgObj.src,"/")+1,InStrRev(pImgObj.src,".")-2-InStrRev(pImgObj.src,"/"))
	
	if pForward = true then
		ImgNewSrc = ImgPath & imgName & "X.gif"
				
		pImgObj.style.cursor = "Hand"
		pImgObj.src = ImgNewSrc
	elseif pForward = false then
		ImgNewSrc = ImgPath & imgName & "O.gif"

		pImgObj.style.cursor = "Hand"
		pImgObj.src = ImgNewSrc	
	end if 
 
End Sub

// 영문세팅, 대문자 
Sub sbSetEnglish()
	ObjBusiness.fnSetEnglish 
	ObjBusiness.fnSetCapsLockOn 
End Sub

// 한글세팅, 대문자 
Sub sbSetHanGul()
	ObjBusiness.fnSetHangul
	ObjBusiness.fnSetCapsLockOn 
End Sub

// 영문세팅, 소문자
Sub sbSetEnglishOff()
	ObjBusiness.fnSetEnglish 
	ObjBusiness.fnSetCapsLockOff 
End Sub

// 한글 세팅, 소문자 
Sub sbSetHanGulOff()
	ObjBusiness.fnSetHangul
	ObjBusiness.fnSetCapsLockOff 
End Sub

// CPU 에 Null 값 입력 하는 부분 
Sub sbSendEvent()
	for i = 0 to gintLoofSendEvent 
		objAuthBusiness.fnSendEvent 
		
		objAuthBusiness.fnSendEvent		
	next

End Sub


// Object를 Disabled 시키는 프로시져
// pTY_Disabled 
//	 Y : Disabled
// 	 N : Not Disabled
Sub sbDisabledObj(pObj, pYN_Disabled) 
	if pYN_Disabled = "Y" or pYN_Disabled = True then
		if Left(pObj.name,3) = "txt" then 
			pObj.Readonly = true
		else 
			pObj.disabled = true		
		end if 
	elseif pYN_Disabled = "N" or pYN_Disabled = False then
		if Left(pObj.name,3) = "txt" then 
			pObj.Readonly = False
		else 
			pObj.disabled = False	
		end if 	
	end if
End Sub


// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 주민번호를 만들어 준다.
Function fnJuminSepaAdd(pData)	
	Dim strData
	Dim strSepValue
	if Trim(pData) = empty then 
		fnJuminSepaAdd = Empty
		Exit Function
	end if
	
	strData = Trim(Replace(pData,"-",""))
	strSepValue =Mid(strData,1,6) & "-" & Mid(strData,7,7) 
	fnJuminSepaAdd = strSepValue
End Function


// 주어진 Data에서 Msg없이단순히 "-"를 추가하여 우편번호를 만들어 준다.
Function fnZipSepaAdd(pData)	
	Dim strData
	Dim strSepValue
	if Trim(pData) = empty then 
		fnZipSepaAdd = Empty
		Exit Function
	end if
	
	strData = Trim(Replace(pData,"-",""))
	strSepValue =Mid(strData,1,3) & "-" & Mid(strData,4,3) 
	fnZipSepaAdd = strSepValue
End Function	


// IP Address Check
function fnchkIPAddress(pData)
	Dim strData
	strData = Replace(pData,".","")
 	// "."를 제외한 Data가 모두 숫자인지 체크
	if fnCheckNumericNoMsg(strData) = false then 
		ObjMessage.MsgBoxOpen "IP 주소는 숫자와 '.'로 구성되어야 합니다.",96	
		fnchkIPAddress = False
		Exit Function 
	end if 
	
	// "."를 제외한 Data의 길이가 12자리인지 체크
	//if len(pData) <> 15 then 
	//	ObjMessage.MsgBoxOpen "IP 주소는 'xxx.xxx.xxx.xxx' 로 구성되어야 합니다. ",96	
	//	fnchkIPAddress = False
	//	Exit Function 
	//end if 
//  . 을 기준으로 SPLIT해서 체크 203.23.234.2 가 될수 도 있기 때문 	
//	if fnCheckNumericNoMsg(left(pData,1,3)) = false or fnCheckNumericNoMsg(left(pData,5,3)) = false or fnCheckNumericNoMsg(left(pData,9,3)) = false or fnCheckNumericNoMsg(left(pData,13,3)) = false _ 
//	   or left(pData,4,1) <> "." or left(pData,8,1) <> "." or left(pData,12,1) <> "." then 
//		ObjMessage.MsgBoxOpen "IP 주소는 'xxx.xxx.xxx.xxx' 로 구성되어야 합니다. ",96	
//		fnchkIPAddress = False
//		Exit Function 
//	end if 
	fnchkIPAddress = True
end Function 

// file 명에서 .과 확장자를 뺀 나머지 값(즉 이름이 된다.) 
function fnFileName(pData)
	if Len(Trim(pData)) < 1 then 
		fnFileName = pData
	else
		fnFileName = Trim(mid(Trim(pData), 1, InStrRev(Trim(pData),".")-1))
	end if
end function



// file OCX를 이용해서 저장하는 함수 
Sub sbFileSave(pValue, pFile, bOpen ,objFile) 
// pValue : business OCX Value 
// pFile : 저장할 파일 Name 
// bOpen : Dialog Show 유무
// objFile : 파일 OCX Name
    Dim objFileSystem 

	Dim MyFile,MyFileName
	Dim rsCnt,i,j,strTmp		

	set objFileSystem = objFile.SetFileSystem()
		if bOpen = True then
			MyFileName =  objFile.FileDialog (pFile)	
		Else
			MyFileName = pFile
		End if	
		
	Set MyFile = objFileSystem.CreateTextFile(MyFileName, True)
	    rsCnt =  Ubound(pValue,2)	
	    If rsCnt > 0 then		
		for i = 0 to rsCnt-1				
		strTmp = ""
			for j=0 to ubound(pValue,1)			
				strTmp = strTmp &  Trim(pValue(j,i))  
			next
			MyFile.WriteLine(strTmp)
		next 		
	    End If
	    MyFile.Close	
End Sub 

// msgbox 대신 대화상자를 띄운다.
// strMsg :  대화상자에 표시할 메시지
// typ :	1 - 확인 버튼
//			2 - 예, 아니오
function fnMsgBox(strMsg, numType)

	Dim strWindow, arrArgument
		
'	arrArgument = array(strMsg)
	fnMsgBox=Window.showModalDialog("../../../cz/inc/cze_MsgDlg.asp?strMode=ShowModal&TY_BTN=" & numType, strMsg, _
				" dialogWidth: 407px; dialogHeight:203px; dialogTop: px; dialogLeft: px; center: Yes; help: No; resizable: NO; status: No;")	
end function