מע מ נרשם באופן שגוי בעת החלת חשבונית מכירה תזכיר אשראי בגירסת Microsoft Dynamics NAV 2009 איטלקית

מאמר זה מתאר בעיה בעת החלת חשבונית מכירה המכיל מע מ בלתי ממומש ובין הקו שלילי תזכיר אשראי בגירסת Microsoft Dynamics NAV 2009 באיטליה. הבעיה עדיין מתרחשת לאחר יישום התיקון של KB 2882952.בצע את השלבים במקטע קוד שינויים כדי לפתור בעיה זו. בעיה זו מתרחשת במוצרים הבאים:

גירסת Microsoft Dynamics NAV 2009 R2 איטלקית
גירסת Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) איטלקי

פתרון

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

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

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

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

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

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

שינויי קוד

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

שנה את הקוד במפתחות בטבלה ערך מע מ (254) כדלקמן:קוד קיים

...KeyGroups=SalesTax }
      {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                     SumIndexFields=Base,Additional-Currency Base;
                                                     KeyGroups=VIES_EC }

// Delete the following line.
     {    ;Document No.,Posting Date                }
// End of the deleted line.

      {    ;Transaction No.                          }
      {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                     KeyGroups=SalesTax }
      {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
...

קוד החלפה

...KeyGroups=SalesTax }
      {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                     SumIndexFields=Base,Additional-Currency Base;
                                                     KeyGroups=VIES_EC }

