'VB 메세지 박스용 상수
Public Const gc_vbOKOnly = 0 
Public Const gc_vbOKCancel = 1
Public Const gc_vbAbortRetryIgnore = 2
Public Const gc_vbYesNoCancel = 3
Public Const gc_vbYesNo = 4
Public Const gc_vbRetryCancel = 5
Public Const gc_vbCritical = 16
Public Const gc_vbQuestion = 32
Public Const gc_vbExclamation = 48
Public Const gc_vbInformation = 64 
Public Const gc_vbDefaultButton1 = 0
Public Const gc_vbDefaultButton2 = 256 
Public Const gc_vbDefaultButton3 = 512 
Public Const gc_vbDefaultButton4 = 768
Public Const gc_vbApplicationModal = 0
Public Const gc_vbSystemModal = 4096
Public Const gc_vbMsgBoxHelpButton = 16384
Public Const gc_VbMsgBoxSetForeground = 65536
Public Const gc_vbMsgBoxRight = 524288
Public Const gc_vbMsgBoxRtlReading = 1048576
'VB 메세지 박스용 리턴값
Public Const gc_vbOK = 1
Public Const gc_vbCancel = 2
Public Const gc_vbAbort = 3
Public Const gc_vbRetry = 4
Public Const gc_vbIgnore = 5
Public Const gc_vbYes = 6
Public Const gc_vbNo = 7 

'VB의 메세지 박스를 활용하기 위한 공통 함수
'작성자 : 김철현
Function gfn_VbMsgBox(aMessage, aButtons)
     
    gfn_VbMsgBox = msgbox(aMessage, aButtons, "Smart Enterprise")
End Function

'Spread의 Excel Import에서 Sheet별로 가져오기 위한 함수
Function vb_getExcelSheetList(aGrid, aFileName , aReplace)
    Dim sheetName()
    Dim returnValue(3)    '0: Shett의 개수, 1: handle값, 2: 파일오픈 성공여부
    Dim openFlag          '파일 Open에 성공하였는지의 여부
    
    openFlag = aGrid.ScriptGetExcelSheetList(aFileName, sheetName, returnValue(0), "", returnValue(1), aReplace)
    returnValue(2) = openFlag
    vb_getExcelSheetList = returnValue
End Function

'Spread에서 Cell의 내용을 읽어오는 함수를 사용하기 위하여 - JS에서는 에러생김
Function vb_vbGetGridText(aGrid, aCol, aRow)
    Dim sText

    aGrid.GetText aCol, aRow, sText
    vb_vbGetGridText = sText
End Function

'셀병합된곳이 있을경우 각 셀에 병합된 내용을 동일하게 넣어주기 위한 함수
Function vb_getGridSpanText(aGrid, aCol, aRow)
    Dim pvColAnchor, pvRowAnchor, pvNumCols, pvNumRows
    Dim spanInfo    '0:GetCellSpanNo  1:GetCellSpanYes  2:GetCellSpanAnchor
    
    spanInfo = aGrid.GetCellSpan(aCol, aRow, pvColAnchor, pvRowAnchor, pvNumCols, pvNumRows)

    If spanInfo = 1 Then    'Span Cell이라면
        vb_getGridSpanText = common_getGridText(aGrid, pvColAnchor, pvRowAnchor)
    Else                     'Span Cell이 아니거나 Span 이면서 내용이 있는 Cell이라면
        vb_getGridSpanText = common_getGridText(aGrid, aCol, aRow)
    End if
End Function

'Excel Upload 파일에서 기본적으로 500 행이 생기므로 유효 데이터의 마지막 Row를 구하는 함수
Function vb_getLastRow(aGrid, aStartCol, aEndCol, aStartRow)
    Dim iRow, iCol, aBlankFlag
    
	For iRow = aStartRow To aGrid.MaxRows
		aBlankFlag = True
		
		For iCol = aStartCol To aEndCol
			if vb_vbGetGridText(aGrid, iCol, iRow) <> "" Then
			
				aBlankFlag = False
				Exit For
			End if
		Next
		
		if aBlankFlag = True Then Exit For
	Next

    vb_getLastRow = iRow - 1    '찾은행 바로 전행이 마지막 데이터가 있는 행이다.
End Function