Μετάβαση στο κύριο περιεχόμενο
Υποστήριξη
Είσοδος με Microsoft
Είσοδος ή δημιουργία λογαριασμού.
Γεια σας,
Επιλέξτε διαφορετικό λογαριασμό.
Έχετε πολλούς λογαριασμούς
Επιλέξτε τον λογαριασμό με τον οποίο θέλετε να εισέλθετε.

Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για όλες τις χώρες και για όλες τις τοπικές ρυθμίσεις γλώσσας.

Συμπτώματα

Αφού εκτελέσετε τη λειτουργία Αναζήτηση παραγγελιών πωλήσεων για μια ειδική παραγγελία σε μια ειδική παραγγελία στο Microsoft Dynamics NAV 2009 αγοράς, το πεδίο κωδικός διεύθυνσης αποστολής στην επικεφαλίδα της παραγγελίας αγοράς ειδικά είναι κενό απροσδόκητα.
Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Προτεινόμενη αντιμετώπιση

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.

Πληροφορίες εγκατάστασης

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.

Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Navision έχουν αποσυνδεθεί από το σύστημα. Σε αυτές περιλαμβάνονται οι χρήστες του προγράμματος-πελάτη Microsoft Navision εφαρμογής υπηρεσιών (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.

Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.

Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:

  • Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.

  • Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για το αντικείμενο 9015 Αναγνωριστικό αντικειμένου συστήματος .



Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.

Αλλαγές κώδικα

Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:

  1. Να αλλάξετε τον κωδικό σε το GetDescriptionAndRcptName funtion σε την στη μονάδα κώδικα ReqJnlManagement (330) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

    ...ELSE
    Description := '';
    END;
    END;

    IF ReqLine."Vendor No." = '' THEN
    ...
  2. Προσθέστε μια νέα καθολική μεταβλητή στο φύλλο αναπλήρωσης.-Βεβαιωθείτε μονάδα κώδικα σειρά (333) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: DropShptSpecialOrderExists

    • Τύπος δεδομένων: δυαδική τιμή

  3. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση InsertPurchOrderLine στο φύλλο αναπλήρωσης.-Βεβαιωθείτε μονάδα κώδικα σειρά (333) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: SalesHeader

    • Τύπος δεδομένων: εγγραφή

    • Δευτερεύων τύπος: επικεφαλίδα πωλήσεων

  4. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση InsertPurchOrderLine στο φύλλο αναπλήρωσης.-Βεβαιωθείτε μονάδα κώδικα σειρά (333) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: DropShptSplOrderDiffAddress

    • Τύπος δεδομένων: δυαδικής τιμής

  5. Να αλλάξετε τον κωδικό στη συνάρτηση InsertPurchOrderLine στο φύλλο αναπλήρωσης.-Βεβαιωθείτε μονάδα κώδικα σειρά (333) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

    ...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. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση InsertHeader στο φύλλο αναπλήρωσης.-Βεβαιωθείτε μονάδα κώδικα σειρά (333) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: SalesHeader

    • Τύπος δεδομένων: εγγραφή

    • Δευτερεύων τύπος: επικεφαλίδα πωλήσεων

  7. Να αλλάξετε τον κωδικό στη συνάρτηση InsertHeader στο φύλλο αναπλήρωσης.-Βεβαιωθείτε μονάδα κώδικα σειρά (333) ως εξής:
    Υπάρχοντα κώδικα

    ...PurchOrderHeader.SetShipToForSpecOrder;
    END;

    PurchOrderHeader.MODIFY;
    ...

    Αντικατάσταση κώδικα

    ...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. Αλλάξτε τον κωδικό στη συνάρτηση EnterPurchaseItemCrossRef στη μονάδα κώδικα ενσωμάτωσης Dist. (5702) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

    ...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. Αλλάξτε τον κωδικό στη συνάρτηση GetSpecialOrders στη μονάδα κώδικα ενσωμάτωσης Dist. (5702) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

    ...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. Αλλάξτε τον κωδικό στη συνάρτηση TransfldsFromSalesToPurchLine στη μονάδα κώδικα αντίγραφο εγγράφου σχέσεων (6620) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

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

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

    END;
    ...
  11. Να αλλάξετε τον κωδικό του κώδικα σε αγορές.-λήψη μονάδα κώδικα απόθεσης Καταχ. (76) ως εξής:
    Υπάρχοντα κωδικό 1

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

    PurchLine.LOCKTABLE;
    ...

    Αντικατάσταση κώδικα 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;
    ...

    Υπάρχοντα κώδικα 2

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

    Αντικατάσταση κώδικα 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. Αλλάξτε τον κωδικό με το InsertReqWkshLine στην έκθεση πωλήσεων (698) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

    ..."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. Προσθέστε μια νέα καθολική μεταβλητή στον πίνακα Επικεφαλίδα Αγορών (38) και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: NameAddressDetails

    • Τύπος δεδομένων: κείμενο

    • Μήκος: 512

  14. Προσθέστε μια νέα καθολική μεταβλητή στον πίνακα Επικεφαλίδα Αγορών (38) και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: NameAddressDetails2

    • Τύπος δεδομένων: κειμένου

    • Μήκος: 512

  15. Προσθέσετε μια νέα σταθερά κειμένου στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε τη σταθερά κειμένου ως εξής:

    • Όνομα: Text051

    • ConstValue: το πεδίο %1 στην παραγγελία αγοράς %2 πρέπει να είναι το ίδιο όπως στις πωλήσεις, παραγγελία %3.

  16. Δημιουργήστε μια νέα συνάρτηση CheckAndAddShipToAdd στον πίνακα Επικεφαλίδα Αγορών (38). Για να το κάνετε αυτό, ακολουθήστε τα εξής βήματα:

    1. Προσθέστε μια νέα τοπική παράμετρος στη συνάρτηση CheckAndAddShipToAdd στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε την παράμετρο ως εξής:

      • Var: No

      • Όνομα: SalesHeader

      • Τύπος δεδομένων: εγγραφή

      • Δευτερεύων τύπος: επικεφαλίδα πωλήσεων

    2. Προσθέστε μια νέα τοπική παράμετρος στη συνάρτηση CheckAndAddShipToAdd στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε την παράμετρο ως εξής:

      • Var: No

      • Όνομα: ShowError

      • Τύπος δεδομένων: δυαδική τιμή

    3. Προσθέστε μια τιμή επιστροφής της συνάρτησης CheckAndAddShipToAdd στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε την τιμή επιστροφής ως εξής:

      • Τύπος επιστροφής: δυαδική τιμή

    4. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση CheckAndAddShipToAdd στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: PurchLine2

      • Τύπος δεδομένων: εγγραφή

      • Δευτερεύων τύπος: PurchLine2

    5. Προσθέστε τον ακόλουθο κώδικα στη συνάρτηση CheckAndAddShipToAdd στον πίνακα Επικεφαλίδα Αγορών (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. Δημιουργήστε μια νέα συνάρτηση DropShptSplOrderExists στον πίνακα Επικεφαλίδα Αγορών (38). Για να το κάνετε αυτό, ακολουθήστε τα εξής βήματα:

    1. Προσθέστε μια νέα τοπική παράμετρος στη συνάρτηση DropShptSplOrderExists στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε την παράμετρο ως εξής:

      • Var: No

      • Όνομα: SalesHeader

      • Τύπος δεδομένων: εγγραφή

      • Δευτερεύων τύπος: επικεφαλίδα πωλήσεων

    2. Προσθήκη ενός τύπου επιστρεφόμενη τιμή της συνάρτησης DropShptSplOrderExists στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε την τιμή επιστροφής ως εξής:

      • Τύπος επιστροφής: δυαδική τιμή

    3. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση DropShptSplOrderExists στον πίνακα Επικεφαλίδα Αγορών (38) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: SalesLine2

      • Τύπος δεδομένων: εγγραφή

      • Δευτερεύων τύπος: γραμμή πώλησης

    4. Προσθέστε τον ακόλουθο κώδικα στη συνάρτηση DropShptSplOrderExists στον πίνακα Επικεφαλίδα Αγορών (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);

Προϋποθέσεις

Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Πληροφορίες κατάργησης

Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.

Κατάσταση

Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".

Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης ".

Χρειάζεστε περισσότερη βοήθεια;

Θέλετε περισσότερες επιλογές;

Εξερευνήστε τα πλεονεκτήματα της συνδρομής, περιηγηθείτε σε εκπαιδευτικά σεμινάρια, μάθετε πώς μπορείτε να προστατεύσετε τη συσκευή σας και πολλά άλλα.

Οι κοινότητες σάς βοηθούν να κάνετε και να απαντάτε σε ερωτήσεις, να δίνετε σχόλια και να ακούτε από ειδικούς με πλούσια γνώση.

Σας βοήθησαν αυτές οι πληροφορίες;

Πόσο ικανοποιημένοι είστε με τη γλωσσική ποιότητα;
Τι επηρέασε την εμπειρία σας;
Πατώντας "Υποβολή" τα σχόλια σας θα χρησιμοποιηθούν για τη βελτίωση των προϊόντων και των υπηρεσιών της Microsoft. Ο διαχειριστής IT θα έχει τη δυνατότητα να συλλέξει αυτά τα δεδομένα. Δήλωση προστασίας προσωπικών δεδομένων.

Σας ευχαριστούμε για τα σχόλιά σας!

×