Pole "Kod odbiorcy dostawy" jest pusta nieoczekiwanie po uruchomieniu funkcji Pobierz zamówienie sprzedaży na zamówienie specjalne w ramach zamówienia specjalnego zakupu w systemie 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.

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 funtion GetDescriptionAndRcptName w Codeunit ReqJnlManagement (330) w następujący sposób:
   Istniejący kod

   ...ELSE
   Description := '';
   
   // Delete the following lines.
   ReqLine.Type::Item: 
   IF Item.GET(ReqLine."No.") THEN
   Description := Item.Description
   ELSE 
   Description := '';
   // End of the lines.
   
   END;
   END;
   
   IF ReqLine."Vendor No." = '' THEN
   ...
   

   Kod zastępczy

   ...ELSE
   Description := '';
   END;
   END;
   
   IF ReqLine."Vendor No." = '' THEN
   ...
   

2. Dodawanie nowej zmiennej globalnej w ark.-zrobić codeunit zamówienia (333), a następnie określ zmienną w następujący sposób:

   • Nazwa: DropShptSpecialOrderExists

   • Typ danych: Boolean

3. Dodawanie nowej zmiennej lokalnej w funkcji Insertpurchorderlinew w ark.-zrobić codeunit zamówienia (333), a następnie określ zmienną w następujący sposób:

   • Nazwa: SalesHeader

   • Typ danych: rekord

   • Podtyp: Nagłówek sprzedaży

4. Dodawanie nowej zmiennej lokalnej w funkcji Insertpurchorderlinew w ark.-zrobić codeunit zamówienia (333), a następnie określ zmienną w następujący sposób:

   • Nazwa: DropShptSplOrderDiffAddress

   • Typ danych: typu Boolean

5. Zmień kod w funkcji Insertpurchorderlinew w ark.-zrobić codeunit zamówienia (333) w następujący sposób:
   Istniejący kod

   ...WITH ReqLine2 DO BEGIN
   IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
   EXIT;
   
   
   IF (PurchOrderHeader."Buy-from Vendor No." <> "Vendor No.") OR
   (PurchOrderHeader."Sell-to Customer No." <> "Sell-to Customer No.") OR
   (PrevShipToCode <> "Ship-to Code") OR
   (PurchOrderHeader."Order Address Code" <> "Order Address Code") OR
   (PurchOrderHeader."Currency Code" <> "Currency Code") OR
   
   // Delete the following line.
   (PrevPurchCode <> "Purchasing Code")
   
   THEN BEGIN
   ...
   

   Kod zastępczy

   ...WITH ReqLine2 DO BEGIN
   IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
   EXIT;
   
   // Add the following lines.
   DropShptSpecialOrderExists := FALSE; 
   IF SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.") THEN BEGIN 
   DropShptSpecialOrderExists := PurchOrderHeader.DropShptSplOrderExists(SalesHeader); 
   IF DropShptSpecialOrderExists THEN 
   DropShptSplOrderDiffAddress := 
   NOT PurchOrderHeader.CheckAndAddShipToAdd(SalesHeader,FALSE);
   END; 
   // End of the lines.
   
   IF (PurchOrderHeader."Buy-from Vendor No." <> "Vendor No.") OR
   (PurchOrderHeader."Sell-to Customer No." <> "Sell-to Customer No.") OR
   (PrevShipToCode <> "Ship-to Code") OR
   (PurchOrderHeader."Order Address Code" <> "Order Address Code") OR
   (PurchOrderHeader."Currency Code" <> "Currency Code") OR
   
   // Add the following lines.
   (PrevPurchCode <> "Purchasing Code") OR 
   (DropShptSplOrderDiffAddress) 
   // End of the lines.
   
   THEN BEGIN
   ...
   

6. Dodawanie nowej zmiennej lokalnej w funkcji InsertHeader w ark.-zrobić codeunit zamówienia (333), a następnie określ zmienną w następujący sposób:

   • Nazwa: SalesHeader

   • Typ danych: rekordu

   • Podtyp: nagłówka sprzedaży

