Option Explicit
'集計メニューモジュール


'集計：年末調整：配偶者特別控除額の計算
Public Sub CalculateHaigusya()

    If gstrName = "" Then GoTo ErrorProc
    '配偶者特別控除額計算フォーム
    frmHaigusya.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"
    
End Sub

'集計：年末調整：保険料控除等/住宅取得控除
Public Sub LetHoken()

    If gstrName = "" Then GoTo ErrorProc
    '保険料控除/住宅取得控除
    frmHoken.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub

'集計：年末調整：前職分源泉徴収票
Public Sub LetZensyoku()

    If gstrName = "" Then GoTo ErrorProc
    '前職分源泉徴収票
    frmZensyoku.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub

'集計：年末調整：年末調整実行
Public Sub CalculateNentyo()
    
    If gstrName = "" Then GoTo ErrorProc
    If Workbooks(gstrName).Worksheets("Sheet5").Cells(1, 1).Value = "" Then GoTo BlankError
    '年末調整実行
    frmNenmatu.Show
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"
    Exit Sub
    
BlankError:

    MsgBox "給与賞与データがありません。" & vbCrLf & "確認して下さい。", 48 + 0, "給与計算システム"
    
End Sub

'集計：源泉徴収高計算書
Public Sub GensenTyousyu()

    If gstrName = "" Then GoTo BlankError
    '源泉徴収高計算書
    frmGensen.Show
    Exit Sub
    
BlankError:

    MsgBox "給与賞与データがありません。" & vbCrLf & "確認して下さい。", 48 + 0, "給与計算システム"

End Sub