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

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

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

  • גירסת Microsoft Dynamics NAV 2009 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 מזהה אובייקט מערכת

    אובייקט.

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

שינויי קוד

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

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

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

    ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
            Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr  en cuenta el IVA, ¨desea continuar?';
            Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
            AppliedAmountLCY2@1100053 : Decimal;
            AppliesToDocType@1100023 : Integer;

          PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
          BEGIN
            NewGLReg := GLReg;
          END;
    ...

    קוד החלפה

    ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
            Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr  en cuenta el IVA, ¨desea continuar?';
            Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
            AppliedAmountLCY2@1100053 : Decimal;
            AppliesToDocType@1100023 : Integer;

    // Add the following line.
    Text1100013@1100026 : TextConst 'ENU=You do not have permissions to apply or unapply documents in the Cartera Module.';
    // End of the added line.


          PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
          BEGIN
            NewGLReg := GLReg;
          END;
    ...

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

    ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
              OldCustLedgEntry.SETRANGE(Open,TRUE);

              OldCustLedgEntry.FINDFIRST;
              OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedReceivableDoc(
                  OldCustLedgEntry,GenJnlLine."System-Created Entry");
    ...

    קוד החלפה 1

    ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
              OldCustLedgEntry.SETRANGE(Open,TRUE);

              OldCustLedgEntry.FINDFIRST;

    // Add the following line.
    CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
    // End of the added line.

              OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedReceivableDoc(
                  OldCustLedgEntry,GenJnlLine."System-Created Entry");
    ...

    קוד קיים 2

    ...// Check Cust Ledger Entry and add to Temp.
              IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
                OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN

    // Delete the following lines.
    REPEAT
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Customer,
    FALSE)
    THEN BEGIN
    IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    TempOldCustLedgEntry := OldCustLedgEntry;
    TempOldCustLedgEntry.INSERT;
    END;
    UNTIL OldCustLedgEntry.NEXT=0;
    // End of the deleted lines.


              TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);

              IF TempOldCustLedgEntry.FIND('-') THEN BEGIN
    ...

    קוד החלפה 2

    ...// Check Cust Ledger Entry and add to Temp.
              IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
                OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN

    // Add the following lines.
    REPEAT
    CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Customer,
    FALSE)
    THEN BEGIN
    IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    TempOldCustLedgEntry := OldCustLedgEntry;
    TempOldCustLedgEntry.INSERT;
    END;
    UNTIL OldCustLedgEntry.NEXT=0;
    // End of the added lines.


              TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);

              IF TempOldCustLedgEntry.FIND('-') THEN BEGIN...

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

    ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
            DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
            UnapplyVATEntries := FALSE;
            DtldCustLedgEntry2.FINDSET;
            REPEAT
              DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
              IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
              THEN
    ...

    קוד החלפה

    ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
            DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
            UnapplyVATEntries := FALSE;
            DtldCustLedgEntry2.FINDSET;
            REPEAT

    // Add the following line.
    CheckCarteraAccessPermissions(DtldCustLedgEntry2."Document Situation");
    // End of the added line.

              DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
              IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
              THEN
    ...

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

    ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
              OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
              OldVendLedgEntry.SETRANGE(Open,TRUE);
              OldVendLedgEntry.FINDFIRST;
              OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedPayableDoc(
                OldVendLedgEntry,GenJnlLine."System-Created Entry");
    ...

    קוד החלפה 1

    ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
              OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
              OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
              OldVendLedgEntry.SETRANGE(Open,TRUE);
              OldVendLedgEntry.FINDFIRST;

    // Add the following line.
    CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
    // End of the added line.

              OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
              IF AppManagement.AccessToCartera THEN
                DocPost.CheckAppliedPayableDoc(
                OldVendLedgEntry,GenJnlLine."System-Created Entry");
    ...

    קוד קיים 2

    ...//Check and Move Ledger Entries to Temp
              IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
                OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
                REPEAT
                  IF GenJnlApply.CheckAgainstApplnCurrency(
                       NewCVLedgEntryBuf."Currency Code",
                       OldVendLedgEntry."Currency Code",
                       GenJnlLine."Account Type"::Vendor,
                       FALSE)
    ...

    קוד החלפה 2

    ...//Check and Move Ledger Entries to Temp
              IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
                OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
              IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
                REPEAT

    // Add the following line.
    CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
    // End of the added line.

                  IF GenJnlApply.CheckAgainstApplnCurrency(
                       NewCVLedgEntryBuf."Currency Code",
                       OldVendLedgEntry."Currency Code",
                       GenJnlLine."Account Type"::Vendor,
                       FALSE)
    ...

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

    ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
            DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
            DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
            DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
            DtldVendLedgEntry2.FINDSET;
            UnapplyVATEntries := FALSE;
            REPEAT
              IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    ...

    קוד החלפה

    ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
            DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
            DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
            DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
            DtldVendLedgEntry2.FINDSET;

    // Add the following line.
    CheckCarteraAccessPermissions(DtldVendLedgEntry2."Document Situation");
    // End of the added line.

            UnapplyVATEntries := FALSE;
            REPEAT
              IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
                 (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    ...

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

    ...CLEAR(GenJnlLine2);

            EXIT(IsOK);
          END;

          BEGIN
          END.
        }
      }
    ...

    קוד החלפה

    ...CLEAR(GenJnlLine2);

            EXIT(IsOK);
          END;

    // Add the following lines.
    LOCAL PROCEDURE CheckCarteraAccessPermissions@1100024(DocumentSituation@1170001 : ' ,Posted BG/PO,Closed BG/PO,BG/PO,Cartera,Closed Documents');
    BEGIN
    IF (DocumentSituation <> DocumentSituation::" ") AND (NOT AppManagement.AccessToCartera) THEN
    ERROR(Text1100013);
    END;

    // End of the added lines.

         BEGIN
          END.
        }
      }
    ...

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

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

  • גירסת 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 שלך יוכל לאסוף נתונים אלה. הצהרת הפרטיות.

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

×