"Nosūtīšanas kods" ir tukšs negaidīti pēc īpašas pirkšanas pasūtījuma Microsoft Dynamics NAV 2009 funkcija iegūt pārdošanas pasūtījumu Īpašs pasūtījums

Informācija par labojumfailu

Pašlaik korporācija Microsoft piedāvā atbalstītu labojumfailu. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Izmantojiet to tikai tām sistēmām, kurām ir radusies tieši šī problēma. Iespējams, tiks veikta šī labojumfaila papildu testēšana. Tādēļ, ja jums ir šī problēma nerada nopietnus traucējumus, ieteicams nogaidīt, līdz tiks izlaista nākamā servisa pakotne Microsoft Dynamics NAV 2009 vai nākamo Microsoft Dynamics NAV versiju, kurā ir iekļauts šis labojumfails.

Piezīme. Īpašos gadījumos standarta izmaksas par atbalsta zvaniem nav jāsedz, ja tehniskā atbalsta speciālists Microsoft Dynamics un saistītiem produktiem nosaka, ka šo problēmu novērsīs noteikts atjauninājums. Parasti atbalsta izmaksas tiek piemērotas jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

Koda izmaiņas

Piezīme. Vienmēr pārbaudes kods novērš kontrolētā vidē pirms lietojat datoru ražošanas labojumus.
Lai novērstu šo problēmu, rīkojieties šādi:

1. Nomainiet šo kodu, GetDescriptionAndRcptName funkcija, ReqJnlManagement koda (330) šādi:
   Kods

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

   Aizstāšanas kodu

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

2. Pievienojiet jaunu globālo mainīgo, pieprasījumu Pārd.-veikt pasūtījumu koda (333) un pēc tam norādiet Mainīgais šādi:

   • Nosaukums: DropShptSpecialOrderExists

   • Datu tips: Būla

3. Pievienojiet jaunu lokālo mainīgo funkciju InsertPurchOrderLine , pieprasījumu Pārd.-veikt pasūtījumu koda (333) un pēc tam norādiet Mainīgais šādi:

   • Nosaukums: SalesHeader

   • Datu tips: ieraksts

   • Apakštips: pārdošanas virsraksta

4. Pievienojiet jaunu lokālo mainīgo funkciju InsertPurchOrderLine , pieprasījumu Pārd.-veikt pasūtījumu koda (333) un pēc tam norādiet Mainīgais šādi:

   • Nosaukums: DropShptSplOrderDiffAddress

   • Datu tips: Būla

5. Nomainiet šo kodu funkciju InsertPurchOrderLine , pieprasījumu Pārd.-veikt pasūtījumu koda (333) šādi:
   Kods

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

   Aizstāšanas kodu

   ...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. Pievienojiet jaunu lokālo mainīgo funkciju InsertHeader , pieprasījumu Pārd.-veikt pasūtījumu koda (333) un pēc tam norādiet Mainīgais šādi:

   • Nosaukums: SalesHeader

   • Datu tips: ieraksts

   • Apakštips: pārdošanas virsraksta

7. Nomainiet šo kodu funkciju InsertHeader , pieprasījumu Pārd.-veikt pasūtījumu koda (333) šādi:
   Kods

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

   Aizstāšanas kodu

   ...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. Nomainiet šo kodu koda Dist. integrācija (5702) EnterPurchaseItemCrossRef funkciju šādi:
   Kods

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

   Aizstāšanas kodu

   ...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. Nomainiet šo kodu koda Dist. integrācija (5702) GetSpecialOrders funkciju šādi:
   Kods

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

   Aizstāšanas kodu

   ...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. Nomainiet šo kodu TransfldsFromSalesToPurchLine funkciju Kopēt dokumentu Mgt. koda (6620) šādi:
    Kods

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

    Aizstāšanas kodu

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

11. Nomainiet šo kodu kodu pirkšanas.-Drop Shpt. koda (76) iegūt šādi:
    Kods 1

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

    Aizstāšanas kods = 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;
    ...
    

    Kods 2.

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

    Aizstāšanas kods 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. Nomainiet šo kodu InsertReqWkshLine iegūt pārdošanas pasūtījumu ziņojumā (698), šādi:
    Kods

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

    Aizstāšanas kodu

    ..."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. Pievienojiet jaunu globālo mainīgo pārdošanas virsraksta tabulā (38) un pēc tam norādiet Mainīgais šādi:

    • Nosaukums: NameAddressDetails

    • Datu tips: teksts

    • Length: 512

14. Pievienojiet jaunu globālu mainīgo pārdošanas virsraksta tabulā (38) un pēc tam norādiet Mainīgais šādi:

    • Vārds: NameAddressDetails2

    • Datu tips: teksts

    • Length: 512

15. Pievienojiet jaunu teksta konstante pārdošanas virsraksta tabulā (38) un pēc tam norādiet teksta konstante šādi:

    • Nosaukums: Text051

    • ConstValue: lauku %1 %2 pirkšanas pasūtījumā jābūt tāpat kā pārdošanas pasūtījumu %3.

16. Izveidojiet jaunu CheckAndAddShipToAdd funkciju tabulā pārdošanas virsraksta (38). Lai to izdarītu, izpildiet tālāk norādītās darbības.

    1. Pievienojiet jaunu lokālo parametru funkciju CheckAndAddShipToAdd pārdošanas virsraksta tabulā (38) un pēc tam norādiet parametru šādi:

       • Var: No

       • Nosaukums: SalesHeader

       • Datu tips: ieraksts

       • Apakštips: pārdošanas virsraksta

    2. Pievienojiet jaunu lokālo parametru CheckAndAddShipToAdd funkcija pārdošanas virsraksta tabulā (38) un pēc tam norādiet parametru šādi:

       • Var: No

       • Nosaukums: ShowError

       • Datu tips: Būla

    3. Pievienot atgriešanas vērtības funkciju CheckAndAddShipToAdd pārdošanas virsraksta tabulā (38) un pēc tam norādiet vērtību šādi:

       • Atgriezties tips: Būla

    4. Pievienojiet jaunu lokālo mainīgo funkciju CheckAndAddShipToAdd pārdošanas virsraksta tabulā (38) un pēc tam norādiet Mainīgais šādi:

       • Nosaukums: PurchLine2

       • Datu tips: ieraksts

       • Apakštips: PurchLine2

    5. CheckAndAddShipToAdd funkcija pārdošanas virsraksta tabulā (38) pievienojiet šādu kodu:

       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. Izveidojiet jaunu DropShptSplOrderExists funkciju tabulā pārdošanas virsraksta (38). Lai to izdarītu, izpildiet tālāk norādītās darbības.

    1. Pievienojiet jaunu lokālo parametru funkciju DropShptSplOrderExists pārdošanas virsraksta tabulā (38) un pēc tam norādiet parametru šādi:

       • Var: No

       • Nosaukums: SalesHeader

       • Datu tips: ieraksts

       • Apakštips: pārdošanas virsraksta

    2. Pievienojiet atgriešanas vērtības tips funkciju DropShptSplOrderExists pārdošanas virsraksta tabulā (38) un pēc tam norādiet vērtību šādi:

       • Atgriezties tips: Būla

    3. Pievienojiet jaunu lokālo mainīgo funkciju DropShptSplOrderExists pārdošanas virsraksta tabulā (38) un pēc tam norādiet Mainīgais šādi:

       • Vārds: SalesLine2

       • Datu tips: ieraksts

       • Apakštips: Pārdošanas rinda

    4. DropShptSplOrderExists funkcija pārdošanas virsraksta tabulā (38) pievienojiet šādu kodu:

       // 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);