Xây dựng phân hệ kế toán tập hợp chi phí sản xuất và tính giá thành sản xuất tại công ty tnhh ống thép hòa phát

Giới thiệu về công ty TNHH ống thép Hòa Phát

Công ty TNHH ống thép Hòa Phát là một thành viên của 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, phụ tùng thiết bị Hòa Phát. Ngành nghề kinh doanh của công ty ống thép Hòa Phát là sản xuất các loại sản phẩm thép ống Văn phòng công ty đặt tại số

18 Hàng Chuối, các xởng sản xuất và các kho đặt tại huyện Gia L©m

Phòng Kế toán - Tài chính

Phòng có chức năng kiểm tra và hạch toán, xác định tình trạng tài chính hiện tại của công ty và theo dõi mọ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 quả sản xuất kinh doanh, thanh toán với ngời mua, đồng thời theo dõi các nguồn hình thành tài sản.

Giải quyết các vấn đề về tiền lơng, tiền thởng, y tế và bảo hiểm xã hội của cán bộ công nhân viên trong công ty

Lập các báo cáo đầy đủ và kịp thời cho ban giám đốc

Quản lý kỹ thuật và phát triển kỹ thuật sản phẩm từ các

Luận văn tốt nghiệp đại học thông tin kỹ thuật mới nhằm mở rộng phơng hớng phát triển về mặt kỹ thuật sản phẩm Nhiệm vụ chính của phòng kỹ thuật:

Quản lý về mặt kỹ thuật đối với tất cả các sản phẩm

Thiết kế và tổ chức chỉ đạo kỹ thuật việc chế tạo các sản phẩm mới, cải tiến các sản phẩm hiện

Nghiên cứu các công nghệ mới.

Xây dựng các chỉ tiêu thông số kỹ thuật cho các sản phẩm và hớng dẫn thực hiện

Phụ trách công tác tiêu chuẩn hoá, công tác bảo quản các tài liệu kỹ thuật và công tác cung cấp các bản vẽ thiết kế cho sản xuất.

Thẩm định, kiểm tra các thông số kỹ thuật của sản phÈm. Định kỳ tập hợp báo cáo với giám đốc về tình hình thực hiện kế hoạch sản xuất hàng tháng

Giao kế hoạch sản xuất cho các phân xởng.

Tổ chức quản lý công tác văn th, tiếp đón khách, tổ chức các cuộc họp Nhiệm vụ chính của phòng hành chí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 bả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.

Giới thiệu đề tài nghiên cứu

1.Khái quát đề tài Đề tài là Xây dựng phân hệ kế toán tập hợp chi phí sản xuất và tính giá thành sản xuất tại Công ty TNHH ống thép Hòa Phát Trên thực tế, chi phí giá thành tồn tại nh một hệ thống thông tin riêng biệt và phạm vi của hệ thống này khá lớn, nó bao

Luận văn tốt nghiệp đại học gồm nhiều bớc bắt đầu từ khi lập kế hoạch sản xuất cho đến khi tính ra đợc giá thành của sản phẩm hoàn thành và lập các báo cáo về chi phí giá thành Tuy nhiên, đề tài này nhằm mục đích xây dựng hệ thống chi phí giá thành nh là một phân hệ trong hệ thống thông tin kế toán và nó chỉ giới hạn trong phạm vi các nghiệp vụ thuộc về kế toán sản xuất.Những nội dung chính của đề tài này bao gồm:

Phân tích chi tiết hệ thống tính giá thành hiện tại ở Công ty Hòa Phát, xác định các vấn đề và nguyên nhân của chúng, từ đó đề ra các giải pháp tổng thể giải quyết các vấn đề.

Trên cơ sở của việc phân tích chi tiết, thiết kế cơ sở dữ liệu cho hệ thống mới và tích hợp vào cơ sở dữ liệu của hệ thống thông tin kế toán hiện tại.

Thiết kế các xử lý, các giao diện và lập trình.

2.Tính cấp thiết của đề tài

Công ty TNHH ồng thép Hòa Phát là mộ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 và tính giá thành sản phẩm có ý nghĩa rất quan trọng bởi vì nó cung cấp những thông tin phản ánh hiệu quả của công tác quản lý và chất lợng của quá trình sản xuất kinh doanh, tạo cơ sở cho việc lập kế hoạch sản xuất và kinh doanh, hoạch định các chiến lợc dài hạn Thực tế cho thấy, hạch toán giá thành là khâu phức tạp nhất trong toàn bộ 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 các yếu tố đầu vào và đầu ra của quá trình sản xuất kinh doanh Đảm bảo việc hạch toán giá thành chính xác, kịp thời, phù hợp với đặc điểm hình thành và phát sinh chi phí ở doanh nghiệp là yêu cầu có tính xuyên suốt trong quá trình hạch toán ở doanh nghiệp.

Hiện nay, phòng kế toán - tài chính của công ty đã đợc trang bị phần mềm kế toán tuy nhiên phần mềm này cha có

Luận văn tốt nghiệp đại học chức năng tính giá thành Do đó, ngời chịu trách nhiệm phần kế toán sản xuất vẫn phải tập hợp chi phí sản xuất và 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 và khá phức tạp, số lợng chứng từ lớn là những nguyên nhân khiến cho việc hạch toán giá thành theo phơng pháp thủ công kém hiệu quả, thờng chậm và thiếu chính xác, cha đáp ứng đợc yêu cầu Chính vì thế, tin học hóa công tác hạch toán giá thành đang là yêu cầu cấp thiết thiết hiện nay tại công ty.

sở lý luận của việc nghiên cứu đề tài

Phơng pháp xây dựng phân hệ kế toán tập hợp chi phí và tính giá thành

1.Các phơng pháp thu thập thông tin Đối với hệ thống chi phí giá thành, phơng pháp thu thập thông tin hiệu quả nhất chính là phỏng vấn Cần phải trao đổi trực tiếp với ngời phụ trách phần kế toán sản xuất về hệ thống

Luận văn tốt nghiệp đại học hiện tại bởi vì những sự mô tả bằng lời cho phép thu đợc những thông tin về nhiều mặt, chính xác với thực tế mà những thông tin này không có trên bất cứ tài liệu nào, thu đợc những xử lý theo cách mô tả khác với mô tả trong tài liệu, thu đợc những nội dung khái quát mà những nội dung này khó có thể nắm bắt đợc khi nghiên cứu quá nhiều tài liệu

Phỏng vấn cần tập trung vào những nội dung sau: phơng pháp tính giá thành đang áp dụng, cách thức phân bổ chi phí, khái quát về quy trình sản xuất và các đối tợng tính giá thành, kì tính giá thành, cách thức ghi sổ… khái quát về quy trình xử lý các nghiệp vụ trong kì và cuối kì, cách lên các báo cáo. Cần biết từng công việc do ai thực hiện và khó khăn của họ là gì, họ cần những gì ở hệ thống mới.

Nghiên cứu tài liệu cũng là phơng pháp cần sử dụng để có đợc những thông tin đầy đủ và chi tiết về hệ thống thống tính giá thành và môi trờng của hệ thống này Đặc biệt chú ý tới nội dung và hình dạng của các thông tin đầu vào, các chứng từ đầu vào nh phiếu xuất kho, phiếu chi, bảng thanh toán l- ơng…và các thông tin đầu ra: các báo cáo về chi phí và giá thành đang dùng Nghiên cứu các sổ kế toán nh sổ cái tài khoản, sổ nhật kí, các sổ và thẻ kế toán chi tiết.

Ngoài ra sử dụng phơng pháp quan sát để có đợc các thông tin bổ sung về hệ thống chi phí giá thành hiện tại.

Nghiên cứu hệ thống chi phí giá thành hiện tại

Tìm hiểu công tác kế toán nói chung

Thu thập các thông tin về nhân sự trong phòng kế toán,trình độ của các nhân viên, sự phân chia công việc, mức độ tin học hóa: các phần cứng hiện có, các phần mềm đang sử dụng, đặc biệt chú ý đến phần mềm kế toán hiện tại, các thông tin về hình thức ghi sổ, về kì báo cáo Đây chính là

Luận văn tốt nghiệp đại học những thông tin về môi trờng của hệ thống chi phí giá thành, nó xác định các ràng buộc mà hệ thống này phải thỏa mãn.

Xác định các đối tợng tính giá thành Để hiểu đợc cách thức hạch toán chi phí giá thành, cần phải có những thông tin cụ thể về quy trình sản xuất và từ đó xác định các đối tợng tính giá thành Xác định các yếu tố đầu vào của quá trình sản xuất nh nguyên vật liệu, nhân công, các định mức đầu vào của sản xuất…Quy trình sản xuất trải qua các công đoạn nào, các loại bán thành phẩm, sản phẩm của mỗi công đoạn Trong số đó, cần xác định những đối tợng nào phải tính giá thành, những đối tợng nào cần tập hợp chi phí

Công tác tính giá thành hiện tại

