מאמר זה חל על Microsoft Dynamics ניווט עבור האזור שפה הונגרית (hu).
מאפייני הבעיה
שקול את התרחיש הבא בגירסת Microsoft Dynamics NAV 2009 R2 הונגרית:
-
החלת העדכון תשלומי מקדמה עבור גירסת Microsoft Dynamics NAV 2009 R2 הונגרית.
-
הגדר את השדה סוג תשלום מקדמה מראש בטופס כיוונון ספר ראשי כללי.
-
הגדר את השדה סוג תיקון חשבונית לתמיכה מוחלטת עבור מס ערך מוסף (VAT) רישום קבוצה.
-
צור הזמנת מכירה עבור לקוח מי שמשתמש מע מ רישום קבוצה.
-
הצב תשלומי מקדמה וחשבונית מראש עבור הלקוח.
-
משלוח וחשבונית הזמנת המכירה.
בתרחיש זה, גדול עיגול הערך נוצרת החשבונית באופן בלתי צפוי.
פתרון
מידע על תיקונים חמים
תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. יש להחיל אותו רק במערכות שהתעוררה בהן בעיה ספציפית זו. תיקון חם זה עשוי לעבור בדיקות נוספות. לכן, אם המערכת שברשותך לא נפגעה באופן חמור מבעיה זו, מומלץ להמתין ל- Microsoft Dynamics NAV 2009 service pack הבאה או גירסת Microsoft Dynamics NAV הבא המכיל תיקון חם זה.
הערה במקרים מיוחדים, שהצגת עבור שיחות עשויים לבטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים יקבע שעדכון ספציפי יפתור את הבעיה. דמי התמיכה המקובלים יחולו על נוספים שאלות וסוגיות תמיכה אשר אינן מצריכות העדכון הספציפי האמור.
מידע על ההתקנה
מיקרוסופט מציעה דוגמאות תכנות לצורך ההדגמה בלבד, ללא אחריות, בין מפורשת ובין משתמעת. זה כולל, אך אינו מוגבל ל, אחריות מכללא לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת, אך הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או כדי לבנות פרוצדורות שיענו על צרכיך הספציפיים.
הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Navision אינם מחוברים למערכת. זה כולל משתמשים לקוח של שירותי היישום של Microsoft Navision (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.
כדי ליישם תיקון חם זה, דרוש לך רשיון מפתחים.
אנו ממליצים חשבון המשתמש בחלון כניסות Windows או בחלון מסד הנתונים כניסות יוקצו את מזהה תפקיד "סופר". אם חשבון המשתמש אין אפשרות להקצות מזהה תפקיד של "עילי", עליך לוודא כי חשבון משתמש בעל ההרשאות הבאות:
-
שנה את ההרשאה עבור האובייקט שינוי.
-
הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור האובייקט 9015 מזהה האובייקט של המערכת .
הערה אין לך הרשאות למאגרי נתונים אלא אם כן יש לך לבצע תיקון נתונים.
שינויי קוד
הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:
-
שנה את הקוד בפונקציה CalcRndDiffAmt ב codeunit "מכירות עמדות" (80) כדלקמן:
קוד קיים...// Delete the following lines.
PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
BEGIN
EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt + CalcPostedAmtInclVAT));
// End of the lines.
END;
...קוד החלפה
...// Add the following lines.
LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
VAR
TotalAmtInclVAT@1360001 : Decimal;
BEGIN
TotalAmtInclVAT :=
CalcTotalAmtInclVAT(Currency);
IF TotalAmtInclVAT = InvAmt THEN
EXIT(0);
EXIT(TotalAmtInclVAT - (InvAmt + CalcPostedAmtInclVAT));
// End of the lines.
END;
... -
שנה את הקוד בפונקציה IsFinalInvoice ב codeunit "מכירות עמדות" (80) כדלקמן:
קוד קיים...SETRANGE("Document No.",SalesHeader."No.");
// Delete the following line.
EXIT(SalesPostAdvances.FullyDeductedCustPrepmt(SalesOrderLine));
END;
...קוד החלפה
...SETRANGE("Document No.",SalesHeader."No.");
// Add the following line.
EXIT(SalesPostAdvances.IsFinalCustInvoice(SalesOrderLine));
END;
... -
שנה את הקוד בפונקציה CalcRndDiffAmt ב codeunit "רכישה עמדות" (90) כדלקמן:
קוד קיים...// Delete the following lines.
PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
BEGIN
EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt - CalcPostedAmtInclVAT));
// End of the lines.
END;
...קוד החלפה
...// Add the following lines.
LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
VAR
TotalAmtInclVAT@1360001 : Decimal;
BEGIN
TotalAmtInclVAT :=
CalcTotalAmtInclVAT(Currency);
IF TotalAmtInclVAT = InvAmt THEN
EXIT(0);
EXIT(TotalAmtInclVAT - (InvAmt - CalcPostedAmtInclVAT));
// End of the lines.
END;
... -
שנה את הקוד בפונקציה IsFinalInvoice ב codeunit "רכישה עמדות" (90) כדלקמן:
קוד קיים...SETRANGE("Document No.",PurchHeader."No.");
// Delete the following line.
EXIT(PurchPostAdvances.FullyDeductedVendPrepmt(PurchOrderLine));
END;
...קוד החלפה
...SETRANGE("Document No.",PurchHeader."No.");
// Add the following line.
EXIT(PurchPostAdvances.IsFinalVendInvoice(PurchOrderLine));
END;
... -
שנה את הקוד בפונקציה SalesOrderProcessing ב codeunit "קידום מכירות עמדות" (26585) באופן הבא:
קוד קיים 1...VAR
// Delete the following lines.
FullyDeducted@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH SalesHeader DO BEGIN
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
IF FullyDeducted THEN
// End of the lines.
InvoicedAmount :=
...קוד החלפה 1
...VAR
// Add the following lines.
IsFinalInvoice@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH SalesHeader DO BEGIN
IsFinalInvoice := IsFinalCustInvoice(SalesLine);
IF IsFinalInvoice THEN
// End of the lines.
InvoicedAmount :=
...קוד קיים 2
...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Delete the following line.
FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
UNTIL SalesLine.NEXT = 0;
...קוד החלפה 2
...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Add the following line.
IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
UNTIL SalesLine.NEXT = 0;
... -
שנה את הקוד בפונקציה FullyDeductedCustPrepmt ב codeunit "קידום מכירות עמדות" (26585) באופן הבא:
קוד קיים 1...// Delete the following line.
PROCEDURE FullyDeductedCustPrepmt@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
BEGIN
...קוד החלפה 1
...// Add the following line.
PROCEDURE IsFinalCustInvoice@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
BEGIN
...קוד קיים 2
...SetSalesLineToPost(SalesLine);
// Delete the following line.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" <> SalesLine."Prepmt. Amt. Inv." THEN
EXIT(FALSE);
...קוד החלפה 2
...SetSalesLineToPost(SalesLine);
// Add the following line.
IF SalesLine."Qty. to Invoice" + SalesLine."Quantity Invoiced" <> SalesLine.Quantity THEN
EXIT(FALSE);
... -
שנה את הקוד בפונקציה CollectFullyDeductedOrders ב codeunit "קידום מכירות עמדות" (26858) באופן הבא:
קוד קיים 1...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
// Delete the following line.
FullyDeducted@1360004 : Boolean;
BEGIN
...קוד החלפה 1
...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
// Add the following line.
IsFinalInvoice@1360004 : Boolean;
BEGIN
...קוד קיים 2
...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
// Delete the following lines.
FullyDeducted := FullyDeductedOrder.FIND;
IF NOT FullyDeducted THEN BEGIN
FullyDeducted := FullyDeductedCustPrepmt(SalesOrderLine);
IF FullyDeducted THEN
FullyDeductedOrder.INSERT;
END;
IF FullyDeducted THEN BEGIN
// End of the lines.
FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
...קוד החלפה 2
...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
// Add the following lines.
IsFinalInvoice := FullyDeductedOrder.FIND;
IF NOT IsFinalInvoice THEN BEGIN
IsFinalInvoice := IsFinalCustInvoice(SalesOrderLine);
IF IsFinalInvoice THEN
FullyDeductedOrder.INSERT;
END;
IF IsFinalInvoice THEN BEGIN
// End of the lines.
FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
... -
שנה את הקוד בפונקציה PurchOrderProcessing ב codeunit "מקדמות עמדות Purchace" (26586) באופן הבא:
קוד קיים 1...VAR
// Delete the following lines.
FullyDeducted@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH PurchHeader DO BEGIN
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);
IF FullyDeducted THEN
// End of the lines.
InvoicedAmount :=
...קוד החלפה 1
...VAR
// Add the following lines.
IsFinalInvoice@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH PurchHeader DO BEGIN
IsFinalInvoice := IsFinalVendInvoice(PurchLine);
IF IsFinalInvoice THEN
// End of the lines.
InvoicedAmount :=
...קוד קיים 2
...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Delete the following line.
FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
UNTIL PurchLine.NEXT = 0;
...קוד החלפה 2
...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Add the following line.
IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
UNTIL PurchLine.NEXT = 0;
... -
שנה את הקוד בפונקציה FullyDeductedVendPrepmt ב codeunit "מקדמות עמדות Purchace" (26586) באופן הבא:
קוד קיים 1...// Delete the following line.
PROCEDURE FullyDeductedVendPrepmt@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
BEGIN
...קוד החלפה 1
...// Add the following line.
PROCEDURE IsFinalVendInvoice@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
BEGIN
...קוד קיים 2
...SetPurchLineToPost(PurchLine);
// Delete the following line.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" <> PurchLine."Prepmt. Amt. Inv." THEN
EXIT(FALSE);
...קוד החלפה 2
...SetPurchLineToPost(PurchLine);
// Add the following line.
IF PurchLine."Qty. to Invoice" + PurchLine."Quantity Invoiced" <> PurchLine.Quantity THEN
EXIT(FALSE);
... -
שנה את הקוד בפונקציה CollectFullyDeductedOrders ב codeunit "מקדמות עמדות Purchace" (26586) באופן הבא:
קוד קיים 1...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
// Delete the following line.
FullyDeducted@1360004 : Boolean;
BEGIN
...קוד החלפה 1
...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
// Add the following line.
IsFinalInvoice@1360004 : Boolean;
BEGIN
...קוד קיים 2
...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
// Delete the following lines.
FullyDeducted := FullyDeductedOrder.FIND;
IF NOT FullyDeducted THEN BEGIN
FullyDeducted := FullyDeductedVendPrepmt(PurchOrderLine);
IF FullyDeducted THEN
FullyDeductedOrder.INSERT;
END;
IF FullyDeducted THEN BEGIN
// End of the lines.
FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
...קוד החלפה 2
...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
// Add the following lines.
IsFinalInvoice := FullyDeductedOrder.FIND;
IF NOT IsFinalInvoice THEN BEGIN
IsFinalInvoice := IsFinalVendInvoice(PurchOrderLine);
IF IsFinalInvoice THEN
FullyDeductedOrder.INSERT;
END;
IF IsFinalInvoice THEN BEGIN
// End of the lines.
FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
...
דרישות מוקדמות
עליך להתקין את הגירסה ההונגרית של Microsoft Dynamics NAV 2009 R2 בעדכון תשלומי מקדמה מותקן כדי להחיל תיקון חם זה.
מידע בדבר הסרת ההתקנה
אין אפשרות להסיר את התיקון החם.
מצב
Microsoft אישרה כי מדובר בבעיה במוצרי Microsoft הרשומים במקטע 'חל על'.
הערה זהו מאמר "פרסום מהיר" שנוצר ישירות בתוך ארגון התמיכה של Microsoft. המידע הכלול במסמך זה מסופק כמו שהוא כתגובה לבעיות המתעוררות. כתוצאה מהמהירות בביצוע כדי להפוך אותו לזמין, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיבוצעו בהם שינויים בכל עת ללא הודעה מוקדמת. ראה תנאי השימוש שיקולים נוספים.
