' 조회
Protected Overrides Function ExecuteRetrieve() As Integer
' 조회 조건 check
If Me.KeyCheck() = False Then
Return -1
End If
Dim ret_cnt As Integer = MyBase.ExecuteRetrieve() ' 조회(프로시저에서 생성된 temp table내역)
' 이관/이관취소 선택에 따른 add/delete/선택/선택취소 제어
If rgDiv.EditValue = "1" Then ' 이관
cnbSheet.EnableAppend = True
cnbSheet.EnableRemove = True
bteExec.Visible = True ' 실행버튼
Me.xgSheetView.BeginSort()
Try
xgSheetView.ClearSorting()
xgSheetView.Columns("PART_SECTION").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
xgSheetView.Columns("PART_TYPE").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
Finally
xgSheetView.EndSort()
End Try
ElseIf rgDiv.EditValue = "2" Then ' 이관취소
cnbSheet.EnableAppend = False ' 추가안되게
cnbSheet.EnableRemove = False ' 삭제안되게
bteExec.Visible = True ' 실행버튼
Me.xgSheetView.BeginSort()
Try
xgSheetView.ClearSorting()
xgSheetView.Columns("PART_SECTION").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
xgSheetView.Columns("PART_TYPE").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
Finally
xgSheetView.EndSort()
End Try
Else ' 세금계산서 발행
cnbSheet.EnableAppend = False
cnbSheet.EnableRemove = False
bteExec.Visible = False ' 실행버튼
Me.xgSheetView.BeginSort()
Try
xgSheetView.ClearSorting()
xgSheetView.Columns("CONSIGN_CUST_CODE").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
xgSheetView.Columns("CONSIGN_BUSINESS_NO").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
xgSheetView.Columns("OCCUR_SEQ").SortOrder = DevExpress.Data.ColumnSortOrder.Ascending
Finally
xgSheetView.EndSort()
End Try
End If
btnSelect.Enabled = True ' 전체선택
btnSelectCancel.Enabled = True ' 전체선택 취소
Return ret_cnt
End Function