Xem xét các tài khoản dùng trong hệ thống tập hợp chi phí sản xuất và tính giá thành, cách thức phân bổ chi phí sản xuất, sơ đồ hạch toán đối với từng đối tợng tính giá thành, cách thức lên các báo cáo về chi phí giá thành.

Mô tả hệ thống hiện tại bằng các sơ đồ

Xây dựng các sơ đồ luồng thông tin và sơ đồ luồng dữ liệu của hệ thống hiện tại dựa trên các thông tin đã thu thập đ- ợc về hiện trạng công tác kế toán chi phí giá thành với các chứng từ đầu vào, các báo cáo đầu ra, cách xử lý các nghiệp vụ trong kì và cuối tháng.

Xác định vấn đề, nguyên nhân, mục tiêu và giải pháp

Qua các kết quả nghiên cứu ở trên, xác định xem hệ thống chi phí giá thành hiện tại đang phải đối mặt với những vấn đề gì, đối với mỗi vấn đề cần tìm ra nguyên nhân đích thực của nó, vạch ra mục tiêu mà hệ thống mới phải đạt đợc và giải pháp để đạt đợc mục tiêu đó

Luận văn tốt nghiệp đại học

Xây dựng mô hình logic cho hệ thống chi phí giá thành mới cho phép giải quyết những vấn đề hiện tại và đạt đợc những mục tiêu đề ra ở trên Mô hình này đợc thể hiện qua sơ đồ luồng dữ liệu mới Tiếp đó là thiết kế cơ sở dữ liệu logic dựa trên mối quan hệ giữa các thực thể trong hệ thống chi phí giá thành Trong quá trình thiết kế này, cần xem xét cơ sở dữ liệu đã có của hệ thống thông tin kế toán hiện tại để có định hớng cho việc tích hợp thành một cơ sở dữ liệu duy nhÊt.

Thiết kế vật lý ngoài

Xây dựng sơ đồ luồng thông tin cho hệ thống chi phí giá thành mới, thiết kế các giao diện màn hình, những quy định về thao tác đối với ngời dùng.

ThiÕt kÕ vËt lý trong

Thiết kế cơ sở dữ liệu vật lý trong, lựa chọn ngôn ngữ lập trình, tích hợp cơ sở dữ liệu của hệ thống chi phí giá thành vào cơ sở dữ liệu của hệ thống thông tin kế toán hiện tại, xác định các kĩ thuật hợp lệ hóa dữ liệu Xây dựng sơ đồ phân rã chơng trình.

Lập trình, thử nghiệm và cài đặt

Trong giai đoạn này, lập trình để chuyển đổi các thiết kế vật lý thành phần mềm máy tính, thử nghiệm chơng trình để tìm lỗi Cài đặt phần mềm để chuyển đổi từ hệ thống cũ sang hệ thống mới.

Kế toán tập hợp chi phí sản xuất và tính giá thành sản phẩm

1.Khái niệm chi phí sản xuất và giá thành sản phẩm

Chi phí sản xuất là biểu hiện bằng tiền của toàn bộ hao phí về lao động sống và lao động vật hóa mà doanh nghiệp đã chi ra để tiến hành các hoạt động sản xuất kinh doanh trong mét thêi k×.

Giá thành là chi phí sản xuất tính cho một khối lợng hoặc đơn vị sản phẩm do doanh nghiệp đã sản xuất hoàn thành.

2.Phân loại chi phí sản xuất

Phân loại theo mối quan hệ trong sản xuất sản phÈm:

Chi phí trực tiếp là những chi phí sản xuất quan hệ trực tiếp với việc sản xuất ra một loại sản phẩm, một công việc nhất định, những chi phí này kế toán có thể căn cứ vào số liệu từ chứng từ kế toán để ghi trực tiếp cho từng đối tợng tính giá thành

Chi phí gián tiếp là những chi phí sản xuất có liên quan đến việc sản xuất nhiều loại sản phẩm, nhiều công việc, những chi phí này kế toán phải tiến hành phân bổ cho các đối tợng tính giá thành có liên quan theo một tiêu chuẩn thích hợp.

Phân loại chi phí theo yếu tố chi phí:

Yếu tố nguyên liệu và vật liệu

Yếu tố nhiên liệu và động lực

Yếu tố tiền lơng và phụ cấp

Yếu tố kinh phí công đoàn, bảo hiểm xã hội, bảo hiểm y tÕ

Yếu tố khấu hao tài sản cố định

Yếu tố dịch vụ mua ngoài

Yếu tố chi phí khác bằng tiền

Phân loại theo phạm vi phát sinh chi phí

Các chi phí phát sinh trong sản xuất sản phẩm, bao gồm:

Chi phí nguyên vật liệu trực tiếpChi phí nhân công trực tiếpChi phí sản xuất chung

Các chi phí phát sinh ngoài bộ phận sản xuất, bao gồm:

Chi phí bán hàng Chi phí quản lý

Phân loại theo nguồn số liệu và thời điểm tính toán

Giá thành kế hoạch: là giá thành sản phẩm đợc tính trên cơ sở chi phí sản xuất kế hoạch và sản lợng kế hoạch Việc tính toán giá thành kế hoạch do bộ phận kế hoạch của doanh nghiệp thực hiện và đợc tính trớc khi bắt đầu quá trình sản xuất, chế tạo sản phẩm Giá thành kế hoạch của sản phẩm là mục tiêu phấn đấu của doanh nghiệp, là căn cứ để so sánh, phân tích, đánh giá tình hình thực hiện kế hoạch giá thành và kế hoạch hạ giá thành của doanh nghiệp.

Giá thành định mức: là giá thành của sản phẩm đợc tính trên cơ sở các định mức chi phí hiện hành và chỉ tính cho đơn vị sản phẩm Việc tính giá thành định mức cũng đợc thực hiện trớc khi tiến hành quá trình sản xuất, chế tạo sản phẩm Giá thành định mức là công cụ quản lý định mức của doanh nghiệp, là thớc đo chính xác để xác định kết quả sử dụng tài sản, vật t, lao động trong sản xuất, giúp cho đánh giá đúng đắn các giải pháp kinh tế kĩ thuật mà doanh nghiệp đã thực hiện trong quá trình hoạt động sản xuất nhằm nâng cao hiệu quả kinh doanh.

Giá thành thực tế: là giá thành sản phẩm đợc tính trên cơ sở số liệu chi phí sản xuất thực tế đã phát sinh và tập hợp đợc trong kì và sản lợng thực tế sản phẩm đã sản xuất ra trong kì.Giá thành thực tế chỉ có thể tính toán đợc sau khi kết thúc quá trình sản xuất, chế tạo sản phẩm Giá thành thực tế sản phẩm là chỉ tiêu kinh tế tổng hợp, phản ánh kết quả phấn đấu của doanh nghiệp trong việc sử dụng các giải pháp kinh tế kĩ

Luận văn tốt nghiệp đại học xác định kết quả của hoạt động sản xuất kinh doanh của doanh nghiệp.

Phân loại theo phạm vi tính toán

Giá thành sản xuất: (còn gọi là giá thành công xởng) bao gồm các chi phí sản xuất: chi phí nguyên vật liệu trực tiếp, chi phí nhân công trực tiếp và chi phí sản xuất chung tính cho những sản phẩm đã hoàn thành Giá thành sản xuất của sản phẩm đợc sử dụng cho việc ghi sổ các sản phẩm đã hoàn thành nhập kho hoặc giao cho khách hàng Giá thành sản xuất của sản phẩm cũng là căn cứ để tính giá vốn hàng bán và lãi gộp ở các doanh nghiệp sản xuất.

Giá thành toàn bộ: bao gồm giá thành sản xuất cộng thêm chi phí bán hàng và chi phí quản lý doanh nghiệp tính cho sản phẩm đó Giá thành toàn bộ của sản phẩm chỉ đợc tính khi sản phẩm đã đợc tiêu thụ Giá thành toàn bộ của sản phẩm là căn cứ để xác định lãi trớc thuế của doanh nghiệp.

4.Phơng pháp tập hợp chi phí sản xuất

Các tài khoản sử dụng

Tài khoản 621: “Chi phí nguyên vật liệu trực tiếp” Tài khoản này đợc sử dụng để tập hợp tất cả các khoản chi phí về nguyên liệu, nhiên liệu, vật liệu đợc sử dụng trực tiếp cho quá trình sản xuất sản phẩm Tài khoản này phải đợc mở chi tiết theo từng đối tợng hạch toán chi phí hoặc đối tợng tính giá thành (nếu đợc) Kết cấu của tài khoản 621 nh sau:

Bên nợ: Tập hợp chi phí nguyên vật liệu trực tiếp thực tế phát sinh

Bên có: Giá trị nguyên vật liệu sử dụng không hết trả lại kho; kết chuyển chi phí nguyên vật liệu trực tiếp vao tài khoản tính giá thành.

Tài khoản 621 không có số d

Tài khoản 622: “Chi phí nhân công trực tiếp” Tài khoản này đợc sử dụng để tập hợp tất cả các khoản chi phí liên quan đến bộ phận lao động trực tiếp sản xuất sản phẩm (tiền lơng, tiền công, các khoản phụ cấp, các khoản trích theo lơng). Tài khoản này mở chi tiết theo từng đối tợng hạch toán chi phí hoặc đối tợng giá thành (nếu đợc).

