'*******************************************************************************
'* 作成者   : 株式会社エコー・システム 
'* 作成日   : 2004/10/02
'* 概要     : PICS2004 ｼｽﾃﾑ共通定義
'* 更新履歴 : 
'* ﾊﾞｰｼﾞｮﾝ  : 1.0
'*******************************************************************************
Module modConstKDPP
    '***************************************************************************
    ' ｸﾞﾛｰﾊﾞﾙ変数宣言
    '***************************************************************************

    'ﾁｪｯｸﾃﾞｼﾞｯﾄ比較用文字
    Public mstrChr() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
                                  "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
                                  "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
                                  "U", "V", "W", "X", "Y", "Z", "-", ".", " ", "$", _
                                  "/", "+", "%"}

    'ﾁｪｯｸﾃﾞｼﾞｯﾄ比較用数値
    Public mintChr() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, _
                                   10, 11, 12, 13, 14, 15, 16, 17, 18, 19, _
                                   20, 21, 22, 23, 24, 25, 26, 27, 28, 29, _
                                   30, 31, 32, 33, 34, 35, 36, 37, 38, 39, _
                                   40, 41, 42}

    'ファイルロックフラグ
    Public Const M_CONST_LOCK_L As String = "L"        'ロックファイルロック
    Public Const M_CONST_LOCK_F As String = "F"        'ロックファイル解除

    '計画/端数在庫出庫（KDPP1000）
    Public Enum HASU_STATUS As Integer
        TITLE = 0
        NAME = 1
        SECTION = 2
        NOHINBI = 3
        KEIKAKUBI = 4
        ZAIKO = 5
        DONE = 6
        QUIT = 7

    End Enum

    'PICS＆PACK(KDPP2000)
    Public Enum PP_STATUS As Integer
        TITLE = 0
        NAME = 1
        SECTION = 2
        SECWAIT = 3
        ENTKEY = 4
        FAILAP = 5
        HEADER = 6
        PART = 7
        PART2 = 8
        CISCAN = 9
        RETRY1 = 10
        RETRY2 = 11
        RETRY3 = 12
        PRINT = 13
        SEARCH = 14
        NOTFOUND = 15
        NOTPACK = 16
        ALLCANCEL = 17
        ZEROOK = 18
        PRINT2 = 19
        RETRYSEC = 20
        PRINT3 = 21
        PRINT4 = 22
        DONE = 23
        QUIT = 24
    End Enum

    Public Enum ALL_STATUS As Integer
        TITLE = 0
        NAME = 1
        LOCATION = 2
        PART = 3
        DONE = 4
        QUIT = 5
    End Enum

    '大物出庫(KDPP3000)
    Public Enum OM_STATUS As Integer
        TITLE = 0
        NAME = 1
        SECTION = 2
        SECWAIT = 3
        CLSCAN = 4
        ENTKEY = 5
        HEADER = 6
        PART = 7
        PRINT = 8
        PRINT2 = 9
        GHSCAN = 10
        SEARCH = 11
        NOTFOUND = 12
        NOTPACK = 13
        ALLCANCEL = 14
        ZEROOK = 15
        RETRYSEC = 16
        DONE = 17
        QUIT = 18
    End Enum


    '支障処理(KDPP5000)
    Public Enum TR_STATUS As Integer
        TITLE = 0
        NAME = 1
        CLABEL = 2
        HEADER = 3
        PART = 4
        PART2 = 5
        RETRY1 = 6
        RETRY2 = 7
        RETRY3 = 8
        PRINT = 9
        CISCAN = 10
        SEARCH = 11
        NOTFOUND = 12
        NOTPACK = 13
        ALLCANCEL = 14
        ZEROOK = 15
        PRINT2 = 16
        PRINT3 = 17
        PRINT4 = 18
        DONE = 19
        QUIT = 20
    End Enum

    '再チェック(KDPP6000)
    Public Enum RETRY_STATUS As Integer
        TITLE = 0
        NAME = 1
        CARTON = 2
        RETRY1 = 3
        RETRY2 = 4
        QUIT = 5
    End Enum


    '大物出庫用支障処理(KDPP7000)
    Public Enum OTR_STATUS As Integer
        TITLE = 0
        NAME = 1
        CLSCAN = 3
        CLABEL = 4
        HEADER = 5
        PART = 6
        PRINT = 7
        PRINT2 = 8
        GHSCAN = 9
        SEARCH = 10
        NOTFOUND = 11
        NOTPACK = 12
        ALLCANCEL = 13
        ZEROOK = 14
        DONE = 15
        QUIT = 16
    End Enum

    Public gintStatus As Integer


    '// KDHT用情報構造体
    Public Structure KDHT_STR
        Public intCountry As Integer
        Public strCountry As String
        Public strTitle As String
        Public strUserNo As String
        Public strUserName As String
        Public strPrgID As String
        Public strHdNo As String
        Public strSectionID As String
        Public strSection As String
        Public strCstmid As String
        Public strCstmCode As String
        Public strPackType As String
        Public strS6030 As String
        Public bLinkFlag As Boolean

        Public Sub initialize()
            intCountry = 0
            strCountry = ""
            strTitle = ""
            strUserNo = ""
            strUserName = ""
            strPrgID = ""
            strHdNo = ""
            strSectionID = ""
            strSection = ""
            strCstmid = ""
            strCstmCode = ""
            strPackType = ""
            strS6030 = ""
            bLinkFlag = False
        End Sub

    End Structure

    Public gstrctKDHT As KDHT_STR


    '// 1000用情報構造体
    Public Structure P1000_STR
        Public strBhk As String
        Public strCenterCode As String
        Public strSectionID As String
        Public strSection As String
        Public strNohinbi As String
        Public strKeikakubi As String

        Public Sub initialize()
            strBhk = ""
            strCenterCode = ""
            strSectionID = ""
            strSection = ""
            strNohinbi = ""
            strKeikakubi = ""
        End Sub

    End Structure


    Public gstrctP1000 As P1000_STR

    Public gastrctHasu() As HASU_STR

    '// HASU構造体
    Public Structure HASU_STR
        Public strBhk As String
        Public strLoc As String
        Public strPartNo As String
        Public strCL As String
        Public strZnc As String
        Public strQty As String
        Public strSerialNo As String
        Public strNohinbi As String
        Public strNohinNo As String
        Public strMakerCode As String
        Public strNohinQty As String
        Public strMisc As String
        Public intStatus As Integer

        Public Sub initialize()

            strBhk = ""
            strLoc = ""
            strPartNo = ""
            strCL = ""
            strZnc = ""
            strQty = ""
            strSerialNo = ""
            strNohinbi = ""
            strNohinNo = ""
            strMakerCode = ""
            strNohinQty = ""
            strNohinQty = ""
            strMisc = ""
            intStatus = 0
        End Sub

    End Structure

    '//出庫用情報構造体
    Public Structure KDPP_STR
        Public strSectionID As String
        Public strSection As String
        Public strSectionName As String
        Public strCenterCode As String
        Public strSearchKey As String
        Public strBhk As String
        Public strItemGr As String
        Public intIndex As Integer
        Public bRetry As Integer
        Public bTroubleB As Boolean
        Public strIPAddress As String
        Public lngBtrvStatus As Long
        Public strErrBtrvFile As String
        Public Sub initialize()
            strSectionID = ""
            strSection = ""
            strSectionName = ""
            strCenterCode = ""
            strSearchKey = ""
            strBhk = ""
            strItemGr = ""
            intIndex = 0
            bRetry = False
            bTroubleB = False
            strIPAddress = ""
            lngBtrvStatus = 0
            strErrBtrvFile = ""
        End Sub
    End Structure

    Public gstrctKDPP As KDPP_STR


    '//PICS&PACK作業画面情報（ヘッダ部)
    Public Structure KDPP_DISP_DATA
        Public strItemCode As String
        Public strSeq As String
        Public strAic As String
        Public strMsc As String
        Public strPNT As String
        Public strTRM As String
        Public strCaseNo As String
        Public intNumOfItem As Integer            '部品種類数(intNumOfItem)
        Public intNumOfPkg As Integer           'ヘッダ部#ofItem、詳細部の#ofItem(intNumOfPkg)
        Public intNumOfScanned As Integer         '処理済件数
        Public strCrtnFrom As String
        Public strCrtnTo As String
        Public strCrtnNo As String
        Public strCrtnType As String
        Public strLine As String
        Public intNumOfCase As Integer          '#ofCase
        Public arryPARTInf() As KDPP_PART_STR
        Public arryPARTInf2() As KDPP_PART2_STR
        Public arryPARTInfD() As KDPP_PART_STR

        Public Sub initialize()
            strItemCode = ""
            strSeq = ""
            strAic = ""
            strMsc = ""
            strPNT = ""
            strTRM = ""
            strCaseNo = ""
            intNumOfItem = 0
            intNumOfPkg = 0
            intNumOfScanned = 1
            strCrtnFrom = ""
            strCrtnTo = ""
            strCrtnNo = ""
            strCrtnType = ""
            strLine = ""
            intNumOfCase = 0
            Erase arryPARTInf
            Erase arryPARTInf2
            Erase arryPARTInfD
        End Sub
        '*******************************************************************************
        '* 機能     : 部品種類数の計算
        '*******************************************************************************
        Public Function fSetNumOfItem(ByVal pintNum As Integer) As Integer 'fSetNumOfItem
            intNumOfItem = pintNum
            fSetNumOfItem = intNumOfItem   'intNumOfItem
        End Function


        '*******************************************************************************
        '* 機能     : 部品数量の取得
        '* 引数     : 1.pstrLctnPartNo: PackCP-ItemCode + ロケーション番号＋部品番号
        '*          : 2.intTotalFlg:件数種別
        '*            0:部品別数量総計  1:処理済部品別数量
        '* 戻り値　 : -1:NG 
        '* 備考     : なし
        '*******************************************************************************
        Public Function fGetQty(ByVal pstrLctnPartNo As String, Optional ByVal intTotalFlg As Integer = 0) As Integer
            Dim wintCnt As Integer
            Dim wintSubTotal As Integer
            fGetQty = -1

            Try

                If arryPARTInf Is Nothing Then Exit Function
                Select Case intTotalFlg
                    Case 1
                        For wintCnt = 0 To UBound(arryPARTInf)
                            If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                                fGetQty = arryPARTInf(wintCnt).intCrntQty
                                'Exit For
                            End If
                        Next
                    Case 0
                        For wintCnt = 0 To UBound(arryPARTInf)
                            If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                                fGetQty = arryPARTInf(wintCnt).intTotalQty
                                Exit For
                            End If
                        Next
                    Case 2 '構造体D
                        If arryPARTInfD Is Nothing Then Exit Function
                        For wintCnt = 0 To UBound(arryPARTInfD)
                            If Mid(arryPARTInfD(wintCnt).strPartNo, 11) = Mid(pstrLctnPartNo, 11) Then
                                wintSubTotal += arryPARTInfD(wintCnt).intCrntQty
                                'fGetQty = arryPARTInfD(wintCnt).intCrntQty
                                'Exit For
                            End If
                        Next
                        fGetQty = wintSubTotal
                    Case 3 '構造体D
                        If arryPARTInfD Is Nothing Then Exit Function
                        For wintCnt = 0 To UBound(arryPARTInfD)
                            If Mid(arryPARTInfD(wintCnt).strPartNo, 11) = Mid(pstrLctnPartNo, 11) Then
                                fGetQty = arryPARTInfD(wintCnt).intTotalQty
                                Exit For
                            End If
                        Next
                End Select
                '>>> DEL 2006.04.10 ST >>>
                'If intTotalFlg = 1 Then
                '    For wintCnt = 0 To UBound(arryPARTInf)
                '        If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                '            fGetQty = arryPARTInf(wintCnt).intCrntQty
                '            Exit For
                '        End If
                '    Next

                'Else
                '    For wintCnt = 0 To UBound(arryPARTInf)
                '        If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                '            fGetQty = arryPARTInf(wintCnt).intTotalQty
                '            Exit For
                '        End If
                '    Next
                'End If
                '>>> DEL 2006.04.10 END>>>
            Catch ex As Exception
                sErrLog(gAppName, "fGetQty", ex.ToString)
            End Try
        End Function
        '*******************************************************************************
        '* 機能     : 部品数量の合計
        '* 引数     : 1.pstrLctnPartNo: PackCP-ItemCode + ロケーション番号＋部品番号　
        '*            2.pstrPartQty: 部品数量
        '*            3.intTotalFlg: 0 部品別合計
        '*                           1 スキャン済み小計
        '* 戻り値　 : -1:NG  0:OK
        '* 備考     : なし
        '*******************************************************************************
        Public Function fSetQty(ByVal pstrLctnPartNo As String, ByVal pstrPartQty As String, Optional ByVal intTotalFlg As Integer = 0)
            Dim wintCnt As Integer
            Dim wintInExist As Integer
            fSetQty = -1
            wintInExist = -1

            Try

                If intTotalFlg = 0 Then
                    If arryPARTInf Is Nothing Then
                        ReDim Preserve arryPARTInf(0)
                        arryPARTInf(0).strPartNo = pstrLctnPartNo
                        arryPARTInf(0).intTotalQty = CInt(pstrPartQty)
                    Else

                        For wintCnt = 0 To UBound(arryPARTInf)
                            If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                                arryPARTInf(wintCnt).intTotalQty += CInt(pstrPartQty)
                                wintInExist = 0
                                Exit For
                            End If
                        Next
                        If wintInExist = 0 Then Exit Function '部品番号小計済み
                        '部品情報追加
                        ReDim Preserve arryPARTInf(wintCnt)
                        arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo
                        arryPARTInf(wintCnt).intTotalQty = pstrPartQty
                    End If

                    fSetQty = 0
                Else
                    If arryPARTInf Is Nothing Then Exit Function
                    For wintCnt = 0 To UBound(arryPARTInf)
                        If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                            arryPARTInf(wintCnt).intCrntQty += CInt(pstrPartQty)
                            wintInExist = 0
                            Exit For
                        End If
                    Next
                End If

            Catch ex As Exception
                sErrLog(gAppName, "fSetQty", ex.ToString)
            End Try
        End Function
        '*******************************************************************************
        '* 機能     : 部品袋数の取得
        '* 引数     : 1.pstrLctnPartNo: PackCP-ItemCode + ロケーション番号＋部品番号
        '*          : 2.intTotalFlg:件数種別
        '*            0:部品別袋数総計  1:処理済部品別袋数
        '* 戻り値　 : -1:NG 
        '* 備考     : なし
        '*******************************************************************************
        Public Function fGetPkg(ByVal pstrLctnPartNo As String, Optional ByVal intTotalFlg As Integer = 0) As Integer
            Dim wintCnt As Integer
            fGetPkg = -1

            Try

                If arryPARTInf2 Is Nothing Then Exit Function
                If intTotalFlg = 1 Then
                    For wintCnt = 0 To UBound(arryPARTInf2)
                        If arryPARTInf2(wintCnt).strPartNo = pstrLctnPartNo Then
                            fGetPkg = arryPARTInf2(wintCnt).intCrntPkg
                            Exit For
                        End If
                    Next

                Else
                    For wintCnt = 0 To UBound(arryPARTInf2)
                        If arryPARTInf(wintCnt).strPartNo = pstrLctnPartNo Then
                            fGetPkg = arryPARTInf2(wintCnt).intTotalPkg
                            Exit For
                        End If
                    Next
                End If

            Catch ex As Exception
                sErrLog(gAppName, "fGetPkg", ex.ToString)
            End Try
        End Function

        '*******************************************************************************
        '* 機能     : 部品袋数の合計
        '* 引数     : 1.pstrLctnPartNo: PackCP-ItemCode + ロケーション番号＋部品番号　
        '*            2.pintPartPkg: 部品袋数
        '*            3.intTotalFlg: 0 部品別合計
        '*                           1 スキャン済み小計
        '* 戻り値　 : -1:NG  0:OK
        '* 備考     : なし
        '*******************************************************************************
        Public Function fSetPkg(ByVal pstrLctnPartNo As String, ByVal pintPartPkg As Integer, Optional ByVal intTotalFlg As Integer = 0)
            Dim wintCnt As Integer
            Dim wintInExist As Integer
            fSetPkg = -1
            wintInExist = -1

            Try

                If intTotalFlg = 0 Then
                    If arryPARTInf2 Is Nothing Then
                        ReDim Preserve arryPARTInf2(0)
                        arryPARTInf2(0).strPartNo = pstrLctnPartNo
                        arryPARTInf2(0).intTotalPkg = pintPartPkg
                    Else

                        For wintCnt = 0 To UBound(arryPARTInf2)
                            If arryPARTInf2(wintCnt).strPartNo = pstrLctnPartNo Then
                                arryPARTInf2(wintCnt).intTotalPkg += pintPartPkg
                                wintInExist = 0
                                Exit For
                            End If
                        Next
                        If wintInExist = 0 Then Exit Function '部品番号小計済み
                        '部品情報追加
                        ReDim Preserve arryPARTInf2(wintCnt)
                        arryPARTInf2(wintCnt).strPartNo = pstrLctnPartNo
                        arryPARTInf2(wintCnt).intTotalPkg = pintPartPkg
                    End If

                    fSetPkg = 0
                Else
                    If arryPARTInf2 Is Nothing Then Exit Function
                    For wintCnt = 0 To UBound(arryPARTInf2)
                        If arryPARTInf2(wintCnt).strPartNo = pstrLctnPartNo Then
                            arryPARTInf2(wintCnt).intCrntPkg += pintPartPkg
                            wintInExist = 0
                            Exit For
                        End If
                    Next
                End If

            Catch ex As Exception
                sErrLog(gAppName, "fSetPkg", ex.ToString)
            End Try
        End Function

        '*******************************************************************************
        '* 機能     : 処理済数量のリセット
        '* 引数     : 　
        '* 戻り値　 : -1:NG  0:OK
        '* 備考     : なし
        '*******************************************************************************
        Public Sub sResetQty()

            Dim wintCnt As Integer

            If arryPARTInf Is Nothing Then Exit Sub

            For wintCnt = 0 To UBound(arryPARTInf)
                arryPARTInf(wintCnt).intCrntQty = 0
            Next

        End Sub
        '*******************************************************************************
        '* 機能     : 処理済袋数のリセット
        '* 引数     : 　
        '* 戻り値　 : -1:NG  0:OK
        '* 備考     : なし
        '*******************************************************************************
        Public Sub sResetPkg()

            Dim wintCnt As Integer

            If arryPARTInf2 Is Nothing Then Exit Sub

            For wintCnt = 0 To UBound(arryPARTInf2)
                arryPARTInf2(wintCnt).intCrntPkg = 0
            Next

        End Sub
        '*******************************************************************************
        '* 機能     : 部品数量の合計（デリバリー対応)
        '* 引数     : 1.pstrLctnPartNo: PackCP-ItemCode + ロケーション番号＋部品番号　
        '*            2.pstrPartQty: 部品数量
        '*            3.intTotalFlg: 0 部品別合計
        '*                           1 スキャン済み小計
        '*                           2 スキャン指定数
        '* 戻り値　 : -1:NG  0:OK
        '* 備考     : なし
        '*******************************************************************************
        Public Function fSetQty2(ByVal pstrLctnPartNo As String, ByVal pstrPartQty As String, Optional ByVal intTotalFlg As Integer = 0)
            Dim wintCnt As Integer
            Dim wintInExist As Integer
            fSetQty2 = -1
            wintInExist = -1

            Try
                Select Case intTotalFlg
                    Case 0
                        If arryPARTInfD Is Nothing Then
                            ReDim Preserve arryPARTInfD(0)
                            arryPARTInfD(0).strPartNo = pstrLctnPartNo
                            arryPARTInfD(0).intTotalQty = CInt(pstrPartQty)
                        Else

                            For wintCnt = 0 To UBound(arryPARTInfD)
                                If arryPARTInfD(wintCnt).strPartNo = pstrLctnPartNo Then
                                    arryPARTInfD(wintCnt).intTotalQty += CInt(pstrPartQty)
                                    wintInExist = 0
                                    Exit For
                                End If
                            Next
                            If wintInExist = 0 Then Exit Function '部品番号小計済み
                            '部品情報追加
                            ReDim Preserve arryPARTInfD(wintCnt)
                            arryPARTInfD(wintCnt).strPartNo = pstrLctnPartNo
                            arryPARTInfD(wintCnt).intTotalQty = pstrPartQty
                        End If

                        fSetQty2 = 0
                    Case 1
                        If arryPARTInfD Is Nothing Then Exit Function
                        For wintCnt = 0 To UBound(arryPARTInfD)
                            If arryPARTInfD(wintCnt).strPartNo = pstrLctnPartNo Then
                                arryPARTInfD(wintCnt).intCrntQty += CInt(pstrPartQty)
                                wintInExist = 0
                                Exit For
                            End If
                        Next
                    Case 2
                        If arryPARTInfD Is Nothing Then
                            ReDim Preserve arryPARTInfD(0)
                            arryPARTInfD(0).strPartNo = pstrLctnPartNo
                            arryPARTInfD(0).intTotalQty = CInt(pstrPartQty)
                        Else
                            wintCnt = arryPARTInfD.Length
                            ReDim Preserve arryPARTInfD(wintCnt)
                            arryPARTInfD(wintCnt).strPartNo = pstrLctnPartNo
                            arryPARTInfD(wintCnt).intTotalQty = CInt(pstrPartQty)
                        End If
                End Select


            Catch ex As Exception
                sErrLog(gAppName, "fSetQty2", ex.ToString)
            End Try
        End Function

    End Structure

    Public gstrctPPDisp As KDPP_DISP_DATA

    Public gastrctPPDispPart(4) As KDPP_DISP_PART

    '//部品番号別情報
    Public Structure KDPP_PART_STR
        Public strPartNo As String
        Public intCrntQty As Integer
        Public intTotalQty As Integer
    End Structure

    '//部品番号別情報
    Public Structure KDPP_PART2_STR
        Public strPartNo As String
        Public intCrntPkg As Integer
        Public intTotalPkg As Integer
    End Structure

    '//個別情報
    Public Structure KDPP_DISP_PART
        Public strLocation As String
        Public strLocation1 As String
        Public strLocation2 As String
        Public strID As String
        Public strPartNoDisp As String
        Public strCL As String
        Public strZ As String
        Public strPackQty As String

        Public intCrntQty As Integer
        Public intTotalQty As Integer
        Public intNumOfScanned As Integer
        Public intNumOfPkg As Integer

        Public strItemInID As String
        Public strItemInCode As String
        Public strItemCode As String
        Public strSerial As String
        Public bNextCarton As Boolean
        Public bDisp As Boolean
        Public bLocked As Boolean

        Public strPLocation As String
        Public strPLocation1 As String
        Public strPLocation2 As String
        Public intDScanQty As Integer

        Public Sub initialize()
            strLocation = ""
            strLocation1 = ""
            strLocation2 = ""
            strID = ""
            strPartNoDisp = ""
            strCL = ""
            strZ = ""
            strPackQty = "" '指示個数

            intCrntQty = 0
            intTotalQty = 0
            intNumOfScanned = 1
            intNumOfPkg = 0

            strItemInID = ""
            strItemInCode = ""
            strItemCode = ""
            strSerial = ""
            bNextCarton = False
            bDisp = True
            bLocked = False

            strPLocation = ""
            strPLocation1 = ""
            strPLocation2 = ""
            intDScanQty = 0
        End Sub

    End Structure

    Public gstrctPPDispPart As KDPP_DISP_PART


    '//PACKCP情報構造体
    Public Structure PKCP_STR
        Public strZaikoStatus As String
        Public strLocation As String
        Public strSerialNo As String
        Public strTempSerial As String
        Public strPlanSerial As String
        Public strItemInID As String
        Public strItemInCode As String
        Public strQty As String
        Public Sub initialize()
            strZaikoStatus = ""
            strLocation = ""
            strSerialNo = ""
            strTempSerial = ""
            strPlanSerial = ""
            strItemInID = ""
            strItemInCode = ""
            strQty = ""
        End Sub
    End Structure

    'TRANS Key構造体
    Public Structure STRCT_KEY_TRANS
        Dim YYYYMMDD As String
        Dim PalItemId As String
        Dim PalItem As String
        Dim SectionId As String
        Dim SectionCode As String
        Dim SubWKItemId As String
        Dim SubWKItem As String
        Dim PalLctn As String
    End Structure

    'PLAN構造体
    Public Structure STRCT_KEY_PLAN
        Dim YYYYMMDDS As String
        Dim YYYYMMDD As String
        Dim Line As String
        Dim OffDate As String
        Dim OffTime As String
        Dim Msc As String
        Dim Pnt As String
        Dim Trm As String
        Dim Lot As String
        Dim Gr As String
        Dim Seq As String
        Dim PackSeq As String
        Dim KasoLine As String
    End Structure

    'Aic + CaseNo構造体
    Public Structure STRCT_KEY_HINMEI
        Dim Msc As String
        Dim Pnt As String
        Dim Trm As String
        Dim Lot As String
        Dim Gr As String
        Dim Seq As String
    End Structure

    'PACKCP作成構造体
    Public Structure STRCT_SET_PACKCP
        Dim ProductDate As String
        Dim Shift As String
        Dim Line As String
        Dim OffDate As String
        Dim OffTime As String
    End Structure

    'SPM Key構造体
    Public Structure STRCT_KEY_SPM
        Dim YYYYMMDDS As String
        Dim YYYYMMDD As String
        Dim Msc As String
        Dim Pnt As String
        Dim Trm As String
        Dim Gr As String
        Dim CartonFrom As String
        Dim CartonTo As String
        Dim TRANS_PalLctn As String
    End Structure

    'PACKPLAN Key構造体
    Public Structure STRCT_KEY_PACKPLAN
        Dim Product As String
        Dim Aic As String
        Dim CaseNo As String
        Dim CartonNo As String
        Dim ItemID As String
        Dim ItemCode As String
        Dim Tume As Long
        Dim CenterCode As String
        Dim SectionID As String
        Dim SectionCode As String

        Dim SPM_ItemInCode As String
        Dim SPM_ItemInCodeDisp As String
        Dim SPM_PackQtyP As String
        Dim SPM_CaseQty As String
        Dim SPM_CartonType As String
        Dim SPM_HosoYou As String
        Dim SPM_HosoTan As String
        Dim SPM_HosoZai As String
        Dim SPM_Inz As String
        Dim SPM_SetDaisu As String
        Dim SPM_PicsType As String
        Dim SPM_CstmId As String
        Dim SPM_CstmCode As String
        Dim SPM_Bhk As String
        Dim SPM_PartID As String
        '>>> ADD ST  2006.03.03 >>>
        Dim SPM_Location As String
        '<<< ADD END 2006.03.03 <<<
    End Structure

    'STOCK Key構造体
    Public Structure STRCT_KEY_STOCK
        Dim PicsType As String
        Dim Cstmid As String
        Dim CstmCode As String
        Dim CenterCode As String
        Dim Bhk As String
        Dim ItemID As String
        Dim ItemCode As String
        Dim Qty As String
        Dim StockDate As String
        Dim StockTime As String
        Dim SerialNo As String
        Dim Location As String
        Dim Product As String

        Dim PACKPLAN_PackNo As String
        Dim PACKPLAN_TempSerial As String
        Dim PACKPLAN_PartID As String
        Dim PACKPLAN_Tume As String
        Dim PACKPLAN_PartName As String
        Dim PACKPLAN_CaseType As String

        Dim LOCATION_PairLocation As String
        Dim JUMP_S6030 As String
    End Structure

    'PACKPLAN再読み込み用構造体（CaseType再セット用)
    Public Structure STRCT_KEY_PACKPLAN2
        Dim PicsType As String
        Dim CstmID As String
        Dim CstmCode As String
        Dim CenterCode As String
        Dim PDATE As String
        Dim Line As String
        Dim Aic As String
        Dim CaseNo As String
        Dim CartonNo As String
        Dim PartID As String
        Dim ItemID As String
        Dim ItemCode As String
        Dim SerialNo As String
        Dim TempSerial As String
    End Structure

    '印刷ラベルデータ用構造体
    Structure LABEL_DATA_STR
        Public strAIC As String
        Public strCaseNO As String
        Public strCarton As String
    End Structure

    '印刷ラベルデータ（デリバリ）用構造体
    Structure LABEL_DATA_STR2
        Public strItemCode As String
        Public strPLoctn As String
        Public strPSerial As String
        Public strPQty As String
        Public strPHosoYou As String
        Public strPHosoZai As String
        Public strPCartonType As String
        Public strDLoctn As String
        Public strDSerial As String
        Public strDQty As String
        Public strDHosoYou As String
        Public strDHosoZai As String
        Public strDCartonType As String
        Public strKasoLine As String
        Public strYYYYMMDDS As String
        Public strPackSeq As String
        Public strAic As String
        Public strCase As String
        Public Sub initialize()
            strItemCode = ""
            strPLoctn = ""
            strPSerial = ""
            strPQty = ""
            strPHosoYou = ""
            strPHosoZai = ""
            strPCartonType = ""
            strDLoctn = ""
            strDSerial = ""
            strDQty = ""
            strDHosoYou = ""
            strDHosoZai = ""
            strDCartonType = ""
            strKasoLine = ""
            strYYYYMMDDS = ""
            strPackSeq = ""
            strAic = ""
            strCase = ""
        End Sub
    End Structure
    Public gstrctDelvLabelData As LABEL_DATA_STR2

    '大物出庫構造体(KDPP3000)
    Public Structure STRCT_OM_DATA
        Public intNumOfLblScanned As Integer
        Public intNumOfTagScanned As Integer
        Public strTagData As String

        Public Sub initialize()
            intNumOfLblScanned = 0
            intNumOfTagScanned = 0
            strTagData = ""
        End Sub
    End Structure
    Public gstrctOMData As STRCT_OM_DATA

    Public Structure Chk_ItemCode
        Dim intCount As Integer
        Dim intMaxCount As Integer
        Dim arryOfChkItemCode As ItemCode()

        Public Sub initialize()
            intCount = 0
            intMaxCount = 0
        End Sub
    End Structure

    Public Structure ItemCode
        Dim strItemCode As String
        Dim bScanned As Boolean
        Public Sub initialize()
            strItemCode = ""
            bScanned = False
        End Sub
    End Structure
    Public gstrctChkItemCode As Chk_ItemCode

    '// ｼｽﾃﾑ共通変数


    '***************************************************************************
    ' ｸﾞﾛｰﾊﾞﾙ定義
    '***************************************************************************

    '//ステータスコード
    Public Const G_CONST_ST_PP_RECEIVED = "20"
    Public Const G_CONST_ST_PP_PICKED = "30"

    Public Const G_CONST_ST_STOCK_RECEIVED = "0"
    Public Const G_CONST_ST_STOCK_MOVING = "2"
    Public Const G_CONST_ST_STOCK_INSTOCK = "3"
    Public Const G_CONST_ST_STOCK_RESERVED1 = "4"
    Public Const G_CONST_ST_STOCK_RESERVED2 = "5"
    Public Const G_CONST_ST_STOCK_PICKED = "7"
    Public Const G_CONST_ST_STOCK_PACKED = "8"
    Public Const G_CONST_ST_STOCK_BANNED = "9"
    Public Const G_CONST_ST_STOCK_MISSING = "E"
    Public Const G_CONST_ST_STOCK_INSEARCH = "S"

    Public Const G_CONST_ST_PKCP_NOSTOCK = "0"
    Public Const G_CONST_ST_PKCP_INSTOCK = "1"
    Public Const G_CONST_ST_PKCP_PICKED = "3"
    Public Const G_CONST_ST_PKCJ_CHECK = "5"
    Public Const G_CONST_ST_PKCJ_PACKED = "7"

    '//ラベル桁数
    Public Const G_CONST_LLEN_NM = 7
    Public Const G_CONST_LLEN_LOC = 9
    Public Const G_CONST_LLEN_PRT1 = 19
    Public Const G_CONST_LLEN_PRT2 = 25

    '//ラベル
    Public Const G_CONST_BC_USER = "J******"
    Public Const G_CONST_BC_LOC = "T********"
    Public Const G_CONST_BC_PART = "P*************************"
    Public Const G_CONST_BC_SEC = "G*********"
    Public Const G_CONST_BC_IP = "OP************"
    Public Const G_CONST_BC_GH = "A***********************"
    Public Const G_CONST_BC_CRTN = "C***********************"

    '// エラーメッセージ
    Public Const G_CONST_EMT_FILEIO = "No Ini File"
    Public Const G_CONST_EMT_WARP = "Warp Error"
    Public Const G_CONST_EMT_DB = "DB Error"

    Public Const G_CONST_EM_FILEIO = "Push 1        to return"
    Public Const G_CONST_EM_WARP = "Push 1        to return"
    'Public Const G_CONST_EM_DB = "Push 1        to return"
    Public Const G_CONST_EM_DB = "    Push 1"

    '// 画像ファイル
    Public Const G_CONST_IMG_DIR = "C:\"    '

    Public Const G_CONST_IMG_EXT = ".JPG"   '

    '// 
    Public Const G_CONST_MT_HANDY = "H"     '
    Public Const G_CONST_MT_ERROR = "E"     '
    Public Const G_CONST_MT_STOP = "S"      '

    '/計画/端数在庫出庫(KDPP1000)
    Public G_CONST_MID_H1000 = " "
    Public G_CONST_MID_H1005 = "0010"
    Public G_CONST_MID_H1010 = "0070"
    Public G_CONST_MID_H1015 = "0080"
    Public G_CONST_MID_H1020 = "0080"
    Public G_CONST_MID_H1022 = "0420"
    Public G_CONST_MID_H1023 = "0430"
    Public G_CONST_MID_H1025 = "0090"
    Public G_CONST_MID_H1030 = "0100"

    '//Pics&Pack(KDPP2000)
    Public G_CONST_MID_H2000 = ""
    Public G_CONST_MID_H2005 = "0010"
    Public G_CONST_MID_H2010 = "0070"
    Public G_CONST_MID_H2015 = "0110"
    Public G_CONST_MID_H2016 = "0440"
    Public G_CONST_MID_H2017 = "0390"
    Public G_CONST_MID_H2018 = "0370"
    Public G_CONST_MID_H2020 = "0030"
    Public G_CONST_MID_H2025 = "0030"
    Public G_CONST_MID_H2026 = "0400"
    Public G_CONST_MID_H2027 = "0450"
    Public G_CONST_MID_H2035 = "0140"
    Public G_CONST_MID_H2040 = "0030"
    Public G_CONST_MID_H2045 = "0030"
    Public G_CONST_MID_H2050 = "0220"
    Public G_CONST_MID_H2055 = "0190"

    '//大物出庫(KDPP3000)
    Public G_CONST_MID_H3000 = ""
    Public G_CONST_MID_H3005 = "0010"
    Public G_CONST_MID_H3010 = "0070"
    Public G_CONST_MID_H3015 = "0110"
    Public G_CONST_MID_H3017 = "0390"
    Public G_CONST_MID_H3020 = "0030"
    Public G_CONST_MID_H3025 = "0030"
    Public G_CONST_MID_H3026 = "0400"
    Public G_CONST_MID_H3035 = "0140"
    Public G_CONST_MID_H3040 = "0030"
    Public G_CONST_MID_H3045 = "0030"
    Public G_CONST_MID_H3050 = "0220"
    Public G_CONST_MID_H3051 = "0410"
    Public G_CONST_MID_H3055 = "0390"

    '//支障処理(KDPP5000)
    Public G_CONST_MID_H5000 = ""
    Public G_CONST_MID_H5005 = "0010"
    Public G_CONST_MID_H5010 = "0170"
    Public G_CONST_MID_H5015 = "0180"
    Public G_CONST_MID_H5025 = "0030"
    Public G_CONST_MID_H5026 = "0400"
    Public G_CONST_MID_H5035 = "0140"
    Public G_CONST_MID_H5040 = "0030"
    Public G_CONST_MID_H5045 = "0030"
    Public G_CONST_MID_H5050 = "0220"
    Public G_CONST_MID_H5055 = "0190"

    '//再ﾁｪｯｸ(KDPP6000)
    Public G_CONST_MID_H6000 = ""
    Public G_CONST_MID_H6005 = "0010"
    Public G_CONST_MID_H6010 = "0190"
    Public G_CONST_MID_H6015 = "0030"
    Public G_CONST_MID_H6020 = "0030"

    '//大物出庫用支障処理(KDPP7000)
    Public G_CONST_MID_H7000 = ""
    Public G_CONST_MID_H7005 = "0010"
    Public G_CONST_MID_H7010 = "0070"
    Public G_CONST_MID_H7014 = "0170"
    Public G_CONST_MID_H7015 = "0110"
    Public G_CONST_MID_H7017 = "0390"
    Public G_CONST_MID_H7020 = "0030"
    Public G_CONST_MID_H7025 = "0030"
    Public G_CONST_MID_H7026 = "0400"
    Public G_CONST_MID_H7035 = "0140"
    Public G_CONST_MID_H7040 = "0030"
    Public G_CONST_MID_H7045 = "0030"
    Public G_CONST_MID_H7050 = "0220"
    Public G_CONST_MID_H7051 = "0410"
    Public G_CONST_MID_H7055 = "0390"

    '/画面を直接参照/
    Public G_CONST_MID_H0000 = "0000"
    Public G_CONST_MID_H0010 = "0010"
    Public G_CONST_MID_H0015 = "0015"
    Public G_CONST_MID_H0020 = "0020"
    Public G_CONST_MID_H0030 = "0030"
    Public G_CONST_MID_H0040 = "0040"
    Public G_CONST_MID_H0050 = "0050"
    Public G_CONST_MID_H0060 = "0060"
    Public G_CONST_MID_H0070 = "0070"
    Public G_CONST_MID_H0080 = "0080"
    Public G_CONST_MID_H0090 = "0090"
    Public G_CONST_MID_H0100 = "0100"
    Public G_CONST_MID_H0110 = "0110"
    Public G_CONST_MID_H0140 = "0140"
    Public G_CONST_MID_H0160 = "0160"
    Public G_CONST_MID_H0170 = "0170"
    Public G_CONST_MID_H0180 = "0180"
    Public G_CONST_MID_H0190 = "0190"
    Public G_CONST_MID_H0200 = "0200"
    Public G_CONST_MID_H0210 = "0210"
    Public G_CONST_MID_H0220 = "0220"
    Public G_CONST_MID_H0230 = "0230"
    Public G_CONST_MID_H0240 = "0240"
    Public G_CONST_MID_H0250 = "0250"
    Public G_CONST_MID_H0260 = "0260"
    Public G_CONST_MID_H0270 = "0270"
    Public G_CONST_MID_H0280 = "0280"
    'Public G_CONST_MID_H0280 = "0280"
    Public G_CONST_MID_H0290 = "0290"
    Public G_CONST_MID_H0300 = "0300"
    Public G_CONST_MID_H0310 = "0310"
    Public G_CONST_MID_H0320 = "0320"
    Public G_CONST_MID_H0330 = "0330"
    Public G_CONST_MID_H0340 = "0340"
    Public G_CONST_MID_H0350 = "0350"
    Public G_CONST_MID_H0360 = "0360"
    Public G_CONST_MID_H0370 = "0370"
    Public G_CONST_MID_H0380 = "0380"
    Public G_CONST_MID_H0390 = "0390"
    Public G_CONST_MID_H0410 = "0410"

    '/************ｴﾗｰﾒｯｾｰｼﾞ************/

    '/計画/端数在庫出庫（KDPP1000）/
    Public G_CONST_MID_E1E03 = "0100"
    Public G_CONST_MID_E1E05 = "0010"
    Public G_CONST_MID_E1E10 = "0020"
    Public G_CONST_MID_E1E15 = "0330"
    Public G_CONST_MID_E1E20 = "0340"
    Public G_CONST_MID_E1E25 = "0140"
    Public G_CONST_MID_E1E30 = "0190"

    '/Pics&Pack (KDPP2000)/
    Public G_CONST_MID_E2E03 = "0100"
    Public G_CONST_MID_E2E05 = "0010"
    Public G_CONST_MID_E2E10 = "0020"
    Public G_CONST_MID_E2E15 = "0330"
    Public G_CONST_MID_E2E18 = "0130"
    Public G_CONST_MID_E2E19 = "0720"
    Public G_CONST_MID_E2E20 = "0340"
    Public G_CONST_MID_E2E25 = "0060"
    Public G_CONST_MID_E2E30 = "0190"
    Public G_CONST_MID_E2E32 = "0061"
    Public G_CONST_MID_E2E33 = "0062"
    Public G_CONST_MID_E2E35 = "0230"
    Public G_CONST_MID_E2E40 = "0240"
    Public G_CONST_MID_E2E42 = "0420"
    Public G_CONST_MID_E2E43 = "0430"
    Public G_CONST_MID_E2E44 = "0440"
    Public G_CONST_MID_E2E45 = "0250"
    Public G_CONST_MID_E2E50 = "0260"
    Public G_CONST_MID_E2E55 = "0270"
    Public G_CONST_MID_E2E65 = "0290"
    Public G_CONST_MID_E2E70 = "0300"
    Public G_CONST_MID_E2E75 = "0310"
    Public G_CONST_MID_E2E80 = "0540"
    Public G_CONST_MID_E2E85 = "0170"
    Public G_CONST_MID_E2E86 = "0550"
    Public G_CONST_MID_E2E91 = "0490"
    Public G_CONST_MID_E2E92 = "0450"
    Public G_CONST_MID_E2E93 = "0500"
    Public G_CONST_MID_E2E94 = "0730"
    Public G_CONST_MID_E2E95 = "0580"
    Public G_CONST_MID_E2E97 = "0570"

    '/大物出庫 (KDPP3000)/
    Public G_CONST_MID_E3E03 = "0100"
    Public G_CONST_MID_E3E05 = "0010"
    Public G_CONST_MID_E3E10 = "0020"
    Public G_CONST_MID_E3E15 = "0330"
    Public G_CONST_MID_E3E20 = "0340"
    Public G_CONST_MID_E3E25 = "0060"
    Public G_CONST_MID_E3E30 = "0190"
    Public G_CONST_MID_E3E32 = "0061"
    Public G_CONST_MID_E3E33 = "0062"
    Public G_CONST_MID_E3E35 = "0230"
    Public G_CONST_MID_E3E40 = "0240"
    Public G_CONST_MID_E3E42 = "0420"
    Public G_CONST_MID_E3E43 = "0430"
    Public G_CONST_MID_E3E44 = "0440"
    Public G_CONST_MID_E3E45 = "0250"
    Public G_CONST_MID_E3E50 = "0260"
    Public G_CONST_MID_E3E55 = "0270"
    Public G_CONST_MID_E3E65 = "0290"
    Public G_CONST_MID_E3E70 = "0300"
    Public G_CONST_MID_E3E75 = "0310"
    Public G_CONST_MID_E3E80 = "0320"
    Public G_CONST_MID_E3E85 = "0170"
    Public G_CONST_MID_E3E90 = "0470"
    Public G_CONST_MID_E3E91 = "0490"
    Public G_CONST_MID_E3E92 = "0450"
    Public G_CONST_MID_E3E93 = "0500"
    Public G_CONST_MID_E3E95 = "0130"
    Public G_CONST_MID_E3E96 = "0400"
    Public G_CONST_MID_E3E97 = "0510"
    Public G_CONST_MID_E3E98 = "0520"
    Public G_CONST_MID_E3E99 = "0570"

    '/支障処理 (KDPP5000)/
    Public G_CONST_MID_E5E03 = "0100"
    Public G_CONST_MID_E5E05 = "0010"
    Public G_CONST_MID_E5E10 = "0020"
    Public G_CONST_MID_E5E15 = "0200"
    Public G_CONST_MID_E5E20 = "0210"
    Public G_CONST_MID_E5E23 = "0220"
    Public G_CONST_MID_E5E25 = "0060"
    Public G_CONST_MID_E5E30 = "0190"
    Public G_CONST_MID_E5E35 = "0230"
    Public G_CONST_MID_E5E40 = "0240"
    Public G_CONST_MID_E5E42 = "0420"  '部品数量が違います
    Public G_CONST_MID_E5E43 = "0430"  'シリアルNoが不正です
    Public G_CONST_MID_E5E44 = "0440"  '在庫ステータスが不正です
    Public G_CONST_MID_E5E45 = "0250"
    Public G_CONST_MID_E5E50 = "0260"
    Public G_CONST_MID_E5E55 = "0270"
    Public G_CONST_MID_E5E65 = "0290"
    Public G_CONST_MID_E5E70 = "0300"
    Public G_CONST_MID_E5E75 = "0310"
    Public G_CONST_MID_E5E80 = "0540"
    Public G_CONST_MID_E5E85 = "0170"
    Public G_CONST_MID_E5E86 = "0550"
    Public G_CONST_MID_E5E91 = "0490"
    Public G_CONST_MID_E5E92 = "0450"
    Public G_CONST_MID_E5E93 = "0500"
    Public G_CONST_MID_E5E94 = "0730"
    Public G_CONST_MID_E5E95 = "0130"

    '/再チェック (KDPP6000)/
    Public G_CONST_MID_E6E03 = "0100"
    Public G_CONST_MID_E6E05 = "0010"
    Public G_CONST_MID_E6E10 = "0020"
    Public G_CONST_MID_E6E15 = "0530"   'カートンラベルではありません
    Public G_CONST_MID_E6E20 = "0220"   '計画にないカートン
    Public G_CONST_MID_E6E25 = "0460"   '再チェック不可(ｽﾃｰﾀｽ"7")
    Public G_CONST_MID_E6E30 = "0060"   '部品ﾗﾍﾞﾙではありません
    Public G_CONST_MID_E6E35 = "0061"   '計画にない部品ﾗﾍﾞﾙ

    '/大物出庫用支障処理 (KDPP7000)/
    Public G_CONST_MID_E7E03 = "0100"
    Public G_CONST_MID_E7E05 = "0010"
    Public G_CONST_MID_E7E10 = "0020"
    Public G_CONST_MID_E7E15 = "0330"
    Public G_CONST_MID_E7E20 = "0340"
    Public G_CONST_MID_E7E25 = "0060"
    Public G_CONST_MID_E7E30 = "0190"
    Public G_CONST_MID_E7E32 = "0061"
    Public G_CONST_MID_E7E33 = "0062"
    Public G_CONST_MID_E7E35 = "0230"
    Public G_CONST_MID_E7E40 = "0240"
    Public G_CONST_MID_E7E42 = "0420"
    Public G_CONST_MID_E7E43 = "0430"
    Public G_CONST_MID_E7E44 = "0440"
    Public G_CONST_MID_E7E45 = "0250"
    Public G_CONST_MID_E7E50 = "0260"
    Public G_CONST_MID_E7E55 = "0270"
    Public G_CONST_MID_E7E65 = "0290"
    Public G_CONST_MID_E7E70 = "0300"
    Public G_CONST_MID_E7E75 = "0310"
    Public G_CONST_MID_E7E80 = "0320"
    Public G_CONST_MID_E7E85 = "0170"
    Public G_CONST_MID_E7E90 = "0470"
    Public G_CONST_MID_E7E91 = "0490"
    Public G_CONST_MID_E7E92 = "0450"
    Public G_CONST_MID_E7E93 = "0500"
    Public G_CONST_MID_E7E95 = "0130"
    Public G_CONST_MID_E7E96 = "0400"
    Public G_CONST_MID_E7E97 = "0510"
    Public G_CONST_MID_E7E98 = "0520"

    '/画面を直接参照/
    Public G_CONST_MID_E0010 = "0010"
    Public G_CONST_MID_E0020 = "0020"
    Public G_CONST_MID_E0030 = "0030"
    Public G_CONST_MID_E0040 = "0040"
    Public G_CONST_MID_E0050 = "0050"
    Public G_CONST_MID_E0060 = "0060"
    Public G_CONST_MID_E0061 = "0061"
    Public G_CONST_MID_E0062 = "0062"
    Public G_CONST_MID_E0070 = "0070"
    Public G_CONST_MID_E0080 = "0080"
    Public G_CONST_MID_E0090 = "0090"
    Public G_CONST_MID_E0100 = "0100"
    Public G_CONST_MID_E0110 = "0110"
    Public G_CONST_MID_E0120 = "0120"
    Public G_CONST_MID_E0130 = "0130"
    Public G_CONST_MID_E0140 = "0140"
    Public G_CONST_MID_E0150 = "0150"
    Public G_CONST_MID_E0160 = "0160"
    Public G_CONST_MID_E0170 = "0170"
    Public G_CONST_MID_E0180 = "0180"
    Public G_CONST_MID_E0190 = "0190"
    Public G_CONST_MID_E0200 = "0200"
    Public G_CONST_MID_E0210 = "0210"
    Public G_CONST_MID_E0220 = "0220"
    Public G_CONST_MID_E0230 = "0230"   'ﾀﾞﾌﾞﾙｽｷｬﾝ
    Public G_CONST_MID_E0240 = "0240"
    Public G_CONST_MID_E0250 = "0250"
    Public G_CONST_MID_E0260 = "0260"
    Public G_CONST_MID_E0270 = "0270"
    Public G_CONST_MID_E0280 = "0280"
    Public G_CONST_MID_E0290 = "0290"
    Public G_CONST_MID_E0300 = "0300"
    Public G_CONST_MID_E0310 = "0310"
    Public G_CONST_MID_E0320 = "0320"
    Public G_CONST_MID_E0330 = "0330"
    Public G_CONST_MID_E0340 = "0340"
    Public G_CONST_MID_E0350 = "0350"
    Public G_CONST_MID_E0360 = "0360"
    Public G_CONST_MID_E0370 = "0370"
    Public G_CONST_MID_E0380 = "0380"
    Public G_CONST_MID_E0390 = "0390"
    Public G_CONST_MID_E0430 = "0430"
    Public G_CONST_MID_E0510 = "0510"
    Public G_CONST_MID_E0520 = "0520"


    '/*****HTCTRLｴﾗｰﾒｯｾｰｼﾞ用*********/
    Public G_CONST_MID_S0010 = "0010"

    'ソート順
    Public G_CONST_SORT_ASCEND = "ASCEND"
    Public G_CONST_SORT_DESCEND = "DESCEND"
    Public G_CONST_SORT_PASCEND = "PASCEND"
    Public G_CONST_SORT_PDESCEND = "PDESCEND"

    '進行方向
    Public G_CONST_DIR_GOFORWARD = 0
    Public G_CONST_DIR_GOBACKWARD = 1

    'ﾌﾟﾛｸﾞﾗﾑID

    Public G_CONST_PGID_1000 = "KDPP1000"
    Public G_CONST_PGID_2000 = "KDPP2000"
    Public G_CONST_PGID_3000 = "KDPP3000"
    Public G_CONST_PGID_4000 = "KDPP4000"
    Public G_CONST_PGID_5000 = "KDPP5000"
    Public G_CONST_PGID_6000 = "KDPP6000"
    Public G_CONST_PGID_7000 = "KDPP7000"

End Module
