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

תבנית: CPR - תבנית Fiacx קוד Navision

באג #: 216251 (תחזוקת תוכן)

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

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

  • גירסת Microsoft Dynamics NAV 2009 R2 איטלקית

  • גירסת Microsoft Dynamics NAV 2009 SP1 איטלקית

פתרון

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

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

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

אם תיקון חם זה לא פורסם להורדה עבור הציבור הרחב (כלומר שמאמר זה אינו מספק כתובת URL ציבורית להורדת התיקון החם), הפצתו דורשת באישור מאת ראש צוות טכני, חבר צוות הסלמה או מנהל, ויחולו הבאים:

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

  • עליך לנהל מעקב אחר לקוחות שלח זו כדי לספק אותם עם ה-service pack הבאה לכשתהיה זמינה (ואם אכן תפורסם service pack).

תיקון חם זה אינו מיועד להיכלל עם Microsoft Dynamics NAV Service Pack.

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

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

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

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

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

  • שנה את ההרשאה עבור האובייקט שינוי.

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

    אובייקט.

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

שינויי קוד

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

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

  1. שינוי הקוד ב הדוח רשימת לקוחות שטרות (12117) כדלקמן:
    קוד קיים 1

    ...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
    WHERE(Entry Type=CONST(Application));
    OnPreDataItem=BEGIN

    // Delete the following line.
    CustLedgEntry1.COPYFILTER("Posting Date", "Detailed Cust. Ledg. Entry"."Posting Date"); // IT0004
    // End of the deleted line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    קוד החלפה 1

    ...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
    WHERE(Entry Type=CONST(Application));
    OnPreDataItem=BEGIN

    // Add the following line.
    FindAppliedDtldCustLedgEntry(CustLedgEntry1."Entry No.");
    // End of the added line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    קוד קיים 2

    ...     {   END;

    OnAfterGetRecord=BEGIN

    // Delete the following lines.
    IF ("Entry No." = 0) OR ("Unapplied by Entry No." <> 0) OR
    ("Document Type" IN
    ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::Dishonored,"Document Type"::" "])
    THEN
    ShowDetailedCustLedgerEntry := TRUE
    ELSE
    ShowDetailedCustLedgerEntry := FALSE;
    // IT0015.begin
    //VSTF275923 begin
    // VSTF305887.begin
    //IF PrintCustLedgEntry2 THEN
    IF PrintCustLedgEntry2 AND ("Document Type" <> "Document Type"::Payment) THEN
    CurrReport.SKIP;
    // VSTF305887.end
    //CurrReport.SKIP;
    //VSTF275923 end
    // IT0015.end
    CustLedgEntry3.GET("Applied Cust. Ledger Entry No.");
    CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
    // IT0004.begin
    ClosedByAmountLCY := "Amount (LCY)";
    TotalForCustomer += "Amount (LCY)";
    // IT0004.end
    TotalClosedByAmntLCY += "Amount (LCY)"; // IT0005
    // End of the deleted lines.

    END;

    DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
    ...

    קוד החלפה 2

    ...END;

    OnAfterGetRecord=BEGIN

    // Add the following lines.
    IF NOT TempDetailedCustLedgEntryApp.GET("Entry No.") THEN
    CurrReport.SKIP;
    CustLedgEntry3.GET("Cust. Ledger Entry No.");
    CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
    AppliedDocumentTypeText := FORMAT(CustLedgEntry3."Document Type");
    ClosedByAmountLCY := "Amount (LCY)";
    TotalForCustomer -= "Amount (LCY)";
    TotalClosedByAmntLCY -= "Amount (LCY)";
    // End of the added lines.

    END;

    DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
    ...

    קוד קיים 3

    ... SectionWidth=24450;
    SectionHeight=846;
    OnPreSection=BEGIN

    // Delete the following line.
    CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)
    // End of the deleted line.

    END;

    }
    ...

    קוד החלפה 3

    ...SectionWidth=24450;
    SectionHeight=846;
    OnPreSection=BEGIN

    // Add the following lines.
    IF ("Unapplied by Entry No." <> 0) THEN
    CurrReport.SHOWOUTPUT(FALSE);
    // End of the added lines.

    END;

    }
    ...

    קוד קיים 4

    ...ForeColor=65535;
    SourceExpr="Document Type" = "Document Type"::Dishonored;
    DataSetFieldName=Document_Type_____Document_Type___Dishonored }

    // Delete the following lines.
    { 1130123;TextBox ;24000;0 ;150 ;423 ;Visible=No;
    SourceExpr=ShowDetailedCustLedgerEntry;
    DataSetFieldName=ShowDetailedCustLedgerEntry }
    // End of the deleted lines.

    }
    }
    { PROPERTIES
    ...

    קוד החלפה 4

    ... ForeColor=65535;
    SourceExpr="Document Type" = "Document Type"::Dishonored;
    DataSetFieldName=Document_Type_____Document_Type___Dishonored }
    }
    }
    { PROPERTIES
    ...
  2. שנה את הקוד במשתני הכללית בהדוח רשימת לקוחות שטרות (12117) כדלקמן:
    קוד קיים 1

    ...Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
    Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
    SalesSetup@1130002 : Record 311;
    EndingDate@1130003 : Date;
    ExposureDate@1130004 : Date;
    OnlyOpened@1130005 : Boolean;
    ...

    קוד החלפה 1

    ...  Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
    Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
    SalesSetup@1130002 : Record 311;

    // Add the following lines.
    CustLedgEntry3@1130130 : Record 21;
    TempDetailedCustLedgEntryApp@1130131 : TEMPORARY Record 379;
    // End of the added lines.

    EndingDate@1130003 : Date;
    ExposureDate@1130004 : Date;
    OnlyOpened@1130005 : Boolean;
    ...

    קוד קיים 2

    ... TotExpAmntForCust@1130011 : Decimal;
    BalanceDue@1130012 : Decimal;
    NULL@1130013 : DateFormula;

    // Delete the following lines.
    CustLedgEntry3@1130130 : Record 21;
    PrintCustLedgEntry2@1130014 : Boolean;
    ShowDetailedCustLedgerEntry@1130015 : Boolean INDATASET;
    // End of the deleted lines.

    BEGIN
    {
    ...

    קוד החלפה 2

    ...  TotExpAmntForCust@1130011 : Decimal;
    BalanceDue@1130012 : Decimal;
    NULL@1130013 : DateFormula;

    // Add the following lines.
    PrintCustLedgEntry2@1130014 : Boolean;
    AppliedDocumentTypeText@1130132 : Text[30];

    LOCAL PROCEDURE FindAppliedDtldCustLedgEntry@1130007(CustLedgerEntryNo@1130000 : Integer);
    VAR
    DetailedCustLedgEntry@1130001 : Record 379;
    DetailedCustLedgEntryApplied@1130003 : Record 379;
    BEGIN
    TempDetailedCustLedgEntryApp.RESET;
    TempDetailedCustLedgEntryApp.DELETEALL;

    DetailedCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgerEntryNo);
    DetailedCustLedgEntry.SETRANGE("Entry Type",DetailedCustLedgEntry."Entry Type"::Application);
    DetailedCustLedgEntry.SETRANGE(Unapplied,FALSE);

    DetailedCustLedgEntryApplied.SETRANGE(
    "Entry Type",DetailedCustLedgEntryApplied."Entry Type"::Application);

    IF DetailedCustLedgEntry.FINDSET THEN
    REPEAT
    DetailedCustLedgEntryApplied.SETRANGE(
    "Applied Cust. Ledger Entry No.",DetailedCustLedgEntry."Applied Cust. Ledger Entry No.");
    DetailedCustLedgEntryApplied.SETFILTER(
    "Cust. Ledger Entry No.",'<>%1',CustLedgerEntryNo);
    DetailedCustLedgEntryApplied.SETRANGE(
    "Customer No.",DetailedCustLedgEntry."Customer No.");
    DetailedCustLedgEntryApplied.SETRANGE(
    "Transaction No.",DetailedCustLedgEntry."Transaction No.");
    IF DetailedCustLedgEntryApplied.FINDSET THEN
    REPEAT
    TempDetailedCustLedgEntryApp := DetailedCustLedgEntryApplied;
    IF TempDetailedCustLedgEntryApp.INSERT THEN;
    UNTIL DetailedCustLedgEntryApplied.NEXT = 0;
    UNTIL DetailedCustLedgEntry.NEXT = 0;
    END;
    // End of the added lines.

    BEGIN
    {
    ...
  3. שינוי הקוד ב הדוח רשימת שטרות חשבון ספק (12116) כדלקמן:
    קוד קיים 1

    ... </TableRow>
    </TableRows>
    </Header>
    <Visibility>
    <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
    </Visibility>
    </TableGroup>
    </TableGroups>
    <Top>2.22222cm</Top>
    ...

    קוד החלפה 1

    ... </TableRow>
    </TableRows>
    </Header>

    // Delete the following lines.
    <Visibility>
    <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
    </Visibility>
    // End of the deleted lines.

    </TableGroup>
    </TableGroups>
    <Top>2.22222cm</Top>
    ...

    קוד קיים 2

    ...Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
    <DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
    </Field>
    <Field Name="ShowDetailedCustLedgerEntry">
    <DataField>ShowDetailedCustomerLedgerEntry</DataField>
    </Field>
    </Fields>
    <Query>
    <CommandText />
    ...

    קוד החלפה 2

    ...<Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
    <DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
    </Field>

    // Delete the following lines.
    <Field Name="ShowDetailedCustLedgerEntry">
    <DataField>ShowDetailedCustomerLedgerEntry</DataField>
    </Field>
    // End of the deleted lines.

    </Fields>
    <Query>
    <CommandText />
    ...

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

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

  • גירסת Microsoft Dynamics NAV 2009 R2 איטלקית

  • גירסת Microsoft Dynamics NAV 2009 SP1 איטלקית

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

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

מצב

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

הפניות

VSFT DynamicsNAVSE: 361352

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

Author: alessandro.vannini
Writer: v-luzo
סוקר טכני: alessandro.vannini
Editor:

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

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Microsoft insider

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

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

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×