Bên nợ: Tập hợp chi phí nhân công trực tiếp thực tế phát sinh

Bên có: Kết chuyển chi phí nhân công trực tiếp vào tài khoản tính giá thành.

Tài khoản 627: “Chi phí sản xuất chung” Tài khoản này đợc sử dụng để tập hợp tất cả các khoản chi phí quản lý, phục vụ sản xuất ở phân xởng, bộ phận sản xuất kinh doanh và phân bổ các chi phí này vào các đối tợng hạch toán chi hoặc đối tợng tính giá thành Tài khoản này phải mở chi tiết theo từng phân xởng hoặc bộ phận sản xuất kinh doanh.

Bên nợ: Tập hợp chi phí sản xuất chung thực tế phát sinh

Bên có: Các khoản làm giảm chi phí sản xuất chung

Kết chuyển chi phí sản xuất chung vào tài khoản tính giá thành

Tài khoản 154: “Chi phí sản xuất kinh doanh dở dang”.

Tài khoản này đợc sử dụng để tổng hợp chi phí sản xuất và tính giá thành sản phẩm Tài khoản 154 phải mở chi tiết cho từng đối tợng hạch toán chi phí sản xuất hoặc đối tợng tính giá thành (nếu đợc)

Bên nợ: Tổng hợp chi phí sản xuất phát sinh

Bên có: Các khoản làm giảm chi phí sản xuất

Giá thành sản phẩm hoàn thành

D nợ: Giá trị dở dang lúc đầu kì và cuối kì

Tập hợp chi phí nguyên vật liệu trực tiếp

Khi xuất nguyên vật liệu để trực tiếp sản xuất,chế tạo sản phẩm, ghi:

Cã TK 152 Đối với vật liệu mua ngoài không nhập kho mà xuất ngay để trực tiếp sản xuất sản phẩm, ghi:

Nợ TK 1331: VAT đợc khấu trừ

Có TK 111/112/331: Tổng giá thanh toán Nếu tự sản xuất và đa vào sử dụng ngay, ghi:

Cã TK 154 Đối với vật liệu dùng không hết trả lại kho, ghi:

Cuối kì, kết chuyển chi phí nguyên vật liệu trực tiếp vào tài khoản tính giá thành, ghi:

Sơ đồ hạch toán tập hợp chi phí nguyên vật liệu trực tiếp

Tập hợp chi phí nhân công trực tiếp

Tính ra tiền lơng phải trả công nhân trực tiếp sản xuất, ghi:

Trích kinh phí công đoàn, bảo hiểm xã hội, bảo hiểm y tế theo tỉ lệ quy định phần tính vào chi phí sản xuất là 19% của tiền lơng, ghi:

Khi trích trớc lơng nghỉ phép của công nhân trực tiếp sản xuất, ghi:

Cã TK 335Các khoản chi phí bằng tiền thanh toán cho lao động trực tiÕp, ghi:

Cã TK 111,141 Sơ đồ hạch toán tập hợp chi phí nhân công trực tiếp:

Tập hợp chi phí sản xuất chung

Chi phí về tiền lơng của nhân viên phân xởng, ghi:

Trích kinh phí công đoàn, bảo hiểm xã hội, bảo hiểm y tế tơng ứng, ghi:

Cã TK 338Chi phí về vật liệu sử dụng cho phân xởng, ghi:

Cã TK 152 Chi phí về công cụ dụng cụ, ghi:

Cã TK 153 Chi phí về khấu hao tài sản cố định:

Cã TK 214 Các chi phí khác:

Cuối kì, phân bổ chi phí sản xuất chung và kết chuyển vào tài khoản tính giá thành, ghi:

Sơ đồ hạch toán tập hợp chi phí sản xuất chung:

Tổng hợp chi phí sản xuất và tính giá thành sản phẩm hoàn thành

Vào cuối mỗi kì, kế toán phải tổng hợp chi phí nguyên vật liệu trực tiếp, chi phí nhân công trực tiếp và chi phí sản xuất chung thực tế phát sinh để kết chuyển về tài khoản tính giá thành.

Cã TK 621, 622, 627 Đối với các khoản làm giảm chi phí sản xuất, ghi:

Cã TK 154Khi xác định đợc giá thành sản phẩm hoàn thành, ghi:

Nợ TK 155: nếu nhập kho thành phẩm

Nợ TK 157: nếu gửi bán

Nợ TK 632: nếu bán luôn

Có TK 154: Giá thành sản phẩm hoàn thành

Sơ đồ tổng hợp về hạch toán giá thành:

5.Các phơng pháp tính giá thành sản phẩm

Phơng pháp trực tiếp Đây là phơng pháp hạch toán giá thành theo sản phẩm áp dụng cho những doanh nghiệp có quy trình sản xuất giản đơn nh các doanh nghiệp khai thác và sản xuất động lực…

Luận văn tốt nghiệp đại học Đặc điểm của các doanh nghiệp có quy trình sản xuất giản đơn là chỉ sản xuất một hoặc một số ít mặt hàng với số lợng lớn, chu kì sản xuất ngắn, có thể hoặc không có sản phẩm dở dang.

Công thức tính giá thành:

Phơng pháp loại trừ giá trị sản phẩm phụ

Ph©n tÝch chi tiÕt

1.Vài nét về công tác kế toán nói chung tại công ty

Phòng kế toán - tài chính của công ty có ba ngời làm kế toán: một kế toán trởng và hai kế toán viên, trình độ tin học ở mức sử dụng cơ bản Công việc kế toán trong phòng đợc phân chia nh sau: một ngời làm phần kế toán tiền mặt, tiền gửi ngân hàng; một ngời quản lý phần công nợ với khách hàng; kế toán trởng đảm nhiệm phần kế toán sản xuất.

Mức độ tin học hóa

Về phần cứng: phòng kế toán của công ty đã đợc trang bị ba máy vi tính và một máy in; các máy tính có cấu hình nh sau : Celeron 300 MHz, 32MB RAM, 4GB HD …, đều cài hệ điều hành Windows 98, nối mạng ngang hàng, loại máy in: LaserJet 1100

Về phần mềm: các phần mềm hiện đang sử dụng là:Office 97, NC, Norton Utilities 3.0, từ điển Lạc Việt 2.0,… và

Luận văn tốt nghiệp đại học phần mềm kế toán BRAVO phiên bản 3.1 của Công ty ASC, phần mềm này đợc viết trên Visual FoxPro 6.0

Xác định hàng tồn kho: phơng pháp kê khai thờng xuyên.

Tính giá vốn hàng xuất kho: phơng pháp trung bình di động.

Tính giá thành: phơng pháp giá thành công đoạn có tính giá thành của nửa thành phẩm kết hợp với tính giá thành định mức.

Hình thức ghi sổ kế toán: nhật kí chung.

Sơ đồ hình thức ghi sổ nhật kí chung:

Bảng cân đối phát sinh

Sổ nhật kí đặc biệt Sổ, thẻ KT chi tiÕt

2.Tóm tắt quy trình sản xuất và đối tợng tính giá thành

Quy trình sản xuất ống thép

Quy trình sản xuất trải qua nhiều công đoạn nhng có thể chia thành ba công đoạn chính đợc mô tả nh sơ đồ dới đây:

(1): Thép cuộn đợc cắt ra thành thép bản rộng (thép bản rộng còn đợc gọi là bán thành phẩm).

(2): Sản xuất ra các loại ống đen từ thép bản rộng.

(3): Sản xuất ra các loại ống mạ từ ống đen.

Nguyên vật liệu chính của quá trình sản xuất là các loại vật liệu thép ở dạng thép cuộn nh vật liệu thép 0.8 ly, vật liệu thép 0.9 ly, vật liệu thép 1.2 ly… và các loại vật liệu phụ nh hợp kim nhôm, chất hãm axit, ôxi già, kẽm… Có tất cả 27 loại vật liệu thép, mỗi loại đợc dùng để tạo ra một nhóm bán thành phẩm thép bản rộng nên có 27 nhóm bán thành phẩm với tổng số 330 loại Từ bán thành phẩm sẽ sản xuất ra 281 loại ống đen, tiếp tục sản xuất ống đen thành 76 loại ống mạ.

Hiện tại, công ty có 5 kho: kho ống mạ, kho ống đen, kho bán thành phẩm, kho vật liệu thép và kho vật liệu phụ Đối tợng tính giá thành

Sản phẩm cuối cùng của quá trình sản xuất là ống mạ nhng đối tợng tính giá thành bao gồm bán thành phẩm, ống mạ và èng ®en.

3.Hiện trạng việc tính giá thành

Trong khi các phân hệ kế toán khác đều đợc tin học hóa thì phân hệ kế toán tập hợp chi phí sản xuất và tính giá thành sản phẩm vẫn phải thực hiện theo phơng pháp thủ công.

Kì tính giá thành: tháng

Tài khoản 1521: vật liệu thép ở dạng thép cuộn