// Add the following line.
     {    ;Document No.,Posting Date               ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
// End of the added line.

      {    ;Transaction No.                          }
      {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                     KeyGroups=SalesTax }
      {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
...

שנה את הקוד בפונקציה GetUnRealizedVATPart בטבלה ערך מע מ (254) כדלקמן:קוד קיים 1

...END;
        EXIT(GLSetup."Additional Reporting Currency");
      END;

// Delete the following line.
     PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
// End of the deleted line.

      VAR
        UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
      BEGIN
        IF (Type <> 0) AND
...

קוד החלפה 1

...END;
        EXIT(GLSetup."Additional Reporting Currency");
      END;

// Add the following line.
     PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
// End of the added line.

      VAR
        UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
      BEGIN
        IF (Type <> 0) AND
...

קוד קיים 2

...(("Remaining Unrealized Amount" = 0) AND
              ("Remaining Unrealized Base" = 0))
          THEN
            EXIT(0);

// Delete the following lines.
        //IF ABS(Paid) = ABS(Full) THEN
        //   EXIT(1);

         CASE UnrealizedVatType OF
           UnrealizedVatType::Percentage:
             BEGIN
               IF Type2 = Type2::Purchase THEN BEGIN
                 IF (DocType = DocType::"Credit Memo") THEN BEGIN
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                     EXIT(1)
                 END ELSE BEGIN
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                     EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
                       ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
                   ELSE
                     EXIT(1)
                 END;
               END
               ELSE BEGIN
                 IF (DocType = DocType::"Credit Memo") THEN BEGIN
                   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                     EXIT(1)
                 END ELSE BEGIN
                   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                     EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
                       ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
                   ELSE
                     EXIT(1)
                 END;
               END;
// End of the deleted lines.

              END;
            UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
                BEGIN
                  IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
...

קוד החלפה 2

...(("Remaining Unrealized Amount" = 0) AND
              ("Remaining Unrealized Base" = 0))
          THEN
            EXIT(0);

// Add the following lines.
         IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
            NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
         THEN BEGIN
           VATPart := 1;
           EXIT(VATPart);
         END;

         CASE UnrealizedVatType OF
           UnrealizedVatType::Percentage:
             IF Type2 = Type2::Purchase THEN BEGIN
               TransactionInclPrepmt := FALSE;
               IF DocType = DocType::"Credit Memo" THEN BEGIN
                 IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
                   TransactionInclPrepmt := TRUE;
                   IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                        (ABS(Paid) = ABS(Full))
                     THEN
                       VATPart := 1
                     ELSE
                       VATPart :=
                         CalcVatPart(
                           GetCurrencyCode,1.0,TotalPayments,
                           GetTransactionRemainingAmount("Transaction No."));
                   END;
                   EXIT(VATPart);
                 END ELSE
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                     EXIT(1)
               END ELSE BEGIN
                 IF PurchInvInclPrepmt("Document No.") THEN BEGIN
                   TransactionInclPrepmt := TRUE;
                   IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                       (ABS(Paid) = ABS(Full))
                     THEN
                       VATPart := 1
                     ELSE
                       VATPart :=
                         CalcVatPart(
                           GetCurrencyCode,1.0,TotalPayments,
                           GetTransactionRemainingAmount("Transaction No."));
                   END;
                   EXIT(VATPart);
                 END ELSE
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                     EXIT(
                       CalcVatPart(
                         GetCurrencyCode,1.0,TotalPayments,
                        ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
                 EXIT(1);
               END;
             END ELSE BEGIN
               TransactionInclPrepmt := FALSE;
               IF DocType = DocType::"Credit Memo" THEN BEGIN
                 IF SalesInvInclPrepmt("Document No.") THEN BEGIN
                   TransactionInclPrepmt := TRUE;
                   IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                        (ABS(Paid) = ABS(Full))
                     THEN
                       VATPart := 1
                     ELSE
                       VATPart :=
                         CalcVatPart(
                           GetCurrencyCode,1.0,TotalPayments,
                           GetTransactionRemainingAmount("Transaction No."));
                   END;
                   EXIT(VATPart);
                 END;
                 IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                   EXIT(1);
                 EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
               END;
               IF SalesInvInclPrepmt("Document No.") THEN BEGIN
                 TransactionInclPrepmt := TRUE;
                 IF VATPart = 0 THEN BEGIN
                  IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                      (ABS(Paid) = ABS(Full))
                   THEN
                     VATPart := 1
                   ELSE
                     VATPart :=
                       CalcVatPart(
                         GetCurrencyCode,1.0,TotalPayments,
                         GetTransactionRemainingAmount("Transaction No."));
                 END;
                 EXIT(VATPart);
               END ELSE
                 IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                   EXIT(
                     CalcVatPart(
                       GetCurrencyCode,1.0,TotalPayments,
                       ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
               EXIT(1);
// End of the added lines.

              END;
            UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
                BEGIN
                  IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
...

שנה את הקוד בפונקציה SalesInvInclPrepmt בטבלה ערך מע מ (254) כדלקמן:קוד קיים

...EXIT(RemainingAmount - SettledAmount);
        EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
      END;

      BEGIN
      END.
    }
  }
...

קוד החלפה

...EXIT(RemainingAmount - SettledAmount);
        EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
      END;

// Add the following lines.
  LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    SalesInvLine@1130001 : Record 113;
  BEGIN
    SalesInvLine.SETRANGE("Document No.",DocNo);
    SalesInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesInvLine.ISEMPTY);
  END;

  LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    SalesCrMemoLine@1130001 : Record 115;
  BEGIN
    SalesCrMemoLine.SETRANGE("Document No.",DocNo);
    SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesCrMemoLine.ISEMPTY);
  END;

  LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    PurchInvLine@1130001 : Record 123;
  BEGIN
    PurchInvLine.SETRANGE("Document No.",DocNo);
    PurchInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchInvLine.ISEMPTY);
  END;

  LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    PurchCrMemoLine@1130001 : Record 125;
  BEGIN
    PurchCrMemoLine.SETRANGE("Document No.",DocNo);
    PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchCrMemoLine.ISEMPTY);
  END;

  LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
  VAR
    VATEntry@1130001 : Record 254;
  BEGIN
    WITH VATEntry DO BEGIN
      SETRANGE("Transaction No.",TransactionNo);
      IF FINDSET THEN
        REPEAT
          TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
        UNTIL NEXT = 0;
    END;
  END;

  LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
  VAR
    VATEntry@1130002 : Record 254;
  BEGIN
    VATEntry.SETCURRENTKEY("Document No.","Posting Date");
    VATEntry.SETRANGE("Document No.",DocumentNo);
    VATEntry.SETRANGE("Posting Date",PostingDate);
    VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
    EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
  END;

  LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
  BEGIN
    CASE VATType OF
      VATType::Purchase:
        IF DocumentType = DocumentType::"Credit Memo" THEN
          EXIT(PurchCrMemoInclPrepmt(DocumentNo))
        ELSE
          EXIT(PurchInvInclPrepmt(DocumentNo));
      VATType::Sale:
        IF DocumentType = DocumentType::"Credit Memo" THEN
          EXIT(SalesInvInclPrepmt(DocumentNo))
        ELSE
          EXIT(SalesCrMemoInclPrepmt(DocumentNo));
    END;
  END;
// End of the added lines.

      BEGIN
      END.
    }
  }
...

לשנות את הקוד בפונקציה CustUnrealizedVAT Jnl Gen..-Codeunit קו Post (12) כפי שמוצג להלן:קוד קיים 1

...SalesVATUnrealAccount@1010 : Code[20];
        LastConnectionNo@1011 : Integer;
        TotalPayments@1130000 : Decimal;
        Type2@1130001 : 'Sale,Purchase';
      BEGIN
        PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
...

קוד החלפה 1

...SalesVATUnrealAccount@1010 : Code[20];
        LastConnectionNo@1011 : Integer;
        TotalPayments@1130000 : Decimal;
        Type2@1130001 : 'Sale,Purchase';

// Add the following line.
       TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.

      BEGIN
        PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
...

קוד קיים 2

...InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Delete the following lines.
           VATPart := VATEntry2.GetUnRealizedVATPart(
             ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
             PaidAmount,
             CustLedgEntry2."Original Amt. (LCY)",
             TotalUnrealVATAmountFirst,
             TotalUnrealVATAmountLast,
             Type2::Sale,
             CustLedgEntry2."Document Type",
             CustLedgEntry2.Open,
             CustLedgEntry2.Amount,
             CustLedgEntry2."Remaining Amount",
             TotalPayments);
