客戶物料單清單報表不會顯示在義大利文版本的 Microsoft 動態航行點 2009年信用備忘

本文適用於 Microsoft 動態航行點（它）義大利文語言地區設定。

如果可在過帳並退款套用於客戶的信用備忘，就會發生這個問題。下列產品中，就會發生這個問題︰

義大利文版本的 Microsoft 動態航行點 2009 R2
義大利文版本的 Microsoft 動態航行點 2009 Service Pack 1

解決方案

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過，它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此，如果此問題不會嚴重影響，我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。注意在特殊的情況下，通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。

安裝資訊

Microsoft 會提供程式設計範例僅供說明，而不做任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能。不過，它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。注意套用此 hotfix 之前，請確認所有的 Microsoft Navision 用戶端使用者會登出系統。這包括 Microsoft Navision 應用程式服務 (NAS) 用戶端的使用者。您應該是唯一的用戶端使用者已登入，當您實作此 hotfix。若要實作此 hotfix，您必須有開發人員授權。我們建議您在 Windows 登入] 視窗中的色彩，或資料庫登入] 視窗中的使用者帳戶被指派「進階」的角色識別碼。如果使用者帳戶不能指派為「超級」的角色識別碼，您必須確認使用者帳戶具有下列權限︰

您將會變更物件的 [修改] 權限。
執行權限的系統物件 ID 5210物件和系統物件 ID 9015物件。

注意您沒有擁有資料存放區的權限，除非您需要執行資料修復。

程式碼變更

注意一定要測試程式碼修正在受控制的環境中生產電腦套用修正程式之前。若要解決這個問題，變更客戶物料單清單報表 (12117) 中的程式碼如下所示︰

現有的程式碼 1

...        OnAfterGetRecord=BEGIN
                           CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");

// Delete the following line.
                           IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::"Credit Memo","Document Type"::" "])) AND

                             ("Remaining Amt. (LCY)" = 0)
                           THEN
                             CurrReport.SKIP;
...

取代程式碼 1

...        OnAfterGetRecord=BEGIN
                           CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");

// Add the following line.
                           IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::" "])) AND

                             ("Remaining Amt. (LCY)" = 0)
                           THEN
                             CurrReport.SKIP;
...

現有的程式碼 2

...                           RemainingAmountLCY := 0;
                           ExposureAmount := 0;

// Delete the following lines.
                            IF ("Document Type" = "Document Type"::Invoice) OR
                               ("Document Type" = "Document Type"::"Finance Charge Memo") OR
                               ("Document Type" = "Document Type"::Reminder)

                           THEN BEGIN
                             IF ("Bank Receipt Issued") AND
                                ("Due Date" > ExposureDate)
...

取代程式碼 2

...                           RemainingAmountLCY := 0;
                           ExposureAmount := 0;

// Add the following lines.
                            IF "Document Type" IN
                               ["Document Type"::Invoice,
                                "Document Type"::"Credit Memo",
                                "Document Type"::"Finance Charge Memo",
                                "Document Type"::Reminder]
// End of the lines.

                           THEN BEGIN
                             IF ("Bank Receipt Issued") AND
                                ("Due Date" > ExposureDate)
...

現有的程式碼 3

...                      END;

        OnAfterGetRecord=BEGIN
                           // IT0015.begin
                           //VSTF275923 begin
                           // VSTF305887.begin
...

取代程式碼 3

...        OnAfterGetRecord=BEGIN

// Add 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;
// End of the lines.

                           // IT0015.begin
                           //VSTF275923 begin
                           // VSTF305887.begin
...

現有的程式碼 4

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

// Delete the following lines.
                            // IT0009.begin
                            // IT0012.begin
                            IF (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::Payment) OR
                               (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::"Credit Memo") OR
                               //VSTF275923 begin
                               (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::Dishonored) OR
                               //VSTF275923 end
                               (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::" ") OR
                               ("Unapplied by Entry No." <> 0)
                            THEN
                            // IT0012.end
                              CurrReport.SHOWOUTPUT(FALSE)
                            ELSE
                              CurrReport.SHOWOUTPUT(TRUE);
                            // IT0009.end
                            // IT0010.begin
                            //IF ("Unapplied by Entry No." <> 0) THEN
                            //  CurrReport.SHOWOUTPUT(FALSE);
                            // IT0010.end
// End of the lines.

                         END;

          }
...

取代程式碼 4

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

// Add the following line.
                           CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)

                         END;

          }
...

現有的程式碼 5

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

取代程式碼 5

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

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

          }
           }
        { PROPERTIES
...

現有的程式碼 6

...      NULL@1130013 : DateFormula;
      CustLedgEntry3@1130130 : Record 21;
      PrintCustLedgEntry2@1130014 : Boolean;

    BEGIN
    {
...

取代程式碼 6

...      NULL@1130013 : DateFormula;
      CustLedgEntry3@1130130 : Record 21;
      PrintCustLedgEntry2@1130014 : Boolean;

// Add the following line.
      ShowDetailedCustLedgerEntry@1130015 : Boolean INDATASET;


    BEGIN
    {
...

現有的程式碼 7

...                  </TableRows>
                </Header>
                <Visibility>

// Delete the following line.
                  <Hidden>=IIF(Fields!Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_.Value = 0,true,false)</Hidden>

                </Visibility>
              </TableGroup>
            </TableGroups>
...

取代程式碼 7

...                  </TableRows>
                </Header>
                <Visibility>

// Add the following line.
                  <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>

                </Visibility>
              </TableGroup>
            </TableGroups>
...

現有的程式碼 8

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

取代程式碼 8

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

// Add the following lines.
         <Field Name="ShowDetailedCustLedgerEntry">
           <DataField>ShowDetailedCustomerLedgerEntry</DataField>
         </Field>
// end of the lines.

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

先決條件

您必須具備套用此 hotfix 之後安裝下列產品的其中一個︰

義大利文版本的 Microsoft 動態航行點 2009 R2
義大利文版本的 Microsoft 動態航行點 2009 Service Pack 1

移除資訊

您無法移除此 hotfix。

狀態

Microsoft 已確認這是＜套用＞一節所列出的 Microsoft 產品的問題。

注意這是直接從 Microsoft 支援組織內建立的「快速發行」文件。本文件所包含的現狀資訊是針對新興問題的回應。為縮短使其可用的時程，資料可能會包含印刷錯誤，且可能會隨時進行修改而不另行通知。如其他考量，請參閱「使用規定」。