Phân Tích Và Thiết Kế Hệ Thống Thông Tin Tính Giá Thành Tại Công Ty Tnhh Hòa Phát..docx

Other Môc lôc Môc lôc 2 Lêi nãi ®Çu 4 Ch¬ng i Giíi thiÖu vÒ c«ng ty tnhh èng thÐp hßa ph¸t vµ ®Ò tµi nghiªn cøu 6 I Giíi thiÖu vÒ c«ng ty TNHH èng thÐp Hßa Ph¸t 6 II Giíi thiÖu ®Ò tµi nghiªn cøu 7 1 K[.]

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… 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 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 khâu thiết kế, công nghệ đến việc khảo sát nắm bắt cá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 Những nội dung chính 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 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ó 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

Hệ thống thông tin quản lý

1.Hệ thống thông tin quản lý

Thông tin là sự phản ánh và biến phản ánh thành tri thức mới về đối tợng đợc phản ánh trong tri thức của chủ thể nhận phản ánh Có thể mô tả thông tin theo h×nh díi ®©y:

Thông tin quản lý là thông tin mà có ít nhất một cán bộ quản lý cần hoặc có ý muốn dùng vào việc ra quyết định quản lý

Hệ thống thông tin là một tập hợp những con ngời, các thiết bị phần cứng, phần mềm, dữ liệu… thực hiện hoạt động thu thập, lu trữ, xử lý và phân phối thông tin trong một tập hợp các ràng buộc gọi là môi trờng Dới đây là mô hình hệ thống thông tin:

Hệ thống thông tin quản lý là hệ thống thông tin trợ giúp các hoạt động quản lý của tổ chức, các hoạt động này nằm ở mức điều khiển tác nghiệp, điều khiển quản lý hoặc lập kế hoạch chiến lợc.

Cùng một hệ thống thông tin có thể mô tả theo các mức khác nhau: mô hình logic, mô hình vật lý ngoài và mô hình vật lý trong Mỗi mô hình là kết quả của một góc nhìn khác nhau, mô hình logic là kết quả của góc nhìn quản lý, mô hình vật lý ngoài là kết quả của góc nhìn sử dụng và mô hình vật lý trong là kết quả của góc nhìn kĩ thuật Ba mô hình này có độ ổn định khác nhau, mô hình logic là ổn định nhất và mô hình vật lý trong là hay biến đổi nhất.

Mô hình logic (Góc nhìn quản lý)

Mô hình vật lý ngoài (Góc nhìn sử dụng)

Mô hình vật lý trong (Góc nhìn kĩ thuật)

Mô hình ổn định nhất

Cái gì ? Để làm gì ?

Cái gì ? ở đâu ? Khi nào ?

Mô hình logic mô tả hệ thống làm gì: dữ liệu mà nó thu thập, xử lý mà nó phải thực hiện, các kho để chứa các kết quả hoặc dữ liệu để lấy ra cho các xử lý và những thông tin mà hệ thống sản sinh ra Mô hình này trả lời câu hỏi Cái gì ? và Để làm gì ? Nó không quan tâm tới phơng tiện đợc sử dụng cũng nh địa điểm và thời điểm mà dữ liệu đợc xử lý

Mô hình vật lý ngoài chú ý tới những khía cạnh nhìn thấy đợc của hệ thống nh là các vật mang dữ liệu và vật mang kết quả cũng nh hình thức của đầu vào và của đầu ra, phơng tiện để thao tác với hệ thống, những dịch vụ, bộ phận, con ngời và vị trí công tác trong hoạt động xử lý, các thủ tục thủ công cũng nh yếu tố về địa điểm thực hiện xử lý dữ liệu, loại màn hình hoặc bàn phím đợc sử dụng Mô hình này cũng chú ý tới mặt thời gian của hệ thống, nghĩa là về những thời điểm mà các hoạt động xử lý dữ liệu khác nhau xảy ra Nó trả lời câu hỏi Cái gi ? Ai ? ở đâu ? và Khi nào ?

Mô hình vật lý trong liên quan tới những khía cạnh vật lý của hệ thống tuy nhiên không phải là cái nhìn của ngời sử dụng mà là của nhân viên kĩ thuật. Chẳng hạn, đó là những thông tin liên quan tới loại trang thiết bị đợc dùng để thực hiện hệ thống, dung lợng kho lu trữ và tốc độ xử lý của thiết bị, tổ chức vật lý của dữ liệu trong kho chứa, cấu trúc của các chơng trình và ngôn ngữ thể hiện.

Nó trả lời câu hỏi Nh thế nào ?

Hình vẽ dới đây minh họa một hệ thống thông tin theo ba mô hình trên:

