Lời Mở Đầu Phần I. Nội dung I. Giới thiệu về chương trình kế toán II. Đặc tả chương trình: III. Lập phiếu mô tả công việc: IV.Xây dựng sơ đồ chức năng: IV. Xây dựng sơ đồ dòng dữ liệu: VI. Thiết kế chương trình trên máy tính Phần III. Kết luận Giáo viên HD: Tôn Thất Minh Mẫn
Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Lời Mở Đầu Hội nhập kinh tế Thế Giới mở cho kinh tế Việt Nam nhiều hội, nhiên DN Việt Nam gặp khơng khó khăn trước cạnh tranh ngày lớn thị trường Để nắm bắt hội , vượt qua thử thách đòi hỏi phủ nói chung doanh nghiệp Việt Nam nói riêng phải có định hướng, chiến lược phát triển kinh tế cách hiệu Một chiến lược quan trọng khâu quản lý tuyển dụng nhân công Để quản lý cách hiệu doanh nghiệp, cơng cụ khơng thể thiếu kế tốn Các thơng tin kế tốn có ý nghĩa quan trọng công tác quản lý doanh nghiệp Đồng thời kế tốn mơn khoa học nghệ thuật Tính khoa học thể việc vận dụng khoa học kỷ thuật vào cơng việc kế tốn, tính nghệ thuật thể chổ tùy vào người làm kế toán mà hiệu đạt khác Như ta biệt kế tốn cơng việc thu thập, xử lý, kiểm tra, phân tích cung cấp thơng tin kinh tế, tài hình thức giá trị vật thời gian lao động Trong kinh tế, kế tốn có đóng vai trị quan trọng nhiệm vụ cung cấp thông tin tài sản, nguồn vốn tình hình kết hoạt động sản xuất kinh doanh doanh nghiệp Nó nguồn thơng tin đáng tin cậy để nhà nước điều hành kinh tế, kiểm tra, kiểm soát hoạt động ngành, khu vực Mỗi doanh nghiệp có đặc điểm tổ chức sản xuất kinh doanh trình độ quản lý khác phải giải vấn đề tổ chức công tác kế toán Những nội dung chủ yếu việc tổ chức cơng tác kế tốn doanh nghiệp tổ chức hệ thống chứng từ kế toán, tổ chức việc luân chuyển chứng từ khoa học hợp lý, tổ chức vận dụng tài khoản kế toán nhằm phải ánh cách chi tiết theo yêu cầu quản lý cụ thể hoạt động doanh nghiệp Để nâng cao vị SVTH: Nguyễn Thị Lệ Xn Trang - - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn cạnh tranh cho doanh nghiệp, nhà quản trị cần có thơng tin xác kịp thời để có định cho chiến lược cạnh tranh doanh nghiệp, địi hỏi cơng tác kế tốn phải đáp ứng điều Trước xu hội nhập cạnh trạnh gay gắt ngày Một công cụ thiếu cạnh tranh việc áp dụng khoa học kỷ thuật công ghệ mới, cụ thể tin học hóa q trình sản xuất kinh doanh doanh nghiệp hệ thống máy tính với nhiều tính đa dạng với việc ứng dụng phần mềm khoa học cho phù hợp với yêu cầu hoạt động doanh nghiệp Từ đòi hỏi xu cạnh trạnh việc áp dụng quản lý chứng từ kế toán máy tính việc quan thiết thực cần phải thực Việc áp dụng phần mềm vô có ích doanh nghiệp, mang lại hiệu lớn cơng tác kế tốn q trình quản lý doanh nghiệp Nhận thấy tính quan trọng thiết thực mà báo cáo tìm hiểu phương thức cơng tác kế tốn chứng từ máy tính để thấy hiệu mang lại Do trình độ hiểu biết cịn hạn chế nên báo cáo khơng tránh khỏi thiếu sót Mong thầy giáo bạn góp ý để báo cáo ngày hoàn thiện Xin chân thành cảm ơn! Nha Trang, ngày 25 tháng 03 năm 2009 SVTH: Nguyeãn Thò Lệ Xuân Trang - - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn PHẦN I NỘI DUNG I GIỚI THIỆU VỀ CHƯƠNG TRÌNH KẾ TỐN Giới thiệu chung doanh nghiệp: CÔNG TY TNHH PHƯƠNG NAM - Hình thức mà chứng từ cơng ty quản lý Sổ Nhật Ký Chung - Đánh giá hàng tồn kho theo phương pháp kê khai thường xuyên - Đánh giá sản phẩm dỡ dang theo phương pháp NVL trực tiếp - Tính giá xuất kho theo phương pháp FiFo - Chịu thuế GTGT theo phương pháp khấu trừ Hình thức kế tốn Doanh Nghiệp Cơng tác kế toán đơn vị xuất phát từ chứng từ gốc kết thúc hệ thống báo cáo kế toán định kỳ thơng qua q trình ghi chép, theo dõi tính tốn xử lý số liệu sổ kế toán cần thiết Việc quy định phải mở sổ kế toán phản ánh đối tượng kế toán, kết cấu loại sổ, trình tự phương thức ghi sổ mối liên hệ loại sổ nhằm đảm bảo vai trị, chức năng, nhiêm vụ kế tốn gọi hình thức kế tốn Có loại hình thức kế tốn là: hình thức sổ nhật ký chung, hình thức nhật ký sổ cái, hình thức chứng từ ghi sổ hình thức nhật ký chứng từ Trong báo cáon ta nghiên cứu hình thức nhật ký chung Hình thức nhật ký chung : Sơ Đồ: Sổ nhật ký đặc biệt Chứng từ gốc Sổ nhật ký chung Sổ, thẻ kế toán chi tiết Sổ Bảng tổng hợp chi tiết Bảng cân đối phát sinh SVTH: Nguyễn Thị Lệ Xn Báo cáo tài Trang - - Báo Cáo Kế Toán Máy GVHD: Tôn Thất Minh Mẫn :Ghi định kỳ hàng ngày : Ghi cuối kỳ : Quan hệ đối chiếu Sổ nhật ký chung (nhật ký tổng quát) sổ kế toán dùng để ghi chép nghiệp vụ kinh tế phát sinh theo trình tự thời gian quan hệ đối ứng tài khoản nghiệp vụ đó, làm để ghi vào sổ Sổ sổ kế toán tổng hợp dùng để tổng hợp hệ thống nghiệp vụ phát sinh tài khoản tổng hợp Sổ liệu sổ cuối tháng dùng để ghi vào bảng cân đối số phát sinh từ ghi vào bảng cân đối kế toán báo biểu kế toán khác Sổ nhật ký đặc biệt sử dụng trường hợp nghiệp vụ phát sinh nhiều tập trung nghi vào nhật ký chung thí trở ngại nhiều mặt, phải mở sổ nhật ký đặc biệt để ghi chép riêng cho loại nghiệp vụ chủ yếu Nhật ký đặc biệt gồm có loại sau: bán hàng chịu, mua hàng chịu, thu tiền mặt chi tiền mặt Khi dùng sổ nhật ký đặc biệt chứng từ gốc trước hết ghi vào sổ nhật ký đặc biệt, sau hàng ngày định kỳ tổng hợp số liệu nhật ký đặc biệt ghi lần vào sổ Ngoài sổ nhật ký đặc biệt, tùy theo yêu cầu quản lý loại sản tài sản loại nghiệp vụ tài sản định, vật liệu, hàng hóa, thành phẩm, chi phí sản xuất… Người ta phải mở sổ thẻ kế toán chi tiết Đây loại sổ kế toán dùng để ghi chi tiết, việc ghi chép sổ kế toán tổng hợp nhằm phục vụ yêu cầu công tác kiểm tra phân tích Khi mở sổ kế tốn chi tiết chứng từ gốc ghi vào sổ kế toán chi tiết, cuối tháng vào sổ kế toán chi tiết lập bảng tổng hợp chi tiết cho tài khoản tổng hợp để đối chiếu với số liệu tài khoản sổ hay bảng cân đối tài khoản SVTH: Nguyễn Thị Lệ Xuân Trang - - Báo Cáo Kế Toán Máy GVHD: Tôn Thất Minh Mẫn Hàng ngày, vào chứng từ dùng làm ghi sổ, trước hết ghi nghiệp vụ phát sinh vào sổ nhật ký chung, sau số liệu ghi sổ nhật ký chung để ghi vào sổ theo tài khoản kế toán phù hợp Nếu đơn vị có mở sổ kế tốn chi tiết đồng thời với việc ghi sổ nhật ký chung, nghiệp vụ phát sinh ghi vào sổ kế toán chi tiết liên quan Trường hợp đơn vị mở sổ nhật ký đặc biệt hàng ngày vào chứng từ dùng làm chứng từ ghi sổ, ghi nghiệp vụ kinh tế phát sinh vào sổ nhật ký đặc biệt có liên quan Định kỳ (3,5,10 …ngày) cuối tháng, tùy theo khối lượng nghiệp vụ kinh tế phát sinh tổng hợp sổ cái, sau loại trừ số trùng lặp nghiệp vụ ghi đồng thời vào nhiều sổ nhật ký đặc biệt (nếu có) Cuối tháng, cuối quý, cuối năm, cộng số liệu sổ cái, lập bảng cân đối phát sinh Sau điều tra đối chiếu khớp đúng, số liệu ghi sổ bảng tổng hợp chi tiết (được lập từ sổ kế toán chi tiết) dùng để lập báo cáo tài Về nguyên tắc, tổng số phát sinh nợ tổng số phát sinh có sổ nhật ký chung phải (sau loại trừ hết số trùng lặp sổ nhật ký đặc biệt kỳ) Về vào chứng từ gốc ghi nghiệp vụ phát sinh vào sổ nhật ký chung theo trình tự thời gian sau vào sổ nhật ký chung để ghi vào sổ Nhưng nghiệp vụ phát sinh nhiều, để đơn giản giảm bớt khối lượng ghi vào sổ nhật ký chung người ta mở sổ nhật ký đặc biệt để ghi chép riêng cho loại nghiệp vụ chủ yếu (phương pháp ghi chép tương tự ghi chép sổ nhật ký chung) Phương pháp hạch toán hàng tồn kho: Trong doanh nghiệp áp dụng hai phương pháp kế toán hàng tồn kho phương pháp kê khai thường xuyên phương pháp kiểm kê định kỳ Việc lựa chọn phương pháp tùy thuộc vào tình hình cụ thể SVTH: Nguyễn Thị Lệ Xuân Trang - - Báo Cáo Kế Toán Máy GVHD: Tôn Thất Minh Mẫn doanh nghiệp như: đặc điểm, tính chất, số lượng chủng loại u cầu cơng tác quản lý doanh nghiệp Khi thực hiên phương pháp phải đảm bảo tính chất quán niên độ kế toán Trong báo cáo dùng phương pháp kế toán hàng tồn kho phương pháp kê khai thường xuyên Phương pháp kê khai thường xuyên phương pháp theo dõi phản ánh thường xun liên tục có hệ thống tình hình nhập, xuất tồn kho vật liệu sổ kế toán Các tài khoản hàng tồn kho theo phương pháp dùng để phản ánh số có, tình hình biến động tăng, giảm vật liệu Giá trị vật liệu tồn kho xác định lúc kỳ kế toán sổ kế toán Cuối kỳ, kế toán vào số liệu kiểm kê thực tế vật liệu, so sánh đối chiếu với số liệu sổ kế toán, có chênh lệch phải tiến hành xử lý kịp thời Phương pháp thường áp dụng cho đơn vị sản xuất (công nghiệp, xây lắp) đơn vị thương nghiệp kinh doanh mặt hàng có giá trị lớn Phương pháp tính giá xuất kho: Vật liệu nhập từ nhiều nhiều nguồn khác có giá trị nhập kho khác nên xuất dùng sử dụng phương pháp tính giá xuất kho khác Tùy theo đặc điểm hoạt động doanh nghiệp, vào yêu cầu công tác quản lý trình độ nghiệp vụ nhân viên kế tốn sử dụng phương pháp tính giá xuất kho là: Phương pháp nhập trước xuất trước (FIFO), phương pháp nhập sau xuất trước (LIFO), phương pháp bình qn gia quyền, phương pháp thực tế đích danh Trong báo cáo ta nghiên cứu phương pháp nhập trước xuất trước (FIFO): Theo phương pháp giả thiết số vật liệu nhập trước xuất trước, xuất hết số nhập trước đến số nhập sau theo giá thực tế số hàng xuất Nói cách khác sở phương pháp giá thực tế vật liệu nhập trước dùng làm giá để tính giá thực tế vật liệu xuất trước giá trị vật liệu tồn kho giá lần sau SVTH: Nguyễn Thị Lệ Xn Trang - - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Ví dụ: Tình hình vật liệu A tháng Công Ty Phương Nam sau: Vật liệu A tồn kho đầu kỳ 1.000 kg, đơn giá 1.000 đ/kg Trong tháng có lần mua vật liệu sau: Ngày 01 mua 5.000kg, đơn giá 1.050đ/kg Ngày 05 mua 10.000kg, đơn giá 1.080 đ/kg Ngày 15 mua 15.000kg, đơn giá 1.040 đ/kg Ngày 25 mua 3.000kg, đơn giá 1.000 đ/kg Vật liệu A xuất dùng cho sản xuất kỳ sau: Ngày 04 xuất cho sản xuất trực tiếp chế tạo sản phẩm 4.000kg Ngày 14 xuất cho sản xuất trực tiếp chế tạo sản phẩm 12.000kg + Gía thực tế vật liệu tính theo phương pháp FIFO thường xuyên sau: Ngày 04: 1.000 kg x 1.000 đ/kg = 1.000.000 đ 3.000 kg x 1.050 đ/kg = 3.150.000 đ Ngày 14: 2.000 kg x 1.050 đ/kg = 2.100.000 đ 10.000 kg x 1.080 đ/kg = 10.800.000 đ + Giá thực tế vật liệu tính theo phương pháp FIFO định kỳ sau: Do nhập trước xuất trước nên giá trị tồn kho tính lần sau Số lượng tồn = 18.000 kg Giá trị tồn = (3.000 kg x 1.000 đ/kg) + (15.000 kg x 1.040 đ/kg) = 18.600.000 đ Ta có bảng tổng hợp sau: Giá trị vật liệu tồn kho đầu kỳ = 1.000 x 1.000 đ/kg = 1.000.000 đ = 5.000 kg x 1.050 đ/kg = 10.000 kg x 1.080 = 5.250.000 đ Giá trị vật liệu nhập kỳ đ/kg = 10.800.000 đ = 15.000 kg x 1.040 =15.600.000 đ đ/kg = 3.000.000 đ = 3.000 kg x 1.000 đ/kg Giá trị vật liệu sử dụng SVTH: Nguyễn Thò Lệ Xuân 35.650.000 đ Trang - - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn kỳ Giá trị vật liệu tồn kho cuối kỳ Giá trị vật liệu xuất dùng Cho sản xuất trực tiếp 18.600.000 đ 17.050.000 đ Phương pháp đánh giá sản phẩm dỡ dang ( theo phương pháp chi phí nguyên vật liệu trực tiếp) Đánh giá sản phẩm dễ dang theo phương pháp chi phí nguyên vật liệu thực tế sử dụng phù hợp với DN mà CPNVL chiếm tỷ trọng lớn giá thành sản phẩm thông thường >70% Sản phẩm dỡ dang tính phần nguyên vật liệu chính, chi phái khác khác tính hết cho sản phẩm hồn thành Ngun vật liệu xuất dung tồn từ đầu q trình sản xuất mức tiêu hao NVL tính cho sản phẩm hồn thành sản phẩm dỡ dang Công thức: CPSXDDCK= CPSXDDĐ + CPNVLPSTK ΧSLSPDDCK SLSPHT + SLSPDDCK 6.Phương pháp chịu thuế VAT: Phương pháp tính thuế GTGT: Ta xét phương pháp tính GTGT theo phương pháp khấu trừ: Thuế GTGT phải nộp xác định theo công thức sau: Thuế GTGT phải nộp = Thuế GTGT đầu - Thuế GTGT đầu vào - Các khoản giảm trừ Trong đó: Thuế GTGT đầu = Số lượng sản phẩm, hàng hóa, dịch vụ tiêu thụ SVTH: Nguyễn Thị Lệ Xn x Đơn giá tính thuế x Thuế suất thuế GTGT Trang - - Báo Cáo Kế Toán Máy - GVHD: Tôn Thất Minh Mẫn Thuế GTGT đầu vào tổng số thuế GTGT tốn ghi hóa đơn GTGT mua hàng hóa, dịch vụ chứng từ nộp thuế GTGT hàng hóa nhập - Điều kiện áp dụng: Đối với doanh nghiệp có đầy đủ điều kiện sổ kế toán, đơn chứng từ thuế GTGT Tổ chức máy kế toán Theo quy định luật kế toán Việt Nam, doanh nghiệp phải tổ chức máy kế tốn, bố trí người làm kế toán thuê làm kế toán Đơn vị kế tốn phải bố trí người làm kế tốn trưởng Doanh nghiệp tổ chức máy kế tốn, bố trí người làm kế toán trưởng theo tiêu chuẩn, điều kiện quy định pháp luật hành định thuê làm kế toán, thuê làm kết toán trưởng Bộ máy kế toán tập hợp kế toán viên trang bị kỹ thuật để thực toàn cơng tác kế tốn doanh nghiệp Bộ máy kế toán phải thực nhiều nhiệm vụ, nhiều khâu cơng việc khác Vì vậy, để tổ chức cơng tác kế toán cách khoa học, hợp lý; đồng thời thỏa mãn yêu cầu hệ thống kiểm sốt nội bộ; địi hỏi phải có phân chia cơng việc thành nhóm, phận khác Việc phân cơng cơng việc máy kế tốn phụ thuộc nhiều khối lượng công việc phần hành kế toán Phần hành kế toán khái niệm sử dụng để xác định khối lượng cơng tác đối tượng kế tốn Trong doanh nghiệp, phần hành kế tốn bao gồm: - Kế tốn TSCĐ, cơng cụ lao động đầu tư dài hạn - Kế toán tồn kho - Kế toán tiền lương khoản phải trích theo lương; - Kế tốn tiêu thụ; - Kế toán vốn tiền đầu tư ngắn hạn; SVTH: Nguyễn Thị Lệ Xn Trang - - Báo Cáo Kế Tốn Máy - Kế tốn cơng nợ phải thu, phải trả; - Kế tốn chi phí giá thành; - Kế toán xây dựng bản’ - Kế toán vốn, quỹ; - GVHD: Tơn Thất Minh Mẫn Kế tốn tổng hợp Tùy thuộc vào loại hình kinh doanh, đặc điểm qui mô hoạt động mà người ta bố trí phân hành kế tốn nhóm, phận phù hợp với u cầu hạch tốn Phịng kế toán phận máy kế toán Việc tổ chức phịng kế tốn khoa hoc tăng cường việc kiểm tra, giám sát kế toán hoạt động sản xuất kinh doanh Cung cấp kịp thời, chổ thông tin phục vụ công tác đạo quản lý doanh nghiệp Kế toán trưởng nắm quyền quản lý phịng kế tốn chịu trách nhiệm báo cáo với cấp nhằm giúp cho việc quản lý đưa định ban giám đốc xác hiệu Bảo đảm thống tập trung công việc kế tốn, tập trung thơng tin phục vụ quản lý doanh nghiệp SVTH: Nguyễn Thị Lệ Xn Trang - 10 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn End If End Sub Private Sub TxtnGAYct_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TxtngayCT.Text) Then TxtngayCT.Text = CVDate(TxtngayCT.Text) If (cboMCT.Text) "" And (TxtSCT.Text) "" And (TxtngayCT.Text) "" Then TXTKHOACT.Value = Year(TxtngayCT.Value) & Right("0" & Month(TxtngayCT.Value), 2) & Right("0" & Day(TxtngayCT.Value), 2) & " - " & cboMCT.Value & " - " & Right("0000" & TxtSCT.Value, 5) End If Else MsgBox "NGAY KHONG HOP LE", vbCritical, "CANH BAO" TxtngayCT.Text = "" SendKeys " + {TAB}" End If End Sub Private Sub Txtsct_Exit(ByVal Cancel As MSForms.ReturnBoolean) If (cboMCT.Text) "" And (TxtSCT.Text) "" And (TxtngayCT.Text) "" Then TXTKHOACT.Value = Year(TxtngayCT.Value) & Right("0" & Month(TxtngayCT.Value), 2) & Right("0" & Day(TxtngayCT.Value), 2) & " - " & cboMCT.Value & " - " & Right("0000" & TxtSCT.Value, 5) End If End Sub Private Sub txtTT1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(TxtTT1.Text) Then MsgBox "gia tri khong hop le", 16, "canh bao" TxtTT1.Value = "" SendKeys "+{tab}" Else TxtSTT1.Value = SVTH: Nguyễn Thị Lệ Xn Trang - 189 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn t1 = TxtTT1.Text Call tien TxtTT1.Text = Format(TxtTT1.Text, "#,##.00") End If End Sub Private Sub txtTT2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(TxtTT2.Text) Then MsgBox "gia tri khong hop le", 16, "canh bao" TxtTT1.Value = "" SendKeys "+{tab}" Else TxtSTT2.Value = t2 = TxtTT2.Text Call tien TxtTT2.Text = Format(TxtTT2.Text, "#,##.00") End If End Sub Private Sub TxtSL1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TxtSL1.Value "" And TXTDGIA1.Value "" Then TxtTT1.Value = TxtSL1.Value * TXTDGIA1.Value End If End Sub Private Sub TxtSL2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TxtSL2.Value "" And TXTDGIA2.Value "" Then TxtTT2.Value = TxtSL2.Value * TXTDGIA2.Value End If End Sub Private Sub txtstt1_Exit(ByVal Cancel As MSForms.ReturnBoolean) SVTH: Nguyễn Thị Lệ Xuân Trang - 190 - Báo Cáo Kế Toán Máy GVHD: Tôn Thất Minh Mẫn Call mautin Call tien End Sub Private Sub txtstt2_Exit(ByVal Cancel As MSForms.ReturnBoolean) Call mautin Call tien End Sub Private Sub UserForm_Activate() Sheets("dmct").Select ST = "a3:b" & Range("d1").Value cboMCT.RowSource = ST Sheets("khoact").Select Range("c1:c1000").Select Selection.ClearContents Sheets("xnvt").Range("a2:a1000").AdvancedFilter Action:=xlFilterCopy, _ criteriarange:="", copytorange:=Range("c1:c1000"), unique:=True ST = "c2:c" & Range("d1").Value FrmHCNXVT.cbokhoact.RowSource = ST Sheets("DMTK").Select ST = "A3:B" & Range("D1").Value FrmHCNXVT.CboTKN1.RowSource = ST FrmHCNXVT.CboTKN2.RowSource = ST FrmHCNXVT.CboTKC1.RowSource = ST FrmHCNXVT.CboTKC2.RowSource = ST Sheets("DMKH").Select ST = "A3:B" & Range("G1").Value FrmHCNXVT.CboKHN1.RowSource = ST FrmHCNXVT.CboKHN2.RowSource = ST SVTH: Nguyễn Thị Lệ Xn Trang - 191 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn FrmHCNXVT.CboKHC1.RowSource = ST FrmHCNXVT.CboKHC2.RowSource = ST Sheets("DMKHO").Select ST = "A3:B" & Range("D1").Value FrmHCNXVT.CboMK1.RowSource = ST FrmHCNXVT.CboMK2.RowSource = ST Sheets("DMVT").Select ST = "A3:D" & Range("E1").Value FrmHCNXVT.CBOMVT1.RowSource = ST FrmHCNXVT.CBOMVT2.RowSource = ST CboMNX1.AddItem "PNK" CboMNX1.AddItem "PXK" CboMNX2.AddItem "PNK" CboMNX2.AddItem "PXK" txtMT.Value = TxtTT.Value = FrmHCNXVT.cbokhoact.SetFocus End Sub Public Function VND(baonhieu) As String Dim ketqua, sotien, nhom, chu, s1, s2, s3, dich As String Dim n, vitri, j As Byte, s As Double, hang, DOC, Dem If baonhieu = Then ketqua = "khong dong" Else If Abs(baonhieu) > 1E+15 Then ketqua = "so qua lon" Else GoSub lamviec SVTH: Nguyễn Thị Lệ Xn Trang - 192 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn End If End If VND = UCase(Left(ketqua, 1)) + Mid(ketqua, 2) Exit Function lamviec: If baonhieu < Then ketqua = "tru" & Space(1) Else ketqua = Space(0) End If sotien = Format(Abs(baonhieu), "###########0.00") sotien = Right(Space(15) & sotien, 18) hang = Array("nome", "tram", "muoi", "") DOC = Array("none", "ngan ty", "ty", "trieu", "ngan", "dong", "") Dem = Array("none", "mot", "hai", "ba", "bon", "nam", "sau", "bay", "tam", "chin") For n = To nhom = Mid(sotien, n * - 2, 3) If nhom Space(3) Then Select Case nhom Case "000" If I = Then chu = "dong " & Space(1) Else chu = Space(0) Case ".00" chu = "chan" Case Else s1 = Left(nhom, 1) s2 = Mid(nhom, 2, 1) s3 = Right(nhom, 1) chu = Space(0) SVTH: Nguyễn Thị Lệ Xn Trang - 193 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn hang(3) = DOC(n) For j = To dich = Space(0) s = Val(Mid(nhom, j, 1)) If s > Then dich = Dem(s) & Space(1) & hang(j) & Space(1) Select Case j Case And s = dich = "muoi " & Space(1) Case And s = And nhom Space(2) & "0" dich = hang(j) & Space(1) Case And s = And s2 Space(1) And s2 "0" dich = "l" & Mid(dich, 2) Case And s = And s3 "0" If (s1 >= "1" And s1 Then Mid(chu, vitri, 9) = "muoi mot" ketqua = ketqua & chu End If Next n Return End Function Public Sub THEM() TXTKHOACT.Value = "" cboMCT.Value = "PTTM" SVTH: Nguyễn Thị Lệ Xn Trang - 194 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn TxtSCT.Value = "" TxtngayCT.Value = "" TXTND.Value = "" TxtSTT1.Value = "" TxtSTT2.Value = "" CBOMVT1.Value = "" CBOMVT2.Value = "" TxtTVT1.Value = "" TxtTVT2.Value = "" TXTDG1.Value = "" TXTDG2.Value = "" CboMNX1.Value = "" CboMNX2.Value = "" CboMK1.Value = "" CboMK2.Value = "" CboTKN1.Value = "" CboTKN2.Value = "" CboTKC1.Value = "" CboTKC2.Value = "" CboTKN1.Value = "" CboTKN2.Value = "" CboKHN1.Value = "" CboKHN2.Value = "" CboKHC1.Value = "" CboKHC2.Value = "" TxtTT1.Value = "" TxtTT2.Value = "" TxtSL1.Value = SVTH: Nguyễn Thị Lệ Xuân Trang - 195 - Báo Cáo Kế Toán Máy GVHD: Tôn Thất Minh Mẫn TxtSL2.Value = TXTDG1.Value = TXTDG2.Value = TxtTT1.Value = TxtTT2.Value = txtMT.Value = TxtTT.Value = cboMCT.SetFocus End Sub SVTH: Nguyễn Thị Lệ Xn Trang - 196 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Private Sub CmdBC_Click() frmQLCTKT.Hide Sheets("sqtm").Select ActiveWindow.SelectedSheets.PrintPreview Load frmQLCTKT frmQLCTKT.Show End Sub Private Sub cmdCNCT_Click() Load FrmCNCT FrmCNCT.Show End Sub Private Sub CmdDMCT_Click() Load FrmMCT FrmMCT.Show End Sub Private Sub CmdDMK_Click() Load FrmDMKho FrmDMKho.Show End Sub Private Sub CmdDMKH_Click() Load frmDMKH frmDMKH.Show End Sub Private Sub CmdDMTK_Click() Load frmmtk frmmtk.Show End Sub Private Sub CmdDMVT_Click() SVTH: Nguyễn Thị Lệ Xn Trang - 197 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Load FrmDMVT FrmDMVT.Show End Sub Private Sub CmdHCCT_Click() Load frmHCCT frmHCCT.Show End Sub Private Sub CmdHCXN_Click() Load FrmHCNXVT FrmHCNXVT.Show End Sub Private Sub Cmdkq_Click() frmQLCTKT.Hide Sheets("cp_gt").Select ActiveWindow.SelectedSheets.PrintPreview Load frmQLCTKT frmQLCTKT.Show End Sub Private Sub CmdKT_Click() ActiveWorkbook.Close savechanges:=True End Sub Private Sub CmdSCTVL_Click() frmQLCTKT.Hide Sheets("sctvl").Select ActiveWindow.SelectedSheets.PrintPreview Load frmQLCTKT frmQLCTKT.Show End Sub SVTH: Nguyễn Thị Lệ Xn Trang - 198 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Private Sub CmdSDQ_Click() Load FrmSDQ FrmSDQ.Show End Sub Private Sub CmdSDTK_Click() Load FrmSDTK FrmSDTK.Show End Sub Private Sub CmdSDVT_Click() Load frmSDVT frmSDVT.Show End Sub Private Sub CmdTHEK_Click() frmQLCTKT.Hide Sheets("thekho").Select ActiveWindow.SelectedSheets.PrintPreview Load frmQLCTKT frmQLCTKT.Show End Sub Private Sub CmdTHXNT_Click() Load FrmTHXNT FrmTHXNT.Show End Sub Private Sub CmdTTTC_Click() Load frmTTTC frmTTTC.Show End Sub Sub dongCSDL() SVTH: Nguyễn Thị Lệ Xn Trang - 199 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Windows("xuanktm.xls").Activate Load frmQLCTKT frmQLCTKT.Show End Sub Private Sub CmdTTTK_Click() Load FrmTTTKH FrmTTTKH.Show End Sub Private Sub CmdXNVT_Click() Load FrmXNVT FrmXNVT.Show End Sub SVTH: Nguyễn Thị Lệ Xn Trang - 200 - Báo Cáo Kế Toán Máy GVHD: Tôn Thất Minh Mẫn Private Sub LGI_Click() If MK = "2009" Then frmGiaodien.Hide Load frmQLCTKT frmQLCTKT.Show Else MsgBox "Mat khau khong hop le", vbCritical, "Quan ly chung tu ke toan" MK.Value = "" SVTH: Nguyễn Thị Lệ Xn Trang - 201 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn MK.SetFocus End If End Sub Private Sub UserForm_Activate() MK.SetFocus End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) MsgBox "Ban khong nhap mat khau" & Chr(13) & "Vui long lien he tac gia, thanks!" ActiveWorkbook.Close savechanges:=False End Sub Sub auto_open() Load frmGiaodien frmGiaodien.Show End Sub Phần III KẾT LUẬN Ưu điểm: Cập nhật thông tin nhanh, xác, tiện lợi giúp cho người sử dụng tiết kiệm nhiều thời gian Đây lợi lớn người sử dụng việc cập nhật thơng tin cho kế tốn viên Là cơng cụ hữu ích giúp cho nhà lãnh đạo việc quản lý Nhược điểm: Tính bảo mật chương trình chưa hồn hảo cho nhập chứng từ trùng lắp ngơn ngữ VB cho phép nhập chứng từ trùng lắp Nguyên nhân: Do phần mềm chương trình cịn nhiều hạn chế Kiến thức người lập trình viên cịn nhiều hạn chế Cách khắc phục: Excel không cho phép nhập chứng từ trùng lắp khắc phục cách viết chương trình VB Ta viết chương trình kế tốn phần mềm SVTH: Nguyễn Thị Lệ Xn Trang - 202 - Báo Cáo Kế Tốn Máy SVTH: Nguyễn Thị Lệ Xn GVHD: Tôn Thất Minh Mẫn Trang - 203 - ... Nguyễn Thị Lệ Xn Trang - 10 - Báo Cáo Kế Tốn Máy GVHD: Tơn Thất Minh Mẫn Sơ đồ phịng kế tốn Kế tốn trưởng Kế toán tổng hợp Kế toán thu chi II Kế toán vật tư Kế tốn cơng nợ Kế tốn tiêu thụ Kế tốn... kiện sổ kế toán, đơn chứng từ thuế GTGT Tổ chức máy kế toán Theo quy định luật kế toán Việt Nam, doanh nghiệp phải tổ chức máy kế tốn, bố trí người làm kế toán thuê làm kế toán Đơn vị kế tốn phải... Cáo Kế Toán Máy SVTH: Nguyễn Thị Lệ Xn GVHD: Tơn Thất Minh Mẫn Trang - 42 - Báo Cáo Kế Toán Máy SVTH: Nguyễn Thị Lệ Xn GVHD: Tơn Thất Minh Mẫn Trang - 43 - Báo Cáo Kế Tốn Máy SVTH: Nguyễn Thị Lệ