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

狀況

張貼後，當您將套用到 [供應商信用備忘的退款，廠商帳戶物料單清單報表 (12116) 不會顯示信用備忘錄。下列產品中，就會發生這個問題︰

義大利文版本的 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物件。

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

程式碼變更

注意一定要測試程式碼修正在受控制的環境中生產電腦套用修正程式之前。若要解決這個問題，請依照下列步驟執行：

變更廠商帳戶物料單清單報表 (12116) 中的程式碼如下所示︰現有的程式碼 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;
                           VendorBillAmnt := 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)
// End of the lines.

                           THEN BEGIN
                             //TotalClosedByAmntLCY := "Remaining Amt. (LCY)"; //IT0002 - IT0004
                             TotalForVendor := TotalForVendor + "Amount (LCY)";
...

取代程式碼 2

...                           RemainingAmountLCY := 0;
                           VendorBillAmnt := 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
                             //TotalClosedByAmntLCY := "Remaining Amt. (LCY)"; //IT0002 - IT0004
                             TotalForVendor := TotalForVendor + "Amount (LCY)";
...

現有的程式碼 3

...                      END;

        OnAfterGetRecord=BEGIN
                           // IT0003.begin
                           VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
                           VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
...

取代程式碼 3

...                      END;

        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"::" "])
                            THEN
                              ShowDetailedVendorLedgerEntry := TRUE
                            ELSE
                              ShowDetailedVendorLedgerEntry := FALSE;
// End of the lines.

                           // IT0003.begin
                           VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
                           VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
...

現有的程式碼 4

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

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

                         END;

          }
...

取代程式碼 4

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

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

                         END;

          }
...

現有的程式碼 5

...                                                         ForeColor=65535;
                                                         SourceExpr="Unapplied by Entry No.";
                                                         DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
          }
           }
        { PROPERTIES
...

取代程式碼 5

...                                                         ForeColor=65535;
                                                         SourceExpr="Unapplied by Entry No.";
                                                         DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }

// Add the following lines.
             { 1130084;TextBox   ;27150;0    ;150  ;423  ;Visible=No;
                                                          SourceExpr=ShowDetailedVendorLedgerEntry;
                                                          DataSetFieldName=ShowDetailedVendorLedgerEntry }
// End of the lines.

          }
           }
        { PROPERTIES
...

變更全域變數，廠商帳戶物料單清單報表 (12116) 中的程式碼如下所示︰現有的程式碼

...      TotalVendorBillAmnt@1130010 : Decimal;
      VendLedgEntry3@1130011 : Record 25;
      VendorLedgerEmtryTypeINT@1102601000 : Integer;

    BEGIN
    {
...

取代程式碼

...      TotalVendorBillAmnt@1130010 : Decimal;
      VendLedgEntry3@1130011 : Record 25;
      VendorLedgerEmtryTypeINT@1102601000 : Integer;

// Add the following line.
       ShowDetailedVendorLedgerEntry@1130012 : Boolean INDATASET;

    BEGIN
    {
...

變更廠商帳戶物料單清單報表 (12116) 中的程式碼如下所示︰現有的程式碼 1

...                    </TableCell>
                  </TableCells>
                  <Visibility>

// Delete the following lines.
                     <Hidden>=IIF(Fields!Detailed_Vendor_Ledg__Entry_Entry_No_.Value=0 OR 
                 Fields!Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__.Value<>0 OR
                 Fields!VendLedgEntry1_DocumentType.Value="1" OR
                 Fields!VendLedgEntry1_DocumentType.Value="3" OR
                 Fields!VendLedgEntry1_DocumentType.Value="0",
                 TRUE,FALSE)</Hidden>
// End of the lines.

                  </Visibility>
                </TableRow>
                <TableRow>
...

取代程式碼 1

...                    </TableCell>
                  </TableCells>
                  <Visibility>

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

                  </Visibility>
                </TableRow>
                <TableRow>
...

現有的程式碼 2

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

取代程式碼 2

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

// Add the following lines.
         <Field Name="ShowDetailedVendorLedgerEntry">
           <DataField>ShowDetailedVendorLedgerEntry</DataField>
         </Field>
// End of the lines.

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

先決條件

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

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

移除資訊

您無法移除此 hotfix。

狀態

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

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

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

狀況

解決方案

Hotfix 資訊

安裝資訊

程式碼變更

先決條件

移除資訊

狀態

Need more help?

Want more options?

Was this information helpful?

Thank you for your feedback!