Tiešais sūtījums un Īpašs pasūtījums nav apsvērt noteiktu informāciju par pārdošanas pasūtījumu, izmantojot pieprasījuma darblapā izveidot pirkšanas pasūtījums vai manuāli, veidojot pirkšanas pasūtījumu, Microsoft Dynamics NAV

Pazīmes

Programmā Microsoft Dynamics NAV jāveido pirkšanas pasūtījums vai manuāli, veidojot pirkšanas pasūtījumu, lietojot pieprasījuma darblapas tiešais sūtījums un īpašu uzdevumu, ka noteiktu informāciju par saistīto pārdošanas pasūtījumu. Tādēļ apraksta 2 apraksts un nosūtīšanas adresi un pārdošanas pasūtījuma rindas nav sekot piesaistīts iegādes secībā.
Šī problēma rodas ar šādiem produktiem:

Microsoft Dynamics NAV 2009. gada 1. servisa pakotne (SP1)
Microsoft Dynamics NAV 2009 R2

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

Informācija par instalēšanu

Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.

Piezīme. Pirms šī labojumfaila instalēšanas pārliecinieties, vai ka visi Microsoft Navision klients lietotāji ir atteikušies sistēmu. Tas ietver Microsoft Navision lietojumprogrammu pakalpojumu (NAS) klients lietotājiem. Jums ir jābūt tikai klienta lietotājam, kurš ir pieteicies, ieviest šo labojumfailu.

Lai ieviest šo labojumfailu, datorā jābūt instalētai izstrādātāja licenci.

Ieteicams, ka lietotāja kontu logā Windows lietotājvārdi vai logā datu bāzes lietotājvārdi piešķirt "SUPER" lomas ID Ja lietotāja kontam nevar piešķirt "SUPER" lomas ID, jāpārbauda, lietotāja konts ir šādas atļaujas:

Objektu, kas jums būs mainīt modificēt atļaujas.
Izpildes atļaujas sistēmas objekta ID 5210 objektu un sistēmas objekta ID 9015 objektu.

Piezīme. Jums nav tiesības datu krātuvju vien veikt datu labošana.

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:
Piezīme. Lūdzu, izlasiet kļūda, piekļūstot koda (333), tā ir cita Ziemeļamerikas versija W1. Šeit gan ir tagu sākuma un beigu katras versijas.

Nomainiet šo kodu tabulā Pārdošanas virsraksta (38) šādi:

Pievienojiet šo globālā teksta konstante:
Text051@1091: TextConst "ENU = %1 %2 pirkšanas pasūtījuma jābūt tāpat kā pārdošanas pasūtījumu %3.';
Pievienojiet šo globālo mainīgo:
- Nosaukums: NameAddressDetails; Datu tips: Teksta [512];
- Nosaukums: NameAddressDetails2; Datu tips: Teksta [512];

Pievienojiet šādas funkcijas:
CheckAndAddShipToAdd@46 (SalesHeader@1000: 36; ierakstīšana ShowError@1001: Boolean): Boolean;

VAR PurchLine2@1002: Ierakstu 39;
Pievienojiet šādu kodu funkcijas:

IF ShowError THEN BEGIN  PurchLine2.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;

Pievienojiet šādas funkcijas:
DropShptSplOrderExists@48 (SalesHeader@1000: 36 ierakstīt): Boolean;

VAR SalesLine2@1001: Ierakstu 37.

Pievienojiet šādu kodu funkcijas:

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

Nomainiet šo kodu InsertReqWkshLine funkcija Iegūt pārdošanas pasūtījumu ziņojumā (698) šādi:
Kods

...    Quantity,
    ROUND(SalesLine."Outstanding Quantity" * SalesLine."Qty. per Unit of Measure" / "Qty. per Unit of Measure",0.00001));
  "Sales Order No." := SalesLine."Document No.";
  "Sales Order Line No." := SalesLine."Line No.";
  "Sell-to Customer No." := SalesLine."Sell-to Customer No.";
  SalesHeader.GET(1,SalesLine."Document No.");
  IF SpecOrder <>1 THEN
    "Ship-to Code" := SalesHeader."Ship-to Code";
  "Item Category Code" := SalesLine."Item Category Code";
  Nonstock := SalesLine.Nonstock;  
