Gejala
Jika Anda menerapkan pembaruan biaya dibayar di muka, entri PPN terkadang memiliki nilai yang salah dalam versi bahasa Hongaria Microsoft Dynamics NAV 2009 R2. Selain itu, ketika Anda membuat memo kredit sebelumnya dengan mata uang asing, kurs mata uang salah yang akan digunakan. Ikuti langkah-langkah di bagian perubahan kode untuk memecahkan masalah ini. Masalah ini terjadi di dalam produk berikut ini:
-
Bahasa Hongaria versi Microsoft Dynamics NAV 2009 R2
Pemecahan masalah
Informasi Hotfix
Sekarang tersedia hotfix yang didukung dari Microsoft. Namun, hanya ditujukan untuk memperbaiki masalah yang dijelaskan di artikel ini. Terapkan hanya ke sistem yang mengalami masalah khusus ini. Perbaikan terbaru ini dapat menerima pengujian tambahan. Oleh karena itu, jika Anda tidak terlalu dipengaruhi oleh masalah ini, kami sarankan Anda menunggu paket layanan Microsoft Dynamics NAV 2009 atau versi Microsoft Dynamics NAV berikutnya yang berisi perbaikan terbaru ini.
Catatan Dalam kasus tertentu, biaya yang biasanya diadakan untuk panggilan mungkin dibatalkan apabila profesional dukungan teknis untuk Microsoft Dynamics dan produk-produk terkait dukungan menentukan bahwa pembaruan khusus akan memecahkan masalah Anda. Biaya dukungan biasa akan berlaku untuk pertanyaan dan masalah yang tidak termasuk pada pembaruan tertentu yang dimaksud dukungan tambahan.
Informasi penginstalan
Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
Catatan Sebelum Anda menginstal perbaikan terbaru ini, verifikasi bahwa semua pengguna klien Microsoft Dynamics NAV log off sistem. Ini termasuk layanan Microsoft Dynamics NAV aplikasi Server (NAS). Anda harus klien hanya pengguna yang masuk saat Anda menerapkan perbaikan terbaru ini.
Untuk menerapkan hotfix ini, Anda harus memiliki lisensi pengembang.
Kami menyarankan bahwa akun pengguna di jendela login Windows atau jendela login Database ditetapkan id peran "SUPER" Jika account pengguna tidak dapat menetapkan ID peran "SUPER", Anda harus memverifikasi bahwa account pengguna yang memiliki izin berikut ini:
-
Ubah izin untuk objek yang Anda akan berubah.
-
Izin eksekusi untuk objek sistem objek ID 5210 dan sistem objek ID 9015
objek.
Catatan Anda tidak harus memiliki hak untuk penyimpanan data kecuali jika Anda harus melakukan perbaikan data.
Perubahan kode
Catatan Selalu menguji kode perbaikan di lingkungan yang dikontrol sebelum menerapkan perbaikan untuk komputer produksi.
Untuk mengatasi masalah ini, ikuti langkah-langkah berikut:
-
Ubah kode variabel dalam codeunit (26585) sebagai berikut:
Kode yang ada... TempDocDim@1470008 : TEMPORARY Record 357;
TempDimBuf@1470007 : TEMPORARY Record 360;
PrepmtInvBuffer@1470009 : TEMPORARY Record 461;
SalesSetup@1470010 : Record 311;
PrevLineNo@1470012 : Integer;
LineNo@1470011 : Integer;
...Penggantian kode
...TempDocDim@1470008 : TEMPORARY Record 357;
TempDimBuf@1470007 : TEMPORARY Record 360;
PrepmtInvBuffer@1470009 : TEMPORARY Record 461;
// Add the following line.
VATClauseBuffer@1470085 : TEMPORARY Record 26511;
// End of the added line.
SalesSetup@1470010 : Record 311;
PrevLineNo@1470012 : Integer;
LineNo@1470011 : Integer;
... -
Ubah kode di PostLetter fungsi codeunit (26585) sebagai berikut:
Kode yang ada 1... PostingDate@1470020 : Date;
LineAmount@1470009 : Decimal;
PostingDescription@1470021 : Text[50];
BEGIN
LetterHeader := LetterHeader2;
WITH SalesHeader DO BEGIN
...Penggantian kode 1
...PostingDate@1470020 : Date;
LineAmount@1470009 : Decimal;
PostingDescription@1470021 : Text[50];
// Add the following lines.
CurrFactor@1360001 : Decimal;
VATCurrFactor@1360000 : Decimal;
// End of the added lines.
BEGIN
LetterHeader := LetterHeader2;
WITH SalesHeader DO BEGIN...Kode yang ada 2
...SalesInvHeader."Posting Date" := PostingDate;
SalesInvHeader."Document Date" := PostingDate;
SalesInvHeader."VAT Date" := PostingDate;
// Delete the following lines.
SalesInvHeader."Currency Factor" := LetterHeader."Currency Factor";
SalesInvHeader."VAT Currency Factor" := LetterHeader."VAT Currency Factor";
// End of the deleted lines.
SalesInvHeader."Due Date" := LetterHeader."Advance Due Date";
SalesInvHeader."Pmt. Discount Date" := "Prepmt. Pmt. Discount Date";
SalesInvHeader."Payment Discount %" := "Prepmt. Payment Discount %";
...Penggantian kode 2
...SalesInvHeader."Posting Date" := PostingDate;
SalesInvHeader."Document Date" := PostingDate;
SalesInvHeader."VAT Date" := PostingDate;
// Add the following lines.
GetPrepaymentCurrFactors("No.",CurrFactor,VATCurrFactor);
SalesInvHeader."Currency Factor" := CurrFactor;
SalesInvHeader."VAT Currency Factor" := VATCurrFactor;
// End of the added lines.
SalesInvHeader."Due Date" := LetterHeader."Advance Due Date";
SalesInvHeader."Pmt. Discount Date" := "Prepmt. Pmt. Discount Date";
SalesInvHeader."Payment Discount %" := "Prepmt. Payment Discount %";
...Kode yang ada 3
...SalesCrMemoHeader."Posting Date" := PostingDate;
SalesCrMemoHeader."VAT Date" := PostingDate;
SalesCrMemoHeader."Document Date" := PostingDate;
// Delete the following lines.
SalesCrMemoHeader."Currency Factor" :=
CurrExchRate.ExchangeRate(PostingDate,"Currency Code");
SalesCrMemoHeader."VAT Currency Factor" := LetterHeader."VAT Currency Factor";
// End of the deleted lines.
SalesCrMemoHeader."Due Date" := LetterHeader."Advance Due Date";
SalesCrMemoHeader.Correction := GLSetup."Mark Cr. Memos as Corrections";
SalesCrMemoHeader."Date Sent" := 0D;
...Penggantian kode 3
...SalesCrMemoHeader."Posting Date" := PostingDate;
SalesCrMemoHeader."VAT Date" := PostingDate;
SalesCrMemoHeader."Document Date" := PostingDate;
// Add the following lines.
SalesCrMemoHeader."Currency Factor" := SalesInvHeaderBuf."Currency Factor";
SalesCrMemoHeader."VAT Currency Factor" := SalesInvHeaderBuf."VAT Currency Factor";
// End of the added lines.
SalesCrMemoHeader."Due Date" := LetterHeader."Advance Due Date";
SalesCrMemoHeader.Correction := GLSetup."Mark Cr. Memos as Corrections";
SalesCrMemoHeader."Date Sent" := 0D;
...Ada kode 4
...SalesInvHeader."Reversed By Cr. Memo No." := SalesCrMemoHeader."No.";
SalesInvHeader.MODIFY;
GenJnlLineDocType := GenJnlLine."Document Type"::"Credit Memo";
PostedDocTabNo := DATABASE::"Sales Cr.Memo Header";
Window.UPDATE(1,STRSUBSTNO(Text005,"Document Type","No.",SalesCrMemoHeader."No."));
...Penggantian kode 4
...SalesInvHeader."Reversed By Cr. Memo No." := SalesCrMemoHeader."No.";
SalesInvHeader.MODIFY;
// Add the following lines.
CurrFactor := SalesCrMemoHeader."Currency Factor";
VATCurrFactor := SalesCrMemoHeader."VAT Currency Factor";
// End of the added lines.
GenJnlLineDocType := GenJnlLine."Document Type"::"Credit Memo";
PostedDocTabNo := DATABASE::"Sales Cr.Memo Header";
Window.UPDATE(1,STRSUBSTNO(Text005,"Document Type","No.",SalesCrMemoHeader."No."));
...Ada kode 5
...// Create Lines
LineCount := 0;
PrepmtInvBuffer.DELETEALL;
// Delete the following line.
BuildInvLineBuffer(LetterHeader,DocumentType,PrepmtInvBuffer,TempDocDim);
// End of the deleted line.
TempDimBuf.INIT;
IF PrepmtInvBuffer.FINDSET THEN
REPEAT
...Penggantian kode 5
...// Create Lines
LineCount := 0;
PrepmtInvBuffer.DELETEALL;
// Add the following line.
BuildInvLineBuffer(LetterHeader,DocumentType,PrepmtInvBuffer,TempDocDim,VATCurrFactor);
// End of the added line.
TempDimBuf.INIT;
IF PrepmtInvBuffer.FINDSET THEN
REPEAT
...Kode yang ada 6
...GenJnlLine."Posting No. Series" := "Posting No. Series";
GenJnlLine."IC Partner Code" := "Bill-to IC Partner Code";
GenJnlLine."Group VAT ID" := "Group VAT ID"; // PS50595
// Delete the following lines.
GenJnlLine.VALIDATE("Currency Factor",LetterHeader."Currency Factor");
GenJnlLine.VALIDATE("VAT Currency Factor",LetterHeader."VAT Currency Factor");
// End of the deleted lines.
GenJnlLine."VAT Base Amt. to Report (LCY)" := PrepmtInvBuffer."VAT Base Amt. to Report (LCY)";
GenJnlLine."VAT Amount to Report (LCY)" := PrepmtInvBuffer."VAT Amount to Report (LCY)";
RunGenJnlPostLine(GenJnlLine,PrepmtInvBuffer."Dimension Entry No.");
...Penggantian kode 6
...GenJnlLine."Posting No. Series" := "Posting No. Series";
GenJnlLine."IC Partner Code" := "Bill-to IC Partner Code";
GenJnlLine."Group VAT ID" := "Group VAT ID"; // PS50595
// Add the following lines.
GenJnlLine.VALIDATE("Currency Factor",CurrFactor);
GenJnlLine.VALIDATE("VAT Currency Factor",VATCurrFactor);
// End of the added lines.
GenJnlLine."VAT Base Amt. to Report (LCY)" := PrepmtInvBuffer."VAT Base Amt. to Report (LCY)";
GenJnlLine."VAT Amount to Report (LCY)" := PrepmtInvBuffer."VAT Amount to Report (LCY)";
RunGenJnlPostLine(GenJnlLine,PrepmtInvBuffer."Dimension Entry No.");
...Kode yang ada 7
...END;
LetterHeader2 := LetterHeader;
CLEAR(GenJnlPostLine);
Window.CLOSE;
EXIT(TRUE);
...Penggantian kode 7
...END;
LetterHeader2 := LetterHeader;
// Add the following lines.
SetVATClause(SalesInvHeader,SalesInvLine);
FinalizeVATClause(SalesInvHeader,SalesInvLine);
// End of the added lines.
CLEAR(GenJnlPostLine);
Window.CLOSE;
EXIT(TRUE);
... -
Ubah kode di AddPrepmtSalesInvLine fungsi codeunit (26585) sebagai berikut:
Kode yang ada 1...LOCAL PROCEDURE AddPrepmtSalesInvLine@1470033(LetterLine@1470002 : Record 26586;SalesInvHeader@1470001 : Record 112;AmountInclVAT@1470005 : Decimal;VATAmount@1470000 : Decimal;VAR LastLetterNo@1470006 : Code[20]) : Boolean;
VAR
LetterHeader@1360000 : Record 26585;
GenJnlLine@1360001 : Record 81;
SalesInvLine@1470003 : Record 113;
NextLineNo@1470004 : Integer;
...Penggantian kode 1
...LOCAL PROCEDURE AddPrepmtSalesInvLine@1470033(LetterLine@1470002 : Record 26586;SalesInvHeader@1470001 : Record 112;AmountInclVAT@1470005 : Decimal;VATAmount@1470000 : Decimal;VAR LastLetterNo@1470006 : Code[20]) : Boolean;
VAR
// Delete the following line.
LetterHeader@1360000 : Record 26585;
// End of the deleted line.
GenJnlLine@1360001 : Record 81;
SalesInvLine@1470003 : Record 113;
NextLineNo@1470004 : Integer;
...Kode yang ada 2
...SalesInvLine."VAT Base Amt. to Report (LCY)" := SalesInvLine."VAT Base Amount";
SalesInvLine."VAT Amount to Report (LCY)" := -VATAmount;
END ELSE BEGIN
// Delete the following lines.
LetterHeader.GET(LetterLine."Letter No.");
GenJnlLine."Currency Code" := LetterLine."Currency Code";
GenJnlLine."VAT Currency Factor" := LetterHeader."VAT Currency Factor";
// End of the deleted lines.
GenJnlLine."Posting Date" := SalesInvHeader."Posting Date";
GenJnlLine.CalcVATToReport(SalesInvLine."VAT Base Amount",-VATAmount);
SalesInvLine."VAT Base Amt. to Report (LCY)" := GenJnlLine."VAT Base Amt. to Report (LCY)";
...Penggantian kode 2
...SalesInvLine."VAT Base Amt. to Report (LCY)" := SalesInvLine."VAT Base Amount";
SalesInvLine."VAT Amount to Report (LCY)" := -VATAmount;
END ELSE BEGIN
// Add the following lines.
GenJnlLine."Currency Code" := LetterLine."Currency Code";
GenJnlLine."VAT Currency Factor" := SalesInvHeader."VAT Currency Factor";
// End of the added lines.
GenJnlLine."Posting Date" := SalesInvHeader."Posting Date";
GenJnlLine.CalcVATToReport(SalesInvLine."VAT Base Amount",-VATAmount);
SalesInvLine."VAT Base Amt. to Report (LCY)" := GenJnlLine."VAT Base Amt. to Report (LCY)";
... -
Ubah kode di BuildInvLineBuffer fungsi codeunit (26585) sebagai berikut:
Kode yang ada 1...LetterLine2.TABLECAPTION,LetterLine2."Letter No.",LetterLine2."Line No.",DimMgt.GetDimValuePostingErr);
END;
// Delete the following line.
LOCAL PROCEDURE BuildInvLineBuffer@1470020(LetterHeader@1470000 : Record 26585;DocumentType@1470005 : 'Invoice,Credit Memo';VAR PrepmtInvBuf@1470001 : Record 461;VAR TempDocDim@1470002 : Record 357);
// End of the deleted line.
VAR
LetterLine@1470003 : Record 26586;
PrepmtInvBuf2@1470004 : Record 461;
...Penggantian kode 1
...LetterLine2.TABLECAPTION,LetterLine2."Letter No.",LetterLine2."Line No.",DimMgt.GetDimValuePostingErr);
END;
// Add the following line.
LOCAL PROCEDURE BuildInvLineBuffer@1470020(LetterHeader@1470000 : Record 26585;DocumentType@1470005 : 'Invoice,Credit Memo';VAR PrepmtInvBuf@1470001 : Record 461;VAR TempDocDim@1470002 : Record 357;VATCurrFactor@1360000 : Decimal);
// End of the added line.
VAR
LetterLine@1470003 : Record 26586;
PrepmtInvBuf2@1470004 : Record 461;
...Kode yang ada 2
... LetterLine.SETRANGE("Letter No.",LetterHeader."No.");
IF LetterLine.FINDSET THEN
REPEAT
// Delete the following line.
FillInvLineBuffer(LetterLine,DocumentType,LetterHeader."VAT Currency Factor",PrepmtInvBuf2,TempDocDim);
// End of the deleted line.
IF PrepmtInvBuf2.Amount <> 0 THEN
PrepmtInvBuf.InsertInvLineBuffer(PrepmtInvBuf2);
UNTIL LetterLine.NEXT = 0;
...Penggantian kode 2
... LetterLine.SETRANGE("Letter No.",LetterHeader."No.");
IF LetterLine.FINDSET THEN
REPEAT
// Add the following line.
FillInvLineBuffer(LetterLine,DocumentType,VATCurrFactor,PrepmtInvBuf2,TempDocDim);
// End of the added line.
IF PrepmtInvBuf2.Amount <> 0 THEN
PrepmtInvBuf.InsertInvLineBuffer(PrepmtInvBuf2);
UNTIL LetterLine.NEXT = 0;
... -
Menambahkan fungsi di codeunit (26585) sebagai berikut:
... LOCAL PROCEDURE GetPrepaymentCurrFactors@1470049(SalesOrderNo@1470000 : Code[20];VAR CurrFactor@1360001 : Decimal;VAR VATCurrFactor@1360002 : Decimal);
VAR
LetterHeader@1470001 : Record 26585;
CustLedgEntry@1470002 : Record 21;
AdvanceLink@1470003 : Record 26590;
BEGIN
CurrFactor := 0;
VATCurrFactor := 0;
WITH AdvanceLink DO BEGIN
LetterHeader.SETRANGE("Order No.",SalesOrderNo);
IF LetterHeader.FINDLAST THEN BEGIN
SETCURRENTKEY("Document No.","Line No.","Entry Type");
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterHeader."No.");
IF FINDLAST THEN
IF CustLedgEntry.GET("CV Ledger Entry No.") THEN
IF CustLedgEntry."Currency Code" <> '' THEN BEGIN
CurrFactor := CustLedgEntry."Original Currency Factor";
VATCurrFactor := CustLedgEntry."VAT Currency Factor";
END;
END;
END;
END;
LOCAL PROCEDURE SetVATClause@1470058(SalesInvHeader@1470001 : Record 112;SalesInvLine@1470002 : Record 113);
BEGIN
WITH VATClauseBuffer DO
IF GET(SalesInvLine."VAT Bus. Posting Group",SalesInvLine."VAT Prod. Posting Group") THEN BEGIN
"VAT Base" +=
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer.Amount,
SalesInvHeader."Currency Factor");
"VAT Amount" +=
(CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer."Amount Incl. VAT",
SalesInvHeader."Currency Factor") -
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
SalesInvLine.Amount,
SalesInvHeader."Currency Factor"));
MODIFY;
END ELSE BEGIN
"VAT Bus. Posting Group" := SalesInvLine."VAT Bus. Posting Group";
"VAT Prod. Posting Group" := SalesInvLine."VAT Prod. Posting Group";
"VAT Base" :=
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer.Amount,
SalesInvHeader."Currency Factor");
"VAT Amount" :=
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer."Amount Incl. VAT",
SalesInvHeader."Currency Factor") -
"VAT Base";
INSERT;
END;
END;
LOCAL PROCEDURE FinalizeVATClause@1470064(SalesInvHeader@1470002 : Record 112;SalesInvLine@1470003 : Record 113);
VAR
TransferExtText@1470000 : Codeunit 378;
VATClauseSetup@1470001 : Record 26512;
BEGIN
IF VATClauseBuffer.FINDSET THEN
REPEAT
VATClauseSetup.SETRANGE("VAT Bus. Posting Group",VATClauseBuffer."VAT Bus. Posting Group");
VATClauseSetup.SETRANGE("VAT Prod. Posting Group",VATClauseBuffer."VAT Prod. Posting Group");
IF VATClauseSetup.FINDSET THEN
REPEAT
VATClauseSetup.TESTFIELD("Standard Text Code");
TransferExtText.VATCheckIfAnyExtText(SalesInvHeader,VATClauseSetup."Standard Text Code");
TransferExtText.InsertVATExtText(SalesInvLine,VATClauseBuffer);
UNTIL VATClauseSetup.NEXT = 0;
UNTIL VATClauseBuffer.NEXT = 0;
END;
...
Prasyarat
Anda harus memiliki salah satu produk berikut ini diinstal untuk menerapkan perbaikan terbaru ini:
-
Bahasa Hongaria versi Microsoft Dynamics NAV 2009 R2
Selain itu, Anda harus memiliki MSDNAV2009R2Prepaymts_Hungary dan MSDYN_VATExchangeRateAdvancesHungarianNAV2009R2 diinstal.
Informasi penghapusan
Anda tidak dapat menghapus hotfix ini.
Status
Microsoft telah memastikan bahwa ini merupakan masalah di dalam produk Microsoft sebagaimana tercantum di bagian "Berlaku untuk".
Catatan Ini adalah artikel "Penerbitan cepat" dibuat langsung dari dalam organisasi dukungan Microsoft. Informasi yang terkandung di dalamnya disediakan sebagai tanggapan masalah yang muncul. Sebagai akibat dari kecepatan untuk menjadikannya tersedia, materi dapat mengandung kesalahan ketik dan dapat direvisi setiap saat tanpa pemberitahuan. Lihat Ketentuanuntuk pertimbangan lainnya.
