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

מאמר זה חל על Microsoft Dynamics ניווט עבור האזור שפה פורטוגזית (pt).

מאפייני הבעיה

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

גירסת Microsoft Dynamics NAV 2009 R2 פורטוגזי
גירסת Microsoft Dynamics NAV 2009 Service Pack 1 פורטוגזי

פתרון

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

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

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

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

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

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

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

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

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

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

שינויי קוד

הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, שנה את קוד Jnl Gen..-codeunit קו Post (12). לשם כך, בצע את הפעולות הבאות:

הוסף משתנה גלובלי הבאים:

TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;

שנה את הקוד בפונקציה PostCust כדלקמן:
קוד קיים 1

...          DiscRiskFactAmountLCY := 0;
          DiscUnriskFactAmountLCY := 0;
          CollFactAmountLCY := 0;
        //--------

          IF Cust."No." <> "Account No." THEN
            Cust.GET("Account No.");
          Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);

          IF "Posting Group" = '' THEN BEGIN
...

קוד החלפה 1

...          DiscRiskFactAmountLCY := 0;
          DiscUnriskFactAmountLCY := 0;
          CollFactAmountLCY := 0;
        //--------

// Add the following lines. 
         TempRejCustLedgEntry.RESET;
         TempRejCustLedgEntry.DELETEALL;
// End of the lines.

          IF Cust."No." <> "Account No." THEN
            Cust.GET("Account No.");
          Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);

          IF "Posting Group" = '' THEN BEGIN
...

קוד קיים 2