7. Zmień kod w funkcji InsertHeader w ark.-zrobić codeunit zamówienia (333) w następujący sposób:
   Istniejący kod

   ...PurchOrderHeader.SetShipToForSpecOrder;
   END;
   
   PurchOrderHeader.MODIFY;
   ...
   

   Kod zastępczy

   ...PurchOrderHeader.SetShipToForSpecOrder;
   END;
   
   // Add the following lines.
   IF DropShptSpecialOrderExists THEN BEGIN 
   SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.");
   PurchOrderHeader."Ship-to Name" := SalesHeader."Ship-to Name"; 
   PurchOrderHeader."Ship-to Name 2" := SalesHeader."Ship-to Name 2"; 
   PurchOrderHeader."Ship-to Address" := SalesHeader."Ship-to Address";
   PurchOrderHeader."Ship-to Address 2" := SalesHeader."Ship-to Address 2";
   PurchOrderHeader."Ship-to Post Code" := SalesHeader."Ship-to Post Code";
   PurchOrderHeader."Ship-to City" := SalesHeader."Ship-to City"; 
   PurchOrderHeader."Ship-to Contact" := SalesHeader."Ship-to Contact"; 
   END; 
   // End of the lines.
   
   PurchOrderHeader.MODIFY;
   ...
   

8. Zmień kod w funkcji EnterPurchaseItemCrossRef w codeunit integracji Dist. (5702) w następujący sposób:
   Istniejący kod

   ...IF Found THEN BEGIN
   "Cross-Reference No." := ItemCrossReference."Cross-Reference No.";
   "Unit of Measure (Cross Ref.)" := ItemCrossReference."Unit of Measure";
   "Cross-Reference Type" := ItemCrossReference."Cross-Reference Type";
   "Cross-Reference Type No." := ItemCrossReference."Cross-Reference Type No.";
   
   // Delete the following lines.
   IF ItemCrossReference.Description <> '' THEN BEGIN 
   Description := ItemCrossReference.Description;
   "Description 2" := '';
   END;
   // End of the lines.
   
   END ELSE BEGIN
   "Cross-Reference No." := '';
   "Cross-Reference Type" := "Cross-Reference Type"::" ";
   "Cross-Reference Type No." := '';
   
   // Delete the following lines.
   IF "Variant Code" <> '' THEN BEGIN 
   ItemVariant.GET("No.","Variant Code");
   Description := ItemVariant.Description;
   "Description 2" := ItemVariant."Description 2";
   END ELSE BEGIN
   Item.GET("No."); 
   Description := Item.Description;
   "Description 2" := Item."Description 2";
   END; 
   // End of the lines.
   
   GetItemTranslation;
   ...
   

   Kod zastępczy

   ...IF Found THEN BEGIN
   "Cross-Reference No." := ItemCrossReference."Cross-Reference No.";
   "Unit of Measure (Cross Ref.)" := ItemCrossReference."Unit of Measure";
   "Cross-Reference Type" := ItemCrossReference."Cross-Reference Type";
   "Cross-Reference Type No." := ItemCrossReference."Cross-Reference Type No.";
   END ELSE BEGIN
   "Cross-Reference No." := '';
   "Cross-Reference Type" := "Cross-Reference Type"::" ";
   "Cross-Reference Type No." := '';
   GetItemTranslation;
   ...
   

9. Zmień kod w funkcji GetSpecialOrders w codeunit integracji Dist. (5702) w następujący sposób:
   Istniejący kod

   ...TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
   TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
   
   // Delete the following line.
   PurchHeader.SetShipToForSpecOrder;
   
   PurchLine.LOCKTABLE;
   ...
   

   Kod zastępczy

   ...TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
   TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
   
   // Add the following lines.
   IF DropShptSplOrderExists(SalesHeader) THEN 
   CheckAndAddShipToAdd(SalesHeader,TRUE);
   // End of the lines.
   
   PurchLine.LOCKTABLE;
   ...
   

10. Zmień kod w funkcji TransfldsFromSalesToPurchLine w codeunit Zarz dokumentu kopii (6620) w następujący sposób:
    Istniejący kod

    ...VALIDATE("Direct Unit Cost");
    END;
    ...
    

    Kod zastępczy

    ...VALIDATE("Direct Unit Cost");
    
    // Add the following lines.
    Description := FromSalesLine.Description;
    "Description 2" := FromSalesLine."Description 2";
    // End of the lines.
    
    END;
    ...
    

