Belirtiler
Normal ödeme ve fatura bir müşteri veya satıcı defter girişlerinden uyguladığınızda, Microsoft Dynamics NAV 2009, İspanyolca sürümünde KB3034441 yükledikten sonra deftere nakledilmiş G/M girişleri yanlış aynı hesabı, her ikisi de bakın. Bu sorunu çözmek için kod değişiklikleri bölümündeki adımları izleyin. Bu sorun aşağıdaki ürünlerde oluşur:
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 R2
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 SP1
Çözüm
Düzeltme bilgileri
Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.
Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.
Yükleme bilgileri
Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.
Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Dynamics NAV istemci kullanıcıların sistem kaydedildiğini doğrulayın. Bu, Microsoft Dynamics NAV uygulama sunucusu (NAS) hizmetleri içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.
Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.
Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:
-
Nesnenin, değiştirme değişiklik yapma izni.
-
Sistem nesne kimliği 9015 ve Sistem nesnesi kimliği 5210 nesne için Execute izni
nesne.
Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.
Kod değişiklikleri
Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.
Bu sorunu gidermek için şu adımları izleyin:
-
PostDtldCustLedgEntries işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu 1...LOCAL PROCEDURE PostDtldCustLedgEntries@46(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;CustPostingGr@1002 : Record 92;GLSetup@1003 : Record 98;NextTransactionNo@1004 : Integer;CustLedgEntryInserted@1012 : Boolean);
VAR
DtldCustLedgEntry@1005 : Record 379;
Currency@1007 : Record 4;
GenPostingSetup@1008 : Record 252;
TotalAmountLCY@1009 : Decimal;
TotalAmountAddCurr@1010 : Decimal;
PaymentDiscAcc@1011 : Code[20];
DtldCustLedgEntryNoOffset@1006 : Integer;
PaymentTolAcc@1013 : Code[20];
...Değiştirme kodu 1
...LOCAL PROCEDURE PostDtldCustLedgEntries@46(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;CustPostingGr@1002 : Record 92;GLSetup@1003 : Record 98;NextTransactionNo@1004 : Integer;CustLedgEntryInserted@1012 : Boolean);
VAR
DtldCustLedgEntry@1005 : Record 379;
Currency@1007 : Record 4;
GenPostingSetup@1008 : Record 252;
// Add the following line.
DtldCustLedgEntry3@1100044 : Record 379;
// End of the added line.
TotalAmountLCY@1009 : Decimal;
TotalAmountAddCurr@1010 : Decimal;
PaymentDiscAcc@1011 : Code[20];
DtldCustLedgEntryNoOffset@1006 : Integer;
PaymentTolAcc@1013 : Code[20];
...Varolan kodu 2
...ReceivableAccAmtLCY@1100001 : Decimal;
ReceivableAccAmtAddCurr@1100000 : Decimal;
DtldCustLedgEntry2@1100003 : TEMPORARY Record 379;
ExistDtldCVLedgEntryBuf@1000003 : Boolean;
FindBill@1100004 : Boolean;
BEGIN
TotalAmountLCY := 0;
TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
...Değiştirme kodu 2
...ReceivableAccAmtLCY@1100001 : Decimal;
ReceivableAccAmtAddCurr@1100000 : Decimal;
DtldCustLedgEntry2@1100003 : TEMPORARY Record 379;
ExistDtldCVLedgEntryBuf@1000003 : Boolean;
FindBill@1100004 : Boolean;
// Add the following line.
EntryUnapplied@1100051 : Boolean;
// End of the added line.
BEGIN
TotalAmountLCY := 0;
TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
...Varolan kodu 3
... TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
NegativeLCYAppAmt := 0;
NegativeACYAppAmt := 0;
IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Customer THEN BEGIN
IF DtldCustLedgEntry.FINDLAST THEN
DtldCustLedgEntryNoOffset := DtldCustLedgEntry."Entry No."
ELSE
...Değiştirme kodu 3
...TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
NegativeLCYAppAmt := 0;
NegativeACYAppAmt := 0;
// Add the following line.
EntryUnapplied := FALSE;
// End of the added line.
IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Customer THEN BEGIN
IF DtldCustLedgEntry.FINDLAST THEN
DtldCustLedgEntryNoOffset := DtldCustLedgEntry."Entry No."
ELSE
...Varolan kodu 4
... END;
InsertGLEntry(TRUE);
GenJnlLine."Posting Date" := OriginalPostingDate;
END;
// Delete the following line.
PostReceivableDocs(GenJnlLine);
// End of the deleted line.
IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
InitGLEntry(CustPostingGr."Receivables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
InsertGLEntry(FALSE);
InitGLEntry(CustPostingGr."Receivables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
...Değiştirme kodu 4
... END;
InsertGLEntry(TRUE);
GenJnlLine."Posting Date" := OriginalPostingDate;
END;
// Add the following lines.
WITH DtldCustLedgEntry3 DO BEGIN
SETCURRENTKEY("Cust. Ledger Entry No.");
SETRANGE("Cust. Ledger Entry No.",DtldCustLedgEntry."Cust. Ledger Entry No.");
SETFILTER("Applies-to Bill No.",'<>%1','');
SETRANGE(Unapplied,TRUE);
EntryUnapplied := NOT ISEMPTY;
END;
PostReceivableDocs(EntryUnapplied);
// End of the added lines.
IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
InitGLEntry(CustPostingGr."Receivables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
InsertGLEntry(FALSE);
InitGLEntry(CustPostingGr."Receivables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
... -
PostDtldVendLedgEntries işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu 1... PROCEDURE PostDtldVendLedgEntries@32(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;VendPostingGr@1002 : Record 93;NextTransactionNo@1003 : Integer;VendLedgEntryInserted@1011 : Boolean);
VAR
DtldVendLedgEntry@1004 : Record 380;
Currency@1006 : Record 4;
GenPostingSetup@1007 : Record 252;
TotalAmountLCY@1008 : Decimal;
TotalAmountAddCurr@1009 : Decimal;
PaymentDiscAcc@1010 : Code[20];
DtldVendLedgEntryNoOffset@1005 : Integer;
PaymentTolAcc@1012 : Code[20];
...Değiştirme kodu 1
...PROCEDURE PostDtldVendLedgEntries@32(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;VendPostingGr@1002 : Record 93;NextTransactionNo@1003 : Integer;VendLedgEntryInserted@1011 : Boolean);
VAR
DtldVendLedgEntry@1004 : Record 380;
Currency@1006 : Record 4;
GenPostingSetup@1007 : Record 252;
// Add the following line.
DtldVendLedgEntry3@1100055 : Record 380;
// End of the added line.
TotalAmountLCY@1008 : Decimal;
TotalAmountAddCurr@1009 : Decimal;
PaymentDiscAcc@1010 : Code[20];
DtldVendLedgEntryNoOffset@1005 : Integer;
PaymentTolAcc@1012 : Code[20];
...Varolan kodu 2
...PayableAccAmtLCY@1100002 : Decimal;
PayableAccAmtAddCurr@1100010 : Decimal;
DtldVendLedgEntry2@1100003 : Record 380;
ExistDtldCVLedgEntryBuf@1100004 : Boolean;
FindBill@1100005 : Boolean;
BEGIN
TotalAmountLCY := 0;
TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
...Değiştirme kodu 2
...PayableAccAmtLCY@1100002 : Decimal;
PayableAccAmtAddCurr@1100010 : Decimal;
DtldVendLedgEntry2@1100003 : Record 380;
ExistDtldCVLedgEntryBuf@1100004 : Boolean;
FindBill@1100005 : Boolean;
// Add the following line.
EntryUnapplied@1100051 : Boolean;
// End of the added line.
BEGIN
TotalAmountLCY := 0;
TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
...Varolan kodu 3
...TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
NegativeLCYAppAmt := 0;
NegativeACYAppAmt := 0;
IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Vendor THEN BEGIN
IF DtldVendLedgEntry.FINDLAST THEN
DtldVendLedgEntryNoOffset := DtldVendLedgEntry."Entry No."
ELSE
...Değiştirme kodu 3
...TotalAmountAddCurr := 0;
PositiveLCYAppAmt := 0;
PositiveACYAppAmt := 0;
NegativeLCYAppAmt := 0;
NegativeACYAppAmt := 0;
// Add the following line.
EntryUnapplied := FALSE;
// End of the added line.
IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Vendor THEN BEGIN
IF DtldVendLedgEntry.FINDLAST THEN
DtldVendLedgEntryNoOffset := DtldVendLedgEntry."Entry No."
ELSE
...Varolan kodu 4
...END;
InsertGLEntry(TRUE);
GenJnlLine."Posting Date" := OriginalPostingDate;
END;
// Delete the following line.
PostPayableDocs(GenJnlLine);
// End of the deleted line.
IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
InitGLEntry(VendPostingGr."Payables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
InsertGLEntry(FALSE);
InitGLEntry(VendPostingGr."Payables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
...Değiştirme kodu 4
...END;
InsertGLEntry(TRUE);
GenJnlLine."Posting Date" := OriginalPostingDate;
END;
// Add the following lines.
WITH DtldVendLedgEntry3 DO BEGIN
SETCURRENTKEY("Vendor Ledger Entry No.");
SETRANGE("Vendor Ledger Entry No.",DtldVendLedgEntry."Vendor Ledger Entry No.");
SETFILTER("Applies-to Bill No.",'<>%1','');
SETRANGE(Unapplied,TRUE);
EntryUnapplied := NOT ISEMPTY;
END;
PostPayableDocs(EntryUnapplied);
// End of the added lines.
IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
InitGLEntry(VendPostingGr."Payables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
InsertGLEntry(FALSE);
InitGLEntry(VendPostingGr."Payables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
... -
PostPayableDocs işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu 1...ELSE
VATEntry."Bill-to/Pay-to No." := GenJnlLine2."Account No.";
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostPayableDocs@1100009(VAR GenJnlLine@1100000 : Record 81);
// End of the deleted line.
BEGIN
IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
IF DocAmountLCY <> 0 THEN BEGIN
...Değiştirme kodu 1
...ELSE
VATEntry."Bill-to/Pay-to No." := GenJnlLine2."Account No.";
END;
END;
// Add the following line.
LOCAL PROCEDURE PostPayableDocs@1100009(EntryUnapplied@1100001 : Boolean);
// End of the added line.
BEGIN
IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
IF DocAmountLCY <> 0 THEN BEGIN
...Varolan kodu 2
...BEGIN
IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
IF DocAmountLCY <> 0 THEN BEGIN
// Delete the following lines.
// VSTF330588.begin
//IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) THEN BEGIN
IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
(GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" ")
THEN BEGIN
// VSTF330588.end
// End of the deleted lines.
VendPostingGr.TESTFIELD("Payables Account");
InitGLEntry(VendPostingGr."Payables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
...Değiştirme kodu 2
...BEGIN
IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
IF DocAmountLCY <> 0 THEN BEGIN
// Add the following lines.
IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
EntryUnapplied
THEN BEGIN
// End of the added lines.
VendPostingGr.TESTFIELD("Payables Account");
InitGLEntry(VendPostingGr."Payables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
... -
PostReceivableDocs işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu 1... GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostReceivableDocs@1100003(VAR GenJnlLine@1100000 : Record 81);
// End of the deleted line.
BEGIN
IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
(DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
...Değiştirme kodu 1
...GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
END;
// Add the following line.
LOCAL PROCEDURE PostReceivableDocs@1100003(EntryUnapplied@1100001 : Boolean);
// End of the added line.
BEGIN
IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
(DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
...Varolan kodu 2
...IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
(DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
IF DocAmountLCY <> 0 THEN BEGIN
// Delete the following lines.
// VSTF330588.begin
//IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) THEN BEGIN
IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
(GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" ")
THEN BEGIN
// VSTF330588.end
// End of the deleted lines.
CustPostingGr.TESTFIELD("Receivables Account");
InitGLEntry(CustPostingGr."Receivables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
...Değiştirme kodu 2
...IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
(DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
IF NextEntryNo2 = NextEntryNo THEN
NextEntryNo := NextEntryNo - 1;
IF DocAmountLCY <> 0 THEN BEGIN
// Add the following lines.
IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
EntryUnapplied
THEN BEGIN
// End of the added lines.
CustPostingGr.TESTFIELD("Receivables Account");
InitGLEntry(CustPostingGr."Receivables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
...
Önkoşullar
Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 R2
-
İspanyolca sürümü için Microsoft Dynamics NAV 2009 SP1
Ayrıca, KB3034441 yüklü olması gerekir.
Kaldırma bilgileri
Bu düzeltmeyi kaldıramazsınız.
Durum
Microsoft bu sorunun "Aşağıdakilere Uygulanır" bölümünde listelenen Microsoft ürünlerinde bulunduğunu onaylamıştır.
Not: Bu, doğrudan Microsoft destek kuruluşu bünyesinde oluşturulan bir "HIZLI YAYIN" makalesidir. Burada yer alan bilgiler, oluşan sorunlara yanıt olarak olduğu gibi sağlanmıştır. Makale hızla kullanıma sunulduğu için materyallerde yazım hataları olabilir ve materyaller bildirilmeksizin herhangi bir zamanda revize edilebilir. Kullanım koşullarıdiğer konular için bkz.