...            END;

          // Post the application
          ApplyCustLedgEntry(
            CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");

// Delete the following lines.
         IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
           GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.

          IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
            IF "Document Type" = "Document Type"::Bill THEN BEGIN
              DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
              CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
...

קוד החלפה 2

...            END;

          // Post the application
          ApplyCustLedgEntry(
            CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");

// Add the following lines.
         IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
           "Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.

          IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
            IF "Document Type" = "Document Type"::Bill THEN BEGIN
              DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
              CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
...

שנה את הקוד בפונקציה PostVend כדלקמן:
קוד קיים

...          // Post the application
          ApplyVendLedgEntry(
            CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
            GLSetup."Appln. Rounding Precision");

// Delete the following lines.
         IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
           GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.

          IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
            IF "Document Type" = "Document Type"::Bill THEN BEGIN
              DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
              VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
...

קוד החלפה

...          // Post the application
          ApplyVendLedgEntry(
            CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
            GLSetup."Appln. Rounding Precision");

// Add the following lines.
         IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
           "Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.

          IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
            IF "Document Type" = "Document Type"::Bill THEN BEGIN
              DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
              VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
...

שנה את הקוד בפונקציה ApplyCustLedgEntry כדלקמן:
קוד קיים

...                OldCustLedgEntry."Document Situation"::"Closed Documents",
                OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
                FromClosedDoc := TRUE
              ELSE
                FromClosedDoc := FALSE;
              DocPost.UpdateReceivableDoc(
                OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
                DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
                DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
            END;
...

קוד החלפה

...                OldCustLedgEntry."Document Situation"::"Closed Documents",
                OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
                FromClosedDoc := TRUE
              ELSE
                FromClosedDoc := FALSE;

// Add the following lines.
             IF OldCustLedgEntry."Document Status" = OldCustLedgEntry."Document Status"::Rejected THEN BEGIN
               TempRejCustLedgEntry := OldCustLedgEntry;
               TempRejCustLedgEntry."Remaining Amount (LCY) stats." := AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY;
               TempRejCustLedgEntry.INSERT;
             END;
// End of the lines.

              DocPost.UpdateReceivableDoc(
                OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
                DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
                DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
            END;
...

שנה את הקוד בפונקציה PostDtldCustLedgEntries כדלקמן:
קוד קיים

...              AccNo := CustPostingGr."Bills Account";
            END ELSE BEGIN
              CustPostingGr.TESTFIELD("Receivables Account");
              AccNo := CustPostingGr."Receivables Account";
            END;

// Delete the following lines.
           IF DiscDocAmountLCY <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Discted. Bills Acc.");
             AccNo := CustPostingGr."Discted. Bills Acc.";
           END;
           IF CollDocAmountLCY <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Bills on Collection Acc.");
             AccNo := CustPostingGr."Bills on Collection Acc.";
           END;
           IF RejDocAmountLCY <> 0 THEN BEGIN
             CASE GenJnlLine."Applies-to Doc. Type" OF
               GenJnlLine."Applies-to Doc. Type"::Bill:
                 BEGIN
                   CustPostingGr.TESTFIELD("Rejected Bills Acc.");
                   AccNo := CustPostingGr."Rejected Bills Acc.";
                 END;
               GenJnlLine."Applies-to Doc. Type"::Invoice:
                 BEGIN
                   CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
                   AccNo := CustPostingGr."Rejected Factoring Acc.";
                 END;
               ELSE
                 IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
                   (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
                   CASE OldCVLedgEntryBuf4."Document Type" OF
                     OldCVLedgEntryBuf4."Document Type"::Bill:
                       BEGIN
                         CustPostingGr.TESTFIELD("Receivables Account");
                         AccNo := CustPostingGr."Receivables Account";
                       END;
                     OldCVLedgEntryBuf4."Document Type"::Invoice:
                       BEGIN
                         CustPostingGr.TESTFIELD("Receivables Account");
                         AccNo := CustPostingGr."Receivables Account";
                       END;
                   END;
                 END;
             END;
           END;
           IF (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) THEN BEGIN
             CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
             AccNo := CustPostingGr."Factoring for Discount Acc.";
           END;
           IF CollFactAmountLCY <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Factoring for Collection Acc.");
             AccNo := CustPostingGr."Factoring for Collection Acc.";
           END;
// End of the lines.

            ReceivableAccAmtLCY :=
              TotalAmountLCY -
              (DocAmountLCY + DiscDocAmountLCY +
               CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
...

קוד החלפה

...              AccNo := CustPostingGr."Bills Account";
            END ELSE BEGIN
              CustPostingGr.TESTFIELD("Receivables Account");
              AccNo := CustPostingGr."Receivables Account";
            END;

            ReceivableAccAmtLCY :=
              TotalAmountLCY -
              (DocAmountLCY + DiscDocAmountLCY +
               CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
...

שנה את הקוד בפונקציה PostReceivableDocs כדלקמן:
קוד קיים

...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
          GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
          InsertGLEntry(TRUE);
        END;
        IF RejDocAmountLCY <> 0 THEN BEGIN

// Delete the following lines.
         CASE GenJnlLine."Applies-to Doc. Type" OF
           GenJnlLine."Applies-to Doc. Type"::Bill:
             BEGIN
               CustPostingGr.TESTFIELD("Rejected Bills Acc.");
               InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
               GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
               GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
               InsertGLEntry(TRUE);
             END;
           GenJnlLine."Applies-to Doc. Type"::Invoice:
             BEGIN
               CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
               InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
               GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
               GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
               InsertGLEntry(TRUE);
             END;
           ELSE
             IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
               (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
               CASE OldCVLedgEntryBuf4."Document Type" OF
                 OldCVLedgEntryBuf4."Document Type"::Bill:
                   BEGIN
                     CustPostingGr.TESTFIELD("Rejected Bills Acc.");
                     InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
                     GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                     GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                     InsertGLEntry(TRUE);
                   END;
                 OldCVLedgEntryBuf4."Document Type"::Invoice:
                   BEGIN
                     CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
                     InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE
       );

                     GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                     GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                     InsertGLEntry(TRUE);
                   END;
               END;
             END;
// End of the lines.

          END;
        END;
        IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
          CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
          InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
...

קוד החלפה

...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
          GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
          InsertGLEntry(TRUE);
        END;
        IF RejDocAmountLCY <> 0 THEN BEGIN

// Add the following lines.
         WITH TempRejCustLedgEntry DO BEGIN
           RESET;
           SETCURRENTKEY("Customer No.","Document Type","Document Situation","Document Status");
           SETRANGE("Document Type","Document Type"::Bill);
           CALCSUMS("Remaining Amount (LCY) stats.");
           IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Rejected Bills Acc.");
             InitGLEntry(
               CustPostingGr."Rejected Bills Acc.","Remaining Amount (LCY) stats.",
               DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
             GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
             GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
             InsertGLEntry(TRUE);
           END;
           SETRANGE("Document Type","Document Type"::Invoice);
           CALCSUMS("Remaining Amount (LCY) stats.");
           IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
             InitGLEntry(
               CustPostingGr."Rejected Factoring Acc.","Remaining Amount (LCY) stats.",
               DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
             GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
             GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
             InsertGLEntry(TRUE);
           END;
// End of the lines.

          END;
        END;
        IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
          CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
          InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
...

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

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

גירסת Microsoft Dynamics NAV 2009 R2 פורטוגזי
גירסת Microsoft Dynamics NAV 2009 Service Pack 1 פורטוגזי

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

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

מצב

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

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

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

מאפייני הבעיה

פתרון

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

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

שינויי קוד

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

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

מצב

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

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

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

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