Imports Microsoft.VisualBasic.FileIO

Module Module2
    Public Const gMsgTitle As String = "Sawai-Coffee"
    Public ErrFlg As Boolean
    Public CsvFolder As String
    Public Jogai_Dic As New Dictionary(Of String, String)
    Public Pet_Dic As New Dictionary(Of String, String)
    Public Omake_Dic As New Dictionary(Of String, String)
    Public Drip_Dic As New Dictionary(Of String, String)
    Public Const Csv_Jogai = "jogai.txt"
    Public Const Csv_Pet = "pet.txt"
    Public Const Csv_Omake = "omake_honsya.txt"
    Public Const Csv_Drip = "drip.txt"
    Public Const Csv_Dates = "datas.csv"
    Public Const CSV_Outorder = "out_order.csv"
    Public Const CSV_Order = "order_list.txt"

    Function Read_CsvFile() As Boolean
        ErrFlg = False

        Try
            '自分自身の存在するフォルダ  
            Dim strPath As String = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
            'INIファイルクラスの生成  
            Dim strTxet As String = ""
            'INIファイルクラスの生成  
            Dim Ini As New ini_Setting(strPath)
            'CSV格納フォルダ
            Dim strCsvFolder As String = Ini.GetProfileString("CSV", "FOLDER", "")
            'CSV待避先フォルダ
            Dim strBackFolder As String = strCsvFolder & "BACK\"

            '除外ファイル読込
            Dim Srm_J As New IO.StreamReader(strCsvFolder + Csv_Jogai)
            Dim Srm_P As New IO.StreamReader(strCsvFolder + Csv_Pet)
            Dim Srm_O As New IO.StreamReader(strCsvFolder + Csv_Omake)
            Dim Srm_D As New IO.StreamReader(strCsvFolder + Csv_Drip)
            CsvFolder = strCsvFolder
            Do While Srm_J.EndOfStream = False
                strTxet = Srm_J.ReadLine
                If Jogai_Dic.ContainsKey(strTxet) = False Then
                    Jogai_Dic.Add(strTxet, "除外")
                End If
            Loop
            Srm_J.Close()

            'Petファイル読込
            Do While Srm_P.EndOfStream = False
                strTxet = Srm_P.ReadLine
                If Pet_Dic.ContainsKey(strTxet) = False Then
                    Pet_Dic.Add(strTxet, "pet")
                End If
            Loop
            Srm_P.Close()

            'omakeファイル読込
            Do While Srm_O.EndOfStream = False
                strTxet = Srm_O.ReadLine
                If Omake_Dic.ContainsKey(strTxet) = False Then
                    Omake_Dic.Add(strTxet, "omake")
                End If
            Loop
            Srm_O.Close()

            'Dripファイル読込
            Do While Srm_D.EndOfStream = False
                strTxet = Srm_D.ReadLine
                If Drip_Dic.ContainsKey(strTxet) = False Then
                    Drip_Dic.Add(strTxet, "drip")
                End If
            Loop
            Srm_D.Close()
            Srm_J.Dispose()
            Srm_P.Dispose()
            Srm_O.Dispose()
            Srm_D.Dispose()

            Return (True)
        Catch ex As MallCsvCodeException
            MessageBox.Show(ex.Message, "CSVエラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ErrFlg = True
            Return Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ErrFlg = True
            Return Nothing
        End Try
    End Function
    Public Class MallCsvCodeException
        Inherits ApplicationException
        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub
    End Class
    Public Class ReadDatasCsv
        Public strPassName As String
        Public Sub New(ByVal strName As String)
            strPassName = strName
        End Sub
        Public Function Read_Start() As DataTable
            Try
                Using parser As New TextFieldParser(strPassName,
                                            System.Text.Encoding.GetEncoding("Shift_JIS"))
                    Dim dt As DataTable = New DataTable("Datas")
                    Dim mRow As DataRow = dt.NewRow()
                    Dim strwkarray() As String
                    Dim wkstrsyohin As String = ""
                    Dim wkstr As String = ""
                    Dim iarraycnt As Integer = 0
                    Dim Cnt As Integer = 1
                    Dim data As New List(Of String)
                    parser.TextFieldType = FieldType.Delimited
                    parser.SetDelimiters(",") '区切り文字はコンマ
                    Do Until parser.EndOfData
                        Dim row As String() = parser.ReadFields() '１行ずつ読む
                        Dim i As Integer = 0
                        For Each field As String In row
                            field = field.Replace(vbCrLf, "") '改行コードの削除
                            If Cnt = 1 Then           'Column情報セット
                                dt.Columns.Add("jyunum", Type.GetType("System.String"))
                                dt.Columns.Add("syohincode", Type.GetType("System.String"))
                                dt.Columns.Add("kosuu", Type.GetType("System.Int32")) '2
                                dt.Columns.Add("ondo", Type.GetType("System.String")) '3
                                dt.Columns.Add("haisou", Type.GetType("System.String"))  '4
                                dt.Columns.Add("kessai", Type.GetType("System.String"))  '5
                                dt.Columns.Add("sijimemo", Type.GetType("System.String")) '6
                                dt.Columns.Add("hinmei", Type.GetType("System.String"))    '7
                                dt.Columns.Add("soufukensu", Type.GetType("System.Int32"))  '8
                                dt.Columns.Add("tensuu", Type.GetType("System.Int32"))     '9
                                dt.Columns.Add("soufunumber", Type.GetType("System.String")) '10
                                dt.Columns.Add("junni", Type.GetType("System.String"))        '11
                                dt.Columns.Add("key_syohincode", Type.GetType("System.String")) '12
                                dt.Columns.Add("branch", Type.GetType("System.String"))         '13
                                Cnt += 1
                            End If

                            mRow(i) = field  '値のセット
                            i = i + 1

                        Next
                        wkstrsyohin = mRow(1)
                        If InStr(wkstrsyohin, "-") Then  '枝番有
                            strwkarray = Split(wkstrsyohin, "-")
                            iarraycnt = UBound(strwkarray)
                            wkstr = strwkarray(iarraycnt)
                            Select Case wkstr
                                Case "m", "a", "n", "h", "e", "x"
                                    wkstrsyohin = Mid(wkstrsyohin, 1, Len(wkstrsyohin) - 2)
                                Case "nh", "xx"
                                    wkstrsyohin = Mid(wkstrsyohin, 1, Len(wkstrsyohin) - 3)
                                Case Else
                                    wkstr = ""
                            End Select
                        End If
                        mRow(12) = wkstrsyohin '商品コード枝番抜き値のセット
                        mRow(13) = wkstr '枝番
                        dt.Rows.Add(mRow)
                        mRow = dt.NewRow '新しい行をセット
                    Loop
                    If dt.Rows.Count = 0 Then
                        Throw New MallCsvCodeException("該当するデータはありませんでした。")
                    End If
                    Return dt
                End Using
            Catch ex As MallCsvCodeException
                MessageBox.Show(ex.Message, "CSVエラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return Nothing
            Catch ex As Exception
                MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return Nothing
            End Try
        End Function

        Public Function Out_Order_Put(ByRef Order_data As DataTable) As Boolean
            'CSVファイルに書き込むときに使うEncoding
            Try
                Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")

                '書き込むファイルを開く
                Dim sr As New System.IO.StreamWriter(CsvFolder & CSV_Outorder, False, enc)

                Dim iRecCount As Integer = 1
                Dim Stryuusen As String = "1"
                Dim strfield As String = ""
                Dim Sel_Row As DataRow()
                Sel_Row = Order_data.Select("yuusenNO = '" & Stryuusen & "'", "out_order")
                If Sel_Row.Count = 0 Then
                    sr.Close()
                    Sel_Row = Nothing
                    Return True
                End If
                Do Until iRecCount = Sel_Row.Count
                    strfield = Sel_Row(iRecCount).ItemArray(8) & "," & Trim(Str(iRecCount)) & vbCrLf '8: 受注番号送付先番号
                    'Order_data更新　　指示書番号
                    Sel_Row(iRecCount - 1)("out_order") = Format(iRecCount, "#")
                    'フィールドを書き込む
                    sr.Write(strfield)
                    iRecCount = iRecCount + 1
                Loop
                '閉じる
                sr.Close()
                Sel_Row = Nothing

                Return True

            Catch ex As MallCsvCodeException
                MessageBox.Show(ex.Message, "CSVエラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return False
            Catch ex As Exception
                MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return False
            End Try
        End Function
        Function Order_List_Put(ByVal Order_data As DataTable) As Boolean
            'CSVファイルに書き込むときに使うEncoding
            Try
                Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")

                '書き込むファイルを開く
                Dim sr As New System.IO.StreamWriter(CsvFolder & CSV_Order, False, enc)

                Dim iRecCount As Integer = 1
                Dim iPutcnt As Integer = 0
                Dim Stryuusen As String = "1"
                Dim strpriority As String = ""
                Dim strwkHead As String = ""
                Dim strpriority_head = "000891"
                Dim strfield As String = ""
                Dim now_kbn As String = ""
                Dim now_scode As String = ""
                Dim now_dflg As String = ""
                Dim pre_kbn As String = ""
                Dim pre_scode As String = ""
                Dim pre_dflg As String = ""
                Dim pre_idx As String = ""
                Dim pre_product_name As String = ""
                Dim sijisyo_num As Integer = 1
                Dim strPrint As String = ""
                Dim strPrintadd As String = ""
                Dim Sel_Row As DataRow()
                Dim lwksjinum As Long = 0
                Dim lnow_sijinum As Long = 0

                Sel_Row = Order_data.Select("yuusenNO = '" & Stryuusen & "'", "out_order")
                If Sel_Row.Count = 0 Then 'データなし
                    sr.Close()
                    Sel_Row = Nothing
                    Return True
                End If
                'タイトル出力
                strfield = "本集計（ざっくり工場別単品一覧）" & vbCrLf
                sr.Write(strfield)
                Do Until iRecCount = Sel_Row.Count
                    strpriority = Sel_Row(iRecCount).ItemArray(11)

                    strwkHead = Mid(strpriority, 1, 6)
                    '7桁目 商品区分
                    '9桁目から5レングス　　商品コード
                    '8桁目　同梱フラグ
                    If strpriority_head = strwkHead Then
                        If iPutcnt = 0 Then '1件目　キー項目セット
                            pre_kbn = Mid(strpriority, 7, 1)
                            pre_scode = Mid(strpriority, 9, 5)
                            pre_dflg = Mid(strpriority, 8, 1)
                            now_kbn = Mid(strpriority, 7, 1)
                            now_scode = Mid(strpriority, 9, 5)
                            now_dflg = Mid(strpriority, 8, 1)
                            sijisyo_num = Sel_Row(iRecCount).ItemArray(12)
                            pre_scode = now_scode
                            pre_idx = sijisyo_num
                            pre_dflg = now_dflg
                            pre_idx = Sel_Row(iRecCount).ItemArray(6)
                            pre_product_name = Sel_Row(iRecCount).ItemArray(13)
                        Else
                            now_kbn = Mid(strpriority, 7, 1)
                            now_scode = Mid(strpriority, 9, 5)
                            now_dflg = Mid(strpriority, 8, 1)
                        End If
                        If pre_dflg <> "" Then _
                            ' 直前の注文がリキッドのみかD/Cのみのとき
                            If pre_kbn = "0" Or pre_kbn = "1" Then
                                ' 同梱フラグが異なるか、直前の注文と区分が異なるとき
                                If pre_dflg <> now_dflg Or pre_kbn <> now_kbn Then
                                    Select Case pre_kbn
                                        Case "0"
                                            'lf.puts "リキッドのみ"
                                            strPrintadd = "リキッドのみ"
                                        Case "1"
                                            'lf.puts "D/Cのみ"
                                            strPrintadd = "D/Cのみ"
                                    End Select
                                    Select Case pre_dflg
                                        Case "0"
                                            'lf.print "%4d"..."%4d：（単品）" % [ pre_idx, sijisyo_num - 1]
                                            strPrint = Format(Val(pre_idx), "####") + "..." + Format(sijisyo_num - 1, "####") + "：（単品）" + strPrintadd
                                        Case "1"
                                            'lf.print "%4d...%4d：（同梱）" % [ pre_idx, sijisyo_num - 1]
                                            strPrint = Format(Val(pre_idx), "####") + "..." + Format(sijisyo_num - 1, "####") + "：（同梱）" + strPrintadd
                                    End Select
                                End If
                            End If
                        End If
                        pre_dflg = now_dflg
                        pre_idx = sijisyo_num

                        If pre_kbn <> "" Then
                            If now_kbn <> pre_kbn Then
                                Select Case pre_kbn
                                    Case "0"
                                        'lf.puts "%4d...%4d：リキッドのみ" % [ pre_idx, sijisyo_num-1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッドのみ"
                                    Case "1"
                                        'lf.puts "%4d...%4d：D/Cのみ" % [ pre_idx, sijisyo_num-1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッドのみ"
                                    Case "2"
                                        'lf.puts "%4d...%4d：リキッド+D/C" % [ pre_idx, sijisyo_num - 1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッド+D/C"
                                    Case "3"
                                        'lf.puts "%4d...%4d：リキッドと本社" % [ pre_idx, sijisyo_num - 1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッドと本社"
                                    Case "4"
                                        'lf.puts "%4d...%4d：D/Cと本社" % [ pre_idx, sijisyo_num - 1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：D/Cと本社"
                                End Select
                            End If
                        End If
                        pre_kbn = now_kbn
                        pre_idx = sijisyo_num

                        If now_kbn = "6" Then
                            If pre_scode <> "" Then
                                If pre_scode <> now_scode Then
                                    If now_dflg = "0" Or (pre_dflg = "0" And now_dflg = "1") Then
                                        If pre_idx <> sijisyo_num - 1 Then
                                            'lf.puts "%4d...%4d：%s" % [ pre_idx, sijisyo_num - 1, pre_product_name]
                                            strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num - 1), "####") + "：" + pre_product_name
                                        Else
                                            'lf.puts "%7s%4d：%s" % [ "", pre_idx, pre_product_name]
                                            strPrint = Space(7) + Format(Val(pre_idx), "####") + "：" + pre_product_name
                                        End If
                                    End If
                                End If
                            End If
                        End If






                        pre_scode = now_scode
                        pre_idx = sijisyo_num
                        pre_dflg = now_dflg
                        lwksjinum = Val(Sel_Row(iRecCount).ItemArray(6))
                        lnow_sijinum = Val(sijisyo_num)
                        lnow_sijinum = lnow_sijinum + lwksjinum
                        sijisyo_num = Format(lnow_sijinum, "0")
                        pre_product_name = Sel_Row(iRecCount).ItemArray(13)
                        If iPutcnt > 0 And strPrint <> "" Then
                            sr.Write(strPrint & vbCrLf)
                            strPrint = ""
                            iPutcnt = iPutcnt + 1
                        Else
                            iPutcnt = iPutcnt + 1
                        End If
                    End If
                    iRecCount = iRecCount + 1
                Loop
                '閉じる
                sr.Close()
                Sel_Row = Nothing

                Return True



            Catch ex As MallCsvCodeException
                MessageBox.Show(ex.Message, "CSVエラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return False
            Catch ex As Exception
                MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return False
            End Try

        End Function
        Function Order_SOUGOUNO_Put(ByVal Order_data As DataTable) As Boolean
            'CSVファイルに書き込むときに使うEncoding
            Try
                Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")

                '書き込むファイルを開く
                Dim sr As New System.IO.StreamWriter(CsvFolder & CSV_Order, False, enc)

                Dim iRecCount As Integer = 1
                Dim iPutcnt As Integer = 0
                Dim Stryuusen As String = "1"
                Dim strpriority As String = ""
                Dim strwkHead As String = ""
                Dim strpriority_head = "000891"
                Dim strfield As String = ""
                Dim now_kbn As String = ""
                Dim now_scode As String = ""
                Dim now_dflg As String = ""
                Dim pre_kbn As String = ""
                Dim pre_scode As String = ""
                Dim pre_dflg As String = ""
                Dim pre_idx As String = ""
                Dim pre_product_name As String = ""
                Dim sijisyo_num As Integer = 1
                Dim strPrint As String = ""
                Dim strPrintadd As String = ""
                Dim Sel_Row As DataRow()
                Dim lwksjinum As Long = 0
                Dim lnow_sijinum As Long = 0

                Sel_Row = Order_data.Select("yuusenNO = '" & Stryuusen & "'", "out_order")
                If Sel_Row.Count = 0 Then 'データなし
                    sr.Close()
                    Sel_Row = Nothing
                    Return True
                End If
                'タイトル出力
                strfield = "総合番号" & vbCrLf
                sr.Write(strfield)
                Do Until iRecCount = Sel_Row.Count
                    strpriority = Sel_Row(iRecCount).ItemArray(11)

                    strwkHead = Mid(strpriority, 1, 6)
                    '7桁目 商品区分
                    '9桁目から5レングス　　商品コード
                    '8桁目　同梱フラグ
                    If strpriority_head = strwkHead Then
                        If iPutcnt = 0 Then '1件目　キー項目セット
                            pre_kbn = Mid(strpriority, 7, 1)
                            pre_scode = Mid(strpriority, 9, 5)
                            pre_dflg = Mid(strpriority, 8, 1)
                            now_kbn = Mid(strpriority, 7, 1)
                            now_scode = Mid(strpriority, 9, 5)
                            now_dflg = Mid(strpriority, 8, 1)
                            sijisyo_num = Sel_Row(iRecCount).ItemArray(12)
                            pre_scode = now_scode
                            pre_idx = sijisyo_num
                            pre_dflg = now_dflg
                            pre_idx = Sel_Row(iRecCount).ItemArray(6)
                            pre_product_name = Sel_Row(iRecCount).ItemArray(13)
                        Else
                            now_kbn = Mid(strpriority, 7, 1)
                            now_scode = Mid(strpriority, 9, 5)
                            now_dflg = Mid(strpriority, 8, 1)
                        End If
                        If pre_dflg <> "" Then _
                            ' 直前の注文がリキッドのみかD/Cのみのとき
                            If pre_kbn = "0" Or pre_kbn = "1" Then
                                ' 同梱フラグが異なるか、直前の注文と区分が異なるとき
                                If pre_dflg <> now_dflg Or pre_kbn <> now_kbn Then
                                    Select Case pre_kbn
                                        Case "0"
                                            'lf.puts "リキッドのみ"
                                            strPrintadd = "リキッドのみ"
                                        Case "1"
                                            'lf.puts "D/Cのみ"
                                            strPrintadd = "D/Cのみ"
                                    End Select
                                    Select Case pre_dflg
                                        Case "0"
                                            'lf.print "%4d"..."%4d：（単品）" % [ pre_idx, sijisyo_num - 1]
                                            strPrint = Format(Val(pre_idx), "####") + "..." + Format(sijisyo_num - 1, "####") + "：（単品）" + strPrintadd
                                        Case "1"
                                            'lf.print "%4d...%4d：（同梱）" % [ pre_idx, sijisyo_num - 1]
                                            strPrint = Format(Val(pre_idx), "####") + "..." + Format(sijisyo_num - 1, "####") + "：（同梱）" + strPrintadd
                                    End Select
                                End If
                            End If
                        End If
                        pre_dflg = now_dflg
                        pre_idx = sijisyo_num

                        If pre_kbn <> "" Then
                            If now_kbn <> pre_kbn Then
                                Select Case pre_kbn
                                    Case "0"
                                        'lf.puts "%4d...%4d：リキッドのみ" % [ pre_idx, sijisyo_num-1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッドのみ"
                                    Case "1"
                                        'lf.puts "%4d...%4d：D/Cのみ" % [ pre_idx, sijisyo_num-1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッドのみ"
                                    Case "2"
                                        'lf.puts "%4d...%4d：リキッド+D/C" % [ pre_idx, sijisyo_num - 1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッド+D/C"
                                    Case "3"
                                        'lf.puts "%4d...%4d：リキッドと本社" % [ pre_idx, sijisyo_num - 1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：リキッドと本社"
                                    Case "4"
                                        'lf.puts "%4d...%4d：D/Cと本社" % [ pre_idx, sijisyo_num - 1]
                                        strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num) - 1, "####") + "：D/Cと本社"
                                End Select
                            End If
                        End If
                        pre_kbn = now_kbn
                        pre_idx = sijisyo_num

                        If now_kbn = "6" Then
                            If pre_scode <> "" Then
                                If pre_scode <> now_scode Then
                                    If now_dflg = "0" Or (pre_dflg = "0" And now_dflg = "1") Then
                                        If pre_idx <> sijisyo_num - 1 Then
                                            'lf.puts "%4d...%4d：%s" % [ pre_idx, sijisyo_num - 1, pre_product_name]
                                            strPrint = Format(Val(pre_idx), "####") + "..." + Format(Val(sijisyo_num - 1), "####") + "：" + pre_product_name
                                        Else
                                            'lf.puts "%7s%4d：%s" % [ "", pre_idx, pre_product_name]
                                            strPrint = Space(7) + Format(Val(pre_idx), "####") + "：" + pre_product_name
                                        End If
                                    End If
                                End If
                            End If
                        End If






                        pre_scode = now_scode
                        pre_idx = sijisyo_num
                        pre_dflg = now_dflg
                        lwksjinum = Val(Sel_Row(iRecCount).ItemArray(6))
                        lnow_sijinum = Val(sijisyo_num)
                        lnow_sijinum = lnow_sijinum + lwksjinum
                        sijisyo_num = Format(lnow_sijinum, "0")
                        pre_product_name = Sel_Row(iRecCount).ItemArray(13)
                        If iPutcnt > 0 And strPrint <> "" Then
                            sr.Write(strPrint & vbCrLf)
                            strPrint = ""
                            iPutcnt = iPutcnt + 1
                        Else
                            iPutcnt = iPutcnt + 1
                        End If
                    End If
                    iRecCount = iRecCount + 1
                Loop
                '閉じる
                sr.Close()
                Sel_Row = Nothing

                Return True



            Catch ex As MallCsvCodeException
                MessageBox.Show(ex.Message, "CSVエラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return False
            Catch ex As Exception
                MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return False
            End Try

        End Function



        Private Function Join(strpriority As String, v As String) As String
            Throw New NotImplementedException()
        End Function

        Friend ReadOnly Property strpriority(dt_OrderData As DataTable) As Boolean
            Get
                Throw New NotImplementedException()
            End Get
        End Property
    End Class
End Module