תשלומים לא הוצהר בשנה של החשבונית המקורית בגירסה ספרדית של Microsoft Dynamics NAV 2009

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

גירסת Microsoft Dynamics NAV 2009 R2 ספרדית
בגירסה ספרדית של Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

הגורם

בעיה זו מתרחשת מאחר תאריך שגוי נלקח מתוך ייצוא הצהרה 347 במקרה של חשבונות מתוקנים

פתרון

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

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

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

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

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

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

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

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

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

אובייקט.

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

שינויי קוד

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

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

שנה את הקוד בפונקציה IdentifyCashPayments ב הדוח לבצע הצהרה 347 (10707) כדלקמן:
קוד קיים 1

...LOCAL PROCEDURE IdentifyCashPayments@1100010(CustomerNo@1100000 : Code[20];VATRegistrationNo@1100002 : Text[20]);
      VAR
        CustLedgerEntry@1100001 : Record 21;
      BEGIN
        // es0020.begin
        CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
        CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
...

קוד החלפה 1

...LOCAL PROCEDURE IdentifyCashPayments@1100010(CustomerNo@1100000 : Code[20];VATRegistrationNo@1100002 : Text[20]);
      VAR
        CustLedgerEntry@1100001 : Record 21;

// Add the following line.
       DocumentPostingDate@1170000000 : Date;

      BEGIN
        // es0020.begin
        CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
        CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
...

קוד קיים 2

...CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
        CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
        CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);

// Delete the following lines.
       CustLedgerEntry.SETRANGE("Posting Date",FromDate,ToDate);
       IF CustLedgerEntry.FINDSET THEN
         REPEAT
           IF (CustLedgerEntry."Bal. Account Type" = CustLedgerEntry."Bal. Account Type"::"G/L Account") AND
             (CustLedgerEntry."Bal. Account No." <> '')
           THEN BEGIN
             IF IsCashAccount(CustLedgerEntry."Bal. Account No.") THEN
               CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
           END ELSE
             IF ((CustLedgerEntry."Bal. Account No." = '') OR
               (CustLedgerEntry."Bal. Account Type" <> CustLedgerEntry."Bal. Account Type"::"G/L Account"))
             THEN BEGIN
               IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
                 CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
             END;
// End of the deleted lines.

          UNTIL CustLedgerEntry.NEXT = 0;
        // es0020.end
      END;
...

קוד החלפה 2

...CustLedgerEntry.SETCURRENTKEY("Document Type","Customer No.","Posting Date","Currency Code");
        CustLedgerEntry.SETRANGE("Document Type",CustLedgerEntry."Document Type"::Payment);
        CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);

// Add the following lines.
       // we need payments made in future.
       // CustLedgerEntry.SETRANGE("Posting Date",FromDate,ToDate);
       IF CustLedgerEntry.FINDSET THEN
         REPEAT
           DocumentPostingDate := GetPaymentDocumentPostingDate(CustLedgerEntry);
           IF (CheckCashTotalsPossibility(CustLedgerEntry,DocumentPostingDate)) THEN
             CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo,DocumentPostingDate);
// End of the added lines.

          UNTIL CustLedgerEntry.NEXT = 0;
        // es0020.end
      END;
...

שנה את הקוד בפונקציה CreateCashTotals ב הדוח לבצע הצהרה 347 (10707) כדלקמן:
קוד קיים 1

...UNTIL CustLedgerEntry.NEXT = 0;
        // es0020.end
      END;

// Delete the following line.
     LOCAL PROCEDURE CreateCashTotals@2(CustLedgerEntryNo@1100000 : Integer;VATRegistrationNo@1100001 : Text[20]) : Boolean;

      VAR
        CustLedgerEntry@1100091 : Record 21;
        DtldCustLedgEntry@1100094 : Record 379;
        DtldCustLedgEntry2@1100095 : Record 379;
...

קוד החלפה 1

...UNTIL CustLedgerEntry.NEXT = 0;
        // es0020.end
      END;

// Add the following line.
     LOCAL PROCEDURE CreateCashTotals@2(CustLedgerEntryNo@1100000 : Integer;VATRegistrationNo@1100001 : Text[20];DocumentPostingDate@1170000000 : Date) : Boolean;

      VAR
        CustLedgerEntry@1100091 : Record 21;
        DtldCustLedgEntry@1100094 : Record 379;
        DtldCustLedgEntry2@1100095 : Record 379;
...

קוד קיים 2

