Sign in with Microsoft
Sign in or create an account.

Bài viết này mô tả sự cố khi bạn áp dụng một hóa đơn bán hàng có VAT chưa thực hiện được và âm dòng ghi tín dụng trong phiên bản tiếng ý của Microsoft Dynamics NAV 2009. Sự cố này vẫn xảy ra sau khi thực hiện sửa đổi KB 2882952.

Làm theo các bước trong phần thay đổi mã để giải quyết vấn đề này. Sự cố này xảy ra trong các sản phẩm sau:

  • Phiên bản tiếng ý của Microsoft Dynamics NAV 2009 R2

  • Phiên bản tiếng ý của Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Giải pháp

Thông tin về cập nhật nóng

Microsoft hiện đã cung cấp bản cập nhật nóng được hỗ trợ. Tuy nhiên, nó chỉ được dùng để khắc phục sự cố được mô tả trong bài viết này. Áp dụng cho các hệ thống đang gặp sự cố cụ thể này. Hotfix này có thể được kiểm tra thêm. Vì vậy, nếu bạn không bị ảnh hưởng bởi sự cố này, chúng tôi khuyến nghị bạn đợi cho gói dịch vụ tiếp theo của Microsoft Dynamics NAV 2009 hoặc phiên bản Microsoft Dynamics NAV tiếp theo có chứa hotfix này.

Lưu ý Trong trường hợp đặc biệt, chi phí thường phát sinh để hỗ trợ cuộc gọi có thể được hủy bỏ nếu chuyên viên hỗ trợ kỹ thuật cho Microsoft Dynamics và sản phẩm liên quan xác định rằng một Cập Nhật cụ thể sẽ giải quyết vấn đề của bạn. Chi phí hỗ trợ thông thường sẽ áp dụng cho các vấn đề không phù hợp với bản Cập Nhật cụ thể trong câu hỏi và câu hỏi hỗ trợ bổ sung.

Thông tin cài đặt

Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể. Tuy nhiên, họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn.

Lưu ý Trước khi cài đặt hotfix này, xác minh rằng tất cả người dùng máy khách Microsoft Dynamics NAV đã đăng xuất hệ thống. Điều này bao gồm dịch vụ Microsoft Dynamics NAV ứng dụng máy chủ (NAS). Bạn nên khách hàng chỉ người được đăng nhập khi bạn áp dụng hotfix này.

Để áp dụng 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 tài khoản người dùng trong cửa sổ thông tin đăng nhập Windows hoặc trong cửa sổ thông tin đăng nhập cơ sở dữ liệu được gán vai trò "Siêu" của bạn. Nếu tài khoản người dùng không thể gán vai trò "SUPER" ID, bạn phải xác minh rằng tài khoản người dùng có các quyền sau đây:

  • Thay đổi quyền cho các đối tượng mà bạn sẽ thay đổi.

  • Quyền thực thi các đối tượng hệ thống đối tượng ID 5210 và hệ thống đối tượng ID 9015

    đối tượng.

Lưu ý Bạn không cần phải có quyền để lưu trữ dữ liệu nếu bạn phải tiến hành sửa chữa dữ liệu.

Thay đổi mã

Lưu ý Luôn kiểm tra mã khắc phục trong một môi trường được kiểm soát trước khi bạn áp dụng bản vá để sản xuất máy tính của bạn.

