Đang tải... (xem toàn văn)
Xây dựng phân hệ Kế toán tập hợp chi phí sản xuất & tính GTSX tại Công ty TNHH ống thép Hoà Phát
Môc lôc Môc lôc Lêi nãi ®Çu Ch¬ng i i.Giíi thiƯu vỊ c«ng ty tnhh ống thép hòa phát ii.giới thiệu đề tài nghiên cứu .6 1.Khái quát đề tµi 2.Tính cấp thiết đề tài Ch¬ng II Cơ sở lý luận việc nghiên cứu đề tài i.Hệ thống thông tin quản lý 1.Hệ thống thông tin quản lý 2.HiƯu qu¶ kinh tế hệ thống thông tin quản lý 10 3.Phơng pháp phát triển hệ thống thông tin quản lý .12 ii.Kế toán tập hợp chi phí sản xuất tính giá thành sản phẩm 17 1.Khái niệm chi phí sản xuất giá thành sản phẩm 17 2.Phân loại chi phÝ s¶n xuÊt 18 3.Phân loại giá thành 18 4.Phơng pháp tập hợp chi phí sản xuất 19 5.Các phơng pháp tính giá thành sản phẩm 25 Ch¬ng iii 30 i.ph©n tÝch chi tiÕt .31 1.Vài nét công tác kế toán nói chung công ty 31 2.Tóm tắt quy trình sản xuất đối tợng tính giá thành 32 3.Hiện trạng việc tính giá thành 33 4.Sơ đồ luồng thông tin hệ thống 45 5.Sơ đồ luồng liƯu cđa hƯ thèng hiƯn t¹i 54 6.Vấn đề hệ thống tính giá thành hiƯn t¹i 56 ii.thiÕt kÕ logic 58 1.Sơ đồ luồng liệu .58 2.Sơ đồ luồng th«ng tin míi 61 3.Thiết kế sở liệu logic .62 Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp iii.thiết kÕ vËt lý ngoµi 65 1.Các hình nhập số liệu: .65 2.Tr×nh tù thao tác tính giá thành 70 iv.thiÕt kÕ vËt lý 71 1.ThiÕt kÕ sở liệu vật lý .71 2.Sơ đồ cấu trúc liệu sở liệu vật lý 72 3.CÊu tróc c¸c tƯp 74 4.Tích hợp vào sở liệu hệ thống thông tin kế toán 76 5.Sơ đồ phân rà chơng trình: 78 Các thuật toán chơng trình .81 KÕt luËn 85 Phô lôc 86 tài liệu tham khảo .115 Trang - - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp Lời nói đầu Thông tin xác, kịp thời yếu tố then chốt thành công doanh nghiệp thời đại thông tin ngày nay, đặc biệt thông tin tài chúng sở cho việc định sản xuất kinh doanh Chất lợng thông tin phụ thuộc vào chất lợng hệ thống thông tin tạo nó, hệ thống thông tin kế toán - trung tâm hệ thống thông tin tài doanh nghiệp Đây lý khiến cho việc tin học hóa hệ thống thông tin kế toán trở thành yêu cầu cấp thiết doanh nghiệp nớc ta nay, phần mềm kế toán ngày đợc sử dụng rộng rÃi Thực tế vấn đề ứng dụng tin học vào quản lý kinh tế mà sinh viên chuyên ngành Tin học kinh tế cần quan tâm Trong thời gian thực tập công ty cổ phần phần mềm kế toán ASC (Accounting Software Company), em đà số nhân viên công ty tiến hành nâng cấp phần mềm phần mềm kế toán công ty TNHH ống thép Hòa Phát Không nằm thực tế nêu trên, Hòa Phát trình tin học hóa hoạt động quản lý nói chung công tác kế toán nói riêng Đây doanh nghiệp sản xuất điển hình nh doanh nghiệp sản xuất khác, công tác kế toán tập hợp chi phí sản xuất tính giá thành sản phẩm đợc coi trọng tâm công tác kế toán công ty Hòa Phát Tuy nhiên phần mềm kế toán cha có chức phơng pháp thủ công không mang lại hiệu mong muốn, yêu cầu tin học hóa công tác tính giá thành đợc đặt Vì thế, em đà chọn đề tài cho chuyên đề thực tập tốt nghiệp Xây dựng phân hệ kế toán Trang - - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A tập hợp chi phí sản xuất tính giá thành sản xuất công ty TNHH ống thép Hòa Phát Mục tiêu đề tài khắc phục trạng hiệu công tác tính giá thành, tự động kết xuất báo cáo chi phí giá thành cách đầy đủ, xác kịp thời, nhờ đó, đồng hóa việc sử dụng phần mềm công tác kế toán công ty Nội dung chuyên đề thực tập bao gồm ba chơng: Chơng I: Giới thiệu công ty TNHH ống thép Hòa Phát đề tài nghiên cứu Chơng II: Cơ sở lý luận việc nghiên cứu đề tài, bao gồm: sở tin học - hệ thống thông tin quản lý sở kinh tế - kế toán tập hợp chi phí sản xuất tính giá thành sản phẩm Chơng III: Phân tích thiết kế hệ thống thông tin tính giá thành công ty TNHH Hòa Phát Do trình độ hạn chế nên viết em tránh khỏi sai sót, em mong nhận đợc ý kiến đóng góp thầy giáo, cô giáo bạn để đề tài ngày hoàn thiện Em cảm ơn thầy giáo Trơng Văn Tú hớng dẫn thầy Em cảm ơn anh Phạm Trung - Giám đốc Công ty phần mềm kế toán ASC anh chị khác công ty giúp đỡ anh chị trình em thực tập công ty Em cảm ơn chị Nguyễn Thị Thảo Nguyên - Kế toán trởng Công ty ống thép Hòa Phát - đà tạo điều kiện cho em hoàn thành đề tài Hà Nội, ngày 12 tháng 05 năm 2001 Tác giả Trang - - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A Nguyễn Mạnh Tuân Chơng i Giới thiệu công ty tnhh ống thép hòa phát đề tài nghiên cứu i.Giới thiệu công ty tnhh ống thép hòa phát Công ty TNHH ống thép Hòa Phát thành viên Công ty Hoà Phát, bao gồm ống thép Hòa Phát, nội thất Hòa Phát, máy xây dựng Hòa Phát Ngành nghề kinh doanh Công ty ống thép Hòa Phát sản xuất loại sản phẩm thép ống Văn phòng công ty đặt số 18 Hàng Chuối, xởng sản xuất kho đặt huyện Gia Lâm Phòng Kế toán Tài Phòng có chức kiểm tra hạch toán, xác định tình trạng tài Công ty theo dõi hoạt động sản xuất kinh doanh Hạch toán chi tiết chi phí mua sắm, xác định kết sản xuất kinh doanh, toán với ngời mua, đồng thời theo dõi nguồn hình thành tài sản Giải vấn đề tiền lơng, tiền thởng, y tế bảo hiểm xà hội cán công nhân viên Công ty Lập báo cáo đầy đủ kịp thời cho ban giám đốc Phòng Kỹ thuật Quản lý kỹ thuật phát triển kỹ thuật sản phẩm từ khâu thiết kế, công nghệ đến việc khảo sát nắm bắt thông tin kỹ thuật nhằm mở rộng phơng hớng phát triển mặt kỹ thuật sản phẩm Nhiệm vụ phòng kỹ thuật: Quản lý mặt kỹ thuật tất sản phẩm Thiết kế tổ chức đạo kỹ thuật việc chế tạo sản phẩm mới, cải tiến sản phẩm Nghiên cứu công nghệ Xây dựng tiêu thông số kỹ thuật cho sản phẩm hớng dẫn thực Phụ trách công tác tiêu chuẩn hoá, công tác bảo quản tài liệu kỹ thuật công tác cung cấp vẽ thiết kế cho sản xuất Thẩm định, kiểm tra thông số kỹ thuật sản phẩm Trang - - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp Định kỳ tập hợp báo cáo với Giám đốc tình hình thực kế hoạch sản xuất hàng tháng Giao kế hoạch sản xuất cho phân xởng Phòng Hành Tổ chức quản lý công tác văn th, tiếp đón khách, tổ chức họp Nhiệm vụ phòng hành : Tiếp khách cho Giám đốc Đóng dấu, tiếp nhận công văn th báo, bảo mật văn Phân loại công văn trình Giám đốc, trực điện thoại, phục vụ hội họp ii.giới thiệu đề tài nghiên cứu 1.Khái quát đề tài Đề tài Xây dựng phân hệ kế toán tập hợp chi phí sản xuất tính giá thành sản xuất Công ty TNHH ống thép Hòa Phát Những nội dung bao gồm: Phân tích chi tiết hệ thống tính giá thành Công ty Hòa Phát, xác định vấn đề nguyên nhân chúng, từ đề giải pháp tổng thể giải vấn đề Trên sở việc phân tích chi tiết, thiết kế sở liệu cho hệ thống tích hợp vào sở liệu hệ thống thông tin kế toán Thiết kế xử lý, giao diện lập trình 2.Tính cấp thiết đề tài Công ty TNHH ồng thép Hòa Phát doanh nghiệp sản xuất điển hình với nhiều công đoạn sản xuất, việc hạch toán chi phí sản xuất tính giá thành sản phẩm có ý nghÜa rÊt quan träng bëi v× nã cung cÊp thông tin phản ánh hiệu công tác quản lý chất lợng trình sản xuất kinh doanh, tạo sở cho việc lập kế hoạch sản xuất kinh doanh, hoạch định chiến lợc dài hạn Thực tế cho thấy, hạch toán giá thành khâu phức tạp toàn công tác kế toán doanh nghiệp Hạch toán giá thành liên quan đến hầu hết yếu tố đầu vào đầu trình sản xuất kinh doanh Đảm bảo việc hạch toán giá thành xác, kịp thời, phù hợp với đặc điểm hình thành phát sinh chi phí doanh nghiệp yêu cầu có tính xuyên suốt trình hạch toán doanh nghiệp Trang - - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp Hiện nay, phòng kế toán Công ty đà đợc trang bị phần mềm kế toán nhiên phần mềm cha có chức tính giá thành Do đó, ngời chịu trách nhiệm phần kế toán sản xuất phải tập hợp chi phí sản xuất tính giá thành sản phẩm theo phơng pháp thủ công Quy trình sản xuất gồm nhiều công đoạn, đối tợng tính giá thành nhiều phức tạp , số lợng chứng từ lớn nguyên nhân khiến cho việc hạch toán giá thành theo phơng pháp thủ công hiệu quả, thờng chậm thiếu xác, cha đáp ứng đợc yêu cầu Chính thế, tin học hóa công tác hạch toán giá thành yêu cầu cấp thiết thiết Công ty Chơng II Trang - - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A Cơ sở lý luận việc nghiên cứu đề tài i.Hệ thống thông tin quản lý 1.Hệ thống thông tin quản lý Thông tin phản ánh biến phản ánh thành tri thức đối tợng đợc phản ánh tri thức chủ thể nhận phản ánh Có thể mô tả thông tin theo hình dới đây: Phản ánh Đối tượng Chủ thể Tri thức hóa Thông tin quản lý thông tin mà có cán quản lý cần có ý muốn dùng vào việc định quản lý Trang - - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A Hệ thống thông tin tập hợp ngời, thiết bị phần cứng, phần mềm, liệu thực hoạt động thu thập, l u trữ, xử lý phân phối thông tin tập hợp ràng buộc gọi môi trờng Dới mô hình hệ thống thông tin: Nguồn Đích Thu thập Xử lý lưu giữ Phân phát Kho liệu Hệ thống thông tin quản lý hệ thống thông tin trợ giúp hoạt động quản lý tổ chức, hoạt động nằm mức điều khiển tác nghiệp, điều khiển quản lý lập kế hoạch chiến lợc Cùng hệ thống thông tin mô tả theo mức khác nhau: mô hình logic, mô hình vật lý mô hình vật lý Mỗi mô hình kết góc nhìn khác nhau, mô hình logic kết góc nhìn quản lý, mô hình vật lý kết góc nhìn sử dụng mô hình vật lý kết góc nhìn kĩ thuật Ba mô hình có độ ổn định khác nhau, mô hình logic ổn định mô hình vật lý hay biến đổi Mô hình ổn định Cái ? Để làm ? Cái ? Mô hình hay đổi đâu ? Khi ? Như ? Mô hình logic (Góc nhìn quản lý) Mô hình vật lý (Góc nhìn sử dụng) Mô hình vật lý (Góc nhìn kĩ thuật) Trang - - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A Mô hình logic mô tả hệ thống làm gì: liệu mà thu thập, xử lý mà phải thực hiện, kho để chứa kết liệu để lấy cho xử lý thông tin mà hệ thống sản sinh Mô hình trả lời câu hỏi Cái ? Để làm ? Nó không quan tâm tới phơng tiện đợc sử dụng nh địa điểm thời điểm mà liệu đợc xử lý Mô hình vật lý ý tới khía cạnh nhìn thấy đợc hệ thống nh vật mang liệu vật mang kết nh hình thức đầu vào đầu ra, phơng tiện để thao tác với hệ thống, dịch vụ, phận, ngời vị trí công tác hoạt động xử lý, thủ tục thủ công nh yếu tố địa điểm thực xử lý liệu, loại hình bàn phím đợc sử dụng Mô hình ý tới mặt thời gian hệ thống, nghĩa thời điểm mà hoạt động xử lý liệu khác xảy Nó trả lời câu hỏi Cái gi ? Ai ? đâu ? Khi ? Mô hình vật lý liên quan tới khía cạnh vật lý hệ thống nhiên nhìn ngời sử dụng mà nhân viên kĩ thuật Chẳng hạn, thông tin liên quan tới loại trang thiết bị đợc dùng để thực hệ thống, dung lợng kho lu trữ tốc độ xử lý thiết bị, tổ chức vật lý liệu kho chứa, cấu trúc chơng trình ngôn ngữ thể Nó trả lời câu hỏi Nh ? Hình vẽ dới minh họa hệ thống thông tin theo ba mô hình trên: Lưu trữ liƯu Logic VËt lý ngoµi VËt lý Ngn tin Thông tin vào Logic Vật lý Vật lý Logic Vật lý Vật lý Thông tin §Ých tin Logic VËt lý ngoµi VËt lý 2.HiƯu kinh tế hệ thống thông tin quản lý Trang - 10 - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A Kết luận Xây dựng phần mềm để phục vụ công tác kế toán tập hợp chi phí sản xuất tính giá thành sản phẩm nói chung phạm vi rộng, nhiên, đề tài Xây dựng phân hệ kế toán tập hợp chi phí sản xuất tính giá thành sản phẩm công ty TNHH ống thép Hòa Phát giới hạn điều kiện cụ thể công ty Đây doanh nghiệp sản xuất điển hình với quy trình sản xuất gồm nhiều công đoạn phải tính giá thành cho sản phẩm công đoạn theo thứ tự tơng ứng Phơng pháp tính giá thành công ty giá thành công đoạn dựa định mức số lợng vật t, kì tính giá thành tháng, hình thức ghi sổ nhật kí chung Chuyển phơng pháp tính giá vốn hàng xuất kho từ trung bình di động sang trung bình tháng cách sử dụng chức Tự động áp giá vốn Trong sở liệu hệ thống tính giá thành đà thiết kế, tệp Định Khoản tệp liệu trung tâm, lu trữ toàn nghiệp vụ phát sinh tệp đợc tích hợp vào tệp CT0.DBF sở liệu hệ thống thông tin kế toán Với phơng pháp tính giá thành công ty ống thép Hòa Phát, phân bổ chi phí khâu chủ yếu trình tính giá thành Việc phân bổ chi phÝ cã thĨ chia lµm hai bíc chÝnh theo thø tự: phân bổ chi phí nguyên vật liệu chính, hai phân bổ chi phí lại (nh nguyên vật liệu phụ, nhân công trực tiếp chi phí sản xuất chung) dựa vào kết phân bổ chi phí nguyên vật liệu Giá thành sản phẩm phải tính lần lợt từ công đoạn công đoạn cuối tính đợc giá thành công đoạn đà biết giá thành công đoạn trớc Để có kết đúng, ngời sử dụng phải tuân theo quy định trình tự thao tác, là: Tính giá vốn Phân bổ chi phí Tính giá thành Các thao tác đợc lặp lại công đoạn sản xuất Cuối xem in báo cáo chi phí giá thành Trang - 85 - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A Phụ lục 1.Thủ tục phân bổ chi phí nguyên vật liệu PROCEDURE CmdPhanBo.Click() LOCAL _Dummy M.Thang1 = THISFORM.txtThang1.Value M.Thang2 = THISFORM.txtThang2.Value M.Thang = THISFORM.txtThang2.Value IF M.Thang2 = RETURN ENDIF M.Ngay_Ct1 = CTOD([01/] + TRAN(M.Thang1, '@L ##') + [/] + M_Nam) M.Ngay_Ct2 = GOMONTH(M.Ngay_Ct1, + (M.Thang2 - M.Thang1)) - SELECT USE (M_Data_Nam + [Ct]) ORDER Stt ALIAS K_Ct SELECT (M_Data_Nam + [Ct0]) ORDER Stt0 ALIAS K_Ct0 USE SELECT USE (M_Data_Nam + [SoCai]) ORDER Stt ALIAS K_SoCai SELECT USE (M_Dm_Nam + [DmSp]) ORDER Ma_Sp ALIAS M_DmSp SELECT M_DmPb1 _CoKhong = [K] SCAN FOR (Tag = [x]) M.Stt = M_W_Id + [PB3] + RIGHT(M_Nam, 2) + TRANS(M.Thang2,; [@L 99]) + TRANS(Stt, [@L 99]) M.Ten_Bt = Ten_Bt M.Stt0 = TRANS(Stt, [@L 999]) M.Tk = ALLTRIM(Tk_Co) M.Tk0 = ALLTRIM(Tk_No) M.SttOld = M.Stt &&EVAL([Stt] + TRAN(M.Thang, '@L ##')) _Loai_Pb = LEFT(Loai_Pb, 1) M.SttNew = M.Stt Trang - 86 - Ngun M¹nh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp IF EMPTY(M.Tk) OR EMPTY(M.Tk0) OR EMPTY(_Loai_Pb) WAIT WINDOWS [Chua khai bao du tai khoan danh muc!] SELECT M_DmPb1 LOOP ENDIF SELECT CREATE TABLE (M_Temp + [Nhap_Tp]) (Ma_Vt C(16), Ma_Sp C(16),; So_Luong N(15, 3),Tk_No C(8), Tk_Co C(8)) DO ScanFileV WITH M.Ngay_Ct1, M.Ngay_Ct2, [(.T.)],; EMPTY(Ma_Kho)).AND.(Tk_Co = "] + M.Tk0 + [")], [Nhap_Tp] [(! USE (M_Dm_Nam + [DmVt]) ORDER Ma_Vt ALIAS M_DmVt IN SELECT Nhap_Tp SET RELATION TO Ma_Vt INTO M_DmVt REPLACE ALL Ma_Sp WITH M_DmVt.Ma_Sp SET RELATION TO USE IN M_DmVt SELECT Ma_Sp, SUM(So_Luong) AS So_Luong, Tk_Co AS Tk,; M.Stt AS Stt0, 000000000000000.0000 AS He_So,; 000000000000000.0000 AS He_So_Vt ; FROM Nhap_Tp ; INTO TABLE (M_Temp + [M_DmTmp]) ; GROUP BY Ma_Sp SELECT M_DmTmp INDEX ON Ma_Sp TAG Ma_Sp SET ORDER TO _Dummy0 = [] DO CASE CASE INLIST(_Loai_Pb, [0], [1]) _Dummy = [M_DmSp.DM_621_] + TRANS(M.Thang2, [@L 99]) CASE _Loai_Pb = [2] _Dummy0 = [Tien2] _Dummy = [M_DmSp.DM_622_] + TRANS(M.Thang2, [@L 99]) CASE _Loai_Pb = [3] _Dummy0 = [Tien3] _Dummy = [M_DmSp.DM_623_] + TRANS(M.Thang2, [@L 99]) CASE _Loai_Pb = [4] Trang - 87 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp _Dummy0 = [Tien7] _Dummy = [M_DmSp.DM_627_] + TRANS(M.Thang2, [@L 99]) _Loai_Pb = [9] _Dummy = [M_DmSp.DM_Tong_] + TRANS(M.Thang2, [@L 99]) CASE ENDCASE SET RELATION TO Ma_Sp INTO M_DmSp ADDITIVE REPLACE ALL He_So WITH &_Dummy * So_Luong SET RELATION TO USE IN Nhap_Tp IF RECCOUNT([M_DmTmp])=0 WAIT WINDOW [Chua khai bao dinh muc hoac khong co thanh; pham nhap kho!] TIME USE IN M_DmTmp SELECT M_DmPb1 LOOP ENDIF SELECT K_Ct SEEK M.SttOld IF K_Ct.Stt = M.SttOld IF _CoKhong = [K] _CoKhong = Yes_No([Cac but toan phan bo loai nhu vay cua; thang: ] + STR(M.Thang,2) + [ Stt: ] + ; ALLTRIM(M.Stt0) + [ da co, phan bo lai?]) IF UPPER(_CoKhong) # [C] USE IN M_DmTmp EXIT ENDIF ENDIF DO DeleteCt WITH M.SttOld IN (M_Prog + [PubLic]) ENDIF SELECT USE (M_Code + [CtTmp]) ALIAS K_CtTemp COPY STRU TO (M_Temp + [K_CtTmp]) SELECT USE (M_Temp + [K_CtTmp]) EXCLU ALIAS K_CtTmp Trang - 88 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tËp tèt nghiÖp USE IN K_CtTemp _Key = [(Tk_No = "] + M.Tk + [").OR.(Tk_Co = "] + M.Tk + [")] DO ScanFile WITH M.Ngay_Ct1, M.Ngay_Ct2, _Key,; [(Tk = "] + M.Tk + [")], [K_CtTmp] SELECT K_CtTmp IF RECCOUNT() = WAIT WINDOWS NOWAIT [Khong co so lieu de phan bo!] USE IN K_CtTmp USE IN M_DmTmp SELECT M_DmPb1 LOOP ENDIF IF _Loai_Pb = [0] && Phân bổ theo định møc sè lỵng cđa vËt t USE (M_Dm_Nam + [DmDmVt]) ALIAS M_DmDmVt IN SELECT CREATE TABLE (M_Temp + [V_CtTmp]) (Nh_Ct C(1),; Ma_Vt C(16), So_Luong N(15, 3), Tien N(15, 2)) DO ScanFileV WITH M.Ngay_Ct1, M.Ngay_Ct2, [(.T.)], ; [(!EMPTY(Ma_Vt)).AND.((Tk_No = "] +; M.Tk + [").OR.] + [((Tk_Co = "] + M.Tk +; [".AND.Tk_No # "] + M.Tk0 + ")))], ; [V_CtTmp] SELECT V_CtTmp INDEX ON Ma_Vt TAG Ma_Vt SET ORDER TO SELECT Ma_Vt FROM M_DmDmVt INTO TABLE (M_Temp + [V_DmVt0]) GROUP BY Ma_Vt SELECT V_DmVt0 SCAN _Ma_Vt = ALLTRIM(Ma_Vt) SELECT V_CtTmp REPLACE ALL Ma_Vt WITH _Ma_Vt FOR Ma_Vt = _Ma_Vt Trang - 89 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp SELECT V_DmVt0 ENDSCAN USE IN V_DmVt0 IF (This.Parent.Parent.chkPhanBoVTthua.Value = 1) AND ; FILE(M_Data_Nam + [CDVDD.DBF]) SELECT USE (M_Data_Nam + [CDVDD]) ALIAS V_CdvDD SELECT [2] AS Nh_Ct, Tk, Ma_Vt, SUM(So_Luong); AS So_Luong,SUM(Tien) AS Tien, ; SUM(Tien) AS Ps_No ; FROM V_CdvDD ; WHERE (Thang = m.Thang1 - 1).AND.; (Tk = M.Tk).AND.; (INLIST(Loai_DD, [1], [3])) ; INTO TABLE (M_Temp + [V_DdTmp1]) ; GROUP BY Tk, Ma_Vt SELECT [1] AS Nh_Ct, Tk, Ma_Vt,; SUM(So_Luong) AS So_Luong, ; SUM(Tien) AS Tien, SUM(Tien) AS Ps_Co ; FROM V_CdvDD ; WHERE (Thang = m.Thang2).AND.; (Tk = M.Tk).AND.(INLIST(Loai_DD, [1], [3])); INTO TABLE (M_Temp + [V_DdTmp2]) ; GROUP BY Tk, Ma_Vt USE IN V_CdvDD USE IN V_DdTmp1 USE IN V_DdTmp2 SELECT V_CtTmp APPEND FROM (M_Temp + [V_DdTmp1]) APPEND FROM (M_Temp + [V_DdTmp2]) SELECT K_CtTmp APPEND FROM (M_Temp + [V_DdTmp1]) APPEND FROM (M_Temp + [V_DdTmp2]) ENDIF _Dummy = [So_Luong] + TRANS(M.Thang2, [@L 99]) Trang - 90 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp SELECT Ma_Sp, Ma_Vt, IIF(So_LuongSP#0,; &_Dummy/So_LuongSP, 00000000000.000000) AS SL_DinhMuc,; 0000000000000.00 AS SL_Nhap, 0000000000000.00 AS Gia, ; 0000000000000.00 AS T_SL_Nhap, 0000000000000.00 AS So_Luong, ; 0000000000000.00 AS T_So_Luong, 0000000000000.00 AS Tien, ; 0000000000000000 AS Tien_621, 0000000000000.00 AS T_Tien_621,; 0000000000000.000000 AS T_DinhMuc, 0000000000000.00 AS Dinh_Muc,; 0000000000000.000000 AS He_So, 0000000000000.000000 AS T_He_So, ;SPACE(80) AS Ten_Sp, SPACE(8) AS Dvt ; FROM M_DmDmVt ; WHERE Ma_Sp IN (SELECT Ma_Sp FROM M_DmTmp) ; INTO TABLE (M_Temp + [M_DmTmp0]) ; ORDER BY Ma_Sp, Ma_Vt SET ORDER TO Ma_Sp IN M_DmTmp SELECT V_CtTmp INDEX ON Ma_Vt TAG Ma_Vt SET ORDER TO SELECT DISTINCT Ma_Vt FROM M_DmTmp0 ; INTO TABLE (M_Temp + [M_DmTmp6]) USE (M_Dm_Nam + [DmVt]) ORDER Ma_Vt ALIAS M_DmVt IN SELECT M_DmTmp6 SCAN _Ma_Vt = ALLTRIM(M_DmTmp6.Ma_Vt) IF !SEEK(M_DmTmp6.Ma_Vt, [M_DmVt]) SELECT V_CtTmp REPLACE Ma_Vt WITH _Ma_Vt FOR Ma_Vt = _Ma_Vt SELECT M_DmTmp6 ENDIF ENDSCAN USE IN M_DmTmp6 USE IN M_DmVt * Tính tổng số tiền, số lợng vật t đà sử dụng Trang - 91 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp SELECT Ma_Vt, SUM(IIF(Nh_Ct = [2], So_Luong, - So_Luong)) AS So_Luong, SUM(IIF(Nh_Ct = [2], Tien, - Tien)) AS Tien, ; 000000000000.000 AS Gia ; FROM V_CtTmp ; WHERE So_Luong # AND Tien # ; INTO TABLE (M_Temp + [VtTmp]) ; GROUP BY Ma_Vt INDEX ON Ma_Vt TAG Ma_Vt USE IN V_CtTmp SELECT Ma_Vt, SUM(SL_DinhMuc) AS T_Dinhmuc ; FROM M_DmTmp0 ; INTO TABLE (M_Temp + [M_DmTmp2]) ; GROUP BY Ma_Vt SELECT M_DmTmp2 INDEX ON Ma_Vt TAG Ma_Vt SELECT M_DmTmp0 SET RELATION TO Ma_Vt INTO M_DmTmp2 && Tong dinh muc ve luong ma vat tu da san xuat REPLACE ALL T_DinhMuc WITH M_DmTmp2.T_DinhMuc SET RELATION TO SELECT M_DmTmp0 SET RELATION TO Ma_Sp INTO M_DmTmp && Tong so luong SP nhap kho hoan REPLACE ALL SL_Nhap WITH M_DmTmp.So_Luong SELECT Ma_Vt, SUM(SL_Nhap) AS T_SL_Nhap; FROM M_DmTmp0 ; INTO TABLE (M_Temp + [M_DmTmp3]) ; GROUP BY Ma_Vt SELECT M_DmTmp3 INDEX ON Ma_Vt TAG Ma_Vt SELECT M_DmTmp0 SET RELATION TO Ma_Vt INTO M_DmTmp3 && Tong so luong nhap kho cua cac pham duoc tao boi ma_vt Trang - 92 - Ngun M¹nh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp REPLACE ALL T_SL_Nhap WITH M_DmTmp3.T_SL_Nhap SET RELATION TO USE IN M_DmTmp3 SET RELATION TO Ma_Vt INTO M_DmTmp2 && Tong dinh muc ve luong ma vat tu da san xuat REPLACE ALL T_DinhMuc WITH M_DmTmp2.T_DinhMuc REPLACE ALL He_So WITH SL_DinhMuc * SL_Nhap SELECT Ma_Vt, SUM(He_So) AS T_He_So; FROM M_DmTmp0 ; INTO TABLE (M_Temp + [M_DmTmp4]) ; GROUP BY Ma_Vt SELECT M_DmTmp4 INDEX ON Ma_Vt TAG Ma_Vt SELECT M_DmTmp0 SET RELATION TO Ma_Vt INTO M_DmTmp4 && Tong he so phan bo REPLACE ALL T_He_So WITH M_DmTmp4.T_He_So ********************** SET RELATION TO Ma_Vt INTO VtTmp REPLACE ALL T_Tien_621 WITH VtTmp.Tien, T_So_Luong; WITH VtTmp.So_Luong SET RELATION TO REPLACE ALL Tien_621 WITH T_Tien_621*He_So / T_He_So,; So_Luong WITH T_So_Luong * He_So / T_He_So FOR (T_He_So) # SELECT Ma_Vt, T_Tien_621, T_So_Luong, SUM(Tien_621) AS Tien_621, SUM(So_luong) AS So_Luong,; 000000000000000.00 AS CL_Tien, 000000000000000.00 AS CL_SL_Xuat; FROM M_DmTmp0 ; INTO TABLE (M_Temp + [M_DmTmp5]) ; GROUP BY Ma_Vt SELECT M_DmTmp5 REPLACE ALL CL_Tien WITH T_Tien_621 - Tien_621,; CL_SL_Xuat WITH T_So_Luong - So_Luong Trang - 93 - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A SCAN FOR CL_Tien # OR CL_SL_Xuat # _Ma_Vt = Ma_Vt _CL_Tien = CL_Tien _CL_SL_Xuat = CL_SL_Xuat SELECT M_DmTmp0 CALCULATE MAX(Tien_621) TO _Max_Tien_621; FOR Ma_Vt = _Ma_Vt LOCATE FOR Tien_621 = _Max_Tien_621 AND Ma_Vt = _Ma_Vt REPLACE Tien_621 WITH Tien_621 + _CL_Tien, So_Luong ; WITH So_Luong + _CL_SL_Xuat SELECT M_DmTmp5 ENDSCAN SELECT M_DmTmp0 SET RELATION TO ********************** SELECT Ma_Sp, SUM(Tien_621) AS Tien ; FROM M_DmTmp0 ; INTO TABLE (M_Temp + [M_DmTmp1]) ; GROUP BY Ma_Sp INDEX ON Ma_Sp TAG Ma_Sp SELECT M_DmTmp SET RELATION TO Ma_Sp INTO M_DmTmp1 REPLACE ALL He_So_Vt WITH M_DmTmp1.Tien SET RELATION TO REPLACE ALL He_So WITH He_So_Vt FOR He_So_Vt # SET ORDER TO IN M_DmTmp USE IN M_DmDmVt USE IN VtTmp USE IN M_DmTmp0 USE IN M_DmTmp1 USE IN M_DmTmp2 USE IN M_DmTmp4 USE IN M_DmTmp5 ELSE && Phân bổ lơng nhân công Trang - 94 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp IF FILE(M_Data_Nam + [CdVDD.DBF]) AND; !EMPTY(_Dummy0) USE (M_Data_Nam + [CdVDD]) ALIAS V_CdVDD IN SELECT Ma_Sp, So_Luong, M.Tk AS Tk, &_Dummy0 AS; Tien, &_Dummy0 AS Ps_No; FROM V_CdVDD ; WHERE (Thang = M.Thang1 - 1).AND.; (Loai_DD = [2]).AND.(&_Dummy0 # 0); INTO TABLE (M_Temp + [V_SpDD1]) SELECT Ma_Sp, So_Luong, M.Tk AS Tk, &_Dummy0 AS ; Tien, &_Dummy0 AS Ps_Co ; FROM V_CdVDD ; WHERE (Thang = M.Thang2).AND.; (Loai_DD = [2]).AND.(&_Dummy0 # 0); INTO TABLE (M_Temp + [V_SpDD2]) USE IN V_SpDD1 USE IN V_SpDD2 USE IN V_CdvDD SELECT K_CtTmp APPEND FROM (M_Temp + [V_SpDD1]) APPEND FROM (M_Temp + [V_SpDD2]) ENDIF ENDIF SELECT M_DmTmp DELETE FOR He_So = He_So TO M.TongHeSo SUM IF M.TongHeSo = WAIT WINDOWS NOWAIT [Chua khai bao he so phan bo!] USE IN M_DmTmp USE IN K_CtTmp SELECT M_DmPb1 LOOP ENDIF SELECT K_CtTmp ON Tk TAG TkStt (M_Temp + [K_CtTmp1]) ON Tk INDEX TOTAL TO Trang - 95 - Ngun M¹nh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp USE IN K_CtTmp SELECT USE (M_Temp + [K_CtTmp1]) ALIAS K_CtTmp1 EXCLUSIVEINDEX ON Tk TAG Tk SELECT USE (M_Code + [DmCt]) ORDER Ma_Ct ALIAS M_DmCt SEEK [PK] _Ma_Ct = Ma_Ct _Nh_Ct = Nh_Ct _So_Ct = PADR(ALLTR(STR((M_DmCt->So_Ct + 1))), FSIZE([So_Ct])) REPLACE So_Ct WITH So_Ct + USE IN M_DmCt M.Len = LEN(ALLTR(M.Tk)) SELECT K_CtTmp1 SCATTER MEMVAR BLANK M.Stt = M.SttNew M.Stt0 = [001] M.User_Id = M_User_Id M.Ma_Ct = _Ma_Ct M.Nh_Ct = _Nh_Ct M.So_Ct = _So_Ct M.Ngay_Ct = M.Ngay_Ct2 M.Posted = [C] m.Ma_TTe = M_Ma_TTe0 _Ten_Bt = ALLTRIM(M.Ten_Bt) SELECT K_CtTmp1 SCAN M.Tk_Co = K_CtTmp1->Tk WAIT WINDOWS NOWAIT M_Process + [Tk ghi co: ] + ; ALLTR(M.Tk_Co) && Lấy đuôi Tk cã (621) _Tag_Tk_No = RIGHT(M.Tk_Co, LEN(M.Tk_Co) - M.Len) _Tien = K_CtTmp1->Ps_No - K_CtTmp1->Ps_Co _Tien1 = _Tien SELECT M_DmTmp SCAN Trang - 96 - Nguyễn Mạnh Tuân - Tin 39A Chuyên ®Ị thùc tËp tèt nghiƯp M.Ma_Sp = Ma_SP M.Tk_No = ALLTRIM(M_DmTmp->Tk) + _Tag_Tk_No IF !SEEK(m.Tk_No, [M_DmTk]) m.Tk_No = m_DmTmp->Tk ENDIF WAIT WINDOW NOWAIT M_Process + [, Tk ghi No: ] + ; ALLTRIM(M.Tk_No)+[ - Tk ghi co: ]+ALLTR(M.Tk_Co) M.Dien_Giai=_Ten_Bt +[; ]+ALLTRIM(M.Tk_No)+[-]+; ALLTRIM(M.Tk_Co)+[- S¶n phÈm: ]+ALLTRIM(M.Ma_Sp) SKIP IF EOF() SKIP –1 M.Tien = _Tien1 ELSE SKIP –1 M.Tien = ROUND((_Tien * M_DmTmp->He_So / ; M.TongHeSo), 0) _Tien1 = _Tien1 - M.Tien ENDIF M.Tien_Nt = M.Tien M.Tien9 = M.Tien M.Tien_Nt9 = M.Tien_Nt SELECT K_Ct0 APPEND BLANK GATHER MEMVAR M.Stt0 = TRANS(VAL(M.Stt0) + 1, [@L 999]) SELECT M_DmTmp ENDSCAN SELECT K_CtTmp1 ENDSCAN M.Dien_Giai0 = _Ten_Bt M.TTien = _Tien M.TTien_Nt = _Tien SELECT K_Ct Trang - 97 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tốt nghiệp APPEND BLANK GATHER MEMVAR DO UpDateSoCai WITH K_Ct.Stt IN (M_Prog + [Public]) USE IN M_DmTmp USE IN K_CtTmp1 SELECT M_DmPb1 ENDSCAN USE IN K_Ct USE IN K_Ct0 USE IN K_SoCai USE IN M_DmSp =MESSAGEBOX(M_End_Proc, 64, M_App_Name) 2.Thủ tục phân bổ chi phí khác: PROCEDURE CmdPhanBo.Click() WAIT WIND M_Process NOWAIT THISFORM.SetAll([MousePointer], 11) THISFORM.LockScreen = T M.Thang1 = THISFORM.txtThang1.Value M.Thang2 = THISFORM.txtThang2.Value = THISFORM.txtThang2.Value M.Thang IF M.Thang2 = RETURN ENDIF SELECT USE (M_Data_Nam + [Ct]) ORDER Stt ALIAS K_Ct SELECT USE (M_Data_Nam + [Ct0]) ORDER Stt0 ALIAS K_Ct0 SELECT USE (M_Data_Nam + [SoCai]) ORDER Stt ALIAS K_SoCai M.Ngay_Ct1 = CTOD([01/] + TRAN(M.Thang1, '@L ##') + [/] + M_Nam)M.Ngay_Ct2 = GOMONTH(M.Ngay_Ct1, + (M.Thang2 - ; M.Thang1)) - M.Ngay_Ct = M.Ngay_Ct2 M.Ma_Ct = [PK] M.Nh_Ct = [3] Trang - 98 - Nguyễn Mạnh Tuân - Tin 39A Chuyên đề thực tập tèt nghiÖp M.Ma_NVU = [K] M.Ma_TTe = M_Ma_TTe0 M.Ty_Gia = M.Posted = [C] M.Ty_Gia = M_Tk = ALLTRIM(THIS.Parent.txtTk.Value) && Tk phan bo = "627" M_Tk_Den = ALLTRIM(THIS.Parent.txtTk_Den.Value) && Den Tk = "154" M_Tk2 = ALLTRIM(THIS.Parent.txtTk2.Value) && Theo ty le = "622" M_Tk3 = ALLTRIM(THIS.Parent.txtTk3.Value) && Theo ty le = "621" M_Tk4 = ALLTRIM(THIS.Parent.txtTk4.Value) && Theo ty le = "623" M_Tk_Den2 = ALLTRIM(THIS.Parent.txtTk_Den2.Value) && Den Tk= 154" SELECT K_SoTmp ZAP SELECT M_DmTk M_Tk M_W_ID + [P2] + TRANSFORM(RECNO(), [@L 999]) + ; TRANSFORM(M.Thang, [@L 99]) DO DeleteCt WITH _Stt IN (M_Prog + [PubLic]) SEEK _Stt = SELECT CREATE TABLE (M_Temp + [Tk622]) (Tk C(8), Ma_Sp C(16), TK_DU C(8), ; Ps_No N(15, 2), Ps_No_Nt N(15, 2),Ps_Co N(15, 2), ; Ps_Co_Nt N(15, 2)) _KeyTkDen = [(Tk_DU = "] + M_Tk_Den2 + [")] _KeyTkDi = [(Tk = "] + M_Tk2 + [")] IF !EMPTY(M_Tk3) _KeyTkDi = _KeyTkDi + [.OR.(Tk = "] + M_Tk3 + [")] ENDIF IF !EMPTY(M_Tk4) _KeyTkDi = _KeyTkDi + [.OR.(Tk = "] + M_Tk4 + [")] + _KeyTkDi + [).AND.(] + _KeyTkDen + [)] WITH M.Ngay_Ct1, M.Ngay_Ct2, [(.T.)], _Key, [Tk622] ENDIF _Key = [(] DO ScanFile SELECT CREATE TABLE (M_Temp + [Tk627]) (Tk C(8), Ps_No N(15, 2),; Ps_No_Nt N(15, 2),Ps_Co N(15, 2), Ps_Co_Nt N(15, 2)) Trang - 99 - ... Giới thiệu công ty tnhh ống thép hòa phát đề tài nghiên cứu i.Giới thiệu công ty tnhh ống thép hòa phát Công ty TNHH ống thép Hòa Phát thành viên Công ty Hoà Phát, bao gồm ống thép Hòa Phát, nội... thực tập tốt nghiệp Xây dựng phân hệ kế toán Trang - - Chuyên đề thực tập tốt nghiệp Nguyễn Mạnh Tuân - Tin 39A tập hợp chi phí sản xuất tính giá thành sản xuất công ty TNHH ống thép Hòa Phát. .. Chứng từ hợp lệ Ghi sổ nhật kí chung Sổ Chuyển sang sổ Kết tập hợp CFSX Định mức NVL Tập hợp chi phí sản xuất Phân bổ chi phí sản xuất Kết phân bổ Sổ Tính giá thành Kết chuyển chi phí sản xuất Báo
