Yanlış G/M girişi - KDV Girişi bağlantıları Microsoft Dynamics NAV 2009'daki mevcut.

Belirtiler

KB3001759 ve KB3036811 Microsoft Dynamics NAV 2009 düzeltme uygulandıktan sonra G/M girişlerini uygulanmamış olabilir. Ancak, yanlış bir G/M girişi vardır - KDV Girişi bağlantıları uygulamada deftere. 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:

Microsoft Dynamics NAV 2009 R2
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:

UnapplyCustLedgEntry işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Delete the following lines.
VatBaseSum@1008 : ARRAY [2] OF Decimal;
EntryNoBegin@1025 : ARRAY [2] OF Integer;
// End of the deleted lines.

      i@1027 : Integer;
      TempVatEntryNo@1028 : Integer;
    BEGIN
...

Değiştirme kodu 1

...  NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Add the following lines.
VatBaseSum@1008 : ARRAY [3] OF Decimal;
EntryNoBegin@1025 : ARRAY [3] OF Integer;
// End of the added lines.

      i@1027 : Integer;
      TempVatEntryNo@1028 : Integer;
    BEGIN
...

Varolan kodu 2

... VATEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VATEntry2.INSERT;
              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

Değiştirme kodu 2

...VATEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VATEntry2.INSERT;

// Add the following lines.
IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
END;
// End of the added lines.

              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

Varolan kodu 3

... IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF
                VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...

Değiştirme kodu 3

...IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF

// Add the followoing lines.
VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.

                VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...

Varolan kodu 4

...END;
                  TempVatEntry := VATEntrySaved;
                UNTIL TempVatEntry.NEXT = 0;

// Delete the following line.
FOR i := 1 TO 2 DO BEGIN
// End of the deleted line.

                  VatBaseSum[i] := 0;
                  EntryNoBegin[i] := 0;
                END;
...

Değiştirme kodu 4

...END;
                  TempVatEntry := VATEntrySaved;
                UNTIL TempVatEntry.NEXT = 0;

// Add the following line.
FOR i := 1 TO 3 DO BEGIN
// End of the added line.

                  VatBaseSum[i] := 0;
                  EntryNoBegin[i] := 0;
                END;
...

Varolan kodu 5

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN
                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;
                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

Değiştirme kodu 5

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN

// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.

                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;

// Add the folloiwng lines.           
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.

EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

UnapplyVendLedgEntry işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Delete the following lines.
VatBaseSum@1029 : ARRAY [2] OF Decimal;
EntryNoBegin@1028 : ARRAY [2] OF Integer;
// End of the deleted lines.

      i@1027 : Integer;
      TempVatEntryNo@1025 : Integer;
    BEGIN
...

Değiştirme kodu 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;
      V
// Add the following lines.
atBaseSum@1029 : ARRAY [3] OF Decimal;
EntryNoBegin@1028 : ARRAY [3] OF Integer;
// End of the added lines.

      i@1027 : Integer;
      TempVatEntryNo@1025 : Integer;
    BEGIN
...

Varolan kodu 2

...VatEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VatEntry2.INSERT;
              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

Değiştirme kodu 2

...VatEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VatEntry2.INSERT;

// Add the following lines.
IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
END;
// End of the added lines.

              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

Varolan kodu 3

...  IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF
                VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...

Değiştirme kodu 3

...IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF

// Add the following lines.
VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.

                VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...

Varolan kodu 4

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN
                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;
                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

Değiştirme kodu 4

... END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN

// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.

                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;

// Add the following lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.

                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

InsertVatEntriesFromTemp işlevinde, Yev. kodunu değiştirmek-Post satır kod (12) aşağıdaki gibi:
Varolan kodu

... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
          TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
      END;

// Delete the following line.
TempVatEntry.FINDSET;
// End of the deleted line.

      REPEAT
        VATEntry := TempVatEntry;
        VATEntry."Entry No." := NextVATEntryNo;
        VATEntry.INSERT;
        NextVATEntryNo := NextVATEntryNo + 1;
        IF VATEntry."Unrealized VAT Entry No." = 0 THEN
          GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
        TempVatEntry.DELETE;
        LinkedAmount := LinkedAmount + VATEntry.Base;
        Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
      UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...

Kod değiştirme

...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
          TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
      END;

// Add the following line.
IF TempVatEntry.FINDSET THEN
// End of the added line.

        REPEAT
          VATEntry := TempVatEntry;
          VATEntry."Entry No." := NextVATEntryNo;
          VATEntry.INSERT;
          NextVATEntryNo := NextVATEntryNo + 1;
          IF VATEntry."Unrealized VAT Entry No." = 0 THEN
            GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
          TempVatEntry.DELETE;
          LinkedAmount := LinkedAmount + VATEntry.Base;
          Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
        UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...

Önkoşullar

Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 SP1

Ayrıca, KB3001759 ve KB3036811 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.

Yanlış G/M girişi - KDV Girişi bağlantıları Microsoft Dynamics NAV 2009'daki mevcut.

Belirtiler

Çözüm

Düzeltme bilgileri

Yükleme bilgileri

Kod değişiklikleri

Önkoşullar

Kaldırma bilgileri

Durum

Daha fazla yardıma mı ihtiyacınız var?

Daha fazla seçenek mi istiyorsunuz?

Bu bilgi yararlı oldu mu?

Geri bildiriminiz için teşekkürler!