"" 0"nie jest prawidłową wartością" błąd, gdy zmiana typu partnera na 0 w holenderskiej wersji programu Microsoft Dynamics NAV 2009

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:

1. Zmień kod w funkcji CheckTransModePartnerType w tabeli tryb transakcji (11000004) w następujący sposób:
   Istniejący kod

   ...END;
   END;
   
   // Delete the following lines.
   PROCEDURE CheckTransModePartnerType@1000001(TransactionModeCode@1000001 : Code[20];PartnerType@1000002 : ' ,Company,Person') : Boolean;
   VAR
   TransationMode@1000000 : Record 11000004;
   BEGIN
   IF TransactionModeCode <> '' THEN BEGIN
   // End of the deleted lines.
   
   SETRANGE(Code,TransactionModeCode);
   FINDFIRST;
   IF PartnerType <> "Partner Type" THEN
   ...
   

   Kod zastępczy

   ...END;
   END;
   
   // Add the following lines.
   PROCEDURE CheckTransModePartnerType@1000001(AccountType@1000003 : 'Customer,Vendor';TransactionModeCode@1000001 : Code[20];PartnerType@1000002 : ' ,Company,Person') : Boolean;
   VAR
   TransationMode@1000000 : Record 11000004;
   BEGIN
   IF TransactionModeCode <> '' THEN BEGIN
   SETRANGE("Account Type",AccountType);
   // End of the added lines.
   
   SETRANGE(Code,TransactionModeCode);
   FINDFIRST;
   IF PartnerType <> "Partner Type" THEN
   ...
   

2. Zmień kod w właściwości w tabeli Nabywca (18) w następujący sposób:
   Istniejący kod 1

   ...END;
   
   OnModify=VAR
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   "Last Date Modified" := TODAY;
   ...
   

   Kod zastępczy 1

   ...END;
   
   OnModify=VAR
   
   // Add the following line.
   AccountType@1000001 : 'Customer,Vendor';
   // End of the added line.
   
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   "Last Date Modified" := TODAY;
   ...
   

   Istniejący kod 2

   ...(Contact <> xRec.Contact) OR
   ("Partner Type" <> xRec."Partner Type")
   THEN BEGIN
   
   // Delete the following line.
   IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
   // End of the deleted line.
   
   ERROR(PartnerTypeMismatchErr);
   MODIFY;
   UpdateContFromCust.OnModify(Rec);
   ...
   

   Kod zastępczy 2

   ...(Contact <> xRec.Contact) OR
   ("Partner Type" <> xRec."Partner Type")
   THEN BEGIN
   
   // Add the following line.
   IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Customer,"Transaction Mode Code","Partner Type") THEN
   // End of the added line.
   
   ERROR(PartnerTypeMismatchErr);
   MODIFY;
   UpdateContFromCust.OnModify(Rec);
   ... 
   

3. Zmień kod w pól w tabeli Nabywca (18) w następujący sposób:
   Istniejący kod

   ...CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),
   Sell-to Customer No.=FIELD(No.))) }
   { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR
   
   // Delete the following lines.
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
   // End of the deleted lines.
   
   IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
   ERROR('')
   END;
   ...
   

   Kod zastępczy

   ...CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),
   Sell-to Customer No.=FIELD(No.))) }
   { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR
   
   // Add the following lines.
   AccountType@1000001 : 'Customer,Vendor';
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Customer,"Transaction Mode Code","Partner Type") THEN
   // End of the added lines.                                                             
   
   IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
   ERROR('')
   END;
   ...
   

4. Zmień kod w właściwości w tabeli Dostawca (23) w następujący sposób:
   Istniejący kod 1

   ...END;
   
   OnModify=VAR
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   "Last Date Modified" := TODAY;
   ...
   

   Kod zastępczy 1

   ...END;
   
   OnModify=VAR
   
   // Add the following line.
   AccountType@1000001 : 'Customer,Vendor';
   // End of the added line.
   
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   "Last Date Modified" := TODAY;
   ...
   

   Istniejący kod 2

   ...("Home Page" <> xRec."Home Page") OR
   ("Partner Type" <> xRec."Partner Type")
   THEN BEGIN
   
   // Delete the following line.
   IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
   // End of the deleted line.
   
   ERROR(PartnerTypeMismatchErr);
   MODIFY;
   UpdateContFromVend.OnModify(Rec);
   ...
   

   Kod zastępczy 2

   ...("Home Page" <> xRec."Home Page") OR
   ("Partner Type" <> xRec."Partner Type")
   THEN BEGIN
   
   // Add the following line.
   IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
   // End of the added line.
   
   ERROR(PartnerTypeMismatchErr);
   MODIFY;
   UpdateContFromVend.OnModify(Rec);
   ...
   

5. Zmień kod w pól w tabeli Dostawca (23) w następujący sposób:
   Istniejący kod

   ...CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
   Buy-from Vendor No.=FIELD(No.))) }
   { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR
   
   // Delete the following lines.
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
   IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
   ERROR('')
   END;
   
   OptionString=,Company,Person }
   // End of the deleted lines.
   
   { 5049;   ;Primary Contact No. ;Code20        ;TableRelation=Contact;
   OnValidate=VAR
   Cont@1001 : Record 5050;
   ...
   

   Kod zastępczy

   ...CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
   Buy-from Vendor No.=FIELD(No.))) }
   { 132 ;   ;Partner Type        ;Option        ;OnValidate=VAR
   
   // Add the following lines.
   AccountType@1000001 : 'Customer,Vendor';
   TransactionMode@1000000 : Record 11000004;
   BEGIN
   IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
   IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
   ERROR('')
   END;
   
   OptionString=[ ,Company,Person] }
   // End of the added lines.
   
   { 5049;   ;Primary Contact No. ;Code20        ;TableRelation=Contact;
   OnValidate=VAR
   Cont@1001 : Record 5050;
   ...
   
   
   

Wymagania wstępne

Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:

• Holenderskiej wersji programu Microsoft Dynamics NAV 2009 R2

• Holenderskiej wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009

Ponadto musisz mieć najnowszą wersję SEPA, MSDNAV2009sp1SEPANLdebitzainstalowany.

Informacje dotyczące usuwania

Nie można usunąć tej poprawki.