Tài khoản 1522: vật liệu phụ

Tài khoản 1540: tập hợp chi phí sản xuất bán thành phẩm Tài khoản 1541: tập hợp chi phí sản xuất ống đen Tài khoản 1542: tập hợp chi phí sản xuất ống mạ Tài khoản 1550: bán thành phẩm nhập kho

Tài khoản1551: ống đen nhập kho

Tài khoản 1552: ống mạ nhập kho

Tài khoản 6210: nguyên vật liệu trực tiếp để sản xuất bán thành phẩm Tài khoản 6211: nguyên vật liệu trực tiếp để sản xuất ống đen Tài khoản 6212: nguyên vật liệu trực tiếp để sản xuất ống mạ.

Tài khoản 6220: nhân công trực tiếp sản xuất bán thành phẩm Tài khoản 6221: nhân công trực tiếp sản xuất ống đen Tài khoản 6222: nhân công trực tiếp sản xuất ống mạ Tài khoản 6270: chi phí sản xuất chung sản xuất bán thành phẩm Tài khoản 6271: chi phí sản xuất chung sản xuất ống đen

Tài khoản 6272: chi phí sản xuất chung sản xuất ống mạ

Các tài khoản 154 và 621 đợc mở tiểu khoản theo nhóm vật t, các tài khoản 622 và 627 đợc mở tiểu khoản theo từng công đoạn sản xuất.

Cách thức phân bổ chi phí

Nói chung, khi xuất nguyên vật liệu chính cũng nh các chi phí sản xuất khác cho sản xuất sản phẩm, chỉ biết tổng số xuất và xuất cho công đoạn nào mà không biết cụ thể cho từng loại sản phẩm Do đó, để tính đợc giá thành thực tế của sản phẩm, phải phân bổ chi phí cho từng loại sản phẩm theo định mức về số lợng nguyên vật liệu chính tơng ứng đã xác định trớc khi bắt đầu tháng sản xuất

Ví dụ, đầu kì có định mức vật liệu X (đơn vị tính: kilogam) cho sản xuất 2 loại sản phẩm nh sau: 1 Sản phẩm

A cần 10 kg vật liệu X 1 Sản phẩm B cần 15 kg vật liệu X

Cuối kì tính đợc tổng giá trị vật liệu X xuất dùng trong kì để sản xuất sản phẩm A và sản phẩm B là 5 000 000, hoàn thành nhập kho 1300 sản phẩm A và 800 sản phẩm B Khi đó, phân bổ vật liệu X cho sản xuất từng loại sản phẩm là: sản phẩm A: sản phẩm B:

Các chi phí khác nh chi phí vật liệu phụ, chi phí sản xuất chung, nhân công…nếu không tính đợc trực tiếp cho từng đối tợng thì phân bổ theo chi phí nguyên vật liệu chính Coi nh không có sản phẩm dở dang và không có hao hụt nên toàn bộ chi phí đợc tính vào sản phẩm của từng công đoạn

Tính giá thành của bán thành phẩm

Các nghiệp vụ trong tháng:

(1): Khi xuất vật liệu thép để sản xuất bán thành phẩm, ghi:

Biết rõ xuất vật liệu thép để sản xuất loại bán thành phẩm nào nên có thể tính trực tiếp chi phí vật liệu chính cho từng đối tợng mà không cần phân bổ (2): Khi xuất vật liệu phụ để sản xuất bán thành phẩm, ghi:

(3): Cuối tháng, tính ra tiền lơng và các khoản phải trả công nhân trực tiếp sản xuất:

(4): Tập hợp hợp chi phí sản xuất chung trong tháng:

Các bút toán kết chuyển cuối tháng:

(5): Kết chuyển chi phí nguyên vật liệu trực tiếp.

Cã TK 6210 (6): Kết chuyển chi phí nhân công trực tiếp

Cã TK 6220 (7): Kết chuyển chi phí sản xuất chung

Cã TK 6270 (8): Tính ra giá thành bán thành phẩm nhập kho

Tính giá thành ống đen

(1): Khi xuất bán thành phẩm để sản xuất ống đen, ghi:

Xuất chung chung, không chỉ rõ xuất cho từng loại là bao nhiêu nên cuối kì phải tiến hành phân bổ nh đã trình bày ở trên

(2): Khi xuất vật liệu phụ để sản xuất ống đen, ghi:

Sau khi phân bổ chi phí, thực hiện các bút toán kết chuyển cuối tháng:

(5): Kết chuyển chi phí nguyên vật liệu trực tiếp

Cã TK 6271 (8): Tính ra giá thành ống đen nhập kho

Tính giá thành ống mạ

(1): Khi xuất ống đen để sản xuất ống mạ, ghi:

Xuất chung chung, không chỉ rõ xuất cho từng loại là bao nhiêu nên cuối kì phải tiến hành phân bổ nh đã trình bày ở trên

(2): Khi xuất vật liệu phụ để sản xuất ống mạ, ghi:

Các bút toán kết chuyển cuối tháng:

(5): Kết chuyển chi phí nguyên vật liệu trực tiếp

Cã TK 6272(8): Tính ra giá thành ống mạ nhập kho

Cã TK 1542 Để tính giá thành đơn vị, kế toán phải tập hợp tất cả các phiếu nhập kho để tính số lợng sản phẩm hoàn thành nhập kho của từng loại.

4.Sơ đồ luồng thông tin của hệ thống hiện tại

Chứng từ bao gồm các loại chứng từ vật t nh phiếu xuất kho, phiếu nhập kho và các chứng từ kế toán nh phiếu chi tiền mặt (trong trờng hợp mua vật t dùng luôn cho sản xuất mà không nhập vào kho vật t), các phiếu kế toán, các bút toán phân bổ Dới đây là một số mẫu chứng từ đang dùng tại công ty:

Mẫu sổ nhật kí chung:

Mẫu sổ cái tài khoản:

Mỗi dòng trong sổ cái tơng ứng với hai dòng trong sổ nhật kÝ chung

Công việc tính giá thành đợc thực hiện sau khi tiến hành phân bổ và kết chuyển các chi phí sản xuất, bao gồm tính tổng giá thành và giá thành đơn vị của từng loại sản phẩm. Các báo cáo về chi phí và giá thành đợc lập ra không chỉ dựa vào kết quả tính giá thành mà còn dựa vào các kết quả trung gian có đợc khi tiến hành phân bổ các loại chi phí.

Các báo cáo chi phí giá thành đang đợc dùng tại công ty bao gồm:

1 Bảng kê chứng từ theo sản phẩm

2 Tổng hợp phát sinh theo sản phẩm

3 Sổ chi tiết tài khoản 154

5 Phân tích hiệu quả kinh doanh cho từng loại sản phẩm 6 Tổng hợp chi phí theo khoản mục 7 Báo cáo chi tiết chi phí theo khoản mục

8 Bảng kê chi phí theo khoản mục

9 Báo cáo nguyên vật liệu trong giá thành

10.Báo cáo nguyên vật tồn liệu trên phân xởng

11.Báo cáo tổng hợp chi phí giá thành

12.Báo cáo phân bổ nguyên vật liệu 13.Báo cáo phân bổ chi phí sản xuất chung vầ chi phí nhân công Dới đây là một số mẫu báo cáo:

Nguyễn Mạnh Tuân - Tin 39A Luận văn tốt nghiệp đại học

5.Sơ đồ luồng dữ liệu của hệ thống hiện tại

Sơ đồ luồng dữ liệu mức 1:

Sơ đồ luồng dữ liệu mức 2:

6.Vấn đề của hệ thống tính giá thành hiện tại

Không lập đợc tất cả các báo cáo cần thiết về chi phí giá thành và phải mất nhiều thời gian để lập báo cáo.

ThiÕt kÕ logic

1.Sơ đồ luồng dữ liệu của hệ thống mới

Sơ đồ luồng dữ liệu mức 1: Phân rã xử lý 3.0

Sơ đồ luồng dữ liệu mức 2

2.Thiết kế cơ sở dữ liệu logic

Giải thích một số từ ngữ

Trong phần này những từ ngữ dới đây đợc hiểu nh sau:

Chứng từ: bao gồm các loại chứng từ vật t nh phiếu xuất kho, phiếu nhập kho, chứng từ kế toán nh phiếu chi, phiếu kế toán, các bút toán phân bổ… hay nói chung là tất cả các nghiệp vụ kinh tế cần định khoản. Đối tợng: những đối tợng công nợ của nghiệp vụ kinh tế phát sinh nh ngời mua, ngời bán, ngời nhận tiền…

Vật t: không chỉ bao gồm các loại nguyên vật liệu ban đầu của quá trình sản xuất mà còn bao gồm các loại bán thành phẩm và các loại thành phẩm thép ống đen vì chúng lại đợc dùng làm nguyên vật liệu cho giai đoạn sản xuất tiếp theo

Sản phẩm: không chỉ bao gồm các loại sản phẩm cuối cùng mà bao gồm tất cả các loại thành phẩm và bán thành phÈm.

