מאפייני הבעיה
בעת יצירת חשבוניות מתקנת אם השדה מחירים inc. מע מ השתנה, הערכים מחיר יחידה שגויים בגירסה הונגרית של Microsoft Dynamics NAV 2009 R2. בצע את השלבים במקטע קוד שינויים כדי לפתור בעיה זו. בעיה זו מתרחשת במוצרים הבאים:
-
גירסת Microsoft Dynamics NAV 2009 R2 הונגרית
פתרון
מידע על תיקונים חמים
תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. יש להחיל אותו רק במערכות שהתעוררה בהן בעיה ספציפית זו. תיקון חם זה עשוי לעבור בדיקות נוספות. לכן, אם המערכת שברשותך לא נפגעה באופן חמור מבעיה זו, מומלץ להמתין ל- Microsoft Dynamics NAV 2009 service pack הבאה או גירסת Microsoft Dynamics NAV הבא המכיל תיקון חם זה.
הערה במקרים מיוחדים, שהצגת עבור שיחות עשויים לבטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים יקבע שעדכון ספציפי יפתור את הבעיה. דמי התמיכה המקובלים יחולו על נוספים שאלות וסוגיות תמיכה אשר אינן מצריכות העדכון הספציפי האמור.
מידע על ההתקנה
מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. זה כולל, אך אינו מוגבל ל, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת. עם זאת, הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים.
הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Dynamics NAV אינם מחוברים למערכת. זה כולל שירותי Microsoft Dynamics NAV יישום שרת (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.
כדי ליישם תיקון חם זה, דרוש לך רשיון מפתחים.
אנו ממליצים חשבון המשתמש בחלון כניסות Windows או בחלון מסד הנתונים כניסות יוקצו את מזהה תפקיד "סופר". אם חשבון המשתמש אין אפשרות להקצות מזהה תפקיד של "עילי", עליך לוודא כי חשבון משתמש בעל ההרשאות הבאות:
-
שנה את ההרשאה עבור האובייקט שינוי.
-
הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור 9015 מזהה אובייקט מערכת
אובייקט.
הערה אין לך הרשאות למאגרי נתונים אלא אם כן יש לך לבצע תיקון נתונים.
שינויי קוד
הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:
-
שנה את הקוד בפונקציה UpdateVATAmounts בטבלת מכירות תיקון קו (14536) כדלקמן:
קוד קיים...Amount * (1 - SalesHeader."VAT Base Discount %" / 100),
Currency."Amount Rounding Precision");
"Amount Including VAT" :=
ROUND(
Amount * (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100,
Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
"VAT Calculation Type"::"Full VAT":
BEGIN
...קוד החלפה
...Amount * (1 - SalesHeader."VAT Base Discount %" / 100),
Currency."Amount Rounding Precision");
"Amount Including VAT" :=
// Add the following line.
Amount +
// End of the added line.
ROUND(
Amount * (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100,
Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
"VAT Calculation Type"::"Full VAT":
BEGIN
... -
שנה את הקוד בפונקציה CheckLineAmount בטבלת מכירות תיקון קו (14536) כדלקמן:
קוד קיים 1..."Unit Price Incl. Discount" := "Unit Price" - "Unit Price" * "Line Discount %" / 100;
END;
// Delete the following line.
PROCEDURE CheckLineAmount@1360000();
// End of the deleted line.
BEGIN
// PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
...קוד החלפה 1
..."Unit Price Incl. Discount" := "Unit Price" - "Unit Price" * "Line Discount %" / 100;
END;
// Add the following lines.
PROCEDURE CheckLineAmount@1170219();
VAR
SalesinvHeader@1170001 : Record 112;
// End of the added lines.
BEGIN
// PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
...קוד קיים 2
...// PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
SalesCorrLine.GET("Document Type","Document No.","Correction Line No.","Before/ After correction"::Before);
GetCorrType;
IF (SalesCorrLine."Line Amount" > "Line Amount") AND
("Document Type" = "Document Type"::Invoice) AND
(SalesCorrectionType."Correction Type" = SalesCorrectionType."Correction Type"::"Quantity and Value")
THEN
...קוד החלפה 2
... // PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
SalesCorrLine.GET("Document Type","Document No.","Correction Line No.","Before/ After correction"::Before);
// Add the following line.
SalesinvHeader.GET(SalesHeader."Corr. Document No.");
// End of the added line.
GetCorrType;
IF (SalesCorrLine."Line Amount" > "Line Amount") AND
// Add the following line.
(SalesHeader."Prices Including VAT" = SalesinvHeader."Prices Including VAT") AND
// End of the added line.
("Document Type" = "Document Type"::Invoice) AND
(SalesCorrectionType."Correction Type" = SalesCorrectionType."Correction Type"::"Quantity and Value")
THEN
... -
שנה את קוד 5 מספר פריט של נתוני מכירות - הדוח חשבונית (HU) (14516) כדלקמן:
קוד קיים...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(Before),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineBefore;
DataItemLinkReference=Sales Invoice Header;
DataItemLink=Document No.=FIELD(No.);
}
SECTIONS
{
...קוד החלפה
...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(Before),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineBefore;
// Add the following lines.
OnAfterGetRecord=BEGIN
IF SalesInvHeader.GET("Sales Invoice Header"."Corr. Document No.") THEN
IF SalesInvHeader."Prices Including VAT" <> "Sales Invoice Header"."Prices Including VAT" THEN
"Unit Price Incl. Discount" := "VAT Base Amount" / Quantity;
END;
// End of the added lines.
DataItemLinkReference=Sales Invoice Header;
DataItemLink=Document No.=FIELD(No.);
}
SECTIONS
{
... -
שנה את קוד 6 מספר פריט של נתוני מכירות - הדוח חשבונית (HU) (14516) כדלקמן:
קוד קיים...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(After),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineAfter;
DataItemLinkReference=PostedSalesCorrLineBefore;
DataItemLink=Document No.=FIELD(Document No.),
Correction Line No.=FIELD(Correction Line No.);
}
SECTIONS
...קוד החלפה
...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(After),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineAfter;
// Add the following lines.
OnAfterGetRecord=BEGIN
IF SalesInvHeader."Prices Including VAT" <> "Sales Invoice Header"."Prices Including VAT" THEN
"Unit Price Incl. Discount" := "VAT Base Amount" / Quantity;
END;
// End of the added lines.
DataItemLinkReference=PostedSalesCorrLineBefore;
DataItemLink=Document No.=FIELD(Document No.),
Correction Line No.=FIELD(Correction Line No.);
}
SECTIONS
... -
שינוי הקוד ב משתנים גלובליים במכירות - הדוח חשבונית (HU) (14516) כדלקמן:
קוד קיים...VALExchRate@1360016 : Text[50];
Text14530@1360017 : TextConst 'ENU=%1/%2;HUN=%1/%2';
GroupVATText@13600018 : Text[30];
CorrInvText@1360018 : TextConst 'ENU=C O R R E C T I V E I N V O I C E;HUN=H E L Y E S B Ö T Š S Z µ M L A';
LogInteractionEnable@19003940 : Boolean INDATASET;
PROCEDURE InitLogInteraction@1360000();
BEGIN
LogInteraction := SegManagement.FindInteractTmplCode(4) <> '';
END;
...קוד החלפה
...VALExchRate@1360016 : Text[50];
Text14530@1360017 : TextConst 'ENU=%1/%2;HUN=%1/%2';
GroupVATText@13600018 : Text[30];
CorrInvText@1360018 : TextConst 'ENU=C O R R E C T I V E I N V O I C E;HUN=H E L Y E S B Ö T Š S Z µ M L A';
LogInteractionEnable@19003940 : Boolean INDATASET;
// Add the following line.
SalesInvHeader@13600019 : Record 112;
// End of the added line.
PROCEDURE InitLogInteraction@1360000();
BEGIN
LogInteraction := SegManagement.FindInteractTmplCode(4) <> '';
END;
... -
שנה את הקוד בפונקציה InitSalesLineOnCharge ב codeunit VATCorrectionManagement (14535) כדלקמן:
קוד קיים 1...SalesLine.INSERT;
CopyDim(SalesLine,SalesCorrLine);
END;
PROCEDURE InitSalesLineOnCharge@1360001(VAR SalesLine@1360000 : Record 37;SalesCorrLine@1360001 : Record 14536;QtyOnSalesLine@1360002 : Decimal);
BEGIN
InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
...קוד החלפה 1
...SalesLine.INSERT;
CopyDim(SalesLine,SalesCorrLine);
END;
PROCEDURE InitSalesLineOnCharge@1360001(VAR SalesLine@1360000 : Record 37;SalesCorrLine@1360001 : Record 14536;QtyOnSalesLine@1360002 : Decimal);
// Add the following lines.
VAR
SalesInvHeader@1360003 : Record 112;
// End of the added lines.
BEGIN
InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
...קוד קיים 2
...InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
SalesLine.VALIDATE(Quantity,QtyOnSalesLine);
SalesLine.VALIDATE("Unit Price",SalesCorrLine."Unit Price");
IF SalesLine.Quantity <> 0 THEN
SalesLine.VALIDATE("Line Discount %",SalesCorrLine."Line Discount %");
SalesLine.UpdateAmounts;
SalesLine.VALIDATE("Unit Cost (LCY)",0);
...קוד החלפה 2
...InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
SalesLine.VALIDATE(Quantity,QtyOnSalesLine);
// Add the following lines.
IF (SalesCorrLine."Before/ After correction" = SalesCorrLine."Before/ After correction"::Before) AND
(SalesInvHeader.GET(SalesCorrLine."Source Document No.")) AND
(SalesHeader."Prices Including VAT" <> SalesInvHeader."Prices Including VAT")
THEN BEGIN
IF SalesHeader."Prices Including VAT" THEN
SalesLine.VALIDATE("Unit Price",SalesCorrLine."Amount Including VAT" / SalesCorrLine.Quantity)
ELSE
SalesLine.VALIDATE("Unit Price",SalesCorrLine."VAT Base Amount" / SalesCorrLine.Quantity);
END ELSE
// End of the added lines.
SalesLine.VALIDATE("Unit Price",SalesCorrLine."Unit Price");
IF SalesLine.Quantity <> 0 THEN
SalesLine.VALIDATE("Line Discount %",SalesCorrLine."Line Discount %");
SalesLine.UpdateAmounts;
SalesLine.VALIDATE("Unit Cost (LCY)",0);
...
דרישות מוקדמות
עליך להגדיר אחד מהמוצרים הבאים מותקנים כדי להחיל תיקון חם זה:
-
גירסת Microsoft Dynamics NAV 2009 R2 הונגרית
מידע בדבר הסרת ההתקנה
אין אפשרות להסיר את התיקון החם.
מצב
Microsoft אישרה כי מדובר בבעיה במוצרי Microsoft הרשומים במקטע 'חל על'.
הערה זהו מאמר "פרסום מהיר" שנוצר ישירות בתוך ארגון התמיכה של Microsoft. המידע הכלול במסמך זה מסופק כמו שהוא כתגובה לבעיות המתעוררות. כתוצאה מהמהירות בביצוע כדי להפוך אותו לזמין, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיבוצעו בהם שינויים בכל עת ללא הודעה מוקדמת. ראה תנאי השימוששיקולים נוספים.