Để khắc phục sự cố này, hãy làm theo các bước sau:

  1. Thay đổi mã khoá trong bảng VAT mục (254) như sau:
    Mã hiện tại

    ...KeyGroups=SalesTax }
    { ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
    SumIndexFields=Base,Additional-Currency Base;
    KeyGroups=VIES_EC }

    // Delete the following line.
    { ;Document No.,Posting Date }
    // End of the deleted line.

    { ;Transaction No. }
    { ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
    KeyGroups=SalesTax }
    { ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
    ...

    Thay thế mã

    ...KeyGroups=SalesTax }
    { ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
    SumIndexFields=Base,Additional-Currency Base;
    KeyGroups=VIES_EC }

    // Add the following line.
    { ;Document No.,Posting Date ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
    // End of the added line.

    { ;Transaction No. }
    { ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
    KeyGroups=SalesTax }
    { ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
    ...
  2. Thay đổi mã trong hàm GetUnRealizedVATPart VAT mục bảng (254) như sau:
    Hiện có mã 1

    ...END;
    EXIT(GLSetup."Additional Reporting Currency");
    END;

    // Delete the following line.
    PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
    // End of the deleted line.

    VAR
    UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
    BEGIN
    IF (Type <> 0) AND
    ...

    Thay thế mã 1

    ...END;
    EXIT(GLSetup."Additional Reporting Currency");
    END;

    // Add the following line.
    PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
    // End of the added line.

    VAR
    UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
    BEGIN
    IF (Type <> 0) AND
    ...

    Hiện có mã 2

    ...(("Remaining Unrealized Amount" = 0) AND
    ("Remaining Unrealized Base" = 0))
    THEN
    EXIT(0);

    // Delete the following lines.
    //IF ABS(Paid) = ABS(Full) THEN
    // EXIT(1);

    CASE UnrealizedVatType OF
    UnrealizedVatType::Percentage:
    BEGIN
    IF Type2 = Type2::Purchase THEN BEGIN
    IF (DocType = DocType::"Credit Memo") THEN BEGIN
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1)
    END ELSE BEGIN
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
    ELSE
    EXIT(1)
    END;
    END
    ELSE BEGIN
    IF (DocType = DocType::"Credit Memo") THEN BEGIN
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1)
    END ELSE BEGIN
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
    ELSE
    EXIT(1)
    END;
    END;
    // End of the deleted lines.

    END;
    UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
    BEGIN
    IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
    ...

    Thay thế mã 2

    ...(("Remaining Unrealized Amount" = 0) AND
    ("Remaining Unrealized Base" = 0))
    THEN
    EXIT(0);

    // Add the following lines.
    IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
    NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
    THEN BEGIN
    VATPart := 1;
    EXIT(VATPart);
    END;

    CASE UnrealizedVatType OF
    UnrealizedVatType::Percentage:
    IF Type2 = Type2::Purchase THEN BEGIN
    TransactionInclPrepmt := FALSE;
    IF DocType = DocType::"Credit Memo" THEN BEGIN
    IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END ELSE
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1)
    END ELSE BEGIN
    IF PurchInvInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END ELSE
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
    EXIT(1);
    END;
    END ELSE BEGIN
    TransactionInclPrepmt := FALSE;
    IF DocType = DocType::"Credit Memo" THEN BEGIN
    IF SalesInvInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END;
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1);
    EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
    END;
    IF SalesInvInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END ELSE
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
    EXIT(1);
    // End of the added lines.

    END;
    UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
    BEGIN
    IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
    ...
  3. Thay đổi mã trong hàm SalesInvInclPrepmt VAT mục bảng (254) như sau:
    Mã hiện tại

    ...EXIT(RemainingAmount - SettledAmount);
    EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
    END;

    BEGIN
    END.
    }
    }
    ...

    Thay thế mã

    ...EXIT(RemainingAmount - SettledAmount);
    EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
    END;

    // Add the following lines.
    LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    SalesInvLine@1130001 : Record 113;
    BEGIN
    SalesInvLine.SETRANGE("Document No.",DocNo);
    SalesInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesInvLine.ISEMPTY);
    END;

    LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    SalesCrMemoLine@1130001 : Record 115;
    BEGIN
    SalesCrMemoLine.SETRANGE("Document No.",DocNo);
    SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesCrMemoLine.ISEMPTY);
    END;

    LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    PurchInvLine@1130001 : Record 123;
    BEGIN
    PurchInvLine.SETRANGE("Document No.",DocNo);
    PurchInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchInvLine.ISEMPTY);
    END;

    LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    PurchCrMemoLine@1130001 : Record 125;
    BEGIN
    PurchCrMemoLine.SETRANGE("Document No.",DocNo);
    PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchCrMemoLine.ISEMPTY);
    END;

    LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
    VAR
    VATEntry@1130001 : Record 254;
    BEGIN
    WITH VATEntry DO BEGIN
    SETRANGE("Transaction No.",TransactionNo);
    IF FINDSET THEN
    REPEAT
    TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
    UNTIL NEXT = 0;
    END;
    END;

    LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
    VAR
    VATEntry@1130002 : Record 254;
    BEGIN
    VATEntry.SETCURRENTKEY("Document No.","Posting Date");
    VATEntry.SETRANGE("Document No.",DocumentNo);
    VATEntry.SETRANGE("Posting Date",PostingDate);
    VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
    EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
    END;

    LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
    BEGIN
    CASE VATType OF
    VATType::Purchase:
    IF DocumentType = DocumentType::"Credit Memo" THEN
    EXIT(PurchCrMemoInclPrepmt(DocumentNo))
    ELSE
    EXIT(PurchInvInclPrepmt(DocumentNo));
    VATType::Sale:
    IF DocumentType = DocumentType::"Credit Memo" THEN
    EXIT(SalesInvInclPrepmt(DocumentNo))
    ELSE
    EXIT(SalesCrMemoInclPrepmt(DocumentNo));
    END;
    END;
    // End of the added lines.

    BEGIN
    END.
    }
    }
    ...
  4. Thay đổi mã trong hàm CustUnrealizedVAT trong các tướng Jnl.-bài dòng Codeunit (12) như sau:
    Hiện có mã 1

    ...SalesVATUnrealAccount@1010 : Code[20];
    LastConnectionNo@1011 : Integer;
    TotalPayments@1130000 : Decimal;
    Type2@1130001 : 'Sale,Purchase';
    BEGIN
    PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    ...

    Thay thế mã 1

    ...SalesVATUnrealAccount@1010 : Code[20];
    LastConnectionNo@1011 : Integer;
    TotalPayments@1130000 : Decimal;
    Type2@1130001 : 'Sale,Purchase';

    // Add the following line.
    TransactionInclPrepmt@1130002 : Boolean;
    // End of the added line.

    BEGIN
    PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    ...

    Hiện có mã 2

    ...InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Delete the following lines.
    VATPart := VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    CustLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Sale,
    CustLedgEntry2."Document Type",
    CustLedgEntry2.Open,
    CustLedgEntry2.Amount,
    CustLedgEntry2."Remaining Amount",
    TotalPayments);
    // End of the deleted lines.

    IF VATPart > 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    VATEntry2."VAT Calculation Type"::"Normal VAT",
    ...

    Thay thế mã 2

    ...InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Add the following lines.
    VATPart :=
    VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    CustLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Sale,
    CustLedgEntry2."Document Type",
    CustLedgEntry2.Open,
    CustLedgEntry2.Amount,
    CustLedgEntry2."Remaining Amount",
    TotalPayments,
    VATPart,
    TransactionInclPrepmt);
    // End of the added lines.

    IF VATPart > 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    VATEntry2."VAT Calculation Type"::"Normal VAT",
    ...

    Mã hiện 3

    ...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
    AddCurrency."Amount Rounding Precision");
    END;

    // Delete the following line.
    TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the deleted line.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...

    Thay thế mã 3

    ...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
    AddCurrency."Amount Rounding Precision");
    END;

    // Add the following lines.
    IF TransactionInclPrepmt THEN
    TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
    ELSE
    TotalPayments :=
    TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the added lines.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...
  5. Thay đổi mã trong hàm VendUnrealizedVAT trong các tướng Jnl.-bài dòng Codeunit (12) như sau:
    Hiện có mã 1

    ...PurchReverseUnrealAccount@1012 : Code[20];
    LastConnectionNo@1013 : Integer;
    Type2@1130000 : 'Sale,Purchase';
    TotalPayments@1130001 : Decimal;
    BEGIN
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
    ...

    Thay thế mã 1

    ...PurchReverseUnrealAccount@1012 : Code[20];
    LastConnectionNo@1013 : Integer;
    Type2@1130000 : 'Sale,Purchase';
    TotalPayments@1130001 : Decimal;

    // Add the following line.
    TransactionInclPrepmt@1130002 : Boolean;
    // End of the added line.

    BEGIN
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
    ...

    Hiện có mã 2

    ...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
    InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Delete the following lines.
    IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
    EXIT;
    VATPart := VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    VendLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Purchase,
    VendLedgEntry2."Document Type",
    VendLedgEntry2.Open,
    VendLedgEntry2.Amount,
    VendLedgEntry2."Remaining Amount",
    TotalPayments);
    // End of the deleted lines.

    IF VATPart >= 0 THEN BEGIN
    IF VATPart <> 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    ...

    Thay thế mã 2

    ...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
    InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Add the following lines.
    IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
    (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
    THEN
    EXIT;

    VATPart :=
    VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    VendLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Purchase,
    VendLedgEntry2."Document Type",
    VendLedgEntry2.Open,
    VendLedgEntry2.Amount,
    VendLedgEntry2."Remaining Amount",
    TotalPayments,
    VATPart,
    TransactionInclPrepmt);
    // End of the added lines.

    IF VATPart >= 0 THEN BEGIN
    IF VATPart <> 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    ...

    Mã hiện 3

    ...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
    END;
    END;

    // Delete the following lines.
    VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
    VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
    TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the deleted lines.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...

    Thay thế mã 3

    ...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
    END;
    END;

    // Add the following lines.
    VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
    VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
    IF TransactionInclPrepmt THEN
    TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
    ELSE
    TotalPayments :=
    TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the added lines.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...


