Kód krajiny v riadku denníka intrastat v talianskej verzii balíka Microsoft Dynamics NAV 5.0 Service Pack 1 nie je vždy správny

Tento článok sa vzťahuje na systém Microsoft Dynamics NAV pre miestne nastavenie taliančiny (it).

Po použití 2275869 rýchlych opráv v talianskej verzii balíka Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) nie je kód krajiny v riadku denníka intrastat vždy správny. 

Ďalšie informácie o rýchlych opravách 2275869 nájdete v článku databázy Microsoft Knowledge Base, ktorý sa zobrazí po kliknutí na nasledujúce číslo:
2275869 Hodnota v poli Registračné číslo pre DPH sa nesprávne exportovala do súboru Scambi.cee v talianskej verzii balíka Microsoft Dynamics NAV 5.0 Service Pack 1

Príznaky

Tento problém sa vyskytuje, pretože kód krajiny sa prevezme z položky účtovnej knihy. V niektorých konkrétnych situáciách je potrebné zvoliť kód krajiny z poľa fakturácie alebo poľa platby.

Príčina

Informácie o rýchlych opravách

Spoločnosť Microsoft teraz poskytuje podporovanú rýchlu opravu. Jeho účelom je však len vyriešiť problém, ktorý je popísaný v tomto článku. Použite ju len v systémoch, v ktorých sa vyskytol tento konkrétny problém. Táto rýchla oprava môže byť ešte otestovaná. Ak teda nie ste týmto problémom vážne zasiahnutí, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu.

Poznámka: V osobitných prípadoch môžu byť poplatky, ktoré sú zvyčajne účtované za hovory s oddelením technickej podpory, zrušené, ak pracovník technickej podpory pre systém Microsoft Dynamics a súvisiace produkty rozhodne, že konkrétna aktualizácia vyrieši váš problém. Zvyčajné náklady na podporu sa budú vzťahovať na ďalšie otázky a problémy podpory, na ktoré sa nevzťahuje konkrétna príslušná aktualizácia.

Riešenie

Informácie o inštalácii

Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, tieto príklady však nebudú upravovať, aby poskytovali ďalšie funkcie alebo zostavili procedúry podľa vašich špecifických požiadaviek.

Poznámka Pred inštaláciou tejto rýchlej opravy overte, či sú všetci používatelia klienta Microsoft Navision odhlásení zo systému. Týka sa to používateľov klientských služieb Microsoft Navision Application Services (NAS). V čase implementácie tejto rýchlej opravy by ste mali byť jediným klientskym používateľom, ktorý je prihlásený.

Ak chcete implementovať túto rýchlu opravu, musíte mať vývojársku licenciu.

Odporúčame priradiť používateľskému kontu v okne Prihlásenie do Windowsu alebo v okne Prihlásenia do databázy ID roly SUPER. Ak používateľskému kontu nie je možné priradiť ID roly SUPER, musíte overiť, či má používateľské konto nasledujúce povolenia:

• Povolenie Upraviť pre objekt, ktorý budete meniť.
• Povolenie na spustenie pre objekt systémového objektu ID 5210 a pre objekt systémového objektu ID 9015.

            
Poznámka: Ak nepotrebujete vykonať opravu údajov, nemusíte mať práva na ukladacie priestory údajov.

Zmeny kódu

Poznámka: Opravy kódu pred použitím opráv v produkčných počítačoch vždy testujte v kontrolovanom prostredí.
Pri odstraňovaní tohto problému postupujte nasledovne:

1. Zmeňte kód v položke Číslo - Spúšťač OnValidate v tabuľke Intrastat Jnl. Line (263) nasledovne:
   Existujúci kód

   ...
   
   "Tariff No." := Item."Tariff No.";
   
   //Delete the following line.
   "Country/Region of Origin Code" := Item."Country/Region of Origin Code";
   
   GetItemDescription;
   

   Náhradný kód

   ...
   
   "Tariff No." := Item."Tariff No.";
   
   //Add the following line.
   "Country/Region of Origin Code" := GetIntrastatCountryCode(Item."Country/Region of Origin Code");
   
   GetItemDescription;
   

