Imports System.Data
Imports AppVariable
Imports AppCommon
Imports System.Data.SqlClient

''' <summary>
''' 請求者詳細画面
''' </summary>
Partial Class ClaimDetail
    Inherits System.Web.UI.Page

#Region "変数宣言"
    ''' <summary>
    ''' 選択学生保持
    ''' </summary>
    Private _selectedStudent As ClaimParam

    Private _portalId As String
#End Region

#Region "イベントメソッド"
    ''' <summary>
    ''' ページロードイベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session(S_COM_PortalID) Is Nothing Then
            Return
        End If

        _portalId = Session(S_COM_PortalID)

        If Session(S_Claim_Selected_Student) Is Nothing Then
            If Session(S_Claim_Search_Param) IsNot Nothing Then
                Dim searchParam As SearchClaimParam = Session(S_Claim_Search_Param)
                searchParam.SelectedIndex = -1
                Session(S_Claim_Search_Param) = searchParam
            End If
        End If

        _selectedStudent = Session(S_Claim_Selected_Student)
        If Not IsPostBack Then
            If (Session(S_Claim_Selected_Tab1) IsNot Nothing) Then
                hdnTabIndex.Value = Session(S_Claim_Selected_Tab1)
            Else
                hdnTabIndex.Value = 0
            End If

            If (Session(S_Claim_Selected_Tab2) IsNot Nothing) Then
                hdnTabIndex2.Value = Session(S_Claim_Selected_Tab2)
            Else
                hdnTabIndex2.Value = 0
            End If

            Set請求()
            If Session(S_Claim_Selected_Student) IsNot Nothing Then
                Set希望学科()
                Set全履歴()
                Setアクション()
                Setアプローチ()
                Setイベント()
                Set全希望学科()
                Set出願情報()
                Set特記()
            End If

        Else
            Session(S_Claim_Selected_Tab1) = hdnTabIndex.Value
            Session(S_Claim_Selected_Tab2) = hdnTabIndex2.Value
        End If
    End Sub

    Protected Sub FRM請求者_DataBound(sender As Object, e As EventArgs) Handles FRM請求者.DataBound
        Dim row As FormViewRow = FRM請求者.Row

        If row.RowType = DataControlRowType.DataRow Then
            'フォーマットを設定
            Dim strControl As String = ""
            Dim strValue As String = ""

            strControl = "lbl郵便番号"
            strValue = CType(FRM請求者.FindControl(strControl), Label).Text
            If strValue.Length = 7 Then
                CType(FRM請求者.FindControl(strControl), Label).Text = strValue.Substring(0, 3) + "-" + strValue.Substring(3, 4)
            End If

            strControl = "lbl保護者郵便番号"
            strValue = CType(FRM請求者.FindControl(strControl), Label).Text
            If strValue.Length = 7 Then
                CType(FRM請求者.FindControl(strControl), Label).Text = strValue.Substring(0, 3) + "-" + strValue.Substring(3, 4)
            End If

            strControl = "lbl保証人郵便番号"
            strValue = CType(FRM請求者.FindControl(strControl), Label).Text
            If strValue.Length = 7 Then
                CType(FRM請求者.FindControl(strControl), Label).Text = strValue.Substring(0, 3) + "-" + strValue.Substring(3, 4)
            End If
        End If
    End Sub
#End Region

#Region "ユーザメソッド"
#Region "請求メイン(上側のタブ)関連"
    ''' <summary>
    ''' 請求情報セット
    ''' </summary>
    Private Sub Set請求()
        Dim 請求No As String
        Dim ds As DataSet = New DataSet
        Dim tblBasic As DataTable = New DataTable

        If _selectedStudent IsNot Nothing Then
            請求No = _selectedStudent.請求No

            Using spm As New StoredProcedureManager("募集_請求一覧_学生_SELECT")
                spm.AddPrmIn("@請求No", SqlDbType.Int, 請求No)
                spm.Fill()
                ds = spm.ds()
            End Using
            tblBasic = ds.Tables(0)
        End If

        FRM請求者.DataSource = tblBasic
        FRM請求者.DataBind()

    End Sub

    ''' <summary>
    ''' 最新希望学科セット
    ''' </summary>
    Private Sub Set希望学科()
        WebControlsUtil.DeclareSP(sds希望学科, "KH_基本入力_FRM_履歴最新希望学")
        With sds希望学科
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
        End With
    End Sub

#End Region

#Region "請求サブ(下側のタブ)関連"
    ''' <summary>
    ''' 全履歴セット
    ''' </summary>
    Private Sub Set全履歴()
        WebControlsUtil.DeclareSP(sds全履歴, "KH_基本入力_FRM_履歴全")
        With sds全履歴
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
        End With
    End Sub

    ''' <summary>
    ''' アクションセット
    ''' </summary>
    Private Sub Setアクション()
        WebControlsUtil.DeclareSP(sdsアクション, "KH_基本入力_FRM_履歴媒体")
        With sdsアクション
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
            .SelectParameters.Add("日付", DbType.DateTime, "")
            .SelectParameters.Add("連携KEY", DbType.Int32, "")
        End With
    End Sub

    ''' <summary>
    ''' アプローチセット
    ''' </summary>
    Private Sub Setアプローチ()
        WebControlsUtil.DeclareSP(sdsアプローチ, "KH_基本入力_FRM_履歴送付")
        With sdsアプローチ
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
        End With
    End Sub

    ''' <summary>
    ''' イベントセット
    ''' </summary>
    Private Sub Setイベント()
        WebControlsUtil.DeclareSP(sdsイベント, "KH_基本入力_FRM_履歴説明")
        With sdsイベント
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
            .SelectParameters.Add("日付", DbType.DateTime, "")
            .SelectParameters.Add("連携KEY", DbType.Int32, "")
        End With
    End Sub

    ''' <summary>
    ''' 出願情報セット
    ''' </summary>
    Private Sub Set出願情報()
        WebControlsUtil.DeclareSP(sds出願情報, "KH_基本入力_FRM_履歴出願")
        With sds出願情報
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
        End With
    End Sub

    ''' <summary>
    ''' 全希望学科セット
    ''' </summary>
    Private Sub Set全希望学科()
        WebControlsUtil.DeclareSP(sds全希望学科, "KH_基本入力_FRM_履歴希望学")
        With sds全希望学科
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
            .SelectParameters.Add("日付", DbType.DateTime, "")
            .SelectParameters.Add("連携KEY", DbType.Int32, "")
        End With
    End Sub

    ''' <summary>
    ''' 特記セット
    ''' </summary>
    Private Sub Set特記()
        WebControlsUtil.DeclareSP(sds特記, "募集_請求一覧_特記_SELECT")
        With sds特記
            .SelectParameters.Add("請求NO", DbType.Int32, _selectedStudent.請求No)
        End With
    End Sub

#End Region
#End Region

    
End Class
