Intrastat jest zgłaszane do rządu i wyświetlać transakcje (ilość), które są realizowane między granicami, które oznaczają transakcje z firmy w Danii do i z innych krajów. Oznacza to, że zgłasza, że element jest na przykład obrocie, Niemcy, w styczniu, transakcji w żadnych okolicznościach wykazuje się w dzienniku Intrastat dla lutego.
Transakcja tylko należy uwzględnić jeden raz, nawet jeśli wartość transakcji rośnie lub maleje, ze względu na koszt dodatkowy. Obecnie również dla miesiąca, kiedy jest zarejestrowany koszt dodatkowy nowy wiersz dziennika intrastat jest tworzony.
Ten problem występuje w następujących produktach:
-
Duńskiej wersji systemu Microsoft Dynamics NAV 2009 R2
-
Duńskiej wersji z dodatkiem Service Pack 1 (SP1) dla systemu Microsoft Dynamics NAV 2009
Rozwiązanie
Informacje o poprawce
Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.
Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.
Informacje dotyczące instalacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.
Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.
Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.
Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
-
Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
-
Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i 9015 identyfikator obiektu systemu
obiekt.
Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.
Zmiany kodu
Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:
-
Zmień kod w raporcie Pobierz zap (594) w następujący sposób:
Istniejący kod 1...IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
// Delete the following line.
TestILE("Item Ledger Entry");
// End of the deleted line.
TotalInvoicedQty := 0;
TotalAmt := 0;
...Kod zastępczy 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;
...Istniejący kod 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;
...Kod zastępczy 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;
... -
Zmień kod w funkcji CheckILE w raporcie Pobierz zap (594) w następujący sposób:
Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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;
...Kod zastępczy 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;
... -
Zmień kod w funkcji TestILE w raporcie Pobierz zap (594) w następujący sposób:
Istniejący kod 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.");
...Kod zastępczy 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.");
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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");
...Kod zastępczy 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");
...Istniejący kod 5
...Include := TRUE;
UNTIL Include OR (ItemLedgEntry2.NEXT = 0);
IF NOT Include THEN
CurrReport.SKIP;
END;
END;
"Location Code" <> '':
...Kod zastępczy 5
...Include := TRUE;
UNTIL Include OR (ItemLedgEntry2.NEXT = 0);
IF NOT Include THEN
EXIT(FALSE);
END;
END;
"Location Code" <> '':
...Istniejący kod 6
..."Location Code" <> '':
BEGIN
Location.GET("Location Code");
CheckILE(Location."Country/Region Code");
END;
ELSE BEGIN
IF "Entry Type" = "Entry Type"::Purchase THEN
...Kod zastępczy 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
...Istniejący kod 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;
...Kod zastępczy 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;
... -
Zmień kod w funkcji Hascrossedborderw w raporcie Pobierz zap (594) w następujący sposób:
Istniejący kod...END;
END;
END;
END;
...Kod zastępczy
...END;
END;
END;
EXIT(TRUE)
END;
PROCEDURE InsertValueEntryLine@6();...
Wymagania wstępne
Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
-
Duńskiej wersji systemu Microsoft Dynamics NAV 2009 R2
-
Duńskiej wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Informacje dotyczące usuwania
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowaniadla innych względów.