2. Zmeňte kód vo funkcii ValidateSourceEntryNo v tabuľke Intrastat Jnl. Line (263) takto:
   Existujúci kód

   ...
   
   Date := VATEntry."Document Date"; 
   
   //Delete the following line.
   "Country/Region Code" := VATEntry."Country/Region Code"; 
   
   "VAT Registration No." := VATEntry."VAT Registration No.";
   ...
   

   Náhradný kód

   ...
   
   Date := VATEntry."Document Date"; 
   
   //Add the following line.
   "Country/Region Code" := GetIntrastatCountryCode(VATEntry."Country/Region Code");
   
   "VAT Registration No." := VATEntry."VAT Registration No.";
   ...
   

3. Vytvorte novú funkciu GetIntrastatCountryCode, ktorá používa typ kódu a dĺžku desať pre vrátenú hodnotu v tabuľke Intrastat Jnl. Line (263). Ak chcete vytvoriť túto funkciu, postupujte podľa týchto krokov:

   1. Pridajte nový lokálny parameter a potom špecifikujte parameter takto:

      • Rozptyľ:Nie
      • Názov: CountryRegionCode (Kód krajinyOblasti)
      • DataType: Code
      • Dĺžka: 10

   2. Pridajte novú lokálnu premennú a zadajte ju nasledovným spôsobom:

      • Názov: KrajinaOblasť
      • DataType: Record
      • Podtyp: Krajina/oblasť

   3. Kód pridajte nasledovne:

      IF CountryRegion.GET(CountryRegionCode) THEN
      EXIT(CountryRegion."Intrastat Code");
      

4. Zmeňte kód vo funkcii InsertItemJnlLine v tabuľke Získať položky účtovnej knihy (594) takto:
   Existujúci kód 1

   ...
   
   WITH IntrastatJnlLine DO BEGIN
   INIT;
   "Line No." := "Line No." + 10000;
   Date := "Item Ledger Entry"."Last Invoice Date";
   
   //Delete the following line.
   "Country/Region Code" := "Item Ledger Entry"."Country/Region Code"; 
   
   "Transaction Type" := "Item Ledger Entry"."Transaction Type";
   ...
   

   Náhradný kód 1

   ...
   
   WITH IntrastatJnlLine DO BEGIN
   INIT;
   "Line No." := "Line No." + 10000;
   Date := "Item Ledger Entry"."Last Invoice Date";
   
   //Add the following line.
   "Country/Region Code" := GetIntrastatCountryCode("Item Ledger Entry"."Country/Region Code");
   
   "Transaction Type" := "Item Ledger Entry"."Transaction Type";
   ...
   

   Existujúci kód 2

   ...
   
   IF SalesShipHeader.GET("Item Ledger Entry"."Document No.") THEN BEGIN
   IF Customer.GET(SalesShipHeader."Bill-to Customer No.") THEN BEGIN 
   "VAT Registration No." := Customer."VAT Registration No.";
   
   //Delete the following line.
   "Country/Region Code" := Customer."Country/Region Code"; 
   
   END;
   END ELSE BEGIN
   SalesSetup.GET;
   IF NOT SalesSetup."Shipment on Invoice" THEN BEGIN
   IF SalesInvHeader.GET("Item Ledger Entry"."Document No.") THEN
   IF Customer.GET(SalesInvHeader."Bill-to Customer No.") THEN BEGIN 
   "VAT Registration No." := Customer."VAT Registration No.";
   
   //Delete the following line.
   "Country/Region Code" := Customer."Country/Region Code";
   
   END;
   END ELSE
   IF SalesCrMemoHeader.GET(ValueEntry."Document No.") THEN
   IF Customer.GET(SalesCrMemoHeader."Bill-to Customer No.") THEN BEGIN
   "VAT Registration No." := Customer."VAT Registration No.";
   
   //Delete the following line.
   "Country/Region Code" := Customer."Country/Region Code";
   
   END;
   END; 
   ...
   

   Náhradný kód 2

   ...
   
   IF SalesShipHeader.GET("Item Ledger Entry"."Document No.") THEN BEGIN
   IF Customer.GET(SalesShipHeader."Bill-to Customer No.") THEN BEGIN 
   "VAT Registration No." := Customer."VAT Registration No.";
   
   //Add the following line.
   "Country/Region Code" := GetIntrastatCountryCode(Customer."Country/Region Code"); 
   
   END;
   END ELSE BEGIN
   SalesSetup.GET;
   IF NOT SalesSetup."Shipment on Invoice" THEN BEGIN
   IF SalesInvHeader.GET("Item Ledger Entry"."Document No.") THEN
   IF Customer.GET(SalesInvHeader."Bill-to Customer No.") THEN BEGIN 
   "VAT Registration No." := Customer."VAT Registration No.";
   
   //Add the following line.
   "Country/Region Code" := GetIntrastatCountryCode(Customer."Country/Region Code"); 
   
   END;
   END ELSE
   IF SalesCrMemoHeader.GET(ValueEntry."Document No.") THEN
   IF Customer.GET(SalesCrMemoHeader."Bill-to Customer No.") THEN BEGIN
   "VAT Registration No." := Customer."VAT Registration No.";
   
   //Add the following line.
   "Country/Region Code" := GetIntrastatCountryCode(Customer."Country/Region Code"); 
   
   END;
   END; 
   ...
   

   Existujúci kód 3

   ...
   
   IF IntrastatJnlBatch.Type = IntrastatJnlBatch.Type :: Purchases THEN BEGIN
   IF (ItemVendor.GET("Item Ledger Entry"."Source No.","Item Ledger Entry"."Item No.","Item Ledger Entry"."Variant Code")) AND
   (ItemVendor."Country/Region of Origin Code" <> '') THEN
   
   //Delete the following line.
   "Country/Region of Origin Code" := ItemVendor."Country/Region of Origin Code"
   
   ELSE
   
   //Delete the following line.
   "Country/Region of Origin Code" := Item."Country/Region of Origin Code";
   
   FindSourceCurrency(
   "Item Ledger Entry"."Source No.","Item Ledger Entry"."Document Date","Item Ledger Entry"."Posting Date");
   END ELSE
   
   //Delete the following line.
   "Country/Region of Origin Code" := Item."Country/Region of Origin Code";
   
   
   "Source Type" := "Source Type"::"Item entry";
   ...
   

   Náhradný kód 3

   ...
   
   IF IntrastatJnlBatch.Type = IntrastatJnlBatch.Type :: Purchases THEN BEGIN
   IF (ItemVendor.GET("Item Ledger Entry"."Source No.","Item Ledger Entry"."Item No.","Item Ledger Entry"."Variant Code")) AND
   (ItemVendor."Country/Region of Origin Code" <> '') THEN
   
   //Add the following line.
   "Country/Region of Origin Code" := GetIntrastatCountryCode(ItemVendor."Country/Region of Origin Code")
   
   ELSE
   
   //Add the following line.
   "Country/Region of Origin Code" := GetIntrastatCountryCode(Item."Country/Region of Origin Code");
   
   FindSourceCurrency(
   "Item Ledger Entry"."Source No.","Item Ledger Entry"."Document Date","Item Ledger Entry"."Posting Date");
   END ELSE
   
   //Add the following line.
   "Country/Region of Origin Code" := GetIntrastatCountryCode(Item."Country/Region of Origin Code");
   
   "Source Type" := "Source Type"::"Item entry";
   ...
   

