50 lines
2.0 KiB
VB.net

Module mysqlAddress
Private mainOrderDB As String = "jomtOrderDB.jomtOrderTbl"
Private testOrderDB As String = "jomtOrderTestDB.jomtOrderTbl"
Private mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl"
Private testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl"
Private mainProdDB As String = "jomtTesterDB.jomtProductTbl"
Private testProdDB As String = "jomtTesterServerDB.jomtProductTbl"
Private mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl"
Private testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl"
Private mainPlistDB As String = "jomtTesterDB.jomtProdList"
Private testPlistDB As String = "jomtTesterServerDB.jomtProdList"
Private mainClistDB As String = "jomtTesterDB.jomtComponentTbl"
Private testClistDB As String = "jomtTesterServerDB.jomtComponentTbl"
Private Const MainNonTDDB As String = "jomtTesterDB.jomtNonTDTbl"
Private Const TestNonTDDB As String = "jomtTesterServerDB.jomtNonTDTbl"
Private mainPKCodeDB As String = "jomtTesterDB.jomtPKCodeTbl"
Private Const mainModelInfoDB As String = "jomtTesterDB.jomtModelInfoTbl"
Private Const testModelInfoDB As String = "jomtTesterServerDB.jomtModelInfoTbl"
Public applyOrderDB As String = mainOrderDB
Public applySalesDB As String = mainSalesDB
Public applyProdDB As String = mainProdDB
Public applyCartDB As String = mainCartDB
Public applyPlistDB As String = mainPlistDB
Public applyClistDB As String = mainClistDB
Public applyPKCodeDB As String = mainPKCodeDB
Public applyNonTDDB As String = MainNonTDDB
Public ApplyModelInfoDB As String = mainModelInfoDB
Structure item_info
Dim item_type As String 'P:Product / C:Component
Dim prod_code As String
Dim sales_packing_cnt_col_nm As String
Dim sales_packing_serial_col_nm As String
Dim cnt As String
Dim serial As String
End Structure
Public item_product_list As New ArrayList
Public item_component_list As New ArrayList
End Module