Câmpul "cod pentru" este goală în mod neașteptat după ce executați funcția obțineți comandă pentru o comandă specială într-o ordine de cumpărare speciale în Microsoft Dynamics NAV 2009

Informații despre remedierea rapidă

Un hotfix acceptat este acum disponibil de la Microsoft. Cu toate acestea, acesta este destinat numai corectării problemei descrise în acest articol. Aplicați-o numai pe sistemele care întâmpină această problemă anume. Această remediere rapidă poate să necesite testare suplimentară. De aceea, dacă nu sunteți grav afectat de această problemă, vă recomandăm să așteptați următorul pachet service pack Microsoft Dynamics NAV 2009 sau versiunea Microsoft Dynamics NAV următoare, care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru asistență apeluri pot fi anulate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produse asociate stabilește că o anumită actualizare va rezolva problema. Se vor aplica costurile uzuale de asistenţă pentru întrebări suplimentare de asistenţă şi pentru probleme ce nu fac obiectul actualizării în cauză.

Modificări de cod

Notă Întotdeauna de testare codul remediază într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție.
Pentru a rezolva această problemă, urmați acești pași:

1. Modificați codul din funtion GetDescriptionAndRcptName în în codeunit ReqJnlManagement (330) după cum urmează:
   Cod existent

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

   Cod de înlocuire

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

2. Adăugați o nouă variabilă globală în aprov Sugerare.-face ordine codeunit (333), și apoi specificați variabila după cum urmează:

   • Nume: DropShptSpecialOrderExists

   • Tip de date: Boolean

3. Adăugați o nouă variabilă locală în funcția InsertPurchOrderLine în aprov Sugerare.-face ordine codeunit (333), și apoi specificați variabila după cum urmează:

   • Nume: SalesHeader

   • Tip de date: înregistrare

   • Subtip: antetul de vânzări

4. Adăugați o variabilă locale nou în funcția InsertPurchOrderLine în aprov Sugerare.-face ordine codeunit (333), și apoi specificați variabila după cum urmează:

   • Nume: DropShptSplOrderDiffAddress

   • Tip de date: Boolean

5. Modificați codul din funcția InsertPurchOrderLine în aprov Sugerare.-face ordine codeunit (333) după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...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. Adăugați o variabilă locale nou în funcția InsertHeader în aprov Sugerare.-face ordine codeunit (333), și apoi specificați variabila după cum urmează:

   • Nume: SalesHeader

   • Tip de date: înregistrare

   • Subtip: antet de vânzări

7. Modificați codul din funcția InsertHeader în aprov Sugerare.-face ordine codeunit (333) după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...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. Modificați codul din funcția EnterPurchaseItemCrossRef în codeunit Dist. integrare (5702) după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...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. Modificați codul din funcția GetSpecialOrders în codeunit Dist. integrare (5702) după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...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. Modificați codul din funcția TransfldsFromSalesToPurchLine în codeunit copia documentului Mgt. (6620) după cum urmează:
    Cod existent

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

    Cod de înlocuire

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

11. Modificați codul din cod în cump.-obțineți codeunit Drop livrare (76) după cum urmează:
    Cod existent 1

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

    Înlocuirea cod 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;
    ...
    

    Cod existent 2

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

    Înlocuirea cod 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. Modificați codul din InsertReqWkshLine din raportul de comenzi vânzări obțineți (698) după cum urmează:
    Cod existent

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

    Cod de înlocuire

    ..."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. Adăugați o nouă variabilă globală în antetul de cumpărare tabel (38) și apoi specificați variabila după cum urmează:

    • Nume: NameAddressDetails

    • Tip de date: Text

    • Lungime: 512

14. Adăugați o nouă variabilă globală în tabelul de antet de cumpărare (38) și apoi specificați variabila după cum urmează:

    • Nume: NameAddressDetails2

    • Tip de date: Text

    • Lungime: 512

15. Adăugați o nouă constantă de text în antetul de cumpărare tabel (38) și apoi specificați Constanta text după cum urmează:

    • Nume: Text051

    • ConstValue: câmpul %1 %2 comanda de cumpărare trebuie să fie la fel ca pe vânzări comanda %3.

16. Creați o nouă funcție CheckAndAddShipToAdd în tabelul de antet de cumpărare (38). Pentru a face acest lucru, urmați acești pași:

    1. Adăugați un parametru nou local în funcția CheckAndAddShipToAdd în tabelul de cumpărare antet (38) și apoi specificați parametrul după cum urmează:

       • Var: No

       • Nume: SalesHeader

       • Tip de date: înregistrare

       • Subtip: antetul de vânzări

    2. Adăugați un parametru nou local în funcția CheckAndAddShipToAdd în tabelul de antet de cumpărare (38) și apoi specificați parametrul după cum urmează:

       • Var: No

       • Nume: ShowError

       • Tip de date: Boolean

    3. Adăugați o valoare returnată în funcția CheckAndAddShipToAdd în tabelul de antet de cumpărare (38) și apoi Specificați valoarea returnată după cum urmează:

       • Return tip: Boolean

    4. Adăugați o nouă variabilă locală în funcţie de CheckAndAddShipToAdd în tabelul de antet de cumpărare (38) și apoi specificați variabila după cum urmează:

       • Nume: PurchLine2

       • Tip de date: înregistrare

       • Subtip: PurchLine2

    5. Adăugaţi următorul cod în funcția CheckAndAddShipToAdd în tabelul de antet de cumpărare (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. Creați o nouă funcție DropShptSplOrderExists în tabelul de cumpărare antet (38). Pentru a face acest lucru, urmați acești pași:

    1. Adăugați un parametru nou local în funcția DropShptSplOrderExists în tabelul de antet de cumpărare (38) și apoi specificați parametrul după cum urmează:

       • Var: No

       • Nume: SalesHeader

       • Tip de date: înregistrare

       • Subtip: antetul de vânzări

    2. Adăugați o valoare de tip în funcția DropShptSplOrderExists în tabelul de antet de cumpărare (38) și apoi Specificați valoarea returnată după cum urmează:

       • Return tip: Boolean

    3. Adăugați o nouă variabilă locală în funcţie de DropShptSplOrderExists în tabelul de antet de cumpărare (38) și apoi specificați variabila după cum urmează:

       • Nume: SalesLine2

       • Tip de date: înregistrare

       • Subtip: linie de vânzări

    4. Adăugaţi următorul cod în funcția DropShptSplOrderExists în tabelul de antet de cumpărare (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);