2.Hiệu quả kinh tế của hệ thống thông tin quản lý

Việc đánh giá hiệu quả kinh tế của hệ thống thông tin thực chất là việc nghiên cứu xác định lợi ích bằng tiền mà nó mang lại cho tổ chức bởi vì phần chi phí bằng tiền cho nó đợc xác định xác định dễ dàng.

Lợi ích của hệ thống thông tin

Giá trị của một thông tin bằng lợi ích thu đợc của việc thay đổi phơng án quyết định do thông tin đó tạo ra Giá trị của một hệ thống thông tin là sự thể

Logic Vật lý ngoài VËt lý trong

Logic Vật lý ngoài VËt lý trong §Ých tin Nguồn tin Thông tin vào Thông tin ra

25 hiện bằng tiền tập hợp những rủi ro mà tổ chức tránh đợc và những thuận lợi mà tổ chức có đợc nhờ hệ thống thông tin.

Lợi ích tránh rủi ro là: PR = (Ai.Pi Ri)

Với Ai: thiệt hại do rủi ro thứ i gây ra

Pi: xác suất xảy ra các rủi ro thứ i

Ri: tỷ lệ giảm bớt rủi ro thứ i nhờ có hệ thống thông tin

Lợi ích tận dụng cơ hội: CR = (Ci.Pi Ri)

Với Ci: Lợi ích khi tận dụng cơ hội thứ i

Pi: Xác suất xảy ra cơ hội thứ i

Ri: tỷ lệ tận dụng cơ hội của hệ thống

Lợi ích hàng năm của hệ thống thông tin: PR + CR

Chi phí cho hệ thống thông tin

Chi phí cố định cho hệ thống thông tin bao gồm các khoản sau:

1) Chi phí phân tích và thiết kế Cpttk

2) Chi phí xây dựng (thực hiện) Cxd

3) Chi phí máy móc tin học Cmm

4) Chi phí cài đặt Ccđ

5) Chi trang bị phục vụ Ctbpv

6) Chi cố định khác Ccđk

Chi phí cố định CPCĐ = Cpttk + Cxd + Cmm + Ccđ + Ctbpv + Ccđk

Chi phí biến động là những khoản chi phí để khai thác hệ thống, bao gồm những khoản chi thờng xuyên và đột xuất trong thời kì khai thác Đây là chi phí theo thời gian nên sẽ đợc tính theo các kì, chủ yếu là năm Đó là các khoản:

1) Chi phí thù lao nhân lực Ctl

2) Chi phí thông tin đầu vào, văn phòng phẩm Cđv

3) Chi phí tiền điện, truyền thông… Cđtt

4) Chi phí bảo trì, sửa chữa Cbtsc

5) Chi phí biến động khác Cbđk

Chi phí biến động của năm thứ i sẽ là:

CPB§(i) = Ctl(i) + C®v(i) + C®tt(i) + Cbtsc(i) + Cb®k(i) Đánh giá hiệu quả kinh tế của hệ thống thông tin

Hiệu quả tuyệt đối và hiệu quả tơng đối của hệ thống thông tin đợc tính giống nh các loại đầu t khác Gọi n là số năm sử dụng hệ thống thông tin và chuyển hết giá trị tiền tệ theo thời gian về tơng lai thì tổng chi phí sẽ là:

TCP = CPCĐ (1 + lãi suất) n +  CPBĐ(i).(1 + lãi suất) (n-i)

Và tổng thu nhập sẽ là:

Cần phải xây dựng hệ thống thông tin sao cho TTN > TCP

Phơng pháp phân tích điểm cân bằng chi phí

Phơng pháp này so sánh chi phí của việc dùng hệ thống cũ với việc dùng hệ thống mới Điểm cân bằng là điểm mà tại đó chi phí cho hệ thống mới bằng hệ thống cũ.

Phơng pháp phân tích tiền d

Phơng pháp này xem xét mối liên hệ giữa chi phí tích luỹ và lợi ích tích luỹ Hiệu của chúng gọi là tiền d trong kì

Tiền d = (Thu – Tài chính Chi) (Hệ số)

Nếu tổng tiền d ớc lợng đợc là dơng thì việc đầu t là thoả đáng Phơng pháp này còn cho phép lựa chọn phơng án tối u trong các phơng án đề xuất

Phơng pháp này dựa vào ý kiến của các chuyên gia hoặc những ngời có khả năng

Phơng pháp này đem so sánh hệ thống thông tin cần phải xem xét với một hệ thống thông tin tơng tự hoặc một hệ thống trừu tợng đợc chọn làm mẫu

3.Phơng pháp phát triển một hệ thống thông tin quản lý

