Microsoft Dynamics NAV 2009 İspanyolca sürümünde satış Cartera günlüğündeki bir fatura deftere naklederseniz tutarlı hata

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 test kodu düzeltmeleri denetimli bir ortamda üretim bilgisayarlarınıza onarımları uyguladıktan önce. Değişiklikleri uygulamadan önce lütfen tüm SEPA güncelleştirmeleri alın.

Bu sorunu gidermek için kod, PostReceivableDocs işlevi, Yev. değiştirmek-Post satır kod (12), aşağıdaki gibi:

...END;

    LOCAL PROCEDURE PostReceivableDocs@1100003(EntryUnapplied@1100001 : Boolean);
    BEGIN
      // es0012.begin
      IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
...

...END;

    LOCAL PROCEDURE PostReceivableDocs@1100003(EntryUnapplied@1100001 : Boolean);

// Add the following lines.
VAR
DocAmountAddCurr@1100003 : Decimal;
// End of the added lines.

    BEGIN
      // es0012.begin
      IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
...

...NextEntryNo := NextEntryNo - 1;
      // es0012.end
      IF DocAmountLCY <> 0 THEN BEGIN
        IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
          EntryUnapplied
        THEN BEGIN
...

...NextEntryNo := NextEntryNo - 1;
      // es0012.end
      IF DocAmountLCY <> 0 THEN BEGIN

// Add the following lines.
IF GenJnlLine."Currency Code" = AddCurrency.Code THEN
DocAmountAddCurr := GenJnlLine.Amount
ELSE
DocAmountAddCurr := DocAmtCalcAddCurrency(DocAmountLCY);
// End of the added lines.

        IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
          EntryUnapplied
        THEN BEGIN...

... EntryUnapplied
        THEN BEGIN
          CustPostingGr.TESTFIELD("Receivables Account");

// Delete the following line.
InitGLEntry(CustPostingGr."Receivables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
// End of the deleted line.

          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
          GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
          InsertGLEntry(TRUE);
...

... EntryUnapplied
        THEN BEGIN
          CustPostingGr.TESTFIELD("Receivables Account");

// Add the following line.
InitGLEntry(CustPostingGr."Receivables Account",DocAmountLCY,DocAmountAddCurr,TRUE,TRUE);
// End of the added line.

          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
          GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
          InsertGLEntry(TRUE);
...

... InsertGLEntry(TRUE);
        END ELSE BEGIN
          CustPostingGr.TESTFIELD("Bills Account");

// Delete the following line.
InitGLEntry(CustPostingGr."Bills Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
// End of the deleted line.

          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
          GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
          InsertGLEntry(TRUE);
...

...InsertGLEntry(TRUE);
        END ELSE BEGIN
          CustPostingGr.TESTFIELD("Bills Account");

// Add the following line.
InitGLEntry(CustPostingGr."Bills Account",DocAmountLCY,DocAmountAddCurr,TRUE,TRUE);
// End of the added line.

          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

Kaldırma bilgileri

Bu düzeltmeyi kaldıramazsınız.