Tài khoản giá thành: là tài khoản dùng để tổng hợp tất cả các loại chi phí theo từng đối tợng tính giá thành

Mối quan hệ giữa các thực thể của hệ thống tính giá thành:

Chứng từ của hệ thống tính giá thành có nhiều loại nhng có thể lu trong cùng một tệp số liệu gọi là tệp chứng từ bởi vì có thể chia các phần tử thông tin trên mỗi chứng từ thành hai nhóm: nhóm chung (ví dụ: số chứng từ, ngày…) và nhóm chi tiết (ví dụ: mã vật t, số lợng…) Khi định khoản, mỗi dòng của phần chi tiết chứng từ sẽ tơng ứng với một cặp tài khoản Nợ - Có trong sổ nhật kí chung và trong sổ cái.

Mỗi sản phẩm thuộc về một tài khoản giá thành nhng mỗi tài khoản giá thành có thể bao gồm nhiều sản phẩm (vì những sản phẩm này tuy khác loại nhng có chung giá thành).

Một sản phẩm có thể đợc sản xuất từ nhiều loại vật liệu chính đồng thời một loại vật liệu chính có thể đợc dùng để sản xuất nhiều loại sản phẩm Giữa sản phẩm và vật liệu chính xác định một định mức về số lợng vật liệu chính

Từ những mô tả trên đây, có thể xây dựng sơ đồ thực thể quan hệ nh sau

Sơ đồ thực thể quan hệ:

Sơ đồ thực thể quan hệ trên có 6 thực thể và 2 mối quan hệ N@M nên cơ sở dữ liệu logic bao gồm 8 tệp

Sơ đồ cấu trúc dữ liệu của cơ sở dữ liệu logic

Thiết kế vật lý ngoài

1 Sơ đồ luồng thông tin của hệ thống mới

2.Các giao diện màn hình

Thêm định mức vật liệu chính

Phân bổ vật liệu chính

Phân bổ các chi phí khác

Khi sử dụng chơng trình, để tính đợc giá thành một cách chính xác ngời dùng cần thực hiện các thao tác theo đúng tr×nh tù sau:

Hàng ngày, cập nhật các chứng từ liên quan Đối với các phiếu xuất kho, nếu chọn “Tự động áp giá xuất” thì chỉ cần nhập số lợng vật t bởi vì theo phơng pháp trung bình tháng: đến cuối tháng mới tính ra giá thực tế của vật t xuất kho Khi tính giá vốn, chơng trình sẽ tự động áp đơn giá vào các phiếu xuất kho đã nhập.

Cuối tháng, đối với từng công đoạn sản xuất thực hiện các bíc sau:

Tính giá vốn hàng xuất kho Phân bổ chi phí

Sau khi tính xong giá thành (của một công đoạn), quay trở lại bớc tính giá vốn (tính cho công đoạn tiếp theo) Hình minh họa trình tự tính giá thành:

Sau khi thực hiện xong các bớc trên mới có thể xem và in các báo cáo về chi phí - giá thành

Báo cáo về chi phí - giá thành

ThiÕt kÕ vËt lý trong

1.Thiết kế cơ sở dữ liệu vật lý trong

Những sự thay đổi so với cơ sở dữ liệu logic

Gộp tất cả các loại thành phẩm, bán thành phẩm vào tệp Vật T và thêm vào tệp này trờng “Loại vật t” để phân biệt: 1- Vật t, hàng hóa; 2-Thành phẩm ngoài ra cũng thêm vào tệp này trờng “Mã nhóm”.

Thêm tệp nhóm vật t với các trờng: “Mã nhóm”, “Tên nhóm”, “Bậc nhóm”, “Nhóm cuối”, “Nhóm mẹ”.

Tệp Sản Phẩm bao gồm tất cả các đối tợng tính giá thành, lúc đó trờng “TK giá thành” không còn ý nghĩa nên loại bỏ tr- ờng này khỏi tệp Sản Phẩm Giữa Sản Phẩm và Vật T ngoài mối quan hệ N@M về định mức số lợng vật liệu chính còn mối quan hệ 1@N: một đối tợng tính giá thành có thể bao gồm nhiều loại thành phẩm hoặc bán thành phẩm Đối với tệp Định Mức, thêm trờng “Số lợng sản phẩm” còn trờng “Định mức” thì chia chi tiết thành 12 trờng ứng với 12 tháng. Đối với tệp tài khoản, thêm trờng “Tài khoản giá thành” nhận các giá trị: C-Tài khoản giá thành, K-Không phải tài khoản giá thành Đối với tệp đối tợng, thêm trờng “Mã số thuế”

Thêm tệp Phân bổ để xác định các bút toán phân bổ,tệp này có các trờng sau: “Số thứ tự”, “Tên bút toán”, “Tài khoản có”, “Tài khoản nợ”, “Chọn”

Nguyễn Mạnh Tuân - Tin 39A Luận văn tốt nghiệp đại học Đối với tệp chứng từ, thêm trờng “Số thứ tự” (dùng làm khóa chính thay cho hai trờng “Loại chứng từ” và “Số chứng từ”) còn tệp định khoản, thêm trờng “Số thứ tự 0” để thể hiện thứ tự của một dòng trong phần chi tiết của chứng từ và cùng với trờng

“Số thứ tự” sẽ tạo thành khóa chính.

Sơ đồ cấu trúc dữ liệu của cơ sở dữ liệu vật lý trong

Hình dới đây là sơ đồ cấu trúc dữ liệu của cơ sở dữ liệu vật lý trong:

2.Lựa chọn ngôn ngữ lập trình

Nh đã trình bày trong phần phân tích chi tiết, phần mềm kế toán đang dùng đợc viết bằng ngôn ngữ Visual FoxPro 6.0 Do đó, lựa chọn ngôn ngữ Visual Foxpro 6.0 để xây dựng thêm phân hệ cho phần mềm kế toán này là rất phù hợp Hơn thế nữa, đây là một ngôn ngữ lập trình chuyên về cơ sở dữ liệu với chức năng lập trình hớng đối tợng, có nhiếu tính năng mạnh trong việc xử lý dữ liệu và nó thích hợp với việc xây dựng phần mềm kế toán cũng nh phân hệ chi phí giá thành

3.Tích hợp cơ sở dữ liệu

Các tệp của hệ thống chi phí giá thành trong Visual FoxPro 6.0

Tệp chứng từ: chungtu.dbf

Name Typ e Wid Dec Diễn giải

LOAI_CT C 2 Loại chứng từ

SO_CT C 10 Số chứng từ

MA_DT C 16 Mã đối tợng

Tệp định khoản: dK.DBF

STT C 10 Số thứ tự chứng từ

STT0 C 3 Số thứ tự từng dòng trong chứng LOAI_CT C 2 từLoại chứng từ

SO_CT C 10 Số chứng từ

TK_NO C 8 Tài khoản nợ

TK_CO C 8 Tài khoản có

Tệp Đối tợng: DT.DBF

MA_DT C 16 Mã đối tợng

TEN_DT C 64 Tên đối tợng

MA_SO_THUE C 18 Mã số thuế

Tệp tài khoản: TK.DBF

MA_TK C 8 Mã tài khoản

TEN_TK C 100 Tên tài khoản

BAC_TK N 1 Bậc tài khoản

TK_ME C 8 Tài khoản mẹ

TK_GT C 1 Tài khoản giá thành

Tệp phân bổ: phanbo.dbf

STT N 2 Số thứ tự phân bổ của bút toán

TEN_BT C 48 Tên bút toán

TK_NO C 8 Tài khoản nợ

TK_CO C 8 Tài khoản có

CHON C 1 Có thực hiện hay không

Tệp nhóm vật t: NHOMVT.dbf

TEN_NHOM C 64 Tên nhóm vật t

DON_VI C 8 Đơn vị tính

TK_VT C 8 Tài khoản vật t

MA_SP C 16 Mã sản phẩm

Tệp sản phẩm: sanpham.dbf

TEN_SP C 64 Tên sản phẩm

DON_VI C 10 Đơn vị tính

Tệp định mức: DinhMuc.DBF

SO_LUONGSP N 15 2 Số lợng sản phẩm

SO_LUONG01 N 15 4 Định mức về số lợng vật t tháng 1SO_LUONG02 N 15 4 Định mức về số lợng vật t tháng 2SO_LUONG03 N 15 4 Định mức về số lợng vật t tháng 3SO_LUONG04 N 15 4 Định mức về số lợng vật t tháng 4

SO_LUONG06 N 15 4 Định mức về số lợng vật t tháng 6 SO_LUONG07 N 15 4 Định mức về số lợng vật t tháng 7 SO_LUONG08 N 15 4 Định mức về số lợng vật t tháng 8 SO_LUONG09 N 15 4 Định mức về số lợng vật t tháng 9 SO_LUONG10 N 15 4 Định mức về số lợng vật t tháng10 SO_LUONG11 N 15 4 Định mức về số lợng vật t tháng11 SO_LUONG12 N 15 4 Định mức về số lợng vật t tháng12

Tích hợp các tệp trên vào cơ sở dữ liệu của hệ thống thông tin kế toán