Mục tiêu cuối cùng của những cố gắng phát triển một hệ thống thông tin là cung cấp cho các thành viên của tổ chức những công cụ quản lý tốt nhất Phát triển một hệ thống thông tin bao gồm việc phân tích hệ thống đang tồn tại, thiết kế một hệ thống mới, thực hiện và tiến hành cài đặt nó Phân tích một hệ thống bắt đầu từ việc thu thập dữ liệu và chỉnh đốn chúng để đa ra đợc chẩn đoán về tình hình thực tế Thiết kế là nhằm xác định các bộ phận của một hệ thống mới có khả năng cải thiện tình trạng hiện tại và xây dựng các mô hình logic, mô hình vật lý ngoài của hệ thống đó Việc thực hiện hệ thống thông tin liên quan tới xây dựng mô hình vật lý trong của hệ thống mới và chuyển mô hình đó sang ngôn ngữ tin học Cài đặt một hệ thống là tích hợp nó vào hoạt động của tổ chức Câu hỏi đầu tiên đặt ra của việc phát triển một hệ thống thông tin mới là Cái gì bắt buộc một tổ chức phải tiến hành phát triển hệ thống thông tin ?

Nguyên nhân dẫn tới việc phát triển một hệ thống thông tin

Những vấn đề về quản lý

Những yêu cầu mới của nhà quản lý

Sự thay đổi của công nghệ

Sự thay đổi sách lợc chính trị

Phơng pháp phát triển một hệ thống thông tin quản lý

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 Trang - 14 -

Thủ công Tin học hóa

Tên ng ời/bộ phận phát/nhận tin Nguồn hoặc đích

Tên dòng dữ liệu Dòng dữ liệu

Tên tiến trình xử lý Tiến trình xử lý

Tệp dữ liệu Kho dữ liệu

20 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ếp

Chi phí nhân công trực tiếp

Chi 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:

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ỉ

35 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ĩ thuật để thực hiện quá trình sản xuất sản phẩm, là cơ sở để 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 622 không có số d

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 627 không có số d

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:

Cã TK 338 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 335 Các khoản chi phí bằng tiền thanh toán cho lao động trực tiếp, ghi:

Tự sản xuất đ a vào sử dụng

Mua về đ a vào dùng ngay

Vật liệu còn thừa trả lại kho

Kết chuyển vào TK tính giá thành

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:

Cã TK 334 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 338 Chi 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:

Trích tr ớc l ơng nghỉ phép

Thanh toán trực tiếp bằng tiền

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:

Cã TK 627 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:

Chi về nhân viên phân x ởng

Chi phí về công cụ, dụng cụ

Khi 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©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ó 3 ngời là 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à 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

Ghi cuối tháng §èi chiÕu

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ạ

Thép cuộn Thép bản rộng ống đen ố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:

Chi phí nguyên vật liệu chính phân bổ cho từng đối t ợng

Tỉ lệ phân bổ theo định mức

Tổng chi phí vật liệu chÝnh

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 6211 (6): Kết chuyển chi phí nhân công 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

(6): Kết chuyển chi phí nhân công 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

Kế toán-Tài chính Kế toán sản xuất Ban giám đốc

Chứng từ Chứng từ hợp lệ

Ghi sổ nhật kÝ chung

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

Kết quả tập hợp CFSX

Phân bổ chi phí sản xuất Định mức NVL chÝnh

KÕt chuyÓn chi phí sản xuÊt

TÝnh giá thành Báo cáo

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:

PhiÕu chi: Đơn vị: Mẫu số: 02-TT Địa chỉ: Ban hành theo QĐ số:1141-TC/QĐ/CĐKT ngày 1 tháng 11 năm 1995 của Bộ Tài Chính phiÕu chi Sè:

Họ và tên: Địa chỉ:

Số tiền: (viết bằng chữ)

Kèm theo: Chứng từ gốc: Đã nhận đủ số tiền (viết bằng chữ):

Thủ tr ởng Kế toán Ng ời lập phiếu Thủ quỹ Ng ời nhận tiền đơn vị tr ởng

Trang - 36 - Đơn vị: Địa chỉ: phiÕu xuÊt kho Sè:

Ng ời lĩnh: Đơn vị:

Stt Mặt hàng Đvt Số l ợng Đơn giá Thành tiền

Cộng tiền hàng ThuÕ GTGT Tổng tiền Cộng thành tiền (bằng chữ):

Lập phiếu Ng ời lĩnh Thủ kho Kế toán tr ởng Thủ tr ởng đơn vị

Mẫu sổ nhật kí chung: Đơn vị: Địa chỉ: sổ nhật kí chung

Từ ngày: đến ngày: n gày Số Nợ Có

NhËp thÐp cuén tõ công ty Nam Vang

Phải trả ng ời bán 331 1200000000

