"合計いいえ請求書または貸方のメモ"が正しくない (スイス) のバージョンの Microsoft Dynamics NAV 2009 で

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

インストール情報

マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能について説明することができます。ただし、お客様固有の要件を満たすために、追加機能の提供またはプロシージャの作成のために、これらの例に変更を加えたりはしません。

注: この修正プログラムをインストールする前に、Microsoft Dynamics NAV のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Dynamics NAV アプリケーション サーバー (NAS) のサービスが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。

この修正プログラムを実装するには、開発者用のライセンスが必要です。

ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。

• 変更するオブジェクトの変更のアクセス許可。

• 実行のアクセス許可、システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015
  
  オブジェクトです。

注: データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。

コードの変更

注常にテスト コードの修正プログラムの制御された環境で、運用コンピューターに修正プログラムを適用する前にします。変更を適用するには、前に SEPA のすべての更新プログラムをインポートしてください。

この問題を解決するには、次の手順を実行します。

1. SR の顧客のデータ アイテム数 1 セクション内のコードを変更します。請求書は、標準レポート (されない 11584) を一覧表示します。
   既存のコード
   

   ...ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Delete the following lines.
   SourceExpr="Document Type";
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   // End of the deleted lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

   置換用コード
   
   

   ...   ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Add the following lines.
   SourceExpr=[ ("Document Type" = "Document Type"::Invoice)];
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   { 1150010;TextBox   ;17100;0    ;150  ;423  ;Visible=No;
   SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
   // End of the added lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

   
   
   

2. SR Cust のCalcExrate関数内のコードを変更します。請求書は、標準レポート (されない 11584) を一覧表示します。
   既存のコード 1
   

   ...<PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                           </Style>
                           <Value>=iif(True,
     CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Delete the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   // End of the deleted line.
   
     +CStr(Code.CalcProfit(Fields!Cust__Ledger_Entry__Profit__LCY__.Value))+chr(177)
     +CStr(Code.CalcFooterProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY__.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY__.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
   ...
   

   置換用コード 1
   
   

   ...<PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                           </Style>
                           <Value>=iif(True,
     CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Add the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+Chr(177)
   // End of the added line.
   
     +CStr(Code.CalcProfit(Fields!Cust__Ledger_Entry__Profit__LCY__.Value))+chr(177)
     +CStr(Code.CalcFooterProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY__.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY__.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
   ...
   

   既存のコード 2
   

   ...TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfInvoices(DocumentType as string)
   if DocumentType = "Invoice"
   // End of the deleted lines.
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   ...
   

   置換用コード 2
   

   ...TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Add the following lines.
   Function CalcNoOfInvoices(DocumentType as Boolean)
   if DocumentType
   // End of the added lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   ... 
   

   既存のコード 3
   

   ...NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfCredMemos(DocumentType as string)
   if DocumentType = "Credit Memo"
   // End of the deleted lines.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   ... 
   

   置換用コード 3
   

   ...NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   // Add the following lines.
   Function CalcNoOfCredMemos(DocumentType as Boolean)
   if DocumentType
   // End of the added lines.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   ...
   

   既存コード 4
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY__">
               <DataField>Cust__Ledger_Entry__Amount__LCY__</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY__Format">
               <DataField>Cust__Ledger_Entry__Amount__LCY__Format</DataField>
   ...
   

   置換用コード 4
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
   
   // Add the following lines.
   <Field Name="Cust__Ledger_Entry__Document_Type_1">
   <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
   </Field>
   // End of the added lines.
   
             <Field Name="Cust__Ledger_Entry__Amount__LCY__">
               <DataField>Cust__Ledger_Entry__Amount__LCY__</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY__Format">
               <DataField>Cust__Ledger_Entry__Amount__LCY__Format</DataField>
   ...
   

3. SR の顧客のデータ アイテム数 1 セクション内のコードを変更します。請求書リスト FCY レポート (11585)。
   既存のコード
   

   ...  ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Delete the following lines.
   SourceExpr="Document Type";
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   // End of the deleted lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

   置換用コード
   

   ... ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Add the following lines.
   SourceExpr=("Document Type" = "Document Type"::Invoice);
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   { 1150011;TextBox   ;17100;0    ;150  ;423  ;Visible=No;
   ForeColor=65535;
   SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
   // End of the added lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

4. SR Cust のCalcExrate関数内のコードを変更します。請求書リスト FCY レポート (11585)。
   既存のコード 1
   

   ...<TextAlign>Right</TextAlign>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
                           <Value>=iif(True
     ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Delete the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+chr(177)
   // End of the deleted line.
   
     +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control56.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
                     </TableCell>
   ...
   

   置換用コード 1
   

   ...<TextAlign>Right</TextAlign>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
                           <Value>=iif(True
     ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Add the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+chr(177)
   // End of the added line.
   
     +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control56.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
                     </TableCell>
   ...
   

   
   既存のコード 2
   

    TotalProfitLCY = 0      TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfInvoices(DocumentType as string)
   if DocumentType = "Invoice"
   // End of the deleted lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   ... 
   

   置換用コード 2
   

   ...TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Add the following lines.
   Function CalcNoOfInvoices(DocumentType as Boolean)
   if DocumentType
   // End of the added lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   ... 
   

   既存のコード 3
   

   ...NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfCredMemos(DocumentType as string)
   if DocumentType = "Credit Memo"
   // Add of the deleted lines.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   
   ...
   

   置換用コード 3
   

   ...NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   // Add the following lines.
   Function CalcNoOfCredMemos(DocumentType as Boolean)
   if DocumentType
   // End of the added lines.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   
   ...
   

   既存コード 4
   

   ...TotalAmountLCY = TotalAmountLCY + AmountLCY 
         return TotalAmountLCY
     End Function</Code>
       <DataSets>
         <DataSet Name="DataSet_Result">
           <Fields>
             <Field Name="Customer_Invoices_ListCaption">
               <DataField>Customer_Invoices_ListCaption</DataField>
             </Field>
             <Field Name="FORMAT_TODAY_0_4_">
   ...
   

   置換用コード 4
   

   ...TotalAmountLCY = TotalAmountLCY + AmountLCY 
         return TotalAmountLCY
     End Function</Code>
       <DataSets>
         <DataSet Name="DataSet_Result">
   
   // Add the following lines.
   <DataSetInfo xmlns="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <DataSetName>DataSet</DataSetName>
   <TableName>Result</TableName>
   </DataSetInfo>
   // End of the added lines.
   
           <Fields>
             <Field Name="Customer_Invoices_ListCaption">
               <DataField>Customer_Invoices_ListCaption</DataField>
             </Field>
             <Field Name="FORMAT_TODAY_0_4_">
   ...
   

   既存コード 5
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_No___Control11">
               <DataField>Cust__Ledger_Entry__Document_No___Control11</DataField>
             </Field>
             <Field Name="COPYSTR_FORMAT__Document_Type___1_1__Control13">
               <DataField>COPYSTR_FORMAT__Document_Type___1_1__Control13</DataField>
   ...
   

   置換用コード 5
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
   
   // Add the following lines.
   <Field Name="Cust__Ledger_Entry__Document_Type_1">
   <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
   </Field>
   // End of the added linds.
   
             <Field Name="Cust__Ledger_Entry__Document_No___Control11">
               <DataField>Cust__Ledger_Entry__Document_No___Control11</DataField>
             </Field>
             <Field Name="COPYSTR_FORMAT__Document_Type___1_1__Control13">
               <DataField>COPYSTR_FORMAT__Document_Type___1_1__Control13</DataField>
   ...
   

   既存のコード 6
   

   ... </Fields>
           <Query>
             <CommandText />
             <DataSourceName>DummyDataSource</DataSourceName>
           </Query>
   
   // Delete the following lines.
   <rd:DataSetInfo>
   <rd:DataSetName>DataSet</rd:DataSetName>
   <rd:TableName>Result</rd:TableName>
   </rd:DataSetInfo>
   // End of the deleted lines.
   
         </DataSet>
       </DataSets>
       <DataSources>
         <DataSource Name="DummyDataSource">
           <ConnectionProperties>
   ...
   

   置換用コード 6
   

   ...</Fields>
           <Query>
             <CommandText />
             <DataSourceName>DummyDataSource</DataSourceName>
           </Query>
         </DataSet>
       </DataSets>
       <DataSources>
         <DataSource Name="DummyDataSource">
           <ConnectionProperties>
   ...
   

5. SR の顧客のデータ アイテム数 1 セクション内のコードを変更します。請求書] ボックスの一覧レポート (11586) を転記します。
   既存のコード
   

   ...  ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Delete the following lines.
   SourceExpr="Document Type";
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   // End of the deleted lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

   置換用コード
   

   ...ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Add the following lines.
   SourceExpr=("Document Type" = "Document Type"::Invoice);
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   { 1150012;TextBox   ;17100;0    ;150  ;423  ;Visible=No;
   ForeColor=65535;
   SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
   // End of the added lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

6. SR Cust のCalcExrate関数内のコードを変更します。請求書] ボックスの一覧レポート (11586) を転記します。
   既存のコード 1
   

   ...TextAlign>Right</TextAlign>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
                           <Value>=iif(True
     ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Delete the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+chr(177)
   // End of the deleted lines.
   
     +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control41.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
                     </TableCell>
   ...
   

   置換用コード 1
   

   ... <TextAlign>Right</TextAlign>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
                           <Value>=iif(True
     ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Add of the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+chr(177)
   // End of the added line.
   
     +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control41.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
                     </TableCell>
   ...
   

   既存のコード 2
   

   ...TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfInvoices(DocumentType as string)
   if DocumentType = "Invoice"
   // End of the deleted lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   ... 
   

   置換用コード 2
   

   ... TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Add the following lines.
   + Function CalcNoOfInvoices(DocumentType as Boolean)
   +     if DocumentType
   // End of the added lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   ...
   
   

   既存のコード 3
   

   ...end if
         return NoOfInvoices
     End Function
   
     Function CalcNoOfCredMemos(DocumentType as string)
   
   // Delete the following line.
   if DocumentType = "Credit Memo"
   // End of the deleted line.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   
   ...
   
   

   置換用コード 3
   

   ...end if
         return NoOfInvoices
     End Function
   
     Function CalcNoOfCredMemos(DocumentType as string)
   
   // Add the following line.
   if DocumentType
   // End of the added line.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   
   ... 
   

   既存コード 4
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control41</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41Format">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control41Format</DataField>
   ...
   

   置換用コード 4
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
   
   // Add the following lines.
   <Field Name="Cust__Ledger_Entry__Document_Type_1">
   <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
   </Field>
   // End of the added lines.
   
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control41</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41Format">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control41Format</DataField>
   ...
   

   
   

7. SR の顧客のデータ アイテム数 1 セクション内のコードを変更します。請求書] ボックスの一覧から支払の報告 (11587):
   既存のコード
   

   ... ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Delete the following lines.
   SourceExpr="Document Type";
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   // End of the deleted lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

   置換用コード
   

   ... ForeColor=65535;
                                                              SourceExpr="Sales (LCY)";
                                                              DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
                 { 1150005;TextBox   ;17250;0    ;150  ;423  ;Visible=No;
                                                              ForeColor=65535;
   
   // Add the following lines.
   SourceExpr=("Document Type" = "Document Type"::Invoice);
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
   { 1150013;TextBox   ;17100;0    ;150  ;423  ;Visible=No;
   ForeColor=65535;
   SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
   DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
   // End of the added lines.
   
               }
                }
             { PROPERTIES
               {
                 SectionType=Body;
   ...
   

8. SR Cust のCalcExrate関数内のコードを変更します。請求書] ボックスの一覧から支払の報告 (11587):
   既存のコード 1
   

   ...<TextAlign>Right</TextAlign>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
                           <Value>=iif(True
     ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   //Delete the following line.
   +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+chr(177)
   // End of the deleted line.
   
     +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control100.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
                     </TableCell>
   ...
   

   置換用コード 1
   

   ...<TextAlign>Right</TextAlign>
                             <VerticalAlign>Middle</VerticalAlign>
                           </Style>
                           <Value>=iif(True
     ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
   
   // Add the following line.
   + +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+chr(177)
   // End of the added line.
   
     +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
     +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control100.Value)),"")</Value>
                         </Textbox>
                       </ReportItems>
                     </TableCell>
   ...
   

   既存のコード 2
   

   ...TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfInvoices(DocumentType as string)
   if DocumentType = "Invoice"
   // End of the deleted lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   ...
   
   

   置換用コード 2
   

   ...TotalProfitLCY = 0
         TotalProfitPct  = 0
         TotalAmountLCY = 0
     End Function
   
   
   // Add the following lines.
   Function CalcNoOfInvoices(DocumentType as Boolean)
   if DocumentType
   // End of the added lines.
   
             NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   ... 
   

   既存のコード 3
   

   ...NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   // Delete the following lines.
   Function CalcNoOfCredMemos(DocumentType as string)
   if DocumentType = "Credit Memo"
   // End of the deleted lines.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   
   ...
   
   

   置換用コード 3
   

   ... NoOfInvoices += 1
         end if
         return NoOfInvoices
     End Function
   
   
   // Add the following lines.
   Function CalcNoOfCredMemos(DocumentType as Boolean)
   if DocumentType
   // End of the added lines.
   
             NoOfCredMemos += 1
         end if
         return NoOfCredMemos
     End Function
   
   
   ...
   
   

   既存コード 4
   

   ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control100</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100Format">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control100Format</DataField>
   ...
   

   置換用コード 4
   

   ... <DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Document_Type_">
               <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
             </Field>
   
   // Add the following lines.
   <Field Name="Cust__Ledger_Entry__Document_Type_1">
   <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
   </Field>
   // End of the added lines.
   
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control100</DataField>
             </Field>
             <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100Format">
               <DataField>Cust__Ledger_Entry__Amount__LCY___Control100Format</DataField>
   ...
   

   
   
   

必要条件

この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。

• (スイス) のバージョンの Microsoft Dynamics NAV 2009 の R2

• Microsoft Dynamics NAV 2009 の SP1 のバージョン (スイス)

アンインストール情報

この修正プログラムを削除することはできません。