Tệp Tích hợp vào tệp Tệp Tích hợp vào

Chungtu.dbf Ct.dbf TK.DBF tệpDMTK.DBF

DK.DBF CT0.DBF NHOMVT.DBF DMNHVT.DBF

KHO.DBF DMKHO.DBF VATTU.DBF DMVT.DBF

DT.DBF DMDT.DBF SanPham.DBF DMSP.DBF

PhanBo.DBF DMPB1.DBF DinhMuc.DBF DMDMVT.DBF

Name Typ e Wid Dec Tơng ứng trong

Name Typ e Wid Dec Tơng ứng trong DK.DBF

Tệp: DMDT.DBF giống tệp DT.DBF

Tệp: DMKHO.DBF giống tệp KHO.DBF

Name Typ e Wid Dec Tơng ứng trong PHANBO.DBF

Name Typ e Wid Dec Tơng ứng trong DMTK.DBF

Name Typ e Wid Dec Tơng ứng trong NHOMVT.DBF

Name Typ e Wid Dec Tơng ứng trong tệp

Tệp DMSP.DBF giống tệp SANPHAM.DBF

Tệp DMDMVT.DBF giữ nguyên nh tệp DINHMUC.DBF

4.Hợp lệ hóa dữ liệu

Các trờng mã hóa nh loại chứng từ, mã kho, mã vật t, mã sản phẩm… đều đợc định dạng theo kiểu chữ in hoa trớc khi ghi vào các bảng dữ liệu. Đối với các trờng làm khóa chính, nếu nhập vào một giá trị đã có thì hiện lên thông báo về việc trùng và hủy bỏ việc nhập giá trị đó. Đối với các trờng làm vế N trong mối quan hệ 1@N, nếu nhập vào một giá trị không có trong trờng làm vế 1 thì hiện ra bảng dữ liệu ở vế 1 để xem và chọn bản ghi có giá trị đang tìm, có thể nhập ngay một bản ghi mới cho bảng này. Đối với trờng tài khoản trong tệp định khoản, chỉ cho phép nhập các tài khoản không phải là tài khoản mẹ Đối với các trờng ngày, không cho phép nhập các ngày không thuộc năm làm việc hiện thời

5.Sơ đồ phân rã chơng trình

Hình dới đây là sơ đồ phân rã chơng trình:

6 Các thuật toán chính của chơng trình

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 và tính giá thành sản phẩm nói chung là một phạm vi rộng, tuy nhiên, đề tài “Xây dựng phân hệ kế toán tập hợp chi phí sản xuất và tính giá thành sản phẩm tại công ty TNHH ống thép Hòa Phát” chỉ giới hạn trong những điều kiện cụ thể tại công ty này Đây là một 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 và phải tính giá thành cho sản phẩm của từng công đoạn theo thứ tự tơng ứng Phơng pháp tính giá thành tại công ty là giá thành công đoạn dựa trên định mức về số lợng vật t, kì tính giá thành là tháng, hình thức ghi sổ là 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 bằng cách sử dụng chức năng “Tự động áp giá vốn”.

Trong cơ sở dữ liệu của hệ thống tính giá thành đã thiết kế, tệp Định Khoản là tệp dữ liệu trung tâm, lu trữ toàn bộ các nghiệp vụ phát sinh và tệp này sẽ đợc tích hợp vào tệp CT0.DBF trong cơ sở dữ liệu của hệ thống thông tin kế toán hiện tại.

Với phơng pháp tính giá thành hiện tại ở công ty ống thépHòa Phát, phân bổ chi phí là khâu quan trọng nhất trong quá 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ự: một là phân bổ chi phí nguyên vật liệu chính, hai là phân bổ các chi phí còn lại (nh nguyên vật liệu phụ, nhân công trực tiếp và chi phí sản xuất chung) dựa vào kết quả phân bổ chi phí nguyên vật liệu chính.

Giá thành sản phẩm phải tính lần lợt từ công đoạn đầu tiên cho đến công đoạn cuối cùng vì chỉ có thể tính đợc giá thành của một công đoạn khi đã biết giá thành của công đoạn trớc đó Để có kết quả đúng, ngời sử dụng phải tuân theo quy định về trình tự các thao tác, đó là: Tính giá vốn  Phân bổ chi phí  Tính giá thành Các thao tác này đợc lặp lại đối với từng công đoạn sản xuất Cuối cùng mới là xem và in các báo cáo về chi phí và giá thành.

Hiện nay, chơng trình đang đợc thử nghiệm bằng các dữ liệu thực tế tại công ty TNHH ống thép Hòa Phát Trong thời gian tới, chơng trình sẽ tiếp tục đợc hoàn thiện với việc xây dựng các báo cáo, khắc phục các lỗi xảy ra trong quá trình thử nghiệm.

1.Thủ tục phân bổ chi phí nguyên vật liệu chính PROCEDURE CmdPhanBo.Click()

M.Thang1 = THISFORM.txtThang1.Value M.Thang2 = THISFORM.txtThang2.Value M.Thang = THISFORM.txtThang2.Value

M.Ngay_Ct1 = CTOD([01/] + TRAN(M.Thang1, '@L ##') + [/] + M_Nam) M.Ngay_Ct2 = GOMONTH(M.Ngay_Ct1, 1 + (M.Thang2 - M.Thang1)) - 1

USE (M_Data_Nam + [Ct]) ORDER Stt ALIAS K_Ct

SELECT 0 USE (M_Data_Nam + [Ct0]) ORDER Stt0 ALIAS K_Ct0

USE (M_Data_Nam + [SoCai]) ORDER Stt ALIAS K_SoCai

USE (M_Dm_Nam + [DmSp]) ORDER Ma_Sp ALIAS M_DmSp

M.Stt = M_W_Id + [PB3] + RIGHT(M_Nam, 2) +

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)

IF EMPTY(M.Tk) OR EMPTY(M.Tk0) OR EMPTY(_Loai_Pb)

WAIT WINDOWS [Chua khai bao du tai khoan trong danh muc!] SELECT M_DmPb1

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

SET RELATION TO Ma_Vt INTO M_DmVt

REPLACE ALL Ma_Sp WITH M_DmVt.Ma_Sp

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

INDEX ON Ma_Sp TAG Ma_Sp

_Dummy = [M_DmSp.DM_621_] + TRANS(M.Thang2, [@L 99]) CASE _Loai_Pb = [2]

_Dummy = [M_DmSp.DM_622_] + TRANS(M.Thang2, [@L 99]) CASE _Loai_Pb = [3]

_Dummy [M_DmSp.DM_623_] + TRANS(M.Thang2, [@L 99]) CASE

_Dummy = [M_DmSp.DM_627_] + TRANS(M.Thang2, [@L 99])

_Dummy = [M_DmSp.DM_Tong_] + TRANS(M.Thang2, [@L 99])

SET RELATION TO Ma_Sp INTO M_DmSp ADDITIVE

REPLACE ALL He_So WITH &_Dummy * So_Luong

WAIT WINDOW [Chua khai bao dinh muc hoac khong co thanh; pham nhap kho!]

_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?])

DO DeleteCt WITH M.SttOld IN (M_Prog + [PubLic]) ENDIF

USE (M_Code + [CtTmp]) ALIAS K_CtTemp

COPY STRU TO (M_Temp + [K_CtTmp])

USE (M_Temp + [K_CtTmp]) EXCLU ALIAS K_CtTmp

_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

WAIT WINDOWS NOWAIT [Khong co so lieu de phan bo!] USE IN K_CtTmp

USE IN M_DmTmpSELECT M_DmPb1

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

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 +;

SELECT V_CtTmp INDEX ON Ma_Vt TAG Ma_Vt SET ORDER TO 0

SELECT Ma_Vt FROM M_DmDmVt INTO TABLE (M_Temp + [V_DmVt0]) GROUP BY Ma_Vt

_Ma_Vt = ALLTRIM(Ma_Vt) SELECT V_CtTmp

REPLACE ALL Ma_Vt WITH _Ma_Vt FOR Ma_Vt

IF (This.Parent.Parent.chkPhanBoVTthua.Value = 1) AND ; FILE(M_Data_Nam + [CDVDD.DBF])

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 ;

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_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])