Phải trả ng ời bán 331 120000000

Nhập kho bán thành phÈm

Kế toán tr ởng Kế toán ghi sổ

(kí, họ tên) (kí, họ tên)

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

Trang - 38 - Đơn vị: Địa chỉ: sổ cái tài khoản

Tài khoản: 1541- Chi phí sản xuất kinh doanh dở dang ống đen

Tài khoản ngày Số đối ứng Nợ Có

Cộng phát sinh trong kì

Kế toán tr ởng Kế toán ghi sổ

(kí, họ tên) (kí, họ tên)

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: Đơn vị : Địa chỉ:

Tổng hợp chi phí theo khoản mục

Ng ời lập phiếu Ngày tháng năm

(Ký, họ tên) Kế toán tr ởng

Phát sinh Tên khoản mục

Trang - 40 - Đơn vị: Địa chỉ:

Tổng hợp chi phí giá thành

Phát sinh Đ a vào trong kỳ sản xuất

Kế toán tr ởng Ngày tháng năm

(Ký, họ tên) Kế toán ghi sổ

1.Chi phí nguyên vật liệu trực tiếp

2.Chi phí nhân công trực tiếp

3.Chi phí sản xuất chung

Tiền l ơng phân tích giá thành

Mã Tên Đơn vị chung

(Ký, họ tên) Kế toán ghi sổ

Số l ợng Giá Vật liệu

Nhân công Tổng cộng Định mức

Trang - 42 - báo cáo phân bổ nguyên vật liệu

Từ tháng Đến tháng Tài khoản:

Sản l ợng Định mức Tiêu hao Tiêu hao

SPHT vật t định mức thực tế

(ký, họ tên) Kế toán ghi sổ

Tên vật t Tiền Chênh lệch

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

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

3.2 Tính giá thành đơn vị

Giá thành Giá thành đơn vị

Báo cáoBan Giám đốc5

2.1 Ghi sổ nhật kÝ chung

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

Kết quả tập hợp chi phí sản xuất

2.4 Phân bổ chi phí sản xuất

Kết quả phân bổ vật liệu chính D5:

Kết quả phân bổ các chi phí khác D6:

2.5 KÕt chuyÓn chi phí sản xuÊt

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

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

Không tính đợc giá thành từng loại sản phẩm trong nhóm sản phẩm mà chỉ tính đợc giá thành của nhóm từ đó quy đổi ra giá thành sản phẩm từng loại theo tỉ lệ xác định trớc, do đó không chính xác.

2.4.1 Tập hợp phiÕu nhËp kho TP

TÝnh sè l ợng sản phÈm

2.4.3 Tính tỉ lệ phân bổ VLC

D7: Số l ợng sản phẩm D8: Định mức VLC kho TP

2.4.4 Phân bổ chi phÝ VLC

D4: Kết quả phân bổ vật liệu chính D5:

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

Việc tập hợp chi phí sản xuất ở công ty khá phức tạp do quy trình sản xuất sản phẩm trải qua các công đoạn với nhiều đối tợng tính giá thành.

Số lợng chứng từ lớn, nhiều nghiệp vụ phát sinh trong khi chỉ có một ngời đảm nhiệm với phơng pháp thủ công.

Nhiều đối tợng tập hợp chi phí và nhiều đối tợng tính giá thành nên phải mở nhiều sổ chi tiết để theo dõi

Tính toán phải trải qua nhiều bớc với khối lợng lớn, để tính đợc giá thành của giai đoạn này phải tính đợc giá thành của công đoạn trớc đó

Mong muốn của ngời làm kế toán sản xuất

ThiÕt kÕ logic

1.Sơ đồ luồng dữ liệu mới

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

Nhập vào máy Chứng từ hợp lệ

Cơ sở dữ liệu kế toán Báo cáo

D1:Tệp chứn g từ3.1Tập hợp chiphí sản xuất Kết qu ả tập hợp chi phí sản xuấtD2:3.2Phân bổ chiphí s ản xuất Kết qu ả phân bổ v ật liệu chínhD3: Kết q uả phân bổ các ch i phí khácD4:3.3Kết c huyểnchi p hí sảnxuất3.4Tính giáthànhBáo cáo

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

3.2.1 TÝnh sè l ợng sản phÈm

3.2.2 Tính tỉ lệ phân bổ VLC

D5: Số l ợng sản phẩm D6: Định mức VLC

3.2.3 Phân bổ chi phÝ VLC

D2: Kết quả phân bổ vật liệu chính D3:

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

3.4.2 Tính giá thành đơn vị

Giá thành Giá thành đơn vị

Báo cáo Ban Giám đốc

2.Sơ đồ luồng thông tin mới

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

