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

מאמר זה מתאר בעיה בעת החלת חשבונית מכירה המכיל מע מ בלתי ממומש ובין הקו שלילי תזכיר אשראי בגירסת 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 מזהה אובייקט מערכת

    אובייקט.

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

שינויי קוד

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

כדי לפתור בעיה זו, בצע את הפעולות הבאות:

  1. שנה את הקוד במפתחות בטבלה ערך מע מ (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;
    ...

  2. שנה את הקוד בפונקציה 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
    ...

  3. שנה את הקוד בפונקציה 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.
        }
      }
    ...

  4. לשנות את הקוד בפונקציה 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;
    ...

  5. לשנות את הקוד בפונקציה 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. המידע הכלול במסמך זה מסופק כמו שהוא כתגובה לבעיות המתעוררות. כתוצאה מהמהירות בביצוע כדי להפוך אותו לזמין, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיבוצעו בהם שינויים בכל עת ללא הודעה מוקדמת. ראה תנאי השימוששיקולים נוספים.

Facebook LinkedIn דואר אלקטרוני
הרשמה כמנוי להזנות RSS

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

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

לגלות קהילה

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

הטבות מינוי Microsoft 365

הדרכת Microsoft 365

אבטחת Microsoft

מרכז הנגישות

קהילות עוזרות לך לשאול שאלות ולהשיב עליהן, לתת משוב ולשמוע ממומחים בעלי ידע עשיר.

שאל את Microsoft Community

Microsoft Tech Community

משתתפי Windows Insider

משתתפי Insider של Microsoft 365

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

עד כמה אתם מרוצים מאיכות השפה?
מה השפיע על החוויה שלך?
בלחיצה על 'שלח', אתה מאפשר למשוב שלך לשפר מוצרים ושירותים של Microsoft. מנהל ה-IT שלך יוכל לאסוף נתונים אלה. הצהרת הפרטיות.

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

×