// End of the deleted lines.

            IF VATPart > 0 THEN BEGIN
              CASE VATEntry2."VAT Calculation Type" OF
                VATEntry2."VAT Calculation Type"::"Normal VAT",
...

קוד החלפה 2

...InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Add the following lines.
           VATPart :=
             VATEntry2.GetUnRealizedVATPart(
               ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
               PaidAmount,
               CustLedgEntry2."Original Amt. (LCY)",
               TotalUnrealVATAmountFirst,
               TotalUnrealVATAmountLast,
               Type2::Sale,
               CustLedgEntry2."Document Type",
               CustLedgEntry2.Open,
               CustLedgEntry2.Amount,
               CustLedgEntry2."Remaining Amount",
               TotalPayments,
               VATPart,
               TransactionInclPrepmt);
// End of the added lines.

            IF VATPart > 0 THEN BEGIN
              CASE VATEntry2."VAT Calculation Type" OF
                VATEntry2."VAT Calculation Type"::"Normal VAT",
...

קוד קיים 3

...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
                    AddCurrency."Amount Rounding Precision");
              END;

// Delete the following line.
             TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted line.

              IF VATAmount <> 0 THEN BEGIN
                InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

קוד החלפה 3

...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
                    AddCurrency."Amount Rounding Precision");
              END;

// Add the following lines.
             IF TransactionInclPrepmt THEN
               TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
             ELSE
               TotalPayments :=
                 TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.

              IF VATAmount <> 0 THEN BEGIN
                InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

לשנות את הקוד בפונקציה VendUnrealizedVAT Jnl Gen..-Codeunit קו Post (12) כפי שמוצג להלן:קוד קיים 1

...PurchReverseUnrealAccount@1012 : Code[20];
        LastConnectionNo@1013 : Integer;
        Type2@1130000 : 'Sale,Purchase';
        TotalPayments@1130001 : Decimal;
      BEGIN
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
        VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...

קוד החלפה 1

...PurchReverseUnrealAccount@1012 : Code[20];
        LastConnectionNo@1013 : Integer;
        Type2@1130000 : 'Sale,Purchase';
        TotalPayments@1130001 : Decimal;

// Add the following line.
       TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.

      BEGIN
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
        VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...

קוד קיים 2

...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
              InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Delete the following lines.
           IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
             EXIT;
           VATPart := VATEntry2.GetUnRealizedVATPart(
             ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
             PaidAmount,
             VendLedgEntry2."Original Amt. (LCY)",
             TotalUnrealVATAmountFirst,
             TotalUnrealVATAmountLast,
             Type2::Purchase,
             VendLedgEntry2."Document Type",
             VendLedgEntry2.Open,
             VendLedgEntry2.Amount,
             VendLedgEntry2."Remaining Amount",
             TotalPayments);
// End of the deleted lines.

            IF VATPart >= 0 THEN BEGIN
              IF VATPart <> 0 THEN BEGIN
                CASE VATEntry2."VAT Calculation Type" OF
...

קוד החלפה 2

...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
              InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Add the following lines.
           IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
              (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
           THEN
             EXIT;

           VATPart :=
             VATEntry2.GetUnRealizedVATPart(
               ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
               PaidAmount,
               VendLedgEntry2."Original Amt. (LCY)",
               TotalUnrealVATAmountFirst,
               TotalUnrealVATAmountLast,
               Type2::Purchase,
               VendLedgEntry2."Document Type",
               VendLedgEntry2.Open,
               VendLedgEntry2.Amount,
               VendLedgEntry2."Remaining Amount",
               TotalPayments,
               VATPart,
               TransactionInclPrepmt);
// End of the added lines.

            IF VATPart >= 0 THEN BEGIN
              IF VATPart <> 0 THEN BEGIN
                CASE VATEntry2."VAT Calculation Type" OF
...

קוד קיים 3

...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
                    END;
                END;

// Delete the following lines.
               VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
               VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
               TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted lines.

                IF VATAmount <> 0 THEN BEGIN
                  InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                  GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

קוד החלפה 3

...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
                    END;
                END;

// Add the following lines.
               VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
               VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
             IF TransactionInclPrepmt THEN
               TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
             ELSE
               TotalPayments :=
                 TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.

                IF VATAmount <> 0 THEN BEGIN
                  InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                  GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

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

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

הסבה איטלקית של Microsoft Dynamics NAV 2009 R2
הסבה איטלקית של Microsoft Dynamics NAV 2009 SP1

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

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

מצב

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

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

מע מ נרשם באופן שגוי בעת החלת חשבונית מכירה תזכיר אשראי בגירסת Microsoft Dynamics NAV 2009 איטלקית

פתרון

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

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

שינויי קוד

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

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

מצב

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

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

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

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