Kế toán-Tài chính Kế toán sản xuất Ban giám đốc

Chứng từ Chứng từ hợp lệ

Kết quả tập hợp CFSX

Phân bổ chi phí sản xuất

KÕt chuyÓn chi phÝ SX

TÝnh giá thành Báo cáo

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ợ – Tài chính 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

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

Trang - 52 - kho Định khoản đối t ợng tài khoản sản phẩm

Có chứng từ Định mức vËt t

Loại chứng từ Số chứng từ # Vật t Số l ợng Đơn giá Thành tiền # Sản phẩm TK nợ TK có

Loại chứng từ Số chứng từ Ngày # Đối t ợng # Kho Diễn giải

# Tài khoản Tên tài khoản # Tài khoản mẹ

# Sản phẩm Tên sản phẩm Đơn vị tính TK giá thành

# Vật t # Sản phẩm Số l ợng chứng từ định khoản vật t tài khoản sản phẩm Định mức

# Vật t Tên vật t Đơn vị tính

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

Phân bổ các chi phí còn lại

Lựa chọn báo cáo 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

20 iv.thiÕt kÕ vËt lý trong

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

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”.

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” Đố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.

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

20 kho chứng từ định khoản vËt t tài khoản sản phẩm Định mức

# Sản phẩm Tên sản phẩm Đơn vị tính

# Vật t # Sản phẩm Số l ợng SP Tháng 1 Tháng 12

# Tài khoản Tên tài khoản

# TK giá thành Bậc tài khoản

# Nhóm Tên nhóm Bậc nhóm Nhóm mẹ Nhóm cuối

Loại chứng từ Số chứng từ # Vật t Số l ợng Đơn giá Thành tiền # Sản phẩm #TK nợ #TK có

Số thứ tự Số thứ tự 0

# Vật t Tên vật t Đơn vị tính Loại vật t # Nhóm

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

Name Type 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 từ

MA_SP C 16 Mã sản phẩm

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

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

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

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

MA_NHOM C 8 Mã nhóm vật t

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

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

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

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 1 SO_LUONG02 N 15 4 Định mức về số lợng vật t tháng 2

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

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

4.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

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

Chungtu.dbf Ct.dbf TK.DBF DMTK.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 Type Wid Dec Tơng ứng trong CHUNGTU.DBF

Name Type 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 Type Wid Dec Tơng ứng trong PHANBO.DBF

Name Type Wid Dec Tơng ứng trong DMTK.DBF

Name Type Wid Dec Tơng ứng trong NHOMVT.DBF

Name Type Wid Dec Tơng ứng trong tệp VATTU.DBF

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

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

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

TÝnh giá thành sản xuất Lập các báo cáo

Chi phÝ nh©n công trùc tiÕp

Chi phÝ sản xuất chung

Chi phÝ nguyên vật liệu phô

Chi phÝ nguyên vật liệu chÝnh

Phân bổ chi phÝ vật liệu chÝnh

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

TÝnh sè l ợng sản phÈm hoàn thành

TÝnh tổng giá thành và giá thành đơn vị

Bảng ph©n tích giá thành

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

Báo cáo phân bổ nguyên vật liệu

Xác định tỉ lệ phân bổ vật liệu chÝnh

Tra cứu định mức số l ợng vật liệu chÝnh

Tra cứu sản phÈm hoàn thành

Tính tỉ lệ phân bổ vật liệu chÝnh

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

Tính tổng của tr ờng "Thành tiền" theo từng "Mã sản phẩm" Đọc bản ghi

Tính giá thành đơn vị sản phẩm từng loại

Chuyển sang bản ghi tiÕp theo § s ®

§

Tính tổng của tr ờng "Số l ợng" theo từng "Mã sản phẩm"

Thuật toán tính giá thành sản xuất

Mở các tệp cần thiết để phân bổ

Tạo ra tệp các tạm thời để l u các kết quả trung gian

Chọn tệp DANH Mục Phân Bổ Đọc bản ghi

Xác định bút toán phân bổ: TK nợ,TK có

Phân bổ chi phí sản xuất theo bút toán đã xác định Định khoản kết quả phân bổ vào tệp định khoản

Chuyển sang bản ghi tiếp theo Bản ghi cuối ? § § s s

Xóa các tệp Tạm thời

Thuật toán tổng quát phân bổ chi phí sản xuất

Tính tổng của tr ờng "Thành tiền" theo từng "Mã vật t "

L u kết quả vào tệp tạm thời Đọc bản ghi

Tính tỉ lệ phân bổ vật liệu chính

Chuyển sang bản ghi tiếp theo Bản ghi cuối ? § s s

Phân bổ chi phí vật liệu chính Định khoản kết quả phân bổ