SELECT Ma_Sp, Ma_Vt, IIF(So_LuongSP#0,;

AS SL_DinhMuc,; 0000000000000.00 AS SL_Nhap,

T_SL_Nhap, 0000000000000.00 AS So_Luong, ;

0000000000000.00 AS T_So_Luong, 0000000000000.00 AS Tien, ; 0000000000000000 AS Tien_621,

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 0

SELECT DISTINCT Ma_Vt FROM M_DmTmp0 ;

USE (M_Dm_Nam + [DmVt]) ORDER Ma_Vt ALIAS M_DmVt

_Ma_Vt = ALLTRIM(M_DmTmp6.Ma_Vt)

IF !SEEK(M_DmTmp6.Ma_Vt,

REPLACE Ma_Vt WITH _Ma_Vt FOR Ma_Vt _Ma_Vt SELECT

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 ;

WHERE So_Luong # 0 AND Tien # 0 ; 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]) ;

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 nay 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 thanh

REPLACE ALL SL_Nhap WITH

M_DmTmp.So_Luong SELECT Ma_Vt,

SUM(SL_Nhap) AS T_SL_Nhap; FROM

&& Tong so luong nhap kho cua cac thanh pham duoc tao boi ma_vt 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 nay 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;

SELECT M_DmTmp4 INDEX ON Ma_Vt TAG Ma_Vt

&& 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

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) # 0

SELECT Ma_Vt, T_Tien_621, T_So_Luong, SUM(Tien_621) AS Tien_621, SUM(So_luong) AS So_Luong,; 000000000000000.00

SELECT M_DmTmp5 REPLACE ALL CL_Tien WITH T_Tien_621 - Tien_621,;

CL_SL_Xuat WITH T_So_Luong - So_Luong

SCAN FOR CL_Tien # 0 OR CL_SL_Xuat # 0

_CL_Tien = CL_Tien _CL_SL_Xuat = CL_SL_Xuat

SELECT M_DmTmp0 CALCULATE MAX(Tien_621) TO

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_DmTmp0 SET RELATION TO

SELECT Ma_Sp, SUM(Tien_621) AS Tien ;

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 # 0 SET ORDER TO 0 IN

ELSE && Phân bổ lơng và nhân công

IF FILE(M_Data_Nam + [CdVDD.DBF]) AND;

USE (M_Data_Nam + [CdVDD]) ALIAS V_CdVDD IN 0

SELECT Ma_Sp, So_Luong, M.Tk AS Tk,

&_Dummy0 AS; Tien, &_Dummy0 AS Ps_No;

FROM V_CdVDD ; WHERE (Thang = M.Thang1

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

SELECT K_CtTmp APPEND FROM (M_Temp + [V_SpDD1])

APPEND FROM (M_Temp + [V_SpDD2]) ENDIF

SUM He_So TO M.TongHeSo

WAIT WINDOWS NOWAIT [Chua khai bao he so phan bo!] USE IN M_DmTmp

INDEX ON Tk TAG TkStt

TOTAL TO (M_Temp + [K_CtTmp1]) ON Tk

USE (M_Temp + [K_CtTmp1]) ALIAS K_CtTmp1 EXCLUSIVE INDEX ON Tk TAG Tk

USE (M_Code + [DmCt]) ORDER Ma_Ct ALIAS M_DmCt

_So_Ct = PADR(ALLTR(STR((M_DmCt->So_Ct + 1))), FSIZE([So_Ct]))

REPLACE So_Ct WITH So_Ct + 1

M.Posted = [C] m.Ma_TTe= M_Ma_TTe0

_Ten_Bt = ALLTRIM(M.Ten_Bt)

WAIT WINDOWS NOWAIT M_Process + [Tk ghi co: ] + ;

ALLTR(M.Tk_Co) && Lấy đuôi của 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

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 –1 M.Tien = ROUND((_Tien * M_DmTmp-

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])

M.TTien = _Tien M.TTien_Nt = _Tien

DO UpDateSoCai WITH K_Ct.Stt IN (M_Prog + [Public])

=MESSAGEBOX(M_End_Proc, 64, M_App_Name)

2.Thủ tục phân bổ các chi phí khác:

M.Thang1 = THISFORM.txtThang1.Value M.Thang2 = THISFORM.txtThang2.Value M.Thang = THISFORM.txtThang2.Value

USE (M_Data_Nam + [Ct]) ORDER Stt ALIAS K_Ct

USE (M_Data_Nam + [Ct0]) ORDER Stt0 ALIAS K_Ct0

SELECT 0 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, 1 + (M.Thang2

M.Ngay_Ct = M.Ngay_Ct2 M.Ma_Ct = [PK]

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"

DO DeleteCt WITH _Stt IN (M_Prog + [PubLic])

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 + [")]

_KeyTkDi = _KeyTkDi + [.OR.(Tk = "] + M_Tk3 + [")]

_KeyTkDi = _KeyTkDi + [.OR.(Tk = "] + M_Tk4 + [")]

DO ScanFile WITH M.Ngay_Ct1, M.Ngay_Ct2, [(.T.)], _Key,

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))

DO ScanFile WITH M.Ngay_Ct1, M.Ngay_Ct2, [(Tk_No = M_Tk);

.OR.(Tk_Co = M_Tk)], [(Tk = '] + M_Tk + [')], [Tk627]

SELECT Tk, SUM(Ps_No - Ps_Co) AS Tien;

This.Parent.Grid2.RecordSource = [K_SoTmp]

M.Stt = M.Stt + TRANS(RECNO(), [@L 99]) _Tk = ALLTRIM(Tk)

IF SEEK(M_Tk2 + RIGHT(ALLTRIM(_Tk), 1), [M_DmTk])

_Tk622 = M_Tk2 + RIGHT(ALLTRIM(_Tk), 1) ELSE

SELECT Tk, Tk_Du, Ma_Sp, SUM(PS_Co - Ps_No)

FROM Tk622 ; INTO TABLE (M_Temp +

[Phan_Bo]) ; GROUP BY Tk, Tk_DU,

Ma_SP ; ORDER BY Tien622

REPLACE ALL Tien627 WITH ROUND(_Tien*Tien622 /

_Tong622, 0) SUM Tien627 TO _Tong627

REPLACE Tien627 WITH Tien627 + _Tien - _Tong627 ENDIF

ENDIF SELECT Phan_Bo SCAN

M.Tk_No = STRT(Tk_DU, M_Tk_Den2, M_Tk_Den)

FOR _i = FSIZE([Tk], [M_DmTk]) TO 1 STEP

–1 M.Tk_No = LEFT(M.Tk_No, _i)

IF SEEK(M.Tk_No, [M_DmTk])

EXIT ENDIF ENDFOR M.Tk_Co = _Tk FOR _i = FSIZE([Tk], [M_DmTk]) TO 1

STEP –1 M.Tk_Co = LEFT(M.Tk_Co,

M.Ma_TTe M_Ma_TTe0 M.Ma_NVu [K] INSERT INTO

K_Ct0 FROM MEMVAR M.Tien0 Tien622 M.Tk_No0 Tk_DU M.Tk_Co0 Tk M.Ty_Le Tien627 * 100 / _Tien INSERT

INTO K_SoTmp FROM MEMVAR ENDSCAN

M.Dien_Giai0 = M.Dien_Giai M.Tong_Tien = _Tien

INSERT INTO K_Ct FROM MEMVAR M.Tien0 = _Tong622

M.Tien = _Tien M.Tien_Nt = _Tien m.Tien9 = m.Tien m.Tien_Nt9 = m.Tien_Nt STORE [] TO M.Tk_No0, M.Tk_Co0, M.Tk_No, M.Tk_Co, M.Ma_Sp M.Ty_Le = 100

INSERT INTO K_SoTmp FROM MEMVAR USE IN Phan_Bo

DO UpDateSoCai WITH M.Stt IN (M_Prog +

ENDSCAN USE IN K_Ct USE IN K_Ct0 USE IN K_SoCai

USE IN Tk622 USE IN K_So627

This.Parent.Grid2.SetAll("DynamicFontBold", "IIF(Ty_Le 100, T., F.)", ; "Column")

This.Parent.Grid2.Refresh WAIT WINDOW NOWAIT M_End_Proc

3.Thủ tục tính giá thành

LOCAL _Str_Dau_Ky1, _Str_Dau_Ky2, _Str_Dau_Ky7,

_Str_Dau_Ky8, _i, ; _MD_HT, _SL_SPDD

_Tk = ALLTRIM(_Tk) m.Ngay_Ct1 = CTOD([01/] + TRANS(_Thang1, [@L 99]) + [/] + M_Nam) m.Ngay_Ct2 = GOMONTH(CTOD([01/] +

M.Ngay_Ct0 = CTOD([01/] + TRANS(M_Th_Bd_Ht, [@L 99]) + [/] + M_Nam) _SL_SPDD [SL_SPDD] + TRAN(_Thang2, [@L 99]) _MD_HT [MD_HT] + TRAN(_Thang2, [@L 99])

STORE [Ps_No1_00] TO _Str_Dau_Ky1, _Str_Cuoi_Ky1 STORE [Ps_No2_00] TO _Str_Dau_Ky2, _Str_Cuoi_Ky2 STORE [Ps_No7_00] TO _Str_Dau_Ky7, _Str_Cuoi_Ky7 STORE [Ps_No8_00] TO _Str_Dau_Ky8, _Str_Cuoi_Ky8

FOR _i = M_Th_Bd_Ht TO _Thang1 – 1

_Str_Dau_Ky1 = _Str_Dau_Ky1 +[+(Ps_No1_]+TRAN(_i,[@L 99]) +[-; Ps_Co1_]+TRAN(_i,[@L 99])+[)]

_Str_Dau_Ky2 = _Str_Dau_Ky2 +[+(Ps_No2_]+TRAN(_i,[@L 99]) +[-; Ps_Co2_]+TRAN(_i,[@L 99])+[)] _Str_Dau_Ky7 = _Str_Dau_Ky7 +[+(Ps_No7_]+TRAN(_i,[@L 99]) +[-; Ps_Co7_]+TRAN(_i,[@L 99])+[)] _Str_Dau_Ky8 Nguyễn Mạnh Tuân - Tin 39A Luận văn tốt nghiệp đại học

_Str_Dau_Ky8 +[+(Ps_No8_]+TRAN(_i,[@L 99]) +[-; Ps_Co8_]+TRAN(_i,[@L 99])+[)] ENDFOR

FOR _i = M_Th_Bd_Ht TO _Thang2

_Str_Cuoi_Ky1 = _Str_Cuoi_Ky1 +[+(Ps_No1_]+TRAN(_i, [@L 99]) +[-; Ps_Co1_]+TRAN(_i,[@L 99])+[)]

_Str_Cuoi_Ky2 = _Str_Cuoi_Ky2 +[+(Ps_No2_]+TRAN(_i, [@L 99]) +[-; Ps_Co2_]+TRAN(_i,[@L 99])+[)]

_Str_Cuoi_Ky7 = _Str_Cuoi_Ky7 +[+(Ps_No7_]

+TRAN(_i,[@L 99]) +[-; Ps_Co7_]+TRAN(_i,[@L 99])+[)] _Str_Cuoi_Ky8 = _Str_Cuoi_Ky8 +[+(Ps_No8_] +TRAN(_i,[@L 99]) +[-; Ps_Co8_]+TRAN(_i, [@L 99])+[)] ENDFOR

USE (M_Code + [CtTmp]) ALIAS CtTmp COPY STRUCTURE TO (M_Temp + [K_CtTmp0]) COPY STRUCTURE TO (M_Temp + [K_CtTmp1])

USE (M_Temp + [K_CtTmp0]) EXCLUSIVE IN 0 USE (M_Temp + [K_CtTmp1]) EXCLUSIVE IN 0

DO ScanFile WITH M.Ngay_Ct1, M.Ngay_Ct2, [(Tk_No = "] + _Tk + [").OR.; (Tk_Co = "] + _Tk + [")], [(Tk = '] + _Tk + [')], [K_CtTmp0]

_Key2 = [!EMPTY(Ma_Vt).AND.(Tk_Co = "] + _Tk + [")]

DO ScanFileV WITH M.Ngay_Ct1, M.Ngay_Ct2, [(.T.)], _Key2, [K_CtTmp1]

USE (M_Dm_Nam + [DmVt]) ORDER Ma_Vt ALIAS M_DmVt IN 0

SET RELATION TO Ma_Vt INTO M_DmVt REPLACE ALL Ma_Sp WITH M_DmVt.Ma_Sp

INDEX ON Tk_Co + Ma_Sp TAG Stt

INDEX ON Tk + Ma_Sp + DTOS(Ngay_Ct) TAG Stt

USE (M_Data_Nam + [CDK]) ORDER Tk_Ma_Sp ALIAS K_Cd

USE (M_Dm_Nam + [DmSp]) ORDER Ma_Sp ALIAS M_DmSp IN 0

SELECT Tk, Ma_Sp, SPACE(50) AS Ten_Sp, SPACE(50)

Dau_Ky,SUM(&_Str_Dau_Ky1) AS Dau_Ky1,;

SUM(&_Str_Dau_Ky2) AS Dau_Ky2,SUM(&_Str_Dau_Ky7) AS;

Dau_Ky7, SUM(&_Str_Dau_Ky8) AS Dau_Ky8, ;

000000000000000 AS SL_Nhap,000000000000000 AS Ps_No, ;

000000000000000 AS Ps_No1, 000000000000000 AS Ps_No2, ;

AS Ps_No8, ; 000000000000000 AS Ps_Co,

AS Ps_Co2,000000000000000 AS Ps_Co7, ;

SL_SPDD_QD, ; 000000000000000 AS SL_SPDD,000 AS MD_HT, ; 000000000000000 AS

000000000000000 AS Cuoi_Ky,SUM(&_Str_Cuoi_Ky1) AS ;

Cuoi_Ky1, SUM(&_Str_Cuoi_Ky2) AS Cuoi_Ky2,;

SUM(&_Str_Cuoi_Ky7) AS Cuoi_Ky7, SUM(&_Str_Cuoi_Ky8); AS

Cuoi_Ky8,000000000000000.00 AS DM_Vat_Tu,;

FROM K_Cd ;WHERE (Tk = _Tk) AND !EMPTY(Ma_Sp);INTO TABLE (M_Temp + [K_SoTmp0]) ;GROUP BY Tk, Ma_Sp

REPLACE ALL Dau_Ky WITH Dau_Ky1 + Dau_Ky2 +

REPLACE ALL Dau_Ky1 WITH 0, Dau_Ky2 WITH 0, Dau_Ky7; WITH 0, Dau_Ky8 WITH

0, Cuoi_Ky1 WITH 0, ; Cuoi_Ky2 WITH 0, Cuoi_Ky7 WITH 0, ; Cuoi_Ky8 WITH 0

WHERE (Tk + Ma_Sp NOT IN(SELECT Tk + Ma_Sp FROM;

K_SoTmp0)) ; INTO TABLE (M_Temp + [K_SoTmp1]) ;

GROUP BY Tk, Ma_Sp USE IN K_SoTmp1

_Dummy1 = [M_DmSp.DM_621_] + TRANS(_Thang2, [@L 99]) _Dummy2 = [M_DmSp.DM_622_] + TRANS(_Thang2, [@L 99]) _Dummy7 = [M_DmSp.DM_627_] + TRANS(_Thang2, [@L 99])

SET RELATION TO Ma_Sp INTO M_DmSp REPLACE ALL Ten_Sp WITH M_DmSp.Ten_Sp, DM_Vat_Tu

WITH &_Dummy1,DM_Luong WITH

&_Dummy2, ; DM_CPchung WITH &_Dummy7 SET RELATION TO

WAIT WINDOW M_Process + [ ] + _Tk NOWAIT

SUM Ps_No TO M.Ps_No1 REST WHILE (Tk = _Tk).AND.

(Ma_Sp =; _Ma_Sp) FOR (TK_DU

SUM Ps_No TO M.Ps_No2 REST WHILE (Tk = _Tk).AND.

(Ma_Sp = ; _Ma_Sp) FOR

(TK_DU = [622]) SEEK _Tk +_Ma_Sp

SUM Ps_No TO M.Ps_No7 REST WHILE (Tk _Tk).AND.(Ma_Sp = ;

_Ma_Sp) FOR (TK_DU = [627]) SEEK _Tk +_Ma_Sp

SUM Ps_No TO M.Ps_No8 REST WHILE (Tk = _Tk).AND.(Ma_Sp = ; _Ma_Sp) FOR (! INLIST(TK_DU, [621],[622],[627])) SELECT K_Cd

M.SL_SPDD &_SL_SPDD ELSE

M.MD_HT, M.SL_SPDD ENDIF

SUM So_Luong TO M.SL_Nhap ;

REST WHILE (Tk_Co = _Tk).AND.(Ma_Sp _Ma_Sp)

M.Ps_No = M.Ps_No1 + M.Ps_No2 + M.Ps_No7 + M.Ps_No8 REPLACE SL_Nhap WITH M.SL_Nhap, SL_SPDD WITH

M.SL_SPDD,; MD_HT WITH M.MD_HT,Ps_No WITH M.Ps_No, Ps_No1; WITH M.Ps_No1, Ps_No2 WITH M.Ps_No2, ; Ps_No7 WITH

M.Ps_No7, Ps_No8 WITH M.Ps_No8 ENDSCAN

DELETE FOR Dau_Ky = 0 AND Dau_Ky1 = 0 AND Dau_Ky2 = 0 AND; Dau_Ky7 = 0 AND Dau_Ky8 = 0 AND

Định dạng
Số trang	124
Dung lượng	689,3 KB

Tài liệu tham khảo	Loại	Chi tiết
1. Giáo trình Hệ Thống Thông Tin Quản LýTS. Trơng Văn Tú - TS. Trần Thị Song Minh NXB Thống Kê, Hà Nội, 2000	Khác
3. Giáo trình Kế Toán MáyTS. Trần Thị Song MinhNXB Thống Kê, Hà Nội, 2000 4. Project GuideApptech Limited - First Edition, 1999, India	Khác
6. Hớng dẫn thực hành về kế toán chi phí sản xuất và tính giá thành sản phẩm trong doanh nghiệp	Khác
PTS.Võ Văn Nhị - ThS. Phạm Thanh Liêm - ThS.Lý Kim Huê NXB Thống Kê, Hà Nội, 1999	Khác
7. Kế toán tập hợp chi phí sản xuất và tính giá thành sản phẩm Nhà giáo u tú Vũ Huy CẩmNXB Thống Kê, Hà Nội, 1996 8. Hớng dẫn thực hành chế độ kế toán mới	Khác
TS. Phạm Văn Dợc - Đặng Kim Cơng NXB Thống Kê, Hà Nội, 1999	Khác