Option Explicit
 
    Dim month_flg As Variant    '到来月対応編集フラグ
 
Public Sub 最優秀個人数量売上2()
    Dim ws As Worksheet         '管理シート
    Dim kj_ws As Worksheet      '個人別順位シート
    Dim folder As String        'フォルダー名
    Dim bname As String         '元データファイル名
    Dim sname As String         '元データファイルのシート名
    Dim full_bname As String    '元データファイル名フルパス
    Dim arv_month As Variant    '到来月
    Dim srcbook As Workbook     '元データブック
    Dim src_ws As Worksheet     '元データブックのシート
    Dim i As Long
    Dim num_array As Variant    '通番
    Dim col_array As Variant    '数量売上実績の相対列（0オリジン）
    Dim trgname As String
    num_array = Array("①", "②", "③", "④", "⑤", "⑥")
    col_array = Array(2, 2, 3, 2, 3, 3)
    Set ws = Worksheets("管理")
    folder = ws.Cells(3, "B").Value
    bname = ws.Cells(3, "C").Value
    sname = ws.Cells(3, "D").Value
    arv_month = ws.Cells(3, "E").Value
    '入力パラメータチェック
    Call CheckParams(folder, bname, arv_month, full_bname)
    If sname = "" Then
        MsgBox ("シート名エラー")
        Exit Sub
    End If
    If MsgBox("個人別順位シート①～⑥を作成します", vbOKCancel) <> vbOK Then
        Exit Sub
    End If
    Call set_month_flag(arv_month, month_flg)
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    '元データファイルのオープン
    Set srcbook = Workbooks.Open(full_bname)
    If check_sheet_name(sname) = False Then
        MsgBox ("シート名エラー(" & sname & ")は" & bname & "に存在しません")
        srcbook.Close
        Application.Calculation = xlCalculationAutomatic
        Exit Sub
    End If
    Set src_ws = Worksheets(sname)
    For i = 0 To UBound(num_array)
        trgname = "個人別" & num_array(i)
        Set kj_ws = ThisWorkbook.Worksheets(trgname)
        '抽出先シートクリア
        Call sheet_clear(kj_ws)
        '順位作成
        Call sheet_rank(kj_ws, src_ws, srcbook, num_array(i), col_array(i))
    Next
    '元データファイルのクローズ
    srcbook.Close
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox ("完了")
 
End Sub
 
'順位シートの設定
Private Sub sheet_rank(ByVal kj_ws As Worksheet, ByVal src_ws As Worksheet, ByVal wbook As Workbook, ByVal num As String, ByVal rel_col As Long)
    Dim wn1 As String       '作業シート名①
    Dim wk1 As Worksheet    '作業シート①
    Dim edt_row As Long     '元データの各人対応の編集行
    Dim src_col As Long     '元データの月インデックス対応の開始カラム位置
    Dim i As Long
    Dim ps As Long
    Dim wk_row As Long      '作業シートの行番号
    Dim wk_col As Long      '作業シートの月インデックス対応の開始カラム位置
    Dim maxrow As Long      '元データのG列最終行
    Dim maxps As Long       '最大担当者数
    ThisWorkbook.Activate
    wn1 = "作業①"
    Set wk1 = Worksheets(wn1)
    wk1.Cells.ClearContents
    wbook.Activate
    maxrow = src_ws.Cells(Rows.Count, "G").End(xlUp).Row    'sheetのG列最大行取得
    If maxrow < 34 Or ((maxrow - 3) Mod 31) <> 0 Then
        MsgBox ("元データG列の最終行不正")
        src_ws.Cells(maxrow, "G").Select
        Application.Calculation = xlCalculationAutomatic
        End
    End If
    maxps = (maxrow - 3) \ 31
    wk_row = 0
    '人数分繰り返す
    For ps = 1 To maxps
        edt_row = GetRowNo(ps, src_ws, num) '抽出対象の行を取得
        '抽出対象の行があった場合、処理する
        If edt_row <> 0 Then
            wk_row = wk_row + 1
            '全月分繰り返す
            For i = 0 To UBound(month_flg)
                '当該月インデックスの月が到来済みなら処理する
                If month_flg(i) = True Then
                    src_col = get_src_col_by_index(i)
                    wk_col = get_work_col_by_index(i)
                    If IsNumeric(src_ws.Cells(edt_row, src_col + rel_col).Value) = False Then
                        MsgBox ("数量売上不正")
                        src_ws.Cells(edt_row, src_col + rel_col).Select
                        Application.Calculation = xlCalculationAutomatic
                        End
                    End If
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col).Value = src_ws.Cells(edt_row, "B").Value                '拠点
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 1).Value = src_ws.Cells(edt_row, "C").Value            '課
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 2).Value = src_ws.Cells(edt_row, "D").Value            '担当者
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 3).Value = src_ws.Cells(edt_row, src_col + 1).Value
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 4).Value = src_ws.Cells(edt_row, src_col + 5).Value
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 5).Value = src_ws.Cells(edt_row, src_col + 7).Value
                    '追加開始 2019.03.14
                    If num = "④" Then
                        Dim prow As Long
                        prow = GetRowNo(ps, src_ws, "③") '③の抽出対象の行を取得
                        If prow <> 0 Then
                            ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 3).Value = src_ws.Cells(edt_row, src_col + 1).Value - src_ws.Cells(prow, src_col + 1).Value   '数量計画
                            ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 4).Value = src_ws.Cells(edt_row, src_col + 5).Value - src_ws.Cells(prow, src_col + 5).Value   '数量売上実績
                        End If
                    End If
                    '追加終了 2019.03.14
                    '対計画達成／未達成額 追加開始20190311
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 6).Value = _
                    ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 4).Value - ThisWorkbook.Worksheets(wn1).Cells(wk_row, wk_col + 3).Value
                    '対計画達成／未達成額 追加終了20190311
                End If
            Next
        End If
    Next
    ThisWorkbook.Activate
    Call sheet_rank_div(kj_ws, wk1, wk_row)  '個人別の順位設定