Thuật toán phân bổ chi phí nguyên vật liệu chính

Lấy các tham số để lập báo cáo

Xử lý số liệu để tạo ra một tệp tạm tr ớc khi lên báo cáo

Lọc ra các số liệu từ các tệp dữ liệu phát sinh và số d

Browse tệp số liệu tạm thời

Thuật toán tổng quát lập báo cáo

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ép Hòa Phát, phân bổ chi phí là khâu chủ yếu 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

ThiÕt kÕ vËt lý trong

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

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”.

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” Đố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.

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

20 kho chứng từ định khoản vËt t tài khoản sản phẩm Định mức

# Sản phẩm Tên sản phẩm Đơn vị tính

# Vật t # Sản phẩm Số l ợng SP Tháng 1 Tháng 12

# Tài khoản Tên tài khoản

# TK giá thành Bậc tài khoản

# Nhóm Tên nhóm Bậc nhóm Nhóm mẹ Nhóm cuối

Loại chứng từ Số chứng từ # Vật t Số l ợng Đơn giá Thành tiền # Sản phẩm #TK nợ #TK có

Số thứ tự Số thứ tự 0

# Vật t Tên vật t Đơn vị tính Loại vật t # Nhóm

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

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 từ

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

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

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

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

MA_NHOM C 8 Mã nhóm vật t

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

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

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

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

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 1 SO_LUONG02 N 15 4 Định mức về số lợng vật t tháng 2

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

4.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

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

Chungtu.dbf Ct.dbf TK.DBF DMTK.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 Type Wid Dec Tơng ứng trong CHUNGTU.DBF

Name Type 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 Type Wid Dec Tơng ứng trong PHANBO.DBF

Name Type Wid Dec Tơng ứng trong DMTK.DBF

Name Type Wid Dec Tơng ứng trong NHOMVT.DBF

Name Type Wid Dec Tơng ứng trong tệp VATTU.DBF

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

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

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

TÝnh giá thành sản xuất Lập các báo cáo

Chi phÝ nh©n công trùc tiÕp

Chi phÝ sản xuất chung

Chi phÝ nguyên vật liệu phô

Chi phÝ nguyên vật liệu chÝnh

Phân bổ chi phÝ vật liệu chÝnh

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

TÝnh sè l ợng sản phÈm hoàn thành

TÝnh tổng giá thành và giá thành đơn vị

Bảng ph©n tích giá thành

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

Báo cáo phân bổ nguyên vật liệu

Xác định tỉ lệ phân bổ vật liệu chÝnh

Tra cứu định mức số l ợng vật liệu chÝnh

Tra cứu sản phÈm hoàn thành

Tính tỉ lệ phân bổ vật liệu chÝnh

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

Tính tổng của tr ờng "Thành tiền" theo từng "Mã sản phẩm" Đọc bản ghi

Tính giá thành đơn vị sản phẩm từng loại

Chuyển sang bản ghi tiÕp theo § s ®

§

Tính tổng của tr ờng "Số l ợng" theo từng "Mã sản phẩm"

Thuật toán tính giá thành sản xuất

Mở các tệp cần thiết để phân bổ

Tạo ra tệp các tạm thời để l u các kết quả trung gian

Chọn tệp DANH Mục Phân Bổ Đọc bản ghi

Xác định bút toán phân bổ: TK nợ,TK có

Phân bổ chi phí sản xuất theo bút toán đã xác định Định khoản kết quả phân bổ vào tệp định khoản

Chuyển sang bản ghi tiếp theo Bản ghi cuối ? § § s s

Xóa các tệp Tạm thời

Thuật toán tổng quát phân bổ chi phí sản xuất

Tính tổng của tr ờng "Thành tiền" theo từng "Mã vật t "

L u kết quả vào tệp tạm thời Đọc bản ghi

Tính tỉ lệ phân bổ vật liệu chính

Chuyển sang bản ghi tiếp theo Bản ghi cuối ? § s s

Phân bổ chi phí vật liệu chính Định khoản kết quả phân bổ

Thuật toán phân bổ chi phí nguyên vật liệu chính

Lấy các tham số để lập báo cáo

Xử lý số liệu để tạo ra một tệp tạm tr ớc khi lên báo cáo

Lọc ra các số liệu từ các tệp dữ liệu phát sinh và số d

Browse tệp số liệu tạm thời

Thuật toán tổng quát lập báo cáo

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ép Hòa Phát, phân bổ chi phí là khâu chủ yếu 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.

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

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) + TRANS(M.Thang2,; [@L 99]) + TRANS(Stt, [@L 99])

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 IN 0

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 ;

INTO TABLE (M_Temp + [M_DmTmp]) ; GROUP BY Ma_Sp

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_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!] TIME 3