Điều kiện tiên quyết

Bạn phải có một trong các sản phẩm được cài đặt để áp dụng hotfix này:

  • Bản địa hoá ý của Microsoft Dynamics NAV 2009 R2

  • Bản địa hoá ý của Microsoft Dynamics NAV 2009 SP1

Thông tin về việc loại bỏ

Bạn không thể xoá hotfix này.

Trạng thái

Microsoft đã xác nhận rằng đây là sự cố trong sản phẩm của Microsoft được liệt kê trong phần "Áp dụng cho".

Lưu ý Đây là một bài viết "XUẤT BẢN NHANH" được tạo trực tiếp từ trung tâm hỗ trợ của Microsoft. Thông tin này được cung cấp-trả lời cho các vấn đề mới xuất hiện. Vì nhanh chóng có sẵn, các tài liệu có thể bao gồm lỗi và có thể được sửa đổi bất kỳ lúc nào mà không cần thông báo. Xem Điều khoản sử dụngđể xem xét khác.

Bạn cần thêm trợ giúp?

Phát triển các kỹ năng của bạn
Khám phá nội dung đào tạo
Sở hữu tính năng mới đầu tiên
Tham gia Microsoft dùng nội bộ

Thông tin này có hữu ích không?

Bạn hài lòng đến đâu với chất lượng dịch thuật?
Điều gì ảnh hưởng đến trải nghiệm của bạn?

Cảm ơn phản hồi của bạn!

×