Module modConstMakeAP

    '//パレタイズ作業画面情報（ヘッダ部）
    Public Structure KDPL_DISP_HEAD
        Public strSeq As String
        Public strLine As String
        Public strMsc As String
        Public strPNT As String
        Public strTrm As String
        Public strCaseNo As String
        Public intNumOfPkg As Integer
        Public intNumOfScan As Integer
        Public Sub initialize()
            strSeq = ""
            strLine = ""
            strMsc = ""
            strPNT = ""
            strTrm = ""
            strCaseNo = ""
            intNumOfPkg = 0
            intNumOfScan = 0
        End Sub
    End Structure
    Public gstrctPLDispHead As KDPL_DISP_HEAD

    '//パレタイズ作業画面情報（詳細部）
    Public Structure KDPL_DISP_DATA
        Public intCheckCnt As Integer
        Public intTotalCnt As Integer
        Public strItemID As String
        Public strItemCode As String
        Public strSerial As String
        Public strQty As String
        Public strCartonNo As String
        Public strAicCaseNo As String
        Public strLine As String
        Public Sub initialize()
            intCheckCnt = 0
            intTotalCnt = 0
            strItemID = ""
            strItemCode = ""
            strSerial = ""
            strQty = ""
            strCartonNo = ""
            strAicCaseNo = ""
            strLine = ""
        End Sub
    End Structure
    Public gstrctPLDispData As KDPL_DISP_DATA

    'SPM Key構造体
    Public Structure STRCT_KEY_SPM2
        Dim YYYYMMDDS 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
        Dim CenterCode As String
        Dim Bhk As String
    End Structure

    'PICSEC2 Key構造体
    Public Structure STRCT_KEY_PICSEC2
        Dim CenterCode As String
        Dim Line As String
        Dim StartLocation As String
    End Structure

    'PALLCTN Key構造体
    Public Structure STRCT_KEY_PALLCTN
        Dim YYYYMMDD As String
        Dim Msc As String
        Dim Gr As String
        Dim CartonNo As String
    End Structure

    'PACKPLAN Key構造体
    Public Structure STRCT_KEY_PACKPLAN_PL
        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_ItemInID 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
        Dim SPM_PartName As String
    End Structure
    '//PACKAP作成情報
    Public Structure STRCT_PACKAP_DATA
        Public Bhk As String
        Public PicsType As String
        Public Cstmid As String
        Public CstmCode As String
        Public CenterCode As String
        Public SectionID As String
        Public SectionCode As String
        Public Msc As String
        Public PNT As String
        Public Trm As String
        Public CartonNo As String
        Public CartonType As String
        Public PlanSerial As String
        Public Serial As String
        Public TempSerial As String
        Public ItemGr As String
        Public ItemCode As String
        'Public KiwakuCode As String
        Public ItemInID As String
        Public ItemInCode As String
        Public ItemInCodeDisp As String
        Public PackQtyP As String
        Public CaseQty As String
        Public Location As String
        Public PalLctn As String
        Public HosoYou As String
        Public HosoTan As String
        Public HosoZai As String
        Public Inz As String
        Public SetDaisu As String
        Public PartID As String
        Public PartName As String
        Public BunkatuJ As String
        Public CryOutSectionID As String
        Public CryOutSectionCode As String

        Public Sub initialize()
            Bhk = ""
            PicsType = ""
            Cstmid = ""
            CstmCode = ""
            CenterCode = ""
            SectionID = ""
            SectionCode = ""
            Msc = ""
            PNT = ""
            Trm = ""
            CartonNo = ""
            CartonType = ""
            PlanSerial = ""
            Serial = ""
            TempSerial = ""
            ItemGr = ""
            ItemCode = ""
            'Public KiwakuCode As String
            ItemInID = ""
            ItemInCode = ""
            ItemInCodeDisp = ""
            PackQtyP = ""
            CaseQty = ""
            Location = ""
            PalLctn = ""
            HosoYou = ""
            HosoTan = ""
            HosoZai = ""
            Inz = ""
            SetDaisu = ""
            PartID = ""
            PartName = ""
            BunkatuJ = ""
            CryOutSectionID = ""
            CryOutSectionCode = ""
        End Sub

    End Structure
    'Aic + CaseNo構造体
    Public Structure STRCT_KEY_AICCASE
        Dim intIndex As Integer
        Dim Line As String
        Dim PackSeq As String
        Dim Msc As String
        Dim Msc_Disp As String
        Dim Pnt As String
        Dim Trm As String
        Dim Lot As String
        Dim Gr As String
        Dim Seq As String
        Dim CaseNo As String
        Dim YYYYMMDD As String
        Dim Kiwaku As String
        Dim AicCaseNo As String
        Dim YYYYMMDDS As String
        Dim OffDate As String
        Dim OffTime As String
        Dim KeyData As String
        Dim KasoLine As String
        Dim SPM_YYYYMMDD As String
    End Structure
    Public gstrctAicCase As STRCT_KEY_AICCASE
    '//パレタイズ用情報構造体
    Public Structure KDPL_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 intCheckFlag As Integer
        Public intCheckLbl As Integer
        Public bNextDscnOnly As Boolean  'KDケース引取りカード下段ｽｷｬﾝのみ可
        Public strMscByKDlbl As String 'KDｹｰｽ引取りｶｰﾄﾞよりのMSC
        Public strCaseNoByKDlbl As String 'KDｹｰｽ引取りｶｰﾄﾞよりのCaseNo
        Public Sub initialize()
            strSectionID = ""
            strSection = ""
            strSectionName = ""
            strCenterCode = ""
            strSearchKey = ""
            strBhk = ""
            strItemGr = ""
            intIndex = 0
            bRetry = False
            bTroubleB = False
            strIPAddress = ""
            lngBtrvStatus = 0
            strErrBtrvFile = ""
            intCheckFlag = 0
            intCheckLbl = 0
            bNextDscnOnly = False
            strMscByKDlbl = ""
            strCaseNoByKDlbl = ""
        End Sub
    End Structure

    Public gstrctKDPL As KDPL_STR
    Public Const G_CONST_BC_PL = "A********************************"

End Module