USE IN M_DmTmp SELECT M_DmPb1

_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,;

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

USE IN M_DmTmp SELECT M_DmPb1 LOOP

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 0

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

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

SCAN _Ma_Vt = ALLTRIM(Ma_Vt) SELECT V_CtTmp

REPLACE ALL Ma_Vt WITH _Ma_Vt FOR Ma_Vt = _Ma_Vt SELECT V_DmVt0

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

SELECT 0 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 ;

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

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

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 0

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 0

_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

USE IN M_DmTmp6 USE IN M_DmVt

* Tính tổng số tiền, số lợng của các vật t đã sử dụng

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

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

INTO TABLE (M_Temp + [M_DmTmp4]) ; GROUP BY 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 AS CL_Tien, 000000000000000.00 AS CL_SL_Xuat;

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_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_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 # 0 SET ORDER TO 0 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 và nhân công

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

!EMPTY(_Dummy0) 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 - 1).AND.;

SELECT Ma_Sp, So_Luong, M.Tk AS Tk, &_Dummy0 AS ;

Tien, &_Dummy0 AS Ps_Co ; FROM V_CdVDD ;

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

SUM He_So TO M.TongHeSo

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

USE IN K_CtTmp SELECT M_DmPb1 LOOP

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)

M.Tk_Co = K_CtTmp1->Tk WAIT WINDOWS NOWAIT M_Process + [Tk ghi 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 – Tài chính1 M.Tien = _Tien1 ELSE

SKIP – Tài chính1 M.Tien = ROUND((_Tien * M_DmTmp->He_So / ; M.TongHeSo), 0)

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

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:

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" Trang - 84 -

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 = _KeyTkDi + [.OR.(Tk = "] + M_Tk3 + [")] ENDIF

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

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

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]

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) AS Tien622,;

INTO TABLE (M_Temp + [Phan_Bo]) ; GROUP BY Tk, Tk_DU, Ma_SP ;

ORDER BY Tien622 SUM Tien622 TO _Tong622

USE IN Phan_Bo LOOP

REPLACE ALL Tien627 WITH ROUND(_Tien*Tien622 / _Tong622, 0) SUM Tien627 TO _Tong627

REPLACE Tien627 WITH Tien627 + _Tien - _Tong627 ENDIF

M.Stt0 = TRANSFORM(RECNO(), [@L 999]) M.Dien_Giai = [Phân bổ ] + ALLTRIM(_Tk) + [ > ] + ; ALLTRIM(M_Tk_Den)

M.Tien_Nt = Tien627 M.Tien = Tien627 M.Tk_No = STRT(Tk_DU, M_Tk_Den2, M_Tk_Den) FOR _i = FSIZE([Tk], [M_DmTk]) TO 1 STEP – Tài chính1

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

IF SEEK(M.Tk_No, [M_DmTk])

EXIT ENDIF ENDFOR M.Tk_Co = _Tk Trang - 86 -

FOR _i = FSIZE([Tk], [M_DmTk]) TO 1 STEP – Tài chính1

M.Tk_Co = LEFT(M.Tk_Co, _i)

IF SEEK(M.Tk_Co, [M_DmTk])

EXIT ENDIF ENDFOR M.Ma_Sp = Ma_Sp 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

INSERT INTO K_Ct FROM MEMVAR

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

DO UpDateSoCai WITH M.Stt IN (M_Prog + [PUBLIC])

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

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/] + TRANS(_Thang2, [@L 99]) + [/] +;

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 – Tài chính 1

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

FOR _i = M_Th_Bd_Ht TO _Thang2

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

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) AS Ten_Tk, ;

000000000000000 AS 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, ;

000000000000000 AS Ps_No7, 000000000000000 AS Ps_No8, ;

000000000000000 AS Ps_Co, 00000000000000 AS Ps_Co1,;

000000000000000 AS Ps_Co2,000000000000000 AS Ps_Co7, ;

000000000000000 AS Ps_Co8,000000000000000 AS SL_SPDD_QD, ;

000000000000000 AS SL_SPDD,000 AS MD_HT, ;

000000000000000 AS Gia,000000000000000 AS Gia_Thanh, ;

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

WHERE (Tk = _Tk) AND !EMPTY(Ma_Sp);

GROUP BY Tk, Ma_Sp

REPLACE ALL Dau_Ky WITH Dau_Ky1 + Dau_Ky2 + Dau_Ky7 +;

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

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

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

GROUP BY Tk, Ma_Sp

_Dummy1 = [M_DmSp.DM_621_] + 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

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 = [621]) SEEK _Tk +_Ma_Sp

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

_Ma_Sp) FOR (TK_DU = [622]) Trang - 90 -

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

