'*******************************************************************************
'* ì¬ŽÒ   : Š”Ž®‰ïŽÐƒGƒR[EƒVƒXƒeƒ€ 
'* ì¬“ú   : 2004/10/02
'* ŠT—v     : PICS2004 ¼½ÃÑ‹¤’Ê’è‹`
'* XV—š—ð : 
'* ÊÞ°¼Þ®Ý  : 1.0
'*******************************************************************************
Module modConstKDPA
    '***************************************************************************
    ' ¸ÞÛ°ÊÞÙ•Ï”éŒ¾
    '***************************************************************************

    'Áª¯¸ÃÞ¼Þ¯Ä”äŠr—p•¶Žš
    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", "-", ".", " ", "$", _
                                  "/", "+", "%"}

    'Áª¯¸ÃÞ¼Þ¯Ä”äŠr—p”’l
    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 Enum REP_STATUS As Integer
        TITLE = 0
        NAME = 1
        LOCATION = 2
        PART = 3
        UPDATA = 4
        DONE = 5
        QUIT = 6
    End Enum

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

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

    Public gintStatus As Integer


    '// KDHT—pî•ñ\‘¢‘Ì
    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 bLinkFlag As Boolean

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

    End Structure

    Public gstrctKDHT As KDHT_STR

    '// 1000—pî•ñ\‘¢‘Ì
    Public Structure P1000_STR
        Public strBhk As String
        Public strLctnStart As String
        Public strCenterCode As String
        Public strScanItemID As String
        Public strPartScan As String
        Public lngScanHosoTan As Long
        Public strScanSerial As String
        Public intHukuro As Integer
        Public strLctnM As String
        Public strWorkNo As String

        Public Sub initialize()
            strBhk = ""
            strLctnStart = ""
            strCenterCode = ""
            strScanItemID = ""
            strPartScan = ""
            lngScanHosoTan = 0
            strScanSerial = ""
            intHukuro = 0
            strLctnM = ""
            strWorkNo = ""
        End Sub

    End Structure

    Public gstrctP1000 As P1000_STR

    '// 2000—pî•ñ\‘¢‘Ì
    Public Structure P2000_STR
        Public strBhk As String
        Public strLctnStart As String
        Public strLctnM As String
        Public strCenterCode As String
        Public strScanItemID As String
        Public strPartScan As String
        Public lngScanHosoTan As Long
        Public strScanSerial As String
        Public strWorkNo As String
        Public strTempSerial As String
        Public strAic As String
        Public strCaseNo As String

        Public Sub initialize()
            strBhk = ""
            strLctnStart = ""
            strLctnM = ""
            strCenterCode = ""
            strScanItemID = ""
            strPartScan = ""
            lngScanHosoTan = 0
            strScanSerial = ""
            strWorkNo = ""
            strTempSerial = ""
            strAic = ""
            strCaseNo = ""
        End Sub

    End Structure

    Public gstrctP2000 As P2000_STR

    '// 4000—pî•ñ\‘¢‘Ì
    Public Structure P4000_STR
        Public strBhk As String
        Public strLctnStart As String
        Public strLctnM As String
        Public strCenterCode As String
        Public strScanItemID As String
        Public strPartScan As String
        Public lngScanHosoTan As Long
        Public strScanSerial As String

        Public Sub initialize()
            strBhk = ""
            strLctnStart = ""
            strLctnM = ""
            strCenterCode = ""
            strScanItemID = ""
            strPartScan = ""
            lngScanHosoTan = 0
            strScanSerial = ""
        End Sub

    End Structure

    Public gstrctP4000 As P4000_STR

    '// ¼½ÃÑ‹¤’Ê•Ï”



    '***************************************************************************
    ' ¸ÞÛ°ÊÞÙ’è‹`
    '***************************************************************************

    '//ƒ‰ƒxƒ‹Œ…”
    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

    '//ƒ‰ƒxƒ‹
    Public Const G_CONST_BC_USER = "J******"
    Public Const G_CONST_BC_LOC = "T********"
    Public Const G_CONST_BC_PART = "P*************************"

    '// ƒGƒ‰[ƒƒbƒZ[ƒW
    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"

    '// ‰æ‘œƒtƒ@ƒCƒ‹
    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"      '

    '//
    '/‘ã•\•ñ/
    Public G_CONST_MID_H1000 = " "
    Public G_CONST_MID_H1005 = "0010"
    Public G_CONST_MID_H1010 = "0020"
    Public G_CONST_MID_H1015 = "0030"
    Public G_CONST_MID_H1020 = "0040"
    Public G_CONST_MID_H1025 = "0050"

    '/‘S”•ñ/
    Public G_CONST_MID_H2000 = " "
    Public G_CONST_MID_H2005 = "0010"
    Public G_CONST_MID_H2010 = "0020"
    Public G_CONST_MID_H2015 = "0060"
    Public G_CONST_MID_H2020 = "0050"

    '/ÌØ°“üŒÉ/
    Public G_CONST_MID_H4000 = "0000"
    Public G_CONST_MID_H4005 = "0010"
    Public G_CONST_MID_H4010 = "0020"
    Public G_CONST_MID_H4015 = "0060"
    Public G_CONST_MID_H4020 = "0050"

    '/‰æ–Ê‚ð’¼ÚŽQÆ/
    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_E1E03 = "0100"
    Public G_CONST_MID_E1E05 = "0010"
    Public G_CONST_MID_E1E10 = "0020"
    Public G_CONST_MID_E1E15 = "0030"
    Public G_CONST_MID_E1E20 = "0040"
    Public G_CONST_MID_E1E25 = "0050"
    Public G_CONST_MID_E1E30 = "0060"
    Public G_CONST_MID_E1E32 = "0061"
    Public G_CONST_MID_E1E33 = "0210"
    Public G_CONST_MID_E1E35 = "0070"
    Public G_CONST_MID_E1E37 = "0075"
    Public G_CONST_MID_E1E40 = "0080"
    Public G_CONST_MID_E1E45 = "0090"
    Public G_CONST_MID_E1E50 = "0120"
    Public G_CONST_MID_E1E55 = "0350"

    '/‘S”•ñ/
    Public G_CONST_MID_E2E03 = "0100"
    Public G_CONST_MID_E2E05 = "0010"
    Public G_CONST_MID_E2E10 = "0020"
    Public G_CONST_MID_E2E15 = "0030"
    Public G_CONST_MID_E2E20 = "0040"
    Public G_CONST_MID_E2E25 = "0050"
    Public G_CONST_MID_E2E30 = "0110"
    Public G_CONST_MID_E2E32 = "0061"
    Public G_CONST_MID_E2E33 = "0062"
    Public G_CONST_MID_E2E35 = "0070"
    Public G_CONST_MID_E2E37 = "0075"
    '2005/03/17’Ç‰Á
    Public G_CONST_MID_E2E38 = "0071"
    Public G_CONST_MID_E2E39 = "0072"

    Public G_CONST_MID_E2E40 = "0080"
    Public G_CONST_MID_E2E42 = "0230"
    Public G_CONST_MID_E2E45 = "0360"
    Public G_CONST_MID_E2E50 = "0350"

    '/ÌØ°“üŒÉ/
    Public G_CONST_MID_E4E03 = "0100"
    Public G_CONST_MID_E4E05 = "0010"
    Public G_CONST_MID_E4E10 = "0020"
    Public G_CONST_MID_E4E15 = "0030"
    Public G_CONST_MID_E4E20 = "0040"
    Public G_CONST_MID_E4E33 = "0062"
    Public G_CONST_MID_E4E40 = "0080"
    Public G_CONST_MID_E4E42 = "0230"
    Public G_CONST_MID_E4E45 = "0090"
    Public G_CONST_MID_E4E50 = "0140"


    '/‰æ–Ê‚ð’¼ÚŽQÆ/
    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"

    '/*****HTCTRL´×°Ò¯¾°¼Þ—p*********/
    Public G_CONST_MID_S0010 = "0010"

    'ÌßÛ¸Þ×ÑID
    Public G_CONST_PGID_1000 = "KDPA1000"
    Public G_CONST_PGID_2000 = "KDPA2000"
    Public G_CONST_PGID_4000 = "KDPA4000"


End Module
