Sub onAction(control As IRibbonControl)
Application.ScreenUpdating = False
Dim Arr_Sheet As Variant
Select Case control.ID
Case "WL93" 'Chi ti?t-Chi ti?t t?ng s?n ph?m
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Thong_Tin_San_Pham
Case "WL94" 'Mă hàng-Chi ti?t t?ng mă hàng
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Chi_Tiet_Ma_Hang
Case "WL703" 'tao ma hang
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Tao_Ma_Hang
Case "WL101" 'Date xu?t-Date xu?t theo tháng
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Date_Xuat_INV
Case "WL348" 'Date xu?t-Date xu?t theo tháng
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call The_Kho_Thang
Case "WL725" 'to mau trang thai
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call To_Mau_Trang_Thai
Case "WL170" '??n cu?i hoàn t?t-?i ??n v? trí cu?i ḍng hoàn t?t
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Den_Cuoi_Hoan_Tat
Case "WL107" 'Setup ID-Setup ID
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Set_ID
Case "WL112" 'Check ID-Check ID
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Check_ID
Case "WL356" 'Check ID-Check ID
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Check_ID1
Case "WL120" 'Check NXT-Check nh?p xu?t t?n
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Check_NXT
Case "WL121" 'Check HD-Check h?p ??ng xu?t c̣n d?
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Check_Hop_Dong
Case "WL125" 'Backup-Backup d? li?u
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Backup_Du_Lieu
Case "WL272" 'Nhóm s?n ph?m-Báo cáo th? kho theo nhóm s?n ph?m
Arr_Sheet = Array("DATABASE", "NHOM_SAN_PHAM")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_The_Kho_Nhom_San_Pham
Case "WL273" 'Chi ti?t theo s?n ph?m-Báo cáo th? kho theo chi ti?t s?n ph?m
Arr_Sheet = Array("DATABASE", "THE_KHO_CHI_TIET")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_The_Kho_Chi_Tiet_San_Pham
Case "WL274" 'Th? kho thu g?n-Báo cáo th? kho thu g?n
Arr_Sheet = Array("DATABASE", "IN_THE_KHO")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_The_Kho_Thu_Gon
Case "WL275" 'Tái ch? NSP-Báo cáo tái ch? theo nhóm s?n ph?m
Arr_Sheet = Array("DATABASE", "BAO_CAO_CHI_TIET_TAI_CHE", "BAO_CAO_TAI_CHE")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_Tai_Che_NSP
Case "WL276" 'Tái ch? chi ti?t-Báo cáo tái ch? chi ti?t
Arr_Sheet = Array("DATABASE", "BAO_CAO_CHI_TIET_TAI_CHE", "BAO_CAO_TAI_CHE")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_Tai_Che_NSP
Case "WL710" 'NET ban thanh pham
Arr_Sheet = Array("DATABASE", "BTP")
Call UnHide_Sheets(Arr_Sheet)
Call Ban_Thanh_Pham
Case "WL277" 'T?ng h?p th? kho-Báo cáo t?ng h?p th? kho
Arr_Sheet = Array("DATABASE", "THTK", "BCSX", "NL_TeToan")
Call UnHide_Sheets(Arr_Sheet)
Call THTK
Case "WL739" 'ws
Arr_Sheet = Array("DATABASE", "WS")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_WS
Case "WL740" 'ws1
Arr_Sheet = Array("DATABASE", "WS_Form1")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_WS_Form1
Case "WL741" 'ws2
Arr_Sheet = Array("DATABASE", "WS_Form2")
Call UnHide_Sheets(Arr_Sheet)
Call Xem_WS_Form2
Case "WL278" 'Nh?p s?n xu?t NSP-Báo cáo nh?p s?n xu?t theo nhóm s?n ph?m
Arr_Sheet = Array("DATABASE", "NHAP_XUAT_NSP")
Call UnHide_Sheets(Arr_Sheet)
Call Lay_Nhap_Xuat_Theo_NSP
Case "WL687" 'Nh?p s?n xu?t NSP-Báo cáo nh?p s?n xu?t theo nhóm s?n ph?m
Arr_Sheet = Array("DATABASE", "NHAP_XUAT_MSP")
Call UnHide_Sheets(Arr_Sheet)
Call Lay_Nhap_Xuat_Theo_MSP
Case "WL153" 'Xu?t Excel NSP-Xu?t báo cáo theo kho theo nhóm s?n ph?m
Arr_Sheet = Array("DATABASE", "NHOM_SAN_PHAM")
Call UnHide_Sheets(Arr_Sheet)
Call Export_The_Kho_Nhom_San_Pham
Case "WL154" 'Xu?t Excel CTSP-Xu?t báo cáo theo kho theo chi ti?t s?n ph?m
Arr_Sheet = Array("DATABASE", "THE_KHO_CHI_TIET")
Call UnHide_Sheets(Arr_Sheet)
Call Export_The_Kho_Chi_Tiet_San_Pham
Case "WL717" 'Xu?t Excel CTSP-Xu?t báo cáo theo kho theo chi ti?t s?n ph?m
Arr_Sheet = Array("DATABASE", "IN_THE_KHO")
Call UnHide_Sheets(Arr_Sheet)
Call Export_The_Kho_Chi_Tiet_San_Pham_IN
Case "WL155" 'Xu?t Excel TKTG-Xu?t báo cáo theo kho thu g?n
Arr_Sheet = Array("DATABASE", "IN_THE_KHO")
Call UnHide_Sheets(Arr_Sheet)
Call Export_The_Kho_Thu_Gon
Case "WL194" 'L?y nh?p-L?y d? li?u nh?p t? k? toán
Arr_Sheet = Array("DATABASE", "LAY_NHAP")
Call UnHide_Sheets(Arr_Sheet)
Call Lay_Nhap_File_Ke_Toan
Case "WL195" 'Tách INV xu?t-Tách INV xu?t t? file k? toán
Arr_Sheet = Array("DATABASE", "TACH_INV_XUAT_CHI_THUY", "BAO_CAO_XUAT_CONT", "HOA_DON")
Call UnHide_Sheets(Arr_Sheet)
Call Tach_INV_File_Ke_Toan
Case "WL339" 'Tách INV xu?t-Tách INV xu?t t? file k? toán
Arr_Sheet = Array("DATABASE", "TACH_INV_XUAT_CHI_THUY", "BAO_CAO_XUAT_CONT", "HOA_DON")
Call UnHide_Sheets(Arr_Sheet)
Call Phan_Tich_Chi_Tiet_Hoa_Don
Case "WL205" 'Phân tích INV-Phân tích INV xu?t
Arr_Sheet = Array("DATABASE", "TACH_INV_XUAT_CHI_THUY", "BAO_CAO_XUAT_CONT", "HOA_DON")
Call UnHide_Sheets(Arr_Sheet)
Call Phan_Tich_Chi_Tiet_INV
Case "WL215" 'Nh?p KHSX-Nh?p hàng theo KHSX M?
Arr_Sheet = Array("DATABASE", "KHSX")
Call UnHide_Sheets(Arr_Sheet)
Call Nhap_Hang_KHSX_MY
Case "WL216" 'Nh?p hàng M?-Nh?p hàng M?
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Nhap_Hang_My
Case "WL217" 'Nh?p hàng ngoài M?-Nh?p hàng ngoài M?
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Nhap_Hang_Ngoai_USA
Case "WL695" 'Nh?p hàng ngoài M?-Nh?p hàng ngoài M?
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Nhap_Hang_Ngoai_My_Da_Co_Ten
Case "WL223" 'Sort hoàn t?t-Sort theo hàng hoàn t?t
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Sort_Hoan_Tat
Case "WL228" 'Sort ch?a hoàn t?t-Sort theo hàng ch?a hoàn t?t
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Sort_Chua_Hoan_Tat
Case "WL320" 'Sort ch?a hoàn t?t-Sort theo hàng ch?a hoàn t?t chua nhap
Arr_Sheet = Array("DATABASE")
Call UnHide_Sheets(Arr_Sheet)
Call Sort_Chua_Hoan_Tat_Chua_Nhap
Case "WL759" 'Cao thanh pham
Arr_Sheet = Array("DATABASE", "CAO_THE_KHO", "DOI_NGAY_TP")
Call UnHide_Sheets(Arr_Sheet)
ThisWorkbook.Sheets("CAO_THE_KHO").Select
End Select
Application.ScreenUpdating = True
End Sub