11. Zmień kod w Kod zam.-Pobierz codeunit wydania Drop (76) w następujący sposób:
    Istniejący kod 1

    ...TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
    
    PurchLine.LOCKTABLE;
    ...
    

    Kod zastępczy 1

    ...TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
    
    // Add the following line.
    IF DropShptSplOrderExists(SalesHeader) THEN 
    CheckAndAddShipToAdd(SalesHeader,TRUE); 
    // End of the lines.
    
    PurchLine.LOCKTABLE;
    ...
    

    Istniejący kod 2

    ...CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
    PurchLine.Description := SalesLine.Description;
    PurchLine."Sales Order No." := SalesLine."Document No.";
    ...
    

    Kod zastępczy 2

    ...CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
    PurchLine.Description := SalesLine.Description;
    
    // Add the following line.
    PurchLine."Description 2" := SalesLine."Description 2";
    
    PurchLine."Sales Order No." := SalesLine."Document No.";
    ...
    

12. Zmień kod w InsertReqWkshLine w raporcie Pobierz zamówienia sprzedaży (698) w następujący sposób:
    Istniejący kod

    ..."Sell-to Customer No." := SalesLine."Sell-to Customer No.";
    SalesHeader.GET(1,SalesLine."Document No.");
    IF SpecOrder <> 1 THEN
    ...
    

    Kod zastępczy

    ..."Sell-to Customer No." := SalesLine."Sell-to Customer No.";
    
    // Add the following lines.
    Description := SalesLine.Description;
    "Description 2" := SalesLine."Description 2";
    // End of the lines.
    
    SalesHeader.GET(1,SalesLine."Document No.");
    IF SpecOrder <> 1 THEN
    ...
    

13. Dodawanie nowej zmiennej globalnej w tabeli Nagłówek zakupu (38), a następnie określ zmienną w następujący sposób:

    • Nazwa: NameAddressDetails

    • Typ danych: tekst

    • Długość: 512

14. Dodawanie nowej zmiennej globalnej w tabeli Nagłówek zakupu (38), a następnie określ zmienną w następujący sposób:

    • Nazwa: NameAddressDetails2

    • Typ danych: tekstu

    • Długość: 512

15. Dodaj nową stałą tekstu w tabeli Nagłówek zakupu (38), a następnie określ stałą tekstową w następujący sposób:

    • Nazwa: Text051

    • ConstValue: pola %1 w zamówieniu zakupu %2 musi być taka sama jak na sprzedaż zamówienia %3.