5. Zmeňte kód vo funkcii InsertJobLedgerLine v tabuľke Získať položky účtovnej knihy (594) takto:
   Existujúci kód

   ...
   
   Date := "Job Ledger Entry"."Posting Date";
   
   //Delete the following line.
   "Country/Region Code" := "Job Ledger Entry"."Country/Region Code";
   
   "Transaction Type" := "Job Ledger Entry"."Transaction Type";
   ...
   

   Náhradný kód

   ...
   
   Date := "Job Ledger Entry"."Posting Date";
   
   //Add the following line.
   "Country/Region Code" := GetIntrastatCountryCode("Job Ledger Entry"."Country/Region Code");
   
   "Transaction Type" := "Job Ledger Entry"."Transaction Type";
   ...
   

Predpoklady

Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovanú taliansku verziu balíka Microsoft Dynamics NAV 5.0 Service Pack 1.

Informácie o odstránení

Túto rýchlu opravu nemožno odstrániť.

Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.

Stav

Poznámka: Toto je článok typu FAST PUBLISH, ktorý bol vytvorený priamo v rámci organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sa poskytujú tak, ako sú, ako odpoveď na vzniknuté problémy. V dôsledku rýchlosti ich sprístupnenia môžu materiály obsahovať typografické chyby a môžu byť kedykoľvek revidované bez predchádzajúceho upozornenia. Ďalšie dôležité informácie nájdete v Podmienkach používania .