...THEN BEGIN
                    IF CustLedgerEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.") THEN
                      UpdateCustomerCashBuffer(VATRegistrationNo,

// Delete the following line.
                      DATE2DMY(CustLedgerEntry."Posting Date",3),-(DtldCustLedgEntry2."Amount (LCY)"));

                  END;
                UNTIL DtldCustLedgEntry2.NEXT = 0;
            END ELSE BEGIN
...

קוד החלפה 2

...THEN BEGIN
                    IF CustLedgerEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.") THEN
                      UpdateCustomerCashBuffer(VATRegistrationNo,

// Add the following line.
                       DATE2DMY(DocumentPostingDate,3),-(DtldCustLedgEntry2."Amount (LCY)"));

                  END;
                UNTIL DtldCustLedgEntry2.NEXT = 0;
            END ELSE BEGIN
...

קוד קיים 3

...END ELSE BEGIN
              IF CustLedgerEntry.GET(DtldCustLedgEntry."Applied Cust. Ledger Entry No.") THEN
                UpdateCustomerCashBuffer(VATRegistrationNo,

// Delete the following line.
                 DATE2DMY(CustLedgerEntry."Posting Date",3),DtldCustLedgEntry."Amount (LCY)");

            END;
          UNTIL DtldCustLedgEntry.NEXT = 0;
        // es0020.end
...

קוד החלפה 3

...END ELSE BEGIN
              IF CustLedgerEntry.GET(DtldCustLedgEntry."Applied Cust. Ledger Entry No.") THEN
                UpdateCustomerCashBuffer(VATRegistrationNo,

// Add the following line.
                 DATE2DMY(DocumentPostingDate,3),DtldCustLedgEntry."Amount (LCY)");

            END;
          UNTIL DtldCustLedgEntry.NEXT = 0;
        // es0020.end
...

שנה את הקוד בפונקציה GetPaymentDocumentPostingDate ב הדוח לבצע הצהרה 347 (10707) כדלקמן:
קוד קיים

...IF Vendor."Country/Region Code" = CountryCode THEN
           FromJournal := TRUE;
      END;
...

קוד החלפה

...IF Vendor."Country/Region Code" = CountryCode THEN
           FromJournal := TRUE;
      END;

// Add the following lines.
     LOCAL PROCEDURE GetPaymentDocumentPostingDate@1170000000(CustLedgerEntry@1170000000 : Record 21) PostingDate : Date;
     VAR
       CustLedgerEntryRelated@1170000001 : Record 21;
     BEGIN
       WITH CustLedgerEntry DO BEGIN;
         TESTFIELD("Document Type","Document Type"::Payment);
         PostingDate := "Posting Date";
       END;

       // If payment for Bill then we need get Posting Date of the Document related to the Bill
       WITH CustLedgerEntryRelated DO BEGIN
         SETRANGE("Closed by Entry No.",CustLedgerEntry."Entry No.");
         SETRANGE("Document Type","Document Type"::Bill);
         IF FINDFIRST THEN BEGIN
           RESET;
           SETRANGE("Document No.","Document No.");
           SETFILTER("Document Type",'%1|%2',"Document Type"::Invoice,"Document Type"::"Credit Memo");
           FINDFIRST;
           PostingDate := "Posting Date";
         END
       END;

       EXIT(PostingDate);
     END;

     PROCEDURE CheckCashTotalsPossibility@1170000008(CustLedgerEntry@1170000000 : Record 21;DocumentPostingDate@1170000001 : Date) : Boolean;
     BEGIN
       IF (DocumentPostingDate < FromDate) OR (DocumentPostingDate > ToDate) THEN
         EXIT(FALSE);

       WITH CustLedgerEntry DO
         IF ("Bal. Account Type" = "Bal. Account Type"::"G/L Account") AND ("Bal. Account No." <> '') THEN BEGIN
           IF IsCashAccount("Bal. Account No.") THEN
             EXIT(TRUE);
         END ELSE
           IF ("Bal. Account No." = '') OR ("Bal. Account Type" <> "Bal. Account Type"::"G/L Account") THEN
             IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
               EXIT(TRUE);

       EXIT(FALSE);
     END;
// End of the added lines.
...

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

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

גירסת Microsoft Dynamics NAV 2009 R2 ספרדית
גירסת Microsoft Dynamics NAV 2009 SP1 ספרדית

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

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

מצב

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

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

תשלומים לא הוצהר בשנה של החשבונית המקורית בגירסה ספרדית של Microsoft Dynamics NAV 2009

הגורם

פתרון

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

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

שינויי קוד

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

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

מצב

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

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

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

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