Các bài viết được Xuất bản Nhanh cung cấp thông tin trực tiếp từ bên trong tổ chức hỗ trợ của Microsoft. Thông tin được chứa ở đây được tạo ra để đáp ứng với các chủ đề mới nổi hoặc duy nhất, hoặc được dự định để bổ sung thông tin cơ sở kiến thức khác.
Bài viết này áp dụng cho Microsoft Dynamics NAV cho các quốc gia và ngôn ngữ sau.
- Bỉ (tiếng Pháp) (fr-be)
- Bỉ (Tiếng Hà Lan) (nl-be)
Triệu chứng
Trong phiên bản Bỉ của Microsoft Dynamics NAV, khi bạn gửi hóa đơn từ nước ngoài một nhà cung cấp, nơi giá trị không khấu trừ thêm thuế (VAT) đã được đăng, vat không khấu trừ không được tính toán và đăng cho các hóa đơn đã đăng. Sự cố này xảy ra nếu loại tính toán VAT được đặt thành "Đảo ngược phí VAT".
Sự cố này xảy ra trong các sản phẩm sau:
- Phiên bản Microsoft Dynamics NAV 2009 phiên bản Bỉ với Gói Dịch vụ 1 (SP1)
- Phiên bản Microsoft Dynamics NAV 5.0 phiên bản Bỉ với SP1
Giải pháp
Thông tin cập nhật nóng
Hotfix được hỗ trợ hiện có sẵn từ Microsoft. Tuy nhiên, nó chỉ là nhằm sửa chữa vấn đề được mô tả trong bài viết này. Áp dụng nó chỉ cho hệ thống đang gặp này cụ thể vấn đề. Hotfix này có thể nhận được thử nghiệm bổ sung. Do đó, nếu bạn không bị ảnh hưởng nghiêm trọng bởi sự cố này, chúng tôi khuyên bạn nên đợi gói dịch vụ Microsoft Dynamics NAV tiếp theo hoặc phiên bản tiếp theo có chứa hotfix này.
Lưu ý Trong trường hợp đặc biệt, các khoản phí thường phát sinh đối với các cuộc gọi hỗ trợ có thể bị hủy nếu Chuyên gia Hỗ trợ Kỹ thuật dành cho Microsoft Dynamics và các sản phẩm liên quan xác định rằng một bản cập nhật cụ thể sẽ giải quyết sự cố của bạn. Chi phí hỗ trợ thông thường sẽ áp dụng cho các câu hỏi và sự cố hỗ trợ bổ sung không đủ điều kiện cho bản cập nhật cụ thể được đề cập.
Thông tin cài đặt
Microsoft chỉ cung cấp các ví dụ lập trình để minh họa mà không cần bảo hành dù là rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở, bảo hành ngụ ý về khả năng bán được hoặc sự thích hợp cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình đang được chứng minh và với các công cụ được sử dụng để tạo và gỡ lỗi thủ tục. Các kỹ sư hỗ trợ của Microsoft có thể giúp giải thích chức năng của một quy trình cụ thể, nhưng họ sẽ không sửa đổi các ví dụ này để cung cấp chức năng bổ sung hoặc quy trình xây dựng để đáp ứng các yêu cầu cụ thể của bạn.
Lưu ý Trước khi bạn cài đặt hotfix này, hãy xác minh rằng tất cả người dùng máy khách Microsoft Navision đã được đăng xuất khỏi hệ thống. Điều này bao gồm người dùng máy khách Dịch vụ Ứng dụng Microsoft Navision (NAS). Bạn nên là người dùng khách duy nhất đăng nhập khi bạn thực hiện hotfix này.
Để thực hiện hotfix này, bạn phải có giấy phép nhà phát triển.
Chúng tôi khuyên bạn nên gán tài khoản người dùng trong cửa sổ Đăng nhập Windows hoặc trong cửa sổ Đăng nhập Cơ sở dữ liệu. Nếu tài khoản người dùng không thể được gán ID vai trò "SIÊU", bạn phải xác minh rằng tài khoản người dùng có các quyền sau đây:
- Quyền Sửa đổi đối với đối tượng mà bạn sẽ thay đổi.
- Quyền Thực thi đối với đối tượng ID Đối tượng Hệ thống 5210 và đối với đối tượng ID Đối tượng Hệ thống 9015.
Lưu ý Bạn không phải có quyền đối với các kho dữ liệu trừ khi bạn phải thực hiện sửa chữa dữ liệu.
Thay đổi mã
Lưu ý Luôn kiểm tra các bản sửa lỗi mã trong môi trường được kiểm soát trước khi bạn áp dụng các bản sửa lỗi cho máy tính sản xuất của bạn.
Để cài đặt hotfix này, thay đổi mã trong đơn vị mã Purch.-Post (90).
Để thực hiện điều này, hãy làm theo các bước sau:
Trên menu Dạng xem, bấm vào C/AL Globals, rồi thêm các biến sau đây trên tab Biến số:
Biến số đầu tiên:- Tên: TotalNonDeductVATForRChargeVAT
- DataType: Thập phân
Biến số thứ hai:
- Tên: TotalNonDeductVATFCYForRCVAT
- DataType: Thập phân
Biến số thứ ba:
- Tên: PurchLineForReverseChargeVAT
- DataType: Record
- Loại con: Dòng Mua
- Trên menu Xem , bấm vào Thuộc tính, rồi đặt thuộc tính Tạm thời thành "có".
Thay đổi mã trong trình kích hoạt OnRun như sau:
Mã hiện có... TempVATAmountLineRemainder.DELETEALL; PurchLine.CalcVATAmountLines(1,PurchHeader,CombinedPurchLineTemp,TempVATAmountLine); IF PurchLine.FINDSET THEN REPEAT JobPurchLine := PurchLine; ...Mã thay thế
.... TempVATAmountLineRemainder.DELETEALL; PurchLine.CalcVATAmountLines(1,PurchHeader,CombinedPurchLineTemp,TempVATAmountLine); PurchLineForReverseChargeVAT.RESET; // Add this line. PurchLineForReverseChargeVAT.DELETEALL; // Add this line. IF PurchLine.FINDSET THEN REPEAT JobPurchLine := PurchLine; ....Mã hiện có 1
... END ELSE PurchLine.TESTFIELD(Amount,0); RoundAmount(PurchLine."Qty. to Invoice"); IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN ReverseAmount(PurchLine); ReverseAmount(PurchLineACY); END; RemQtyToBeInvoiced := PurchLine."Qty. to Invoice"; ...Mã thay thế 1
... END ELSE PurchLine.TESTFIELD(Amount,0); PurchLineForReverseChargeVAT := PurchLine; // Add this line. RoundAmount(PurchLine."Qty. to Invoice"); IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN ReverseAmount(PurchLine); ReverseAmount(PurchLineACY); ReverseAmount(PurchLineForReverseChargeVAT); // Add this line. END; PurchLineForReverseChargeVAT.INSERT; // Add this line. RemQtyToBeInvoiced := PurchLine."Qty. to Invoice"; ...Mã hiện có 2
... CASE InvPostingBuffer[1]."VAT Calculation Type" OF InvPostingBuffer[1]."VAT Calculation Type"::"Reverse Charge VAT": // Delete the following lines. BEGIN VATPostingSetup.GET( InvPostingBuffer[1]."VAT Bus. Posting Group",InvPostingBuffer[1]."VAT Prod. Posting Group"); InvPostingBuffer[1]."VAT Amount" := ROUND( (InvPostingBuffer[1].Amount - InvPostingBuffer[1]."Line Discount Amount" - InvPostingBuffer[1]."Inv. Discount Amount") * VATPostingSetup."VAT %" / 100); InvPostingBuffer[1]."VAT Amount (ACY)" := ROUND( (InvPostingBuffer[1]."Amount (ACY)" - InvPostingBuffer[1]."Line Discount Amt. (ACY)" - InvPostingBuffer[1]."Inv. Discount Amt. (ACY)") * VATPostingSetup."VAT %" / 100,Currency."Amount Rounding Precision"); END; // The end of the lines. InvPostingBuffer[1]."VAT Calculation Type"::"Sales Tax": ....Mã thay thế 2
... CASE InvPostingBuffer[1]."VAT Calculation Type" OF InvPostingBuffer[1]."VAT Calculation Type"::"Reverse Charge VAT": CalcAmtVATForReversechargeVAT; // Add this line. InvPostingBuffer[1]."VAT Calculation Type"::"Sales Tax": ...Mã hiện có 3
.... GenJnlLine."Currency Code" := "Currency Code"; // Delete the following lines. GenJnlLine.Amount := -TotalPurchLine."Amount Including VAT"; GenJnlLine."Source Currency Code" := "Currency Code"; GenJnlLine."Source Currency Amount" := -TotalPurchLine."Amount Including VAT"; GenJnlLine."Amount (LCY)" := -TotalPurchLineLCY."Amount Including VAT"; // The end of the lines. IF PurchHeader."Currency Code" = '' THEN GenJnlLine."Currency Factor" := 1 ...Mã thay thế 3
.... GenJnlLine."Currency Code" := "Currency Code"; // Add the following lines. GenJnlLine.Amount := -(TotalPurchLine."Amount Including VAT" + TotalNonDeductVATFCYForRCVAT); GenJnlLine."Source Currency Code" := "Currency Code"; GenJnlLine."Source Currency Amount" := -(TotalPurchLine."Amount Including VAT" + TotalNonDeductVATFCYForRCVAT); GenJnlLine."Amount (LCY)" := -(TotalPurchLineLCY."Amount Including VAT" + TotalNonDeductVATForRChargeVAT); // The end of the new lines. IF PurchHeader."Currency Code" = '' THEN GenJnlLine."Currency Factor" := 1 ...Thêm hàm mới "CalcAmtVATForReversechargeVAT". Để thực hiện điều này, hãy làm theo các bước sau:
Trên menu Dạng xem, bấm vào C/AL Globals, thêm nội dung sau vào tab Hàm như sau:
- Tên: CalcAmtVATForReversechargeVAT
Bấm Cục bộ, thêm thông tin sau vào tab Biến số:
Biến số đầu tiên:- Tên: InvPostingVATAmountFCY
- DataType: Thập phân
Biến số thứ hai:
- Tên: NonDeductVATForReversChargeVAT
- DataType: Thập phân
Biến số thứ ba:
- Tên: NonDeductVATACYForRevsChargVA
- DataType: Thập phân
Biến số thứ tư:
- Tên: NonDeductVATFCYForRevsChargVAT
- DataType: Thập phân
Thêm các dòng mã sau cho trình kích hoạt CalcAmtVATForReversechargeVAT như sau:
VATPostingSetup.GET( InvPostingBuffer[1]."VAT Bus. Posting Group",InvPostingBuffer[1]."VAT Prod. Posting Group"); PurchLineForReverseChargeVAT.RESET; PurchLineForReverseChargeVAT.SETRANGE("Line No.",InvPostingBuffer[1]."Line No."); PurchLineForReverseChargeVAT.FINDFIRST; NonDeductVATForReversChargeVAT := ROUND( (InvPostingBuffer[1].Amount - InvPostingBuffer[1]."Line Discount Amount" - InvPostingBuffer[1]."Inv. Discount Amount") * VATPostingSetup."VAT %" / 100 * PurchLineForReverseChargeVAT."Non Deductible VAT %" / 100); NonDeductVATACYForRevsChargVAT := ROUND( (InvPostingBuffer[1]."Amount (ACY)" - InvPostingBuffer[1]."Line Discount Amt. (ACY)" - InvPostingBuffer[1]."Inv. Discount Amt. (ACY)") * VATPostingSetup."VAT %" / 100 * PurchLineForReverseChargeVAT."Non Deductible VAT %" / 100, Currency."Amount Rounding Precision"); NonDeductVATFCYForRevsChargVAT := ROUND( (PurchLineForReverseChargeVAT.Amount - InvPostingBuffer[1]."Line Discount Amount" - InvPostingBuffer[1]."Inv. Discount Amount") * VATPostingSetup."VAT %" / 100 * PurchLineForReverseChargeVAT."Non Deductible VAT %" / 100, Currency."Amount Rounding Precision"); InvPostingBuffer[1]."VAT Amount" := ROUND( (InvPostingBuffer[1].Amount - InvPostingBuffer[1]."Line Discount Amount" - InvPostingBuffer[1]."Inv. Discount Amount") * VATPostingSetup."VAT %" / 100) - NonDeductVATForReversChargeVAT; InvPostingBuffer[1]."VAT Amount (ACY)" := ROUND( (InvPostingBuffer[1]."Amount (ACY)" - InvPostingBuffer[1]."Line Discount Amt. (ACY)" - InvPostingBuffer[1]."Inv. Discount Amt. (ACY)") * VATPostingSetup."VAT %" / 100, Currency."Amount Rounding Precision") - NonDeductVATACYForRevsChargVAT; InvPostingVATAmountFCY := ROUND( (PurchLineForReverseChargeVAT.Amount - PurchLineForReverseChargeVAT."Line Discount Amount" - PurchLineForReverseChargeVAT."Inv. Discount Amount") * VATPostingSetup."VAT %" / 100, Currency."Amount Rounding Precision") - NonDeductVATFCYForRevsChargVAT; InvPostingBuffer[1].Amount := InvPostingBuffer[1].Amount + NonDeductVATForReversChargeVAT; InvPostingBuffer[1]."Amount (ACY)" := InvPostingBuffer[1]."Amount (ACY)" + NonDeductVATACYForRevsChargVAT; InvPostingBuffer[1]."VAT Base Amount" := InvPostingBuffer[1]."VAT Base Amount" + NonDeductVATForReversChargeVAT; TotalNonDeductVATForRChargeVAT := TotalNonDeductVATForRChargeVAT + NonDeductVATForReversChargeVAT; TotalNonDeductVATFCYForRCVAT := TotalNonDeductVATFCYForRCVAT + NonDeductVATFCYForRevsChargVAT;
Điều kiện tiên quyết
Bạn phải cài đặt một trong các sản phẩm sau để áp dụng bản cập nhật nóng này:
- Phiên bản Microsoft Dynamics NAV 2009 phiên bản Bỉ với SP1
- Phiên bản Microsoft Dynamics NAV 5.0 phiên bản Bỉ với SP1
Loại bỏ thông tin
Bạn không thể loại bỏ hotfix này.
Trạng thái
Microsoft đã xác nhận rằng đây là sự cố trong các sản phẩm của Microsoft được liệt kê trong mục "áp dụng cho".
MICROSOFT VÀ/HOẶC CÁC NHÀ CUNG CẤP CỦA MICROSOFT KHÔNG ĐƯA RA TUYÊN BỐ HOẶC BẢO ĐẢM NÀO VỀ TÍNH PHÙ HỢP, ĐỘ TIN CẬY HOẶC TÍNH CHÍNH XÁC CỦA THÔNG TIN CÓ TRONG CÁC TÀI LIỆU VÀ CÁC ĐỒ HỌA LIÊN QUAN ĐƯỢC PHÁT HÀNH TRÊN TRANG WEB NÀY (CÁC "TÀI LIỆU") CHO BẤT KỲ MỤC ĐÍCH NÀO.
CÁC TÀI LIỆU NÀY CÓ THỂ BAO GỒM CÁC LỖI KỸ THUẬT KHÔNG CHÍNH XÁC HOẶC LỖI ĐÁNH MÁY VÀ CÓ THỂ ĐƯỢC SỬA ĐỔI BẤT CỨ LÚC NÀO MÀ KHÔNG CẦN THÔNG BÁO. TRONG PHẠM VI TỐI ĐA ĐƯỢC LUẬT HIỆN HÀNH CHO PHÉP, MICROSOFT VÀ/HOẶC CÁC NHÀ CUNG CẤP CỦA MICROSOFT TỪ CHỐI VÀ LOẠI TRỪ TẤT CẢ CÁC ĐẠI DIỆN, BẢO HÀNH VÀ ĐIỀU KIỆN CHO DÙ RÕ RÀNG, NGỤ Ý HOẶC THEO LUẬT ĐỊNH, BAO GỒM NHƯNG KHÔNG GIỚI HẠN Ở CÁC ĐẠI DIỆN, BẢO HÀNH HOẶC CÁC ĐIỀU KIỆN CỦA CHỨC DANH, KHÔNG VI PHẠM, ĐIỀU KIỆN HOẶC CHẤT LƯỢNG THỎA ĐÁNG, KHẢ NĂNG BÁN ĐƯỢC VÀ TÍNH PHÙ HỢP CHO MỘT MỤC ĐÍCH CỤ THỂ, LIÊN QUAN ĐẾN CÁC TÀI LIỆU.