_Ma_Sp) FOR (!INLIST(TK_DU, [621],[622],[627])) SELECT K_Cd

M.SL_SPDD = &_SL_SPDD ELSE

STORE 0 TO 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 SL_Nhap = 0 AND;

Ps_No1 = 0 AND Ps_No2 = 0 AND Ps_No7 = 0 AND Ps_No8; = 0 AND Ps_Co = 0 AND Ps_Co1 = 0 AND Ps_Co2 = 0 AND ; Ps_Co7 = 0 AND Ps_Co8 = 0 AND Cuoi_Ky1 = 0 AND ;

Cuoi_Ky2 = 0 AND Cuoi_Ky7 = 0 AND Cuoi_Ky8 = 0

REPLACE ALL SL_SPDD_QD WITH SL_SPDD * MD_HT / 100, Cuoi_Ky ;

WITH Cuoi_Ky1 + Cuoi_Ky2 + Cuoi_Ky7 + Cuoi_Ky8 _For = '((Cuoi_Ky = 0) OR (SL_SPDD_QD + MD_HT # 0))'

*!* Tinh gia tri do dang cuoi ky

CASE (ThisForm.OptGrpPP_Danh_Gia.Value = 1) && Theo vt truc tiep REPLACE Cuoi_Ky1 WITH ROUND((Dau_Ky1 + Ps_No1) / (SL_Nhap; + SL_SPDD) * SL_SPDD, 0);

FOR SL_Nhap + SL_SPDD # 0 AND &_For REPLACE ALL Cuoi_Ky2 WITH 0, Cuoi_Ky7 WITH 0, Cuoi_Ky8 ;

CASE (ThisForm.OptGrpPP_Danh_Gia.Value = 2) &&San luong HTT§ REPLACE Cuoi_Ky1 WITH ROUND((Dau_Ky1 + Ps_No1) / (SL_Nhap; + SL_SPDD) * SL_SPDD, 0) ;

FOR SL_Nhap + SL_SPDD # 0 AND &_For

REPLACE Cuoi_Ky2 WITH ROUND((Dau_Ky2 + Ps_No2) / (SL_Nhap;

+ SL_SPDD_QD) * SL_SPDD_QD, 0);

FOR SL_Nhap + SL_SPDD_QD # 0 AND &_For REPLACE Cuoi_Ky7 WITH ROUND((Dau_Ky7 + Ps_No7) / (SL_Nhap ; + SL_SPDD_QD) * SL_SPDD_QD, 0) ;

FOR SL_Nhap + SL_SPDD_QD # 0 AND &_For

REPLACE Cuoi_Ky8 WITH ROUND((Dau_Ky8 + Ps_No8) / (SL_Nhap ; + SL_SPDD_QD) * SL_SPDD_QD, 0) ;

FOR SL_Nhap + SL_SPDD_QD # 0 AND &_For CASE (ThisForm.OptGrpPP_Danh_Gia.Value = 3) && Dinh muc REPLACE ALL Cuoi_Ky1 WITH ROUND(SL_SPDD*DM_Vat_Tu, 0),;

Cuoi_Ky2 WITH ROUND(DM_Luong*SL_SPDD_QD,; 0),Cuoi_Ky7 WITH ROUND(DM_Cpchung;

*SL_SPDD_QD,0), Cuoi_Ky8 WITH 0 FOR &_For ENDCASE

REPLACE ALL Cuoi_Ky WITH Cuoi_Ky1 + Cuoi_Ky2 + Cuoi_Ky7 + ;

REPLACE ALL Ps_Co WITH Dau_Ky + Ps_No - Cuoi_Ky,Ps_Co1 WITH ;

Dau_Ky1 + Ps_No1 - Cuoi_Ky1, Ps_Co2 WITH Dau_Ky2 +; Ps_No2 - Cuoi_Ky2, Ps_Co7 WITH Dau_Ky7 + Ps_No7 - ; Cuoi_Ky7,Ps_Co8 WITH Dau_Ky8 + Ps_No8 - Cuoi_Ky8

INDEX ON Tk + Ma_Sp TAG Stt

REPLACE ALL Gia WITH IIF(SL_Nhap # 0, ROUND(Ps_Co / SL_Nhap, 0), 0)

DELETE ALL FOR EMPTY(Ma_Sp)

THISFORM.Grid2.SETALL("DynamicForeColor", "IIF( NOT" + _For + ", ; RGB(0, 0, 128), RGB(0, 0, 0))", "Column")

4.Thủ tục cập nhật giá

THISFORM.LockScreen = T WAIT WINDOW M_Process NOWAIT

Định dạng
Số trang	99
Dung lượng	743,05 KB