Şablon: CPR - Navision kod Fiacx şablonu

# Hata: 216639 (İçerik Bakımı)

Belirtiler

KB2926134, KB2559717ve KB2907891 Microsoft Dynamics NAV 2009 unapplication tarafından oluşturulan KDV girişlerini otomatik olarak geri alınamaz ve deftere nakledilen ödeme iskontosu, genel muhasebe (GM) girişleri gibi unapplication bir işlemi sırasında düzeltilen yükledikten sonra zaman daha sonra beklenmeyen g/m girişleri için müşteri adayları Ödeme ters ve KDV girişleri. 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.

Bu düzeltme genel karşıdan yükleme (Bu makalede bu düzeltme için genel bir URL sağlanmayan anlamına gelir) için nakledilmemişse, dağıtım için teknik lider, yükseltme ekibi üyesi veya yönetici onayı gerekir ve aşağıdaki bilgiler geçerlidir:

  • Düzeltmeyi almak için müşterilerin "Belirtiler" bölümünde sözü edilen hata ile karşılaşmaları gerekir.

  • Bunu gönderdiğiniz ve bir sonraki hizmet paketini (bir hizmet paketi yayımlanırsa) kullanılabilir duruma geldiğinde bunları tedarik müşterileri izlemeniz gerekir.

Bu düzeltmenin bir Microsoft Dynamics NAV hizmet paketine eklenmesi planlanmamıştı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:

  1. InsertReversalEntry işlevi (179) ters kayıt girişi tablosundaki kodu aşağıdaki gibi değiştirin:
    Varolan kodu 1

    ...DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Customer No.",CustLedgEntry."Customer No.");
    DtldCustLedgEntry.SETFILTER(
    DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");

    // Delete the following lines.
    IF NOT DtldCustLedgEntry.ISEMPTY THEN
    IF RevType = RevType::Register THEN
    ERROR(Text012,Number);
    CheckDtldCustLedgEntry(CustLedgEntry);
    // End of the deleted lines.

    UNTIL CustLedgEntry.NEXT = 0;

    IF VendLedgEntry.FIND('-') THEN
    ...

    Değiştirme kodu 1

    ...DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Customer No.",CustLedgEntry."Customer No.");
    DtldCustLedgEntry.SETFILTER(
    DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");

    // Add the following lines.
    IF NOT DtldCustLedgEntry.ISEMPTY THEN BEGIN
    IF RevType = RevType::Register THEN
    ERROR(Text012,Number);
    CLEAR(DtldCustLedgEntry);
    InsertCustTempRevertTransNo(TempRevertTransactionNo,CustLedgEntry."Entry No.");
    END;
    // End of the added lines.

    UNTIL CustLedgEntry.NEXT = 0;

    IF VendLedgEntry.FIND('-') THEN
    ...

    Varolan kodu 2

    ...DtldVendLedgEntry.SETRANGE(DtldVendLedgEntry."Vendor No.",VendLedgEntry."Vendor No.");
    DtldVendLedgEntry.SETFILTER(
    DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");

    // Delete the following lines.
    IF NOT DtldVendLedgEntry.ISEMPTY THEN
    IF RevType = RevType::Register THEN
    ERROR(Text012,Number);
    CheckDtldVendLedgEntry(VendLedgEntry);
    // End of the deleted lines.

    UNTIL VendLedgEntry.NEXT = 0;

    IF BankAccLedgEntry.FIND('-') THEN
    ...

    Değiştirme kodu 2

    ...DtldVendLedgEntry.SETRANGE(DtldVendLedgEntry."Vendor No.",VendLedgEntry."Vendor No.");
    DtldVendLedgEntry.SETFILTER(
    DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");

    // Add the following lines.
    IF NOT DtldCustLedgEntry.ISEMPTY THEN BEGIN
    IF RevType = RevType::Register THEN
    ERROR(Text012,Number);
    CLEAR(DtldVendLedgEntry);
    InsertVendTempRevertTransNo(TempRevertTransactionNo,VendLedgEntry."Entry No.");
    END;
    // End of the added lines.

    UNTIL VendLedgEntry.NEXT = 0;

    IF BankAccLedgEntry.FIND('-') THEN
    ...
  2. Aşağıdaki işlevler ters kayıt Girişi tablosunda (179) aşağıdaki gibi ekleyin:

    ...LOCAL PROCEDURE InsertCustTempRevertTransNo@31(VAR TempRevertTransactionNo@1000 : TEMPORARY Record 2000000026;CustLedgEntryNo@1001 : Integer);
    VAR
    DtldCustLedgEntry@1002 : Record 379;
    BEGIN
    DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
    DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntryNo);
    DtldCustLedgEntry.SETRANGE(Unapplied,TRUE);
    IF DtldCustLedgEntry.FINDSET THEN BEGIN
    REPEAT
    TempRevertTransactionNo.Number := DtldCustLedgEntry."Transaction No.";
    IF TempRevertTransactionNo.INSERT THEN;
    UNTIL DtldCustLedgEntry.NEXT = 0;
    END;
    END;

    LOCAL PROCEDURE InsertVendTempRevertTransNo@32(VAR TempRevertTransactionNo@1000 : TEMPORARY Record 2000000026;VendLedgEntryNo@1001 : Integer);
    VAR
    DtldVendLedgEntry@1002 : Record 380;
    BEGIN
    DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
    DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntryNo);
    DtldVendLedgEntry.SETRANGE(Unapplied,TRUE);
    IF DtldVendLedgEntry.FINDSET THEN BEGIN
    REPEAT
    TempRevertTransactionNo.Number := DtldVendLedgEntry."Transaction No.";
    IF TempRevertTransactionNo.INSERT THEN;
    UNTIL DtldVendLedgEntry.NEXT = 0;
    END;
    END;
    ...


Ö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, KB2926134, KB2559717ve KB2907891 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.

Başvurular

VSFT DynamicsNAVSE: 362354

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.

Author: Andreas.Guenther
Writer: v-luzo
Teknik İnceleme: Andreas.Guenther
Editor:

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

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Microsoft Insider 'a katılın

Bu bilgi yardımcı oldu mu?

Çeviri kalitesinden ne kadar memnunsunuz?
Deneyiminizi ne etkiledi?

Geri bildiriminiz için teşekkür ederiz!

×