End Sub
'抽出対象の行番号を求める
'ps:担当者の番号(1～99)
Private Function GetRowNo(ByVal ps As Long, ByVal src_ws As Worksheet, ByVal num As String)
    Dim str_row As Long
    Dim wrow As Long
    Dim goukei As String
    goukei = num & "合計"
    str_row = (ps - 1) * 31 + 4
    For wrow = str_row To (str_row + 30)
        '支店／課／担当者／合計が空白でないなら処理する
        If src_ws.Cells(wrow, "B").Value <> "" And src_ws.Cells(wrow, "C").Value <> "" And src_ws.Cells(wrow, "D").Value <> "" And src_ws.Cells(wrow, "E").Value = goukei Then
            GetRowNo = wrow
            Exit Function
        End If
    Next
    GetRowNo = 0
End Function
'個人別の順位シートの設定
Private Sub sheet_rank_div(ByVal ws As Worksheet, ByVal wk As Worksheet, ByVal maxrow As Long)
    Dim i As Long
    Dim wk_col As Long      '作業シートの月インデックス対応の開始カラム位置
    Dim tr_col As Long      '順位シートの月インデックス対応の開始カラム位置
    Dim wk_row As Long      '作業シートの行番号
    Dim stcol As String
    Dim encol As String
    Dim keycol As String
    If maxrow = 0 Then Exit Sub
    '全月分繰り返す
    For i = 0 To UBound(month_flg)
        If month_flg(i) = True Then
            '作業シートを数量売上実績降順でソート
            wk_col = get_work_col_by_index(i)
            tr_col = get_trg_col_by_index(i)
            stcol = ConvertToLetter(wk_col)
            encol = ConvertToLetter(wk_col + 6)     '修正20190311
            keycol = ConvertToLetter(wk_col + 6)    '修正20190311
            wk.Range(stcol & "1:" & encol & maxrow).Sort key1:=wk.Range(keycol & "1"), order1:=xlDescending
            '順位シートへコピー
            For wk_row = 1 To maxrow
                ws.Cells(wk_row + 4, tr_col + 1).Value = wk.Cells(wk_row, wk_col).Value     '支店
                ws.Cells(wk_row + 4, tr_col + 2).Value = wk.Cells(wk_row, wk_col + 1).Value '課
                ws.Cells(wk_row + 4, tr_col + 3).Value = wk.Cells(wk_row, wk_col + 2).Value '担当者
                ws.Cells(wk_row + 4, tr_col + 4).Value = wk.Cells(wk_row, wk_col + 3).Value '数量売上計画
                ws.Cells(wk_row + 4, tr_col + 5).Value = wk.Cells(wk_row, wk_col + 4).Value '数量売上実績
                ws.Cells(wk_row + 4, tr_col + 6).Value = wk.Cells(wk_row, wk_col + 5).Value '対計画達成率
                ws.Cells(wk_row + 4, tr_col + 7).Value = wk.Cells(wk_row, wk_col + 6).Value '対計画達成／未達成額 追加20190311
            Next
        End If
    Next
End Sub
 
'順位表シートクリア
Private Sub sheet_clear(ByVal ws As Worksheet)
    Dim i As Long
    Dim scol As Long
    Dim wrow As Long
    Dim maxrow As Long
    maxrow = ws.Cells(Rows.Count, "A").End(xlUp).Row    'A列最大行取得
    For i = 0 To UBound(month_flg)
        For wrow = 5 To maxrow
            scol = get_trg_col_by_index(i)
            ws.Cells(wrow, scol + 1).Value = ""     '支店
            ws.Cells(wrow, scol + 2).Value = ""     '課・営業所
            ws.Cells(wrow, scol + 3).Value = ""     '担当者名
            ws.Cells(wrow, scol + 4).Value = ""     '数量売上計画
            ws.Cells(wrow, scol + 5).Value = ""     '数量売上実績
            ws.Cells(wrow, scol + 6).Value = ""     '対計画達成率
            ws.Cells(wrow, scol + 7).Value = ""     '対計画達成／未達成額   追加20190311
        Next
    Next
