הודעת השגיאה "משלוח מכירות [Shipment_No], ללא קו [Line_No] אינו מועתק מכיוון הכמות מלא על הקו מסמכים רשומים מוחל באופן ידני כבר" בעת הפעלת הפונקציה עותק מסמך על מכירות החזרה חלקית ב- Microsoft Dynamics ניווט

מאפייני הבעיה

הנח כי תפעיל את ההיפוך המדויק של עלות בתיבת הדו-שיח מכירות & הגדרת חשבונות חייבים ב- Microsoft Dynamics NAV. במצב זה, כאשר תפעיל את הפונקציה עותק מסמך על החזרה מכירה חלקית, מתקבלת הודעת השגיאה הבאה:

מכירות משלוח Shipment_No, ללא קו Line_No אינו מועתק מכיוון הכמות מלא על הקו מסמכים רשומים באופן ידני כבר מוחל.

בעיה זו מתרחשת במוצרים הבאים:

Microsoft Dynamics R2 2009 סרגל ניווט
Microsoft Dynamics NAV 2009 ה-Service Pack 1

פתרון

מידע על תיקונים חמים

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. יש להחיל אותו רק במערכות שהתעוררה בהן בעיה ספציפית זו. תיקון חם זה עשוי לעבור בדיקות נוספות. לכן, אם המערכת שברשותך לא נפגעה באופן חמור מבעיה זו, מומלץ להמתין ל- Microsoft Dynamics NAV 2009 service pack הבאה או גירסת Microsoft Dynamics NAV הבא המכיל תיקון חם זה.

הערה במקרים מיוחדים, שהצגת עבור שיחות עשויים לבטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים יקבע שעדכון ספציפי יפתור את הבעיה. דמי התמיכה המקובלים יחולו על נוספים שאלות וסוגיות תמיכה אשר אינן מצריכות העדכון הספציפי האמור.

מידע על ההתקנה

מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. זה כולל, אך אינו מוגבל ל, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת. עם זאת, הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים.

הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Navision אינם מחוברים למערכת. זה כולל משתמשים לקוח של שירותי היישום של Microsoft Navision (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.

כדי ליישם תיקון חם זה, דרוש לך רשיון מפתחים.

אנו ממליצים חשבון המשתמש בחלון כניסות Windows או בחלון מסד הנתונים כניסות יוקצו את מזהה תפקיד "סופר". אם חשבון המשתמש אין אפשרות להקצות מזהה תפקיד של "עילי", עליך לוודא כי חשבון משתמש בעל ההרשאות הבאות:

שנה את ההרשאה עבור האובייקט שינוי.
הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור האובייקט 9015 מזהה האובייקט של המערכת .

הערה אין לך הרשאות למאגרי נתונים אלא אם כן יש לך לבצע תיקון נתונים.

שינויי קוד

הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:

מחק את המשתנים הבאים הכללית ב- codeunit עותק המסמך Mgt. (6620):

Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;

תוספת כללית המשתנים הבאים codeunit עותק המסמך Mgt. (6620):

Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
 SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;
WarningDone@1051 : Boolean;
LinesApplied@1052 : Boolean;

שנה את הקוד בפונקציה SplitPstdSalesLinesPerILE ב codeunit עותק המסמך Mgt. (6620) כדלקמן:
קוד קיים 1

...            IF "Shipped Qty. Not Returned" = 0 THEN

// Delete the following lines.
             ERROR(Text030,"Document Type","Document No.","Document Line No.");
           FromSalesLineBuf := FromSalesLine; 
           IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
             IF FromSalesLine."Quantity (Base)" > 0 THEN
               FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
             ELSE
               FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
             IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
               FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
             ELSE
               FromSalesLineBuf.Quantity :=
                 ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
           END;
           FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
           FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
           FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
           FromSalesLineBuf."Line No." := NextLineNo;
           NextLineNo := NextLineNo + 1;
           FromSalesLineBuf."Document No." := "Document No.";
           IF GetSalesDocType(ItemLedgEntry) IN
              [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
           THEN
             FromSalesLineBuf."Shipment Line No." := 1;

           IF NOT FromShptOrRcpt THEN
             UpdateRevSalesLineAmount(
               FromSalesLineBuf,OrgQtyBase,
               FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

           FromSalesLineBuf.INSERT;
// End of the lines.

          UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...

קוד החלפה 1

...            IF "Shipped Qty. Not Returned" = 0 THEN

// Add the following lines.
             LinesApplied := TRUE;
           IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
             FromSalesLineBuf := FromSalesLine;

             IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
               IF FromSalesLine."Quantity (Base)" > 0 THEN
                 FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
               ELSE
                 FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
               IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
                 FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
               ELSE
                 FromSalesLineBuf.Quantity :=
                   ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
             END;
             FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
             FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
             FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
             FromSalesLineBuf."Line No." := NextLineNo;
             NextLineNo := NextLineNo + 1;
             FromSalesLineBuf."Document No." := "Document No.";
             IF GetSalesDocType(ItemLedgEntry) IN
                [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
             THEN
               FromSalesLineBuf."Shipment Line No." := 1;

             IF NOT FromShptOrRcpt THEN
               UpdateRevSalesLineAmount(
                 FromSalesLineBuf,OrgQtyBase,
                 FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

             FromSalesLineBuf.INSERT;
           END;
// End of the lines.

          UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...

קוד קיים 2

...            MissingExCostRevLink := TRUE;
        END;
...

קוד החלפה 2

...            MissingExCostRevLink := TRUE;

// Add the following line.
         CheckUnappliedLines(LinesApplied,MissingExCostRevLink);

        END;
...

שנה את הקוד בפונקציה SplitPstdPurchLinesPerILE ב codeunit עותק המסמך Mgt. (6620) כדלקמן:
קוד קיים 1

...        ApplyRec@1011 : Record 339;

// Delete the following line.
       AllAreFixed@1012 : Boolean;

      BEGIN
...

קוד החלפה 1

...        ApplyRec@1011 : Record 339;
      BEGIN
...

קוד קיים 2

...          REPEAT

// Delete the following lines.
           IF "Remaining Quantity" = 0 THEN BEGIN
             AllAreFixed := TRUE;
             ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
             IF ApplyRec.FINDFIRST THEN
               REPEAT
                 AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
               UNTIL ApplyRec.NEXT = 0;
             IF AllAreFixed THEN
               ERROR(Text030,"Document Type","Document No.","Document Line No.");
           END;
// End of the lines.

            IF NOT ApplyFully THEN BEGIN
...

קוד החלפה 2

...          REPEAT
            IF NOT ApplyFully THEN BEGIN
...

קוד קיים 3

...        END;
...

קוד החלפה 3

...        END;

// Add the following line.
       CheckUnappliedLines(SkippedLine,MissingExCostRevLink);

...

שנה את הקוד בפונקציה CheckUnappliedLines ב codeunit עותק המסמך Mgt. (6620) כדלקמן:
קוד קיים

...      BEGIN
...

קוד החלפה

...
// Add the following lines.
     LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
     BEGIN
       IF SkippedLine AND MissingExCostRevLink THEN BEGIN
         IF NOT WarningDone THEN
           MESSAGE(Text030);
         MissingExCostRevLink := FALSE;
         WarningDone := TRUE;
       END;
     END;

// End of the lines.

      BEGIN
...

דרישות מוקדמות

עליך להגדיר אחד מהמוצרים הבאים מותקנים כדי להחיל תיקון חם זה:

Microsoft Dynamics R2 2009 סרגל ניווט
Microsoft Dynamics NAV 2009 ה-Service Pack 1

מידע בדבר הסרת ההתקנה

אין אפשרות להסיר את התיקון החם.

מצב

Microsoft אישרה כי מדובר בבעיה במוצרי Microsoft הרשומים במקטע 'חל על'.

הערה זהו מאמר "פרסום מהיר" שנוצר ישירות בתוך ארגון התמיכה של Microsoft. המידע הכלול במסמך זה מסופק כמו שהוא כתגובה לבעיות המתעוררות. כתוצאה מהמהירות בביצוע כדי להפוך אותו לזמין, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיבוצעו בהם שינויים בכל עת ללא הודעה מוקדמת. ראה תנאי השימוש שיקולים נוספים.

מאפייני הבעיה

פתרון

מידע על תיקונים חמים

מידע על ההתקנה

שינויי קוד

דרישות מוקדמות

מידע בדבר הסרת ההתקנה

מצב

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

האם מידע זה היה שימושי?

תודה על המשוב!