16. Utwórz nową funkcję CheckAndAddShipToAdd w tabeli Nagłówek zakupu (38). Aby to zrobić, wykonaj następujące kroki:

    1. Dodaj nowy parametr lokalnych w funkcji CheckAndAddShipToAdd w tabeli Nagłówek zakupu (38), a następnie określ parametr w następujący sposób:

       • Var: No

       • Nazwa: SalesHeader

       • Typ danych: rekord

       • Podtyp: Nagłówek sprzedaży

    2. Dodaj nowy parametr lokalnych w funkcji CheckAndAddShipToAdd w tabeli Nagłówek zakupu (38), a następnie określ parametr w następujący sposób:

       • Var: No

       • Nazwa: ShowError

       • Typ danych: Boolean

    3. Dodaj wartość zwracana w funkcji CheckAndAddShipToAdd w tabeli Nagłówek zakupu (38), a następnie określ wartość zwracana w następujący sposób:

       • Zwracany typ: Boolean

    4. Dodawanie nowej zmiennej lokalnej w funkcji CheckAndAddShipToAdd w tabeli Nagłówek zakupu (38), a następnie określ zmienną w następujący sposób:

       • Nazwa: PurchLine2

       • Typ danych: rekord

       • Podtyp: PurchLine2

    5. Dodaj poniższy kod w funkcji CheckAndAddShipToAdd w tabeli Nagłówek zakupu (38):

       IF ShowError THEN BEGINPurchLine2.RESET;
       PurchLine2.SETRANGE("Document Type","Document Type"::Order);
       PurchLine2.SETRANGE("Document No.","No.");
       IF NOT PurchLine2.ISEMPTY THEN BEGIN
       IF "Ship-to Name" <> SalesHeader."Ship-to Name" THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Name"),"No.",SalesHeader."No.");
       IF "Ship-to Name 2" <> SalesHeader."Ship-to Name 2" THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Name 2"),"No.",SalesHeader."No.");
       IF ("Ship-to Address" <> SalesHeader."Ship-to Address") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Address"),"No.",SalesHeader."No.");
       IF ("Ship-to Address 2" <> SalesHeader."Ship-to Address 2") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Address 2"),"No.",SalesHeader."No.");
       IF ("Ship-to Post Code" <> SalesHeader."Ship-to Post Code") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Post Code"),"No.",SalesHeader."No.");
       IF ("Ship-to City" <> SalesHeader."Ship-to City") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to City"),"No.",SalesHeader."No.");
       IF ("Ship-to Contact" <> SalesHeader."Ship-to Contact") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Contact"),"No.",SalesHeader."No.");
       END ELSE BEGIN
       // no purchase line exists
       "Ship-to Name" := SalesHeader."Ship-to Name";
       "Ship-to Name 2" := SalesHeader."Ship-to Name 2";
       "Ship-to Address" := SalesHeader."Ship-to Address";
       "Ship-to Address 2" := SalesHeader."Ship-to Address 2";
       "Ship-to Post Code" := SalesHeader."Ship-to Post Code";
       "Ship-to City" := SalesHeader."Ship-to City";
       "Ship-to Contact" := SalesHeader."Ship-to Contact";
       END;
       END ELSE BEGIN
       NameAddressDetails :=
       SalesHeader."Ship-to Name" + SalesHeader."Ship-to Name 2" +
       SalesHeader."Ship-to Address" + SalesHeader."Ship-to Address 2" +
       SalesHeader."Ship-to Post Code" + SalesHeader."Ship-to City" +
       SalesHeader."Ship-to Contact";
       IF NameAddressDetails2 = '' THEN
       NameAddressDetails2 := NameAddressDetails;
       EXIT(NameAddressDetails2 = NameAddressDetails);
       END;
       

17. Utwórz nową funkcję DropShptSplOrderExists w tabeli Nagłówek zakupu (38). Aby to zrobić, wykonaj następujące kroki:

    1. Dodaj nowy parametr lokalnych w funkcji DropShptSplOrderExists w tabeli Nagłówek zakupu (38), a następnie określ parametr w następujący sposób:

       • Var: No

       • Nazwa: SalesHeader

       • Typ danych: rekord

       • Podtyp: Nagłówek sprzedaży

    2. Dodaj typ wartości zwracanej w funkcji DropShptSplOrderExists w tabeli Nagłówek zakupu (38), a następnie określ wartość zwracana w następujący sposób:

       • Zwracany typ: Boolean

    3. Dodawanie nowej zmiennej lokalnej w funkcji DropShptSplOrderExists w tabeli Nagłówek zakupu (38), a następnie określ zmienną w następujący sposób:

       • Nazwa: SalesLine2

       • Typ danych: rekord

       • Podtyp: Wiersz sprzedaży

    4. Dodaj poniższy kod w funkcji DropShptSplOrderExists w tabeli Nagłówek zakupu (38):

       // returns TRUE if sales is either Drop Shipment of Special OrderSalesLine2.RESET;
       SalesLine2.SETRANGE("Document Type",SalesLine2."Document Type"::Order);
       SalesLine2.SETRANGE("Document No.",SalesHeader."No.");
       SalesLine2.SETRANGE("Drop Shipment",TRUE);
       IF NOT SalesLine2.ISEMPTY THEN
       EXIT(TRUE);
       
       SalesLine2.SETRANGE("Drop Shipment");
       SalesLine2.SETRANGE("Special Order",TRUE);
       EXIT(NOT SalesLine2.ISEMPTY);