Intrastat raporlama için madde giderleri Danca sürümünde Microsoft Dynamics NAV 2009 yanlış

Şablon: CPR - Navision kod Fiacx şablonu

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

Intrastat için devlet bildirilir ve Kenarlıklar, hareketler için Danimarka firması ve diğer ülkelerde demek arasında yapılan hareketler (miktar) görüntülenmelidir. Bu öğeyi örneğin satılan rapor, Almanya, Ocak, hareket hiçbir koşulda Instrastat günlükte Şubat ekleneceğini gösterir.

Madde giderleri nedeniyle hareket değeri yukarı veya aşağı gider olsa bile hareketin yalnızca bir kez yedeklenmelidir. Şu anda yeni bir intrastat günlüğü satırı madde giderlerini kayıtlı zaman ay için de oluşturulur.

Bu sorun aşağıdaki ürünlerde oluşur:

  • Microsoft Dynamics NAV 2009 R2 Danca sürümü

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) Danca sürümü

Çö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. Madde Defter Girişlerini Getir raporu (594) kodu aşağıdaki gibi değiştirin:
    Varolan kodu 1

    ...IF IntrastatJnlLine2.FINDFIRST THEN
    CurrReport.SKIP;

    // Delete the following line.
    TestILE("Item Ledger Entry");
    // End of the deleted line.

    TotalInvoicedQty := 0;
    TotalAmt := 0;
    ...

    Değiştirme kodu 1

    ...IF IntrastatJnlLine2.FINDFIRST THEN
    CurrReport.SKIP;

    // Add the following lines.
    IF NOT HasCrossedBorder("Item Ledger Entry") THEN
    CurrReport.SKIP;
    // End of the added lines.

    TotalInvoicedQty := 0;
    TotalAmt := 0;
    ...

    Varolan kodu 2

    ...IF "Country/Region".GET("Item Ledger Entry"."Country/Region Code") THEN
    IF "Country/Region"."EU Country/Region Code" = '' THEN
    CurrReport.SKIP;
    TestILE("Item Ledger Entry");

    InsertValueEntryLine;
    END;
    END;
    ...

    Değiştirme kodu 2

    ...IF "Country/Region".GET("Item Ledger Entry"."Country/Region Code") THEN
    IF "Country/Region"."EU Country/Region Code" = '' THEN
    CurrReport.SKIP;

    // Add the following line.
    IF HasCrossedBorder("Item Ledger Entry") THEN
    // End of the added lines.

    CurrReport.SKIP;
    InsertValueEntryLine;
    END;
    END;
    ...
  2. Madde Defter Girişlerini Getir raporu (594) CheckILE işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu 1

    ...EXIT(AverageQty >= 0);
    END;

    // Delete the following line.
    LOCAL PROCEDURE CheckILE@4(CountryRegionCode@1000 : Code[20]);
    // End of the deleted line.

    VAR
    CountryRegion@1001 : Record 9;
    BEGIN
    ...

    Değiştirme kodu 1

    ...EXIT(AverageQty >= 0);
    END;

    // Add the following line.
    LOCAL PROCEDURE CountryOfOrigin@4(CountryRegionCode@1000 : Code[20]) : Boolean;
    // End of the added line.

    VAR
    CountryRegion@1001 : Record 9;
    BEGIN
    ...

    Varolan kodu 2

    ...IF ("Item Ledger Entry"."Country/Region Code" IN [CompanyInfo."Country/Region Code",'']) =
    (CountryRegionCode IN [CompanyInfo."Country/Region Code",''])
    THEN

    // Delete the following line.
    CurrReport.SKIP;
    // End of the deleted line.

    IF CountryRegionCode <> '' THEN BEGIN
    CountryRegion.GET(CountryRegionCode);
    IF CountryRegion."Intrastat Code" = '' THEN
    ...

    Değiştirme kodu 2

    ...IF ("Item Ledger Entry"."Country/Region Code" IN [CompanyInfo."Country/Region Code",'']) =
    (CountryRegionCode IN [CompanyInfo."Country/Region Code",''])
    THEN

    // Add the following line.
    EXIT(FALSE);
    // End of the added line.

    IF CountryRegionCode <> '' THEN BEGIN
    CountryRegion.GET(CountryRegionCode);
    IF CountryRegion."Intrastat Code" = '' THEN
    ...

    Varolan kodu 3

    ...IF CountryRegionCode <> '' THEN BEGIN
    CountryRegion.GET(CountryRegionCode);
    IF CountryRegion."Intrastat Code" = '' THEN

    // Delete the following lines.
    CurrReport.SKIP;
    END;
    END;
    // End of the deleted lines.

    PROCEDURE TestILE@5(ItemLedgEntry@1000 : Record 32);
    VAR
    ItemLedgEntry2@1003 : Record 32;
    Location@1002 : Record 14;
    ...

    Değiştirme kodu 3

    ...IF CountryRegionCode <> '' THEN BEGIN
    CountryRegion.GET(CountryRegionCode);
    IF CountryRegion."Intrastat Code" = '' THEN

    // Add the following lines.
    EXIT(FALSE);
    END;
    EXIT(TRUE);
    END;
    // End of the added lines.

    PROCEDURE HasCrossedBorder@5(ItemLedgEntry@1000 : Record 32) : Boolean;
    VAR
    ItemLedgEntry2@1003 : Record 32;
    Location@1002 : Record 14;
    ...
  3. Madde Defter Girişlerini Getir raporu (594) TestILE işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu 1

    ...IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
    ("Country/Region Code" = '')
    THEN

    // Delete the following line.
    CurrReport.SKIP;
    // End of the deleted line.

    IF "Applies-to Entry" = 0 THEN BEGIN
    ItemLedgEntry2.SETCURRENTKEY("Item No.","Posting Date");
    ItemLedgEntry2.SETRANGE("Item No.","Item No.");
    ...

    Değiştirme kodu 1

    ...IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
    ("Country/Region Code" = '')
    THEN

    // Add the following line.
    EXIT(FALSE);
    // End of the added line.

    IF "Applies-to Entry" = 0 THEN BEGIN
    ItemLedgEntry2.SETCURRENTKEY("Item No.","Posting Date");
    ItemLedgEntry2.SETRANGE("Item No.","Item No.");
    ...

    Varolan kodu 2

    ...IF (ItemLedgEntry2."Country/Region Code" <> CompanyInfo."Country/Region Code") AND
    (ItemLedgEntry2."Country/Region Code" <> '')
    THEN
    CurrReport.SKIP;
    END;
    "Entry Type" = "Entry Type"::Transfer:
    BEGIN
    ...

    Değiştirme kodu 2

    ...IF (ItemLedgEntry2."Country/Region Code" <> CompanyInfo."Country/Region Code") AND
    (ItemLedgEntry2."Country/Region Code" <> '')
    THEN
    EXIT(FALSE);
    END;
    "Entry Type" = "Entry Type"::Transfer:
    BEGIN
    ...

    Varolan kodu 3

    ...IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
    ("Country/Region Code" = '')
    THEN
    CurrReport.SKIP;
    IF "Transfer Order No." = '' THEN BEGIN
    Location.GET("Location Code");
    IF (Location."Country/Region Code" <> '') AND
    ...

    Değiştirme kodu 3

    ...IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
    ("Country/Region Code" = '')
    THEN
    EXIT(FALSE);
    IF "Transfer Order No." = '' THEN BEGIN
    Location.GET("Location Code");
    IF (Location."Country/Region Code" <> '') AND
    ...

    Varolan kodu 4

    ...IF (Location."Country/Region Code" <> '') AND
    (Location."Country/Region Code" <> CompanyInfo."Country/Region Code")
    THEN
    CurrReport.SKIP;
    END ELSE BEGIN
    ItemLedgEntry2.SETRANGE("Transfer Order No.","Transfer Order No.");
    ItemLedgEntry2.SETFILTER("Country/Region Code",'%1 | %2','',CompanyInfo."Country/Region Code");
    ...

    Değiştirme kodu 4

    ...IF (Location."Country/Region Code" <> '') AND
    (Location."Country/Region Code" <> CompanyInfo."Country/Region Code")
    THEN
    EXIT(FALSE);
    END ELSE BEGIN
    ItemLedgEntry2.SETRANGE("Transfer Order No.","Transfer Order No.");
    ItemLedgEntry2.SETFILTER("Country/Region Code",'%1 | %2','',CompanyInfo."Country/Region Code");
    ...

    Varolan kodu 5

    ...Include := TRUE;
    UNTIL Include OR (ItemLedgEntry2.NEXT = 0);
    IF NOT Include THEN
    CurrReport.SKIP;
    END;
    END;
    "Location Code" <> '':
    ...

    Değiştirme kodu 5

    ...Include := TRUE;
    UNTIL Include OR (ItemLedgEntry2.NEXT = 0);
    IF NOT Include THEN
    EXIT(FALSE);
    END;
    END;
    "Location Code" <> '':
    ...

    Varolan kodu 6

    ..."Location Code" <> '':
    BEGIN
    Location.GET("Location Code");
    CheckILE(Location."Country/Region Code");
    END;
    ELSE BEGIN
    IF "Entry Type" = "Entry Type"::Purchase THEN
    ...

    Değiştirme kodu 6

    ..."Location Code" <> '':
    BEGIN
    Location.GET("Location Code");
    IF NOT CountryOfOrigin(Location."Country/Region Code") THEN
    EXIT(FALSE);
    END;
    ELSE BEGIN
    IF "Entry Type" = "Entry Type"::Purchase THEN
    ...

    Varolan kodu 7

    ...END;
    ELSE BEGIN
    IF "Entry Type" = "Entry Type"::Purchase THEN
    CheckILE(CompanyInfo."Ship-to Country/Region Code");
    IF "Entry Type" = "Entry Type"::Sale THEN
    CheckILE(CompanyInfo."Country/Region Code");
    END;
    END;
    END;
    ...

    Değiştirme kodu 7

    ...END;
    ELSE BEGIN
    IF "Entry Type" = "Entry Type"::Purchase THEN
    IF NOT CountryOfOrigin(CompanyInfo."Ship-to Country/Region Code") THEN
    EXIT(FALSE);
    IF "Entry Type" = "Entry Type"::Sale THEN
    IF NOT CountryOfOrigin(CompanyInfo."Country/Region Code") THEN
    EXIT(FALSE);
    END;
    END;
    END;
    ...
  4. Madde Defter Girişlerini Getir raporu (594) HasCrossedBorder işlevinde kodu aşağıdaki gibi değiştirin:
    Varolan kodu

    ...END;
    END;
    END;
    END;
    ...

    Kod değiştirme

    ...END;
    END;
    END;
    EXIT(TRUE)
    END;

    PROCEDURE InsertValueEntryLine@6();...


Önkoşullar

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

  • Microsoft Dynamics NAV 2009 R2 Danca sürümü

  • Microsoft Dynamics NAV 2009 SP1 Danca sürümü

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: 360064

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.

Yazar: avannini
Writer: v-six
Teknik İnceleme: avannini
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?

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

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×