Đề tài: “Xây dựng phần mềm hỗ trợ bầu cử và quản lý cổ đông, cổ tức cho công ty cổ phần”

Tính cấp thiết của đề tài Trong những năm qua chính phủ đã đưa ra nhiều cơ chế, chính sách thích hợp, kịp thời nhằm đẩy mạnh hơn nữa quá trình cổ phần hóa tại các doanh nghiệp nhà nước với mục tiêu là đổi mới doanh nghiệp nâng cao hiệu quả sử dụng vốn của nhà nước tại doanh nghiệp. Tuy nhiên, quá trình cổ phần hóa cũng đặt ra nhiều thách thức như việc chuyển từ doanh nghiệp nhà nước sang công ty cổ phần đồng nghĩa với việc chuyển đổi hình thức pháp lý và môi...

Đề tài: “Xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức cho công ty cổ phần” PHẦN MỞ ĐẦU Tính cấp thiết đề tài Trong năm qua phủ đưa nhiều chế, sách thích hợp, kịp thời nhằm đẩy mạnh trình cổ phần hóa doanh nghiệp nhà nước với mục tiêu đổi doanh nghiệp nâng cao hiệu sử dụng vốn nhà nước doanh nghiệp Tuy nhiên, q trình cổ phần hóa đặt nhiều thách thức việc chuyển từ doanh nghiệp nhà nước sang công ty cổ phần đồng nghĩa với việc chuyển đổi hình thức pháp lý mơi trường kinh doanh doanh nghiệp Một số vấn đề nảy sinh quản lý danh sách cổ đông cho chặt chẽ, chi trả cổ tức thật xác, phải tiến hành bầu cử Hội đồng quản trị theo định kỳ Ở nhiều doanh nghiệp việc quản lý chưa khoa học dẫn đến tượng chồng chéo, thông tin đưa không qn xác Ngày nay, Cơng nghệ thơng tin phát triển mạnh mẽ, công tác quản lý ngày tin học hoá nhiều để phù hợp với yêu cầu công việc đặt Xuất phát từ thực tiễn trên, tác giả tiến hành nghiên cứu xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Phần mềm chia làm hai mảng là: + Quản lý cổ đông, chi trả cổ tức + Hỗ trợ bầu cử Mục tiêu đề tài: Đề tài: “Xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức cho công ty cổ phần Naphaco” chọn nghiên cứu nhằm mục đích : Hỗ trợ cho việc tập hợp số liệu bầu cử cách nhanh chóng xác, đảm bảo tính minh bạch khoa học số liệu biên bầu cử Theo dõi danh sách cổ đơng cơng ty, q trình chia, tách, điều chuyển, tăng giảm cổ phần chi trả cổ tức hàng năm công ty Lập báo cáo, tổng hợp thơng tin cách nhanh chóng xác, liệu lưu qua nhiều năm, dễ dàng truy cập, tìm kiếm Đối tượng phạm vi nghiên cứu đề tài Đối tượng nghiên cứu: + Các thành phần hệ thống thông tin hỗ trợ bầu cử quản lý cổ đông, cổ tức; + Luật chứng khoán thị trường chứng khoán; + Lý thuyết xây dựng phát triển phần mềm gồm vấn đề vòng đời phát triển phần mềm , thiết kế phần mềm, tổ chức đào tạo người sử dụng Phạm vi nghiên cứu đề tài: Phân tích trạng Công ty Naphaco, vào sở lý thuyết để tập trung xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Phương pháp nghiên cứu - Sử dụng phương pháp vật- biện chứng phân tích thiết kế, t phân tích chức đến mơ hình hố, xem xét vấn đề tổng hoà mối quan hệ, đảm bảo tính tồn vẹn quan hệ kết hợp với yếu tố lịch sử Đồng thời áp dụng phương pháp điều tra, khảo sát thực tế - Đề tài sử dụng phương pháp thiết kế Top – Down - Sử dụng ngơn ngữ lập trình Visualbasic 6.0 kết nối CSDL Access Đóng góp khoa học đề tài Khắc phục nhược điểm Hệ thống thông tin cũ, phần trung tâm đề tài xây dựng phần mềm hỗ trợ bầu cử (đối với công tác bầu cử ) quản lý cổ đông, cổ tức nhằm tin học hoá khâu trình quản lý ban đầu Đóng góp vào việc giảm sai sót q trình chi trả cổ tức (một q trình nhạy cảm với cổ đơng), ln có thơng tin cập nhật thường xun đầy đủ cổ đông, hỗ trợ đắc lực cho cán lãnh đạo với nguồn thơng tin nhanh chóng, xác Kết cấu luận văn Mở đầu Chương 1: Tổng quan công ty cổ phần dược phẩm Nam Hà trạng quản lý cổ đông, cổ tức, bầu cử Chương 2: Phương pháp luận quy trình xây dựng phần mềm quản lý cổ đông, cổ tức Chương 3: Xây dựng phần mềm hỗ trợ bầu cử quản lý cổ đông, cổ tức Kết luận Tài liệu tham khảo Phụ lục CHƯƠNG TỔNG QUAN VỀ CÔNG TY CỔ PHẦN DƯỢC PHẨM NAM HÀ VÀ HIỆN TRẠNG QUẢN LÝ CỔ ĐÔNG, CỔ TỨC, B ẦU C Ử 1.1.Tổng quan công ty cổ phần dược phẩm Nam Hà (Naphaco) 1.1.1 Lịch sử hình thành lĩnh vực sản xuất - Lịch sử hình thành Cơng ty cổ phần dược phẩm Nam Hà trải qua số mốc lịch sử sau: * Năm 1960 Công ty thành lập sở tiền thân cơng ty hợp doanh Ích Hoa Sinh * Năm 1966 Sát nhập lấy tên Xí nghiệp dược phẩm Nam Hà Do xu phát triển kinh tế nước cổ phần hoá doanh nghiệp quốc doanh nên Ngày 1/1/2000 Công ty chuyển đổi thành công ty Cổ phần Dược Phẩm Nam Hà Công ty dược phẩm Nam Hà công ty hàng đầu lĩnh vực sản xuất kinh doanh mặt hàng dược phẩm Vì vậy, Cơng ty tiến hành cổ phần hố nhà nước tham gia nắm giữ số lượng cổ phiếu trở thành cổ đông lớn - Lĩnh vực sản xuất Cơng ty có đơng đảo đội ngũ cán đại học, sau đại học dày dạn kinh nghiệm quản lý kỹ thuật nghiệp vụ Đội ngũ tiếp thị rộng khắp tỉnh thành nước, có nghiệp vụ động, sáng tạo đội ngũ công nhân đào tạo bản, mức độ thành thạo tay nghề ngày tăng dây truyền sản xuất thuốc Đông dược, Tân dược với 110 sản phẩm cấp số đăng ký lưu hành toàn quốc đa dạng phong phú: Thuốc nước, thuốc viên nén, viên nén ép vỉ, viên nang (capsule), viên mềm (Soft-Gelatine), viên thuốc sủi bọt cao đơn hồn tán Chất lượng hàng hóa ln ổn định kiểm sốt chặt chẽ, nhiều sản phẩm cơng ty sản xuất tặng Huân chương vàng, bạc nhiều hội chợ triển lãm thành tựu kinh tế kỹ thuật: năm 2000 2001 người tiêu dùng bình chọn "Hàng Việt Nam chất lượng cao" báo Sài gịn tiếp thị tổ chức Mục tiêu Cơng ty: Chất lượng hướng tới người tiêu dùng, sản phẩm có sức cạnh tranh cao tiến tới hội nhập khu vực giới Công ty đầu tư gần 30 tỷ đồng xây dựng, lắp đặt thiết bị dây truyền thuốc tân dược Soft-Gelatine đạt tiêu chuẩn GMP-ASEAN, phòng kiểm tra chất lượng đạt tiêu chuẩn GLP cảnh quan,mơi sinh, mơi trường tồn khu vực sản xuất trụ sở hành Tiến tới cơng ty đạt tiêu chuẩn thực hành tốt bảo quản thuốc GSP Tiêu chuẩn quản lý chất lượng hàng hóa ISO9002 Cơng ty ln nỗ lực phấn đấu để xứng đáng nơi tin cậy người tiêu dùng, bạn hàng nước lĩnh vực: Sản xuất Lưu thông nước - Xuất nhập 1.1.2 Sơ đồ tổ chức Naphaco với hệ thống phòng ban, chi nhánh phối hợp chặt chẽ tạo nên hệ thống quản lý tốt Mỗi phịng ban có chức riêng như: + Phịng tổ chức hành có chức quản lý cán công nhân viên, quản lý bảo hiểm, Quản lý danh sách cổ đông, hệ số lương, thực sách từ ban giám đốc hội đồng quản trị + Phòng kế hoạch với chức chủ yếu lập kế hoạch dài hạn ngắn hạn phù hợp với tình hình phát triển cơng ty Kiểm tra tiến độ thực hiện, hoàn thành kế hoạch thực NA PHA CO Phòng Tổ chức hành Phịng Phịng Kế hoạch Marketing Phịng Các Chi Kiểm nhánh tra Chất Các Hiệu Phòng Phòng Phịng thuốc Kế tốn Kinh Nghiên Tài vụ doanh cứu phát lượng Hình 1.1: Sơ đồ tổ chức Cơng ty cổ phần dược phẩm Nam Hà triển + Phịng Marketing: Nghiên cứu tìm hiểu thị trường ngồi nước, giới thiệu sản phẩm cơng ty sản xuất mặt hàng mà cơng ty nhập + Phịng kiểm tra chất lượng: Trước tung sản phẩm thị trường sản phẩm kiểm tra chất lượng theo tiêu chuẩn định + Các chi nhánh hiệu thuốc mạng lưới phân phối sản phẩm cơng ty Naphaco có chi nhánh Đà nẵng, Hà nội, Thành phố Hồ Chí Minh, Lạng Sơn Mạng lưới hiệu thuốc phân bố rộng rãi nước + Phòng kế tốn tài vụ:có nhiều chức có chức tính cổ tức cho cổ đơng, phát cổ tức tiền mặt chuyển khoản vào tài khoản cổ đơng + Phịng kinh doanh + Phịng nghiên cứu phát triển 1.2 Các thuật ngữ kinh tế sử dụng Trong luận văn này, tác giả có đề cập đến số khái niệm thị trường chứng khốn cổ đơng, cổ tức, cổ phần, cổ phiếu số khái niệm khác Vậy cổ đơng, cổ tức, cổ phần, cổ phiếu ? Cổ đông (tiếng Anh: Shareholder) người hay tổ chức nắm giữ quyền sở hữu phần hay toàn phần vốn góp (cổ phần) cơng ty cổ phần.Cổ đơng cá nhân tổ chức.Cổ đông hiểu nhà đầu tư cổ phiếu Cổ tức phần lợi nhuận sau thuế chia cho cổ đơng cơng ty cổ phần Cổ tức trả tiền cổ phiếu Cổ tức mà cổ đơng hưởng nhiều hay phụ thuộc vào số cổ phần loại cổ 10 phần mà cổ đơng nắm giữ Cổ phiếu giấy chứng nhận số tiền nhà đầu tư đóng góp vào công ty phát hành Cổ phiếu chứng cơng ty cổ phần phát hành bút tốn ghi sổ xác nhận quyền sở hữu cổ phần cơng ty đó.Cổ phiếu loại giấy có giá trị mua, bán, cho, tặng…Có số loại cổ phiếu như: +Cổ phiếu phổ thông +Cổ phiếu ưu đãi + Cổ phiếu quỹ: + Cổ phiếu chưa phát hành + Cổ phiếu phát hành + Cổ phiếu lưu hành Cổ phiếu phổ thông: loại cổ phiếu có thu nhập phụ̀ thuộc vào hoạt động kinh doanh công ty Người sở hữu cổ phiếu phổ thông tham gia họp Đại hội đồng cổ đông bỏ phiếu định vấn đề quan trọng công ty, quyền bầu cử ứng cử vào Hội đồng quản trị công ty Cổ phiếu ưu đãi: tương tự cổ phiếu phổ thơng cổ đơng sở hữu khơng tham gia bầu cử ứng cử vào Hội đồng quản trị, lại có quyền hưởng thu nhập cố định hàng năm theo tỷ lệ lãi suất cố định không phụ thuộc vào lợi nhuận công ty, ưu tiên chia lãi cổ phần trước cổ đông phổ thông ưu tiên chia tài sản cịn lại cơng ty cơng ty lý, giải thể Cổ phiếu quỹ: cổ phiếu giao dịch thị trường tổ chức phát hành mua lại nguồn vốn Cổ phiếu chưa phát hành: loại cổ phiếu mà công ty chưa bán 127 End With '=============================DU LIEU=================================================== === lLeft = Me.lblSTT.Width lHeight = Me.fldSTT.Height lTop = Me.fldSTT.Top 'Them data field With KetQuaBau.Sections("Detail").Controls Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = "SO_CP" ctlTang.Text = "" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = lTop ctlTang.Font.Bold = False 128 ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width For i = To nSoCot 'Tang co phan Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = arrTitle(i) ctlTang.Text = "" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = lTop ctlTang.Font.Bold = False ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" 129 lLeft = lLeft + ctlTang.Width 'Giam co phan Next Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "CP_Bau" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Khong hop le Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "KHONG_HOPLE" 130 ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Ghi chu Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "GHI_CHU" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = 131 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXLeft ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With lLeft = Me.lblSTT.Width lHeight = Me.Group_Label1.Height lTop = Me.Group_Label1.Top '====================================TOTAL============= ============================= ' Them phần tính tổng cộng With KetQuaBau.Sections("GroupFooter").Controls Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = "SUM_SO_CP" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = 132 ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" '============================= 'ctlTang.SummaryFunc = ddSFSum 'ctlTang.SummaryGroup = "GroupFooter" 'ctlTang.SummaryRunning = ddSRGroup 'c'tlTang.SummaryType = ddSMSubTotal '============================ lLeft = lLeft + ctlTang.Width For i = To nSoCot Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = arrTong(i) ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = 133 ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" '============================= 'tlTang.SummaryFunc = ddSFSum 'ctlTang.SummaryGroup = "GroupFooter" 'ctlTang.SummaryRunning = ddSRGroup 'ctlTang.SummaryType = ddSMSubTotal '============================ lLeft = lLeft + ctlTang.Width Next Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "CongCuaSum" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 134 ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "SUM_KHONG_HOPLE" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth 135 ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width 136 End With '============================TONG HOP KET QUA=========================================== lLeft = Me.lblSTT.Width lHeight = Me.LblFooter.Height lTop = Me.LblFooter.Top ' Them phan tong hop ket qua With KetQuaBau.Sections("ReportFooter").Controls Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = "ABC" ctlTang.Text = "Kết quả" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle 137 lLeft = lLeft + ctlTang.Width For i = To nSoCot Set ctlTang = Add("DDActiveReports2.Field") ctlTang.DataField = arrPhanTramKq(i) 'ctlTang.OutputFormat = "#,##0" ctlTang.Border.BottomStyle = ctlTang.Border.LeftStyle = ctlTang.Border.RightStyle = ctlTang.Border.TopStyle = ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Next Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" 138 ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth 139 ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Set ctlGiam = Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = ctlGiam.Border.LeftStyle = ctlGiam.Border.RightStyle = ctlGiam.Border.TopStyle = ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With 140 With Toolbar.Tools Add "Ra excel" End With End Sub Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool) Dim xls As ARExportExcel Dim XLSFileName As String On Error GoTo Err_handle If Tool.Caption = "Ra excel" Then frmAccsys.CDialog.FileName = "*.xls" frmAccsys.CDialog.Filter = "Excel (*.xls) | *.xls |All file (*.*) | *.*" frmAccsys.CDialog.FilterIndex = frmAccsys.CDialog.Flags = &H4 frmAccsys.CDialog.InitDir = App.path frmAccsys.CDialog.ShowSave XLSFileName = frmAccsys.CDialog.FileName If Trim(XLSFileName) "" And InStr(XLSFileName, "*")