End Sub
'月のindexから先頭のカラム位置を取得（順位シート）
Private Function get_trg_col_by_index(ByVal mx As Long)
    get_trg_col_by_index = 1 + mx * 8
End Function
'月のindexから先頭のカラム位置を取得（作業シート）
Private Function get_work_col_by_index(ByVal mx As Long)
    get_work_col_by_index = 1 + mx * 7      '修正20190311
End Function
'月のindexから先頭のカラム位置を取得（元データファイルのシート）
Private Function get_src_col_by_index(ByVal mx As Long)
    get_src_col_by_index = 7 + mx * 8
End Function
 
 
 
 

T3B0aW9uIEV4cGxpY2l0CgogICAgRGltIG1vbnRoX2ZsZyBBcyBWYXJpYW50ICAgICfliLDmnaXmnIjlr77lv5znt6jpm4bjg5Xjg6njgrAKClB1YmxpYyBTdWIg5pyA5YSq56eA5YCL5Lq65pWw6YeP5aOy5LiKMigpCiAgICBEaW0gd3MgQXMgV29ya3NoZWV0ICAgICAgICAgJ+euoeeQhuOCt+ODvOODiAogICAgRGltIGtqX3dzIEFzIFdvcmtzaGVldCAgICAgICflgIvkurrliKXpoIbkvY3jgrfjg7zjg4gKICAgIERpbSBmb2xkZXIgQXMgU3RyaW5nICAgICAgICAn44OV44Kp44Or44OA44O85ZCNCiAgICBEaW0gYm5hbWUgQXMgU3RyaW5nICAgICAgICAgJ+WFg+ODh+ODvOOCv+ODleOCoeOCpOODq+WQjQogICAgRGltIHNuYW1lIEFzIFN0cmluZyAgICAgICAgICflhYPjg4fjg7zjgr/jg5XjgqHjgqTjg6vjga7jgrfjg7zjg4jlkI0KICAgIERpbSBmdWxsX2JuYW1lIEFzIFN0cmluZyAgICAn5YWD44OH44O844K/44OV44Kh44Kk44Or5ZCN44OV44Or44OR44K5CiAgICBEaW0gYXJ2X21vbnRoIEFzIFZhcmlhbnQgICAgJ+WIsOadpeaciAogICAgRGltIHNyY2Jvb2sgQXMgV29ya2Jvb2sgICAgICflhYPjg4fjg7zjgr/jg5bjg4Pjgq8KICAgIERpbSBzcmNfd3MgQXMgV29ya3NoZWV0ICAgICAn5YWD44OH44O844K/44OW44OD44Kv44Gu44K344O844OICiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gbnVtX2FycmF5IEFzIFZhcmlhbnQgICAgJ+mAmueVqgogICAgRGltIGNvbF9hcnJheSBBcyBWYXJpYW50ICAgICfmlbDph4/lo7LkuIrlrp/nuL7jga7nm7jlr77liJfvvIgw44Kq44Oq44K444Oz77yJCiAgICBEaW0gdHJnbmFtZSBBcyBTdHJpbmcKICAgIG51bV9hcnJheSA9IEFycmF5KCLikaAiLCAi4pGhIiwgIuKRoiIsICLikaMiLCAi4pGkIiwgIuKRpSIpCiAgICBjb2xfYXJyYXkgPSBBcnJheSgyLCAyLCAzLCAyLCAzLCAzKQogICAgU2V0IHdzID0gV29ya3NoZWV0cygi566h55CGIikKICAgIGZvbGRlciA9IHdzLkNlbGxzKDMsICJCIikuVmFsdWUKICAgIGJuYW1lID0gd3MuQ2VsbHMoMywgIkMiKS5WYWx1ZQogICAgc25hbWUgPSB3cy5DZWxscygzLCAiRCIpLlZhbHVlCiAgICBhcnZfbW9udGggPSB3cy5DZWxscygzLCAiRSIpLlZhbHVlCiAgICAn5YWl5Yqb44OR44Op44Oh44O844K/44OB44Kn44OD44KvCiAgICBDYWxsIENoZWNrUGFyYW1zKGZvbGRlciwgYm5hbWUsIGFydl9tb250aCwgZnVsbF9ibmFtZSkKICAgIElmIHNuYW1lID0gIiIgVGhlbgogICAgICAgIE1zZ0JveCAoIuOCt+ODvOODiOWQjeOCqOODqeODvCIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgSWYgTXNnQm94KCLlgIvkurrliKXpoIbkvY3jgrfjg7zjg4jikaDvvZ7ikaXjgpLkvZzmiJDjgZfjgb7jgZkiLCB2Yk9LQ2FuY2VsKSA8PiB2Yk9LIFRoZW4KICAgICAgICBFeGl0IFN1YgogICAgRW5kIElmCiAgICBDYWxsIHNldF9tb250aF9mbGFnKGFydl9tb250aCwgbW9udGhfZmxnKQogICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBGYWxzZQogICAgQXBwbGljYXRpb24uQ2FsY3VsYXRpb24gPSB4bENhbGN1bGF0aW9uTWFudWFsCiAgICAn5YWD44OH44O844K/44OV44Kh44Kk44Or44Gu44Kq44O844OX44OzCiAgICBTZXQgc3JjYm9vayA9IFdvcmtib29rcy5PcGVuKGZ1bGxfYm5hbWUpCiAgICBJZiBjaGVja19zaGVldF9uYW1lKHNuYW1lKSA9IEZhbHNlIFRoZW4KICAgICAgICBNc2dCb3ggKCLjgrfjg7zjg4jlkI3jgqjjg6njg7woIiAmIHNuYW1lICYgIinjga8iICYgYm5hbWUgJiAi44Gr5a2Y5Zyo44GX44G+44Gb44KTIikKICAgICAgICBzcmNib29rLkNsb3NlCiAgICAgICAgQXBwbGljYXRpb24uQ2FsY3VsYXRpb24gPSB4bENhbGN1bGF0aW9uQXV0b21hdGljCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgU2V0IHNyY193cyA9IFdvcmtzaGVldHMoc25hbWUpCiAgICBGb3IgaSA9IDAgVG8gVUJvdW5kKG51bV9hcnJheSkKICAgICAgICB0cmduYW1lID0gIuWAi+S6uuWIpSIgJiBudW1fYXJyYXkoaSkKICAgICAgICBTZXQga2pfd3MgPSBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyh0cmduYW1lKQogICAgICAgICfmir3lh7rlhYjjgrfjg7zjg4jjgq/jg6rjgqIKICAgICAgICBDYWxsIHNoZWV0X2NsZWFyKGtqX3dzKQogICAgICAgICfpoIbkvY3kvZzmiJAKICAgICAgICBDYWxsIHNoZWV0X3Jhbmsoa2pfd3MsIHNyY193cywgc3JjYm9vaywgbnVtX2FycmF5KGkpLCBjb2xfYXJyYXkoaSkpCiAgICBOZXh0CiAgICAn5YWD44OH44O844K/44OV44Kh44Kk44Or44Gu44Kv44Ot44O844K6CiAgICBzcmNib29rLkNsb3NlCiAgICBBcHBsaWNhdGlvbi5DYWxjdWxhdGlvbiA9IHhsQ2FsY3VsYXRpb25BdXRvbWF0aWMKICAgIEFwcGxpY2F0aW9uLlNjcmVlblVwZGF0aW5nID0gVHJ1ZQogICAgTXNnQm94ICgi5a6M5LqGIikKCkVuZCBTdWIKCifpoIbkvY3jgrfjg7zjg4jjga7oqK3lrpoKUHJpdmF0ZSBTdWIgc2hlZXRfcmFuayhCeVZhbCBral93cyBBcyBXb3Jrc2hlZXQsIEJ5VmFsIHNyY193cyBBcyBXb3Jrc2hlZXQsIEJ5VmFsIHdib29rIEFzIFdvcmtib29rLCBCeVZhbCBudW0gQXMgU3RyaW5nLCBCeVZhbCByZWxfY29sIEFzIExvbmcpCiAgICBEaW0gd24xIEFzIFN0cmluZyAgICAgICAn5L2c5qWt44K344O844OI5ZCN4pGgCiAgICBEaW0gd2sxIEFzIFdvcmtzaGVldCAgICAn5L2c5qWt44K344O844OI4pGgCiAgICBEaW0gZWR0X3JvdyBBcyBMb25nICAgICAn5YWD44OH44O844K/44Gu5ZCE5Lq65a++5b+c44Gu57eo6ZuG6KGMCiAgICBEaW0gc3JjX2NvbCBBcyBMb25nICAgICAn5YWD44OH44O844K/44Gu5pyI44Kk44Oz44OH44OD44Kv44K55a++5b+c44Gu6ZaL5aeL44Kr44Op44Og5L2N572uCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gcHMgQXMgTG9uZwogICAgRGltIHdrX3JvdyBBcyBMb25nICAgICAgJ+S9nOalreOCt+ODvOODiOOBruihjOeVquWPtwogICAgRGltIHdrX2NvbCBBcyBMb25nICAgICAgJ+S9nOalreOCt+ODvOODiOOBruaciOOCpOODs+ODh+ODg+OCr+OCueWvvuW/nOOBrumWi+Wni+OCq+ODqeODoOS9jee9rgogICAgRGltIG1heHJvdyBBcyBMb25nICAgICAgJ+WFg+ODh+ODvOOCv+OBrkfliJfmnIDntYLooYwKICAgIERpbSBtYXhwcyBBcyBMb25nICAgICAgICfmnIDlpKfmi4XlvZPogIXmlbAKICAgIFRoaXNXb3JrYm9vay5BY3RpdmF0ZQogICAgd24xID0gIuS9nOalreKRoCIKICAgIFNldCB3azEgPSBXb3Jrc2hlZXRzKHduMSkKICAgIHdrMS5DZWxscy5DbGVhckNvbnRlbnRzCiAgICB3Ym9vay5BY3RpdmF0ZQogICAgbWF4cm93ID0gc3JjX3dzLkNlbGxzKFJvd3MuQ291bnQsICJHIikuRW5kKHhsVXApLlJvdyAgICAnc2hlZXTjga5H5YiX5pyA5aSn6KGM5Y+W5b6XCiAgICBJZiBtYXhyb3cgPCAzNCBPciAoKG1heHJvdyAtIDMpIE1vZCAzMSkgPD4gMCBUaGVuCiAgICAgICAgTXNnQm94ICgi5YWD44OH44O844K/R+WIl+OBruacgOe1guihjOS4jeatoyIpCiAgICAgICAgc3JjX3dzLkNlbGxzKG1heHJvdywgIkciKS5TZWxlY3QKICAgICAgICBBcHBsaWNhdGlvbi5DYWxjdWxhdGlvbiA9IHhsQ2FsY3VsYXRpb25BdXRvbWF0aWMKICAgICAgICBFbmQKICAgIEVuZCBJZgogICAgbWF4cHMgPSAobWF4cm93IC0gMykgXCAzMQogICAgd2tfcm93ID0gMAogICAgJ+S6uuaVsOWIhue5sOOCiui/lOOBmQogICAgRm9yIHBzID0gMSBUbyBtYXhwcwogICAgICAgIGVkdF9yb3cgPSBHZXRSb3dObyhwcywgc3JjX3dzLCBudW0pICfmir3lh7rlr77osaHjga7ooYzjgpLlj5blvpcKICAgICAgICAn5oq95Ye65a++6LGh44Gu6KGM44GM44GC44Gj44Gf5aC05ZCI44CB5Yem55CG44GZ44KLCiAgICAgICAgSWYgZWR0X3JvdyA8PiAwIFRoZW4KICAgICAgICAgICAgd2tfcm93ID0gd2tfcm93ICsgMQogICAgICAgICAgICAn5YWo5pyI5YiG57mw44KK6L+U44GZCiAgICAgICAgICAgIEZvciBpID0gMCBUbyBVQm91bmQobW9udGhfZmxnKQogICAgICAgICAgICAgICAgJ+W9k+ipsuaciOOCpOODs+ODh+ODg+OCr+OCueOBruaciOOBjOWIsOadpea4iOOBv+OBquOCieWHpueQhuOBmeOCiwogICAgICAgICAgICAgICAgSWYgbW9udGhfZmxnKGkpID0gVHJ1ZSBUaGVuCiAgICAgICAgICAgICAgICAgICAgc3JjX2NvbCA9IGdldF9zcmNfY29sX2J5X2luZGV4KGkpCiAgICAgICAgICAgICAgICAgICAgd2tfY29sID0gZ2V0X3dvcmtfY29sX2J5X2luZGV4KGkpCiAgICAgICAgICAgICAgICAgICAgSWYgSXNOdW1lcmljKHNyY193cy5DZWxscyhlZHRfcm93LCBzcmNfY29sICsgcmVsX2NvbCkuVmFsdWUpID0gRmFsc2UgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICBNc2dCb3ggKCLmlbDph4/lo7LkuIrkuI3mraMiKQogICAgICAgICAgICAgICAgICAgICAgICBzcmNfd3MuQ2VsbHMoZWR0X3Jvdywgc3JjX2NvbCArIHJlbF9jb2wpLlNlbGVjdAogICAgICAgICAgICAgICAgICAgICAgICBBcHBsaWNhdGlvbi5DYWxjdWxhdGlvbiA9IHhsQ2FsY3VsYXRpb25BdXRvbWF0aWMKICAgICAgICAgICAgICAgICAgICAgICAgRW5kCiAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMod24xKS5DZWxscyh3a19yb3csIHdrX2NvbCkuVmFsdWUgPSBzcmNfd3MuQ2VsbHMoZWR0X3JvdywgIkIiKS5WYWx1ZSAgICAgICAgICAgICAgICAn5oug54K5CiAgICAgICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMod24xKS5DZWxscyh3a19yb3csIHdrX2NvbCArIDEpLlZhbHVlID0gc3JjX3dzLkNlbGxzKGVkdF9yb3csICJDIikuVmFsdWUgICAgICAgICAgICAn6KqyCiAgICAgICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMod24xKS5DZWxscyh3a19yb3csIHdrX2NvbCArIDIpLlZhbHVlID0gc3JjX3dzLkNlbGxzKGVkdF9yb3csICJEIikuVmFsdWUgICAgICAgICAgICAn5ouF5b2T6ICFCiAgICAgICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMod24xKS5DZWxscyh3a19yb3csIHdrX2NvbCArIDMpLlZhbHVlID0gc3JjX3dzLkNlbGxzKGVkdF9yb3csIHNyY19jb2wgKyAxKS5WYWx1ZQogICAgICAgICAgICAgICAgICAgIFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKHduMSkuQ2VsbHMod2tfcm93LCB3a19jb2wgKyA0KS5WYWx1ZSA9IHNyY193cy5DZWxscyhlZHRfcm93LCBzcmNfY29sICsgNSkuVmFsdWUKICAgICAgICAgICAgICAgICAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyh3bjEpLkNlbGxzKHdrX3Jvdywgd2tfY29sICsgNSkuVmFsdWUgPSBzcmNfd3MuQ2VsbHMoZWR0X3Jvdywgc3JjX2NvbCArIDcpLlZhbHVlCiAgICAgICAgICAgICAgICAgICAgJ+i/veWKoOmWi+WniyAyMDE5LjAzLjE0CiAgICAgICAgICAgICAgICAgICAgSWYgbnVtID0gIuKRoyIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICBEaW0gcHJvdyBBcyBMb25nCiAgICAgICAgICAgICAgICAgICAgICAgIHByb3cgPSBHZXRSb3dObyhwcywgc3JjX3dzLCAi4pGiIikgJ+KRouOBruaKveWHuuWvvuixoeOBruihjOOCkuWPluW+lwogICAgICAgICAgICAgICAgICAgICAgICBJZiBwcm93IDw+IDAgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgVGhpc1dvcmtib29rLldvcmtzaGVldHMod24xKS5DZWxscyh3a19yb3csIHdrX2NvbCArIDMpLlZhbHVlID0gc3JjX3dzLkNlbGxzKGVkdF9yb3csIHNyY19jb2wgKyAxKS5WYWx1ZSAtIHNyY193cy5DZWxscyhwcm93LCBzcmNfY29sICsgMSkuVmFsdWUgICAn5pWw6YeP6KiI55S7CiAgICAgICAgICAgICAgICAgICAgICAgICAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyh3bjEpLkNlbGxzKHdrX3Jvdywgd2tfY29sICsgNCkuVmFsdWUgPSBzcmNfd3MuQ2VsbHMoZWR0X3Jvdywgc3JjX2NvbCArIDUpLlZhbHVlIC0gc3JjX3dzLkNlbGxzKHByb3csIHNyY19jb2wgKyA1KS5WYWx1ZSAgICfmlbDph4/lo7LkuIrlrp/nuL4KICAgICAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgJ+i/veWKoOe1guS6hiAyMDE5LjAzLjE0CiAgICAgICAgICAgICAgICAgICAgJ+WvvuioiOeUu+mBlOaIkO+8j+acqumBlOaIkOmhjSDov73liqDplovlp4syMDE5MDMxMQogICAgICAgICAgICAgICAgICAgIFRoaXNXb3JrYm9vay5Xb3Jrc2hlZXRzKHduMSkuQ2VsbHMod2tfcm93LCB3a19jb2wgKyA2KS5WYWx1ZSA9IF8KICAgICAgICAgICAgICAgICAgICBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyh3bjEpLkNlbGxzKHdrX3Jvdywgd2tfY29sICsgNCkuVmFsdWUgLSBUaGlzV29ya2Jvb2suV29ya3NoZWV0cyh3bjEpLkNlbGxzKHdrX3Jvdywgd2tfY29sICsgMykuVmFsdWUKICAgICAgICAgICAgICAgICAgICAn5a++6KiI55S76YGU5oiQ77yP5pyq6YGU5oiQ6aGNIOi/veWKoOe1guS6hjIwMTkwMzExCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgTmV4dAogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgVGhpc1dvcmtib29rLkFjdGl2YXRlCiAgICBDYWxsIHNoZWV0X3JhbmtfZGl2KGtqX3dzLCB3azEsIHdrX3JvdykgICflgIvkurrliKXjga7poIbkvY3oqK3lrpoKRW5kIFN1Ygon5oq95Ye65a++6LGh44Gu6KGM55Wq5Y+344KS5rGC44KB44KLCidwczrmi4XlvZPogIXjga7nlarlj7coMe+9njk5KQpQcml2YXRlIEZ1bmN0aW9uIEdldFJvd05vKEJ5VmFsIHBzIEFzIExvbmcsIEJ5VmFsIHNyY193cyBBcyBXb3Jrc2hlZXQsIEJ5VmFsIG51bSBBcyBTdHJpbmcpCiAgICBEaW0gc3RyX3JvdyBBcyBMb25nCiAgICBEaW0gd3JvdyBBcyBMb25nCiAgICBEaW0gZ291a2VpIEFzIFN0cmluZwogICAgZ291a2VpID0gbnVtICYgIuWQiOioiCIKICAgIHN0cl9yb3cgPSAocHMgLSAxKSAqIDMxICsgNAogICAgRm9yIHdyb3cgPSBzdHJfcm93IFRvIChzdHJfcm93ICsgMzApCiAgICAgICAgJ+aUr+W6l++8j+iqsu+8j+aLheW9k+iAhe+8j+WQiOioiOOBjOepuueZveOBp+OBquOBhOOBquOCieWHpueQhuOBmeOCiwogICAgICAgIElmIHNyY193cy5DZWxscyh3cm93LCAiQiIpLlZhbHVlIDw+ICIiIEFuZCBzcmNfd3MuQ2VsbHMod3JvdywgIkMiKS5WYWx1ZSA8PiAiIiBBbmQgc3JjX3dzLkNlbGxzKHdyb3csICJEIikuVmFsdWUgPD4gIiIgQW5kIHNyY193cy5DZWxscyh3cm93LCAiRSIpLlZhbHVlID0gZ291a2VpIFRoZW4KICAgICAgICAgICAgR2V0Um93Tm8gPSB3cm93CiAgICAgICAgICAgIEV4aXQgRnVuY3Rpb24KICAgICAgICBFbmQgSWYKICAgIE5leHQKICAgIEdldFJvd05vID0gMApFbmQgRnVuY3Rpb24KJ+WAi+S6uuWIpeOBrumghuS9jeOCt+ODvOODiOOBruioreWumgpQcml2YXRlIFN1YiBzaGVldF9yYW5rX2RpdihCeVZhbCB3cyBBcyBXb3Jrc2hlZXQsIEJ5VmFsIHdrIEFzIFdvcmtzaGVldCwgQnlWYWwgbWF4cm93IEFzIExvbmcpCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gd2tfY29sIEFzIExvbmcgICAgICAn5L2c5qWt44K344O844OI44Gu5pyI44Kk44Oz44OH44OD44Kv44K55a++5b+c44Gu6ZaL5aeL44Kr44Op44Og5L2N572uCiAgICBEaW0gdHJfY29sIEFzIExvbmcgICAgICAn6aCG5L2N44K344O844OI44Gu5pyI44Kk44Oz44OH44OD44Kv44K55a++5b+c44Gu6ZaL5aeL44Kr44Op44Og5L2N572uCiAgICBEaW0gd2tfcm93IEFzIExvbmcgICAgICAn5L2c5qWt44K344O844OI44Gu6KGM55Wq5Y+3CiAgICBEaW0gc3Rjb2wgQXMgU3RyaW5nCiAgICBEaW0gZW5jb2wgQXMgU3RyaW5nCiAgICBEaW0ga2V5Y29sIEFzIFN0cmluZwogICAgSWYgbWF4cm93ID0gMCBUaGVuIEV4aXQgU3ViCiAgICAn5YWo5pyI5YiG57mw44KK6L+U44GZCiAgICBGb3IgaSA9IDAgVG8gVUJvdW5kKG1vbnRoX2ZsZykKICAgICAgICBJZiBtb250aF9mbGcoaSkgPSBUcnVlIFRoZW4KICAgICAgICAgICAgJ+S9nOalreOCt+ODvOODiOOCkuaVsOmHj+WjsuS4iuWun+e4vumZjemghuOBp+OCveODvOODiAogICAgICAgICAgICB3a19jb2wgPSBnZXRfd29ya19jb2xfYnlfaW5kZXgoaSkKICAgICAgICAgICAgdHJfY29sID0gZ2V0X3RyZ19jb2xfYnlfaW5kZXgoaSkKICAgICAgICAgICAgc3Rjb2wgPSBDb252ZXJ0VG9MZXR0ZXIod2tfY29sKQogICAgICAgICAgICBlbmNvbCA9IENvbnZlcnRUb0xldHRlcih3a19jb2wgKyA2KSAgICAgJ+S/ruatozIwMTkwMzExCiAgICAgICAgICAgIGtleWNvbCA9IENvbnZlcnRUb0xldHRlcih3a19jb2wgKyA2KSAgICAn5L+u5q2jMjAxOTAzMTEKICAgICAgICAgICAgd2suUmFuZ2Uoc3Rjb2wgJiAiMToiICYgZW5jb2wgJiBtYXhyb3cpLlNvcnQga2V5MTo9d2suUmFuZ2Uoa2V5Y29sICYgIjEiKSwgb3JkZXIxOj14bERlc2NlbmRpbmcKICAgICAgICAgICAgJ+mghuS9jeOCt+ODvOODiOOBuOOCs+ODlOODvAogICAgICAgICAgICBGb3Igd2tfcm93ID0gMSBUbyBtYXhyb3cKICAgICAgICAgICAgICAgIHdzLkNlbGxzKHdrX3JvdyArIDQsIHRyX2NvbCArIDEpLlZhbHVlID0gd2suQ2VsbHMod2tfcm93LCB3a19jb2wpLlZhbHVlICAgICAn5pSv5bqXCiAgICAgICAgICAgICAgICB3cy5DZWxscyh3a19yb3cgKyA0LCB0cl9jb2wgKyAyKS5WYWx1ZSA9IHdrLkNlbGxzKHdrX3Jvdywgd2tfY29sICsgMSkuVmFsdWUgJ+iqsgogICAgICAgICAgICAgICAgd3MuQ2VsbHMod2tfcm93ICsgNCwgdHJfY29sICsgMykuVmFsdWUgPSB3ay5DZWxscyh3a19yb3csIHdrX2NvbCArIDIpLlZhbHVlICfmi4XlvZPogIUKICAgICAgICAgICAgICAgIHdzLkNlbGxzKHdrX3JvdyArIDQsIHRyX2NvbCArIDQpLlZhbHVlID0gd2suQ2VsbHMod2tfcm93LCB3a19jb2wgKyAzKS5WYWx1ZSAn5pWw6YeP5aOy5LiK6KiI55S7CiAgICAgICAgICAgICAgICB3cy5DZWxscyh3a19yb3cgKyA0LCB0cl9jb2wgKyA1KS5WYWx1ZSA9IHdrLkNlbGxzKHdrX3Jvdywgd2tfY29sICsgNCkuVmFsdWUgJ+aVsOmHj+WjsuS4iuWun+e4vgogICAgICAgICAgICAgICAgd3MuQ2VsbHMod2tfcm93ICsgNCwgdHJfY29sICsgNikuVmFsdWUgPSB3ay5DZWxscyh3a19yb3csIHdrX2NvbCArIDUpLlZhbHVlICflr77oqIjnlLvpgZTmiJDnjocKICAgICAgICAgICAgICAgIHdzLkNlbGxzKHdrX3JvdyArIDQsIHRyX2NvbCArIDcpLlZhbHVlID0gd2suQ2VsbHMod2tfcm93LCB3a19jb2wgKyA2KS5WYWx1ZSAn5a++6KiI55S76YGU5oiQ77yP5pyq6YGU5oiQ6aGNIOi/veWKoDIwMTkwMzExCiAgICAgICAgICAgIE5leHQKICAgICAgICBFbmQgSWYKICAgIE5leHQKRW5kIFN1YgoKJ+mghuS9jeihqOOCt+ODvOODiOOCr+ODquOCogpQcml2YXRlIFN1YiBzaGVldF9jbGVhcihCeVZhbCB3cyBBcyBXb3Jrc2hlZXQpCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gc2NvbCBBcyBMb25nCiAgICBEaW0gd3JvdyBBcyBMb25nCiAgICBEaW0gbWF4cm93IEFzIExvbmcKICAgIG1heHJvdyA9IHdzLkNlbGxzKFJvd3MuQ291bnQsICJBIikuRW5kKHhsVXApLlJvdyAgICAnQeWIl+acgOWkp+ihjOWPluW+lwogICAgRm9yIGkgPSAwIFRvIFVCb3VuZChtb250aF9mbGcpCiAgICAgICAgRm9yIHdyb3cgPSA1IFRvIG1heHJvdwogICAgICAgICAgICBzY29sID0gZ2V0X3RyZ19jb2xfYnlfaW5kZXgoaSkKICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDEpLlZhbHVlID0gIiIgICAgICfmlK/lupcKICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDIpLlZhbHVlID0gIiIgICAgICfoqrLjg7vllrbmpa3miYAKICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDMpLlZhbHVlID0gIiIgICAgICfmi4XlvZPogIXlkI0KICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDQpLlZhbHVlID0gIiIgICAgICfmlbDph4/lo7LkuIroqIjnlLsKICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDUpLlZhbHVlID0gIiIgICAgICfmlbDph4/lo7LkuIrlrp/nuL4KICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDYpLlZhbHVlID0gIiIgICAgICflr77oqIjnlLvpgZTmiJDnjocKICAgICAgICAgICAgd3MuQ2VsbHMod3Jvdywgc2NvbCArIDcpLlZhbHVlID0gIiIgICAgICflr77oqIjnlLvpgZTmiJDvvI/mnKrpgZTmiJDpoY0gICDov73liqAyMDE5MDMxMQogICAgICAgIE5leHQKICAgIE5leHQKRW5kIFN1Ygon5pyI44GuaW5kZXjjgYvjgonlhYjpoK3jga7jgqvjg6njg6DkvY3nva7jgpLlj5blvpfvvIjpoIbkvY3jgrfjg7zjg4jvvIkKUHJpdmF0ZSBGdW5jdGlvbiBnZXRfdHJnX2NvbF9ieV9pbmRleChCeVZhbCBteCBBcyBMb25nKQogICAgZ2V0X3RyZ19jb2xfYnlfaW5kZXggPSAxICsgbXggKiA4CkVuZCBGdW5jdGlvbgon5pyI44GuaW5kZXjjgYvjgonlhYjpoK3jga7jgqvjg6njg6DkvY3nva7jgpLlj5blvpfvvIjkvZzmpa3jgrfjg7zjg4jvvIkKUHJpdmF0ZSBGdW5jdGlvbiBnZXRfd29ya19jb2xfYnlfaW5kZXgoQnlWYWwgbXggQXMgTG9uZykKICAgIGdldF93b3JrX2NvbF9ieV9pbmRleCA9IDEgKyBteCAqIDcgICAgICAn5L+u5q2jMjAxOTAzMTEKRW5kIEZ1bmN0aW9uCifmnIjjga5pbmRleOOBi+OCieWFiOmgreOBruOCq+ODqeODoOS9jee9ruOCkuWPluW+l++8iOWFg+ODh+ODvOOCv+ODleOCoeOCpOODq+OBruOCt+ODvOODiO+8iQpQcml2YXRlIEZ1bmN0aW9uIGdldF9zcmNfY29sX2J5X2luZGV4KEJ5VmFsIG14IEFzIExvbmcpCiAgICBnZXRfc3JjX2NvbF9ieV9pbmRleCA9IDcgKyBteCAqIDgKRW5kIEZ1bmN0aW9uCgoKCg==