Šablonas: CPR - Navision kodas Fiacx šablonas

BUG #: 211397 (turinio priežiūra)

Intrastat pranešė, kad vyriausybė ir turėtų būti rodomas nuo kraštinės, o tai reiškia operacijas iš Danijos įmonę ir iš kitų šalių (kiekis) operacijas. Tai reiškia, kad apie elementą prekiaujama, pavyzdžiui, Vokietijoje, sausio, operacija turi jokiomis aplinkybėmis įtraukta Intrastat žurnalo vasario.

Operaciją įtraukiami tik vieną kartą, net jei operacijos vertės eina aukštyn arba žemyn, nes papildomas prekės išlaidas. Šiuo metu taip pat mėnuo, kai registruojamas prekių išlaidas sukuriamas naujas intrastat žurnalo eilutę.

Ši problema iškyla faile šiems produktams:

  • Danų kalba Microsoft Dynamics NAV 2009 R2

  • Danų kalba Microsoft Dynamics NAV 2009 1 pakeitimų paketas (SP1)

Sprendimas

Karštųjų pataisų informacija

Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.

Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.

Jei šios karštosios pataisos nepaskelbtos kaip viešai prieinamos (tai reiškia, viešasis URL šios karštosios pataisos yra suteikta šiame straipsnyje), norint platinti reikia techninio vadovo, problemų sprendimo komandos nario ar vadovo patvirtinimo ir taikoma toliau pateikta informacija:

  • Norėdami gauti karštąją pataisą, klientai turi patirti klaidų, paminėtam skyriuje "Požymiai".

  • Turite stebėti klientus, kuriems siunčiate karštąsias pataisas ir pateikti jiems kitą pakeitimų paketą, kai tik jis bus išleistas (jei pakeitimų paketas bus išleistas).

Šios karštosios pataisos nėra planuojama įtraukti į Microsoft Dynamics NAV pakeitimų paketą.

Diegimo informacija

Microsoft pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.

Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima Microsoft Dynamics NAV programų serverio (NAS) paslaugas. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.

Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.

Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskirti "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:

  • Keisti teisės objektas, kuris bus pakeisti.

  • Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015

    objekto.

Pastaba. Jūs neturite turėti teisių į duomenų parduotuvių, nebent jūs turite atlikti duomenų atkūrimo.

Pastaba.

Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.

Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

  1. Pakeisti gauti prekės knygos įrašus ataskaita (594) kodą taip:
    Esamas kodas 1

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

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

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

    Atsarginis kodas 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;
    ...

    Esamas kodas 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;
    ...

    Atsarginis kodas 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. Pakeisti CheckILE funkcija – gauti prekės knygos įrašus ataskaita (594) kodą taip:
    Esamas kodas 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
    ...

    Atsarginis kodas 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
    ...

    Esamas kodas 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
    ...

    Atsarginis kodas 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
    ...

    Esamas kodas 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;
    ...

    Pakeitimo kodas 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. Pakeisti TestILE funkcija – gauti prekės knygos įrašus ataskaita (594) kodą taip:
    Esamas kodas 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.");
    ...

    Atsarginis kodas 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.");
    ...

    Esamas kodas 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
    ...

    Atsarginis kodas 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
    ...

    Esamas kodas 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
    ...

    Pakeitimo kodas 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
    ...

    Esamas kodas 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");
    ...

    Pakeitimo kodekso 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");
    ...

    Esamas kodas 5

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

    Pakeitimo kodas 5

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

    Esamas kodas 6

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

    Pakeitimo kodas 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
    ...

    Esamas kodas 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;
    ...

    Pakeitimo kodas 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. Pakeisti HasCrossedBorder funkcija – gauti prekės knygos įrašus ataskaita (594) kodą taip:
    Esamas kodas

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

    Pastaba.

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

    PROCEDURE InsertValueEntryLine@6();...


Būtinosios sąlygos

Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:

  • Danų kalba Microsoft Dynamics NAV 2009 R2

  • Danijos versiją iš "Microsoft Dynamics NAV 2009 SP1"

Pašalinimo informacija

Jūs negalite pašalinti šias karštąsias pataisas.

Būsena

„Microsoft“ patvirtino, kad tai yra „Microsoft“ produktų, išvardytų skyriuje „Taikoma“, problema.

Nuorodos

VSFT DynamicsNAVSE: 360064

Pastaba. Tai yra "GREITAI PUBLIKUOJAMAS" straipsnis, sukurtas tiesiogiai Microsoft palaikymo tarnybos. Čia pateikta informacija yra atsakas į kylančius klausimus. Dėl greito publikavimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrima bet kuriuo metu be įspėjimo. Naudojimoieškokite kitų priežasčių.

Autorius: avannini
Writer: v-six
Techninis redaktorius: avannini
Editor:

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Ar esate patenkinti vertimo kokybe?
Kas turėjo įtakos jūsų patirčiai?

Dėkojame už jūsų atsiliepimus!

×