...

Aizstāšanas kodu

...        Quantity,
    ROUND(SalesLine."Outstanding Quantity" * SalesLine."Qty. per Unit of Measure" / "Qty. per Unit of Measure",0.00001));
  "Sales Order No." := SalesLine."Document No.";
  "Sales Order Line No." := SalesLine."Line No.";
  "Sell-to Customer No." := SalesLine."Sell-to Customer No.";

// Add the following lines.
  Description := SalesLine.Description;
  "Description 2" := SalesLine."Description 2";
// End of the added lines.

  SalesHeader.GET(1,SalesLine."Document No.");
  IF SpecOrder <>1 THEN
    "Ship-to Code" := SalesHeader."Ship-to Code";
  "Item Category Code" := SalesLine."Item Category Code";
  Nonstock := SalesLine.Nonstock;  
...

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

...      IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
  TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
  TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");

  PurchLine.LOCKTABLE;
  IF NOT RECORDLEVELLOCKING THEN
    LOCKTABLE(TRUE,TRUE); // Only version check
  SalesLine.LOCKTABLE;
...
      PurchLine."Document Type" := PurchLine."Document Type"::Order;
      PurchLine."Document No." := "No.";
      PurchLine."Line No." := NextLineNo;
      CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
      PurchLine.Description := SalesLine.Description;
      PurchLine."Sales Order No." := SalesLine."Document No.";
      PurchLine."Sales Order Line No." := SalesLine."Line No.";
      PurchLine."Drop Shipment" := TRUE;
      EVALUATE(PurchLine."Inbound Whse. Handling Time",'<0D>');
      PurchLine.VALIDATE("Inbound Whse. Handling Time");    
...

Aizstāšanas kodu

...   IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
  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 added lines.

  PurchLine.LOCKTABLE;
  IF NOT RECORDLEVELLOCKING THEN
    LOCKTABLE(TRUE,TRUE); // Only version check
  SalesLine.LOCKTABLE;
...
      PurchLine."Document Type" := PurchLine."Document Type"::Order;
      PurchLine."Document No." := "No.";
      PurchLine."Line No." := NextLineNo;
      CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
      PurchLine.Description := SalesLine.Description;

// Add the following line.
      PurchLine."Description 2" := SalesLine."Description 2";
// End of the added line.

      PurchLine."Sales Order No." := SalesLine."Document No.";
      PurchLine."Sales Order Line No." := SalesLine."Line No.";
      PurchLine."Drop Shipment" := TRUE;
      EVALUATE(PurchLine."Inbound Whse. Handling Time",'<0D>');
      PurchLine.VALIDATE("Inbound Whse. Handling Time");          
...

Nomainiet šo kodu GetDescriptionAndRcptName funkciju ReqJnlManagement koda (330) šādi:
Kods

...       ReqLine.Type::"G/L Account":
        IF GLAcc.GET(ReqLine."No.") THEN
          Description := GLAcc.Name
        ELSE
          Description := '';

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

    END;
  END;

IF ReqLine."Vendor No." = '' THEN
  BuyFromVendorName := ''        
...

Aizstāšanas kodu

...         ReqLine.Type::"G/L Account":
        IF GLAcc.GET(ReqLine."No.") THEN
          Description := GLAcc.Name
        ELSE
          Description := '';
    END;
  END;

IF ReqLine."Vendor No." = '' THEN
  BuyFromVendorName := ''    
...

Piezīme Koda (333) ir pasaules versija vs Ziemeļamerikas versija citu kodu. Izmantojiet pareizo sadaļu instalēšanas.

SĀKAS Ziemeļamerikas versijas koda (333), mainīt kodu pieprasījumu Pārd.-veikt pasūtījumu šādi:

Pievienojiet šo globālo mainīgo:
- Nosaukums: DropShptSpecialOrderExists;
- Datu tips: Boolean;
Pievienot lokālo mainīgos InsertPurchOrderLinefunkcijas:
- Nosaukums: SalesHeader; Datu tips: Ieraksts (36);
- Nosaukums: DropShptSplOrderDiffAddress; Datu tips: Boolean;
- Nosaukums: CreateNewRecord; Datu tips: Boolean;

Nomainiet šo kodu InsertPurchOrderLinefunkciju šādi:
Kods

...// Delete the following lines.
WITH ReqLine2 DO BEGIN
  IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
    EXIT;
  IF NOT PurchasingCode.GET("Purchasing Code") THEN
    PurchasingCode."Special Order" := FALSE;
  IF (PurchasingCode."Special Order" AND
      (PurchSetup."Combine Special Orders Default" =
       PurchSetup."Combine Special Orders Default"::"Always Combine") AND
      ((PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
       (PurchOrderHeader."Location Code" <> "Location Code") OR
       (PurchOrderHeader."Currency Code" <>"Currency Code") OR
       (PrevPurchCode <>"Purchasing Code"))) OR
     (NOT PurchasingCode."Special Order" AND
       ((PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
       (PurchOrderHeader."Location Code" <>"Location Code") 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
       (PrevPurchCode <>"Purchasing Code")))
  THEN BEGIN
    InsertHeader(ReqLine2);
    LineCount := 0;
    NextLineNo := 0;
    PrevPurchCode := "Purchasing Code";
    PrevShipToCode := "Ship-to Code";
  END;
  IF (PurchasingCode."Special Order") AND
      (PurchSetup."Combine Special Orders Default" =
      PurchSetup."Combine Special Orders Default"::"Never Combine") AND
      ((PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
       (PurchOrderHeader."Location Code" <> "Location Code") OR
       (PurchOrderHeader."Currency Code" <>"Currency Code") OR
       (PrevPurchCode <> "Purchasing Code")) THEN BEGIN
    InsertHeader(ReqLine2);
  END;
// End of the deleted lines.

  LineCount := LineCount + 1;
  IF NOT PlanningResiliency THEN
    Window.UPDATE(4,LineCount);       
...

Aizstāšanas kodu

...// Add the following lines.
WITH ReqLine2 DO BEGIN
  IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
    EXIT;
  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;
  IF NOT PurchasingCode.GET("Purchasing Code") THEN
    PurchasingCode."Special Order" := FALSE;

  CreateNewRecord :=
    (PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
    (PurchOrderHeader."Location Code" <> "Location Code") OR
    (PurchOrderHeader."Currency Code" <> "Currency Code") OR
    (PrevPurchCode <>"Purchasing Code") OR
    DropShptSplOrderDiffAddress;

  IF PurchasingCode."Special Order" AND CreateNewRecord THEN BEGIN
    InsertHeader(ReqLine2);
    IF PurchSetup."Combine Special Orders Default" =
       PurchSetup."Combine Special Orders Default"::"Always Combine"
    THEN BEGIN
      LineCount := 0;
      NextLineNo := 0;
      PrevPurchCode := "Purchasing Code";
      PrevShipToCode := "Ship-to Code";
    END;
  END;
  IF NOT PurchasingCode."Special Order" AND
     (CreateNewRecord OR
     (PurchOrderHeader."Sell-to Customer No." <>"Sell-to Customer No.") OR
     (PrevShipToCode <>"Ship-to Code") OR
     (PurchOrderHeader."Order Address Code" <>"Order Address Code"))
  THEN BEGIN
    InsertHeader(ReqLine2);
    LineCount := 0;
    NextLineNo := 0;
    PrevPurchCode := "Purchasing Code";
    PrevShipToCode := "Ship-to Code";
  END;
// End of the added lines.

  LineCount := LineCount + 1;
  IF NOT PlanningResiliency THEN
    Window.UPDATE(4,LineCount);       
...

Nomainiet šo kodu InsertHeader funkciju šādi:
Pievienojiet šādu vietējās mainīgais:

Nosaukums: SalesHeader;
Datu tips: Ieraksts (36);

Kods

...   WITH ReqLine2 DO BEGIN
  OrderCounter := OrderCounter + 1;
  IF NOT PlanningResiliency THEN
    Window.UPDATE(3,OrderCounter);

  PurchSetup.GET;
  PurchSetup.TESTFIELD("Order Nos.");

// Delete the following line.
  CLEAR(PurchOrderHeader);
// End of the deleted line.

  PurchOrderHeader.INIT;
  PurchOrderHeader."Document Type" := PurchOrderHeader."Document Type"::Order;
  PurchOrderHeader."No." := '';
...
      PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
  END ELSE BEGIN
    PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
    PurchOrderHeader.SetShipToForSpecOrder;
  END;

  PurchOrderHeader.MODIFY;
  COMMIT;
  IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  PurchOrderHeader.MARK(TRUE);
END;      
...

Aizstāšanas kodu

...WITH ReqLine2 DO BEGIN
  OrderCounter := OrderCounter + 1;
  IF NOT PlanningResiliency THEN
    Window.UPDATE(3,OrderCounter);

  PurchSetup.GET;
  PurchSetup.TESTFIELD("Order Nos.");
  PurchOrderHeader.INIT;
  PurchOrderHeader."Document Type" := PurchOrderHeader."Document Type"::Order;
  PurchOrderHeader."No." := '';
...
      PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
  END ELSE BEGIN
    PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
    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 added lines.

  PurchOrderHeader.MODIFY;
  COMMIT;
  IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  PurchOrderHeader.MARK(TRUE);
END;       
...

SĀKAS W1 versijas koda (333), mainīt kodu pieprasījumu Pārd.-veikt pasūtījumu šādi:

Pievienojiet šo globālo mainīgo:
- Nosaukums: DropShptSpecialOrderExists;
- Datu tips: Boolean;
Pievienot lokālo mainīgos funkciju InsertPurchOrderLine:
- Nosaukums: SalesHeader; Datu tips: Ieraksts (36);
- Nosaukums: DropShptSplOrderDiffAddress; Datu tips: Boolean;

Nomainiet šo kodu InsertPurchOrderLinefunkcijas šā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")
// End of the deleted line.

  THEN BEGIN
    InsertHeader(ReqLine2);
    LineCount := 0;
    NextLineNo := 0;
    PrevPurchCode := "Purchasing Code";
    PrevShipToCode := "Ship-to Code";
  END; 
...

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

  THEN BEGIN
    InsertHeader(ReqLine2);
    LineCount := 0;
    NextLineNo := 0;
    PrevPurchCode := "Purchasing Code";
    PrevShipToCode := "Ship-to Code";
  END; 
...

Nomainiet šo kodu InsertHeader funkciju šādi:
Pievienojiet šādu vietējās mainīgais:

Nosaukums: SalesHeader;
Datu tips: Ieraksts (36);

Kods

...    END ELSE BEGIN
    PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
    PurchOrderHeader.SetShipToForSpecOrder;
  END;

  PurchOrderHeader.MODIFY;
  COMMIT;
  IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  PurchOrderHeader.MARK(TRUE);
END;      
...

Aizstāšanas kodu

... END ELSE BEGIN
    PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
    PurchOrderHeader.SetShipToForSpecOrder;
  END;
// Add the following lines.
  IF DropShptSpecialOrderExists THEN BEGIN
    IF SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.") THEN BEGIN
    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 added lines.

  PurchOrderHeader.MODIFY;
  COMMIT;
  IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  PurchOrderHeader.MARK(TRUE);
END;
...

Nomainiet šo kodu koda Dist. integrācijas (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";

// Delete the following lines.
      IF ItemCrossReference.Description <>'' THEN BEGIN
        Description := ItemCrossReference.Description;
        "Description 2" := '';
      END;
    END ELSE BEGIN
      "Cross-Reference No." := '';
      "Cross-Reference Type" := "Cross-Reference Type"::" ";
      "Cross-Reference Type No." := '';
      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 deleted lines.

      GetItemTranslation;
    END;
  END;         
...

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

// Add the following lines.
      "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." := '';
// End of the added lines.

      GetItemTranslation;
    END;
  END;    
...

Nomainiet šo kodu koda Dist. integrācijas (5702) GetSpecialOrders funkciju šādi:
Kods

...    IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
  TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
  TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");

// Delete the following line.
  PurchHeader.SetShipToForSpecOrder;
// End of the deleted line.

  PurchLine.LOCKTABLE;
  IF NOT RECORDLEVELLOCKING THEN
    LOCKTABLE(TRUE,TRUE); // Only version check
  SalesLine.LOCKTABLE;       
...

Aizstāšanas kodu

...    IF RECORDLEVELLOCKING THEN
    LOCKTABLE;
  SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
  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 added lines.

  PurchLine.LOCKTABLE;
  IF NOT RECORDLEVELLOCKING THEN
    LOCKTABLE(TRUE,TRUE); // Only version check
  SalesLine.LOCKTABLE;    
...

Nomainiet šo kodu TransfldsFromSalesToPurchLine funkciju Kopēt dokumentu Mgt. koda (6620) šādi:
Kods

...  "Expected Receipt Date" := FromSalesLine."Shipment Date";
  "Bin Code" := FromSalesLine."Bin Code";
  VALIDATE(Quantity,FromSalesLine."Outstanding Quantity");
  VALIDATE("Return Reason Code",FromSalesLine."Return Reason Code");
  VALIDATE("Direct Unit Cost");
END;     
...

Aizstāšanas kodu

...  "Expected Receipt Date" := FromSalesLine."Shipment Date";
  "Bin Code" := FromSalesLine."Bin Code";
  VALIDATE(Quantity,FromSalesLine."Outstanding Quantity");
  VALIDATE("Return Reason Code",FromSalesLine."Return Reason Code");
  VALIDATE("Direct Unit Cost");
// Add the following lines.
  Description := FromSalesLine.Description;
  "Description 2" := FromSalesLine."Description 2";
// End of the added lines.
END;       
...

Priekšnosacījumi

Datorā ir jābūt instalētai kādai no šiem produktiem, lai lietotu šo labojumfailu:

Microsoft Dynamics NAV 2009. gada 1. servisa pakotne (SP1)
Microsoft Dynamics NAV 2009 R2

Informācija par noņemšanu

Nevar noņemt šo labojumfailu.

Statuss

Korporācija Microsoft ir apstiprinājusi, ka šī problēma pastāv Microsoft produktos, kas ir minēti sadaļā "Attiecas uz".

Atsauces

VSTF DynamicsNAV SE: 238210

Piezīme. Šis ir STEIDZAMI PUBLICĒJAMS raksts, kas izveidots tieši Microsoft atbalsta organizācijā. Šajā rakstā ietvertā informācija ir sniegta, reaģējot uz nesen konstatētām problēmām. Tā kā šis raksts ir tapis pieejams neilgā laikā, materiālos var būt pareizrakstības kļūdas un tās var tikt labotas jebkurā laikā bez paziņojuma. Skatīt Lietošanas citi apsvērumi.

Tiešais sūtījums un Īpašs pasūtījums nav apsvērt noteiktu informāciju par pārdošanas pasūtījumu, izmantojot pieprasījuma darblapā izveidot pirkšanas pasūtījums vai manuāli, veidojot pirkšanas pasūtījumu, Microsoft Dynamics NAV

Pazīmes

Risinājums

Informācija par labojumfailu

Informācija par instalēšanu

Koda izmaiņas

Priekšnosacījumi

Informācija par noņemšanu

Statuss

Atsauces

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!