報告"仕入先"を示しています合計金額が間違って、支払、請求書が適用されると、Microsoft Dynamics NAV 2009 年のポルトガル語版で支払い割引が控除される場所です。支払の割引額は、合計残高として表示されます。この問題を解決するためにコードの変更] セクションで手順を実行します。この問題は、次の製品で発生します。
-
Microsoft Dynamics NAV 2009 の R2 のポルトガル語版
-
Microsoft Dynamics NAV 2009 の SP1 のポルトガル語版
解決策
修正プログラムの情報
サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。
注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。
インストール情報
マイクロソフトでは解説することのみを目的としてプログラミング例を提供しています。暗示あるいは明示していることに対しての保証はしておりません。ここで言う保証とは、特定の目的に対する商品性や適合性の暗示的保証を含んでいますが、それに限定されるわけではありません。この資料では、例示されているプログラミング言語およびプロシージャの作成やデバッグに使用するツールにお客様が精通していることを前提としています。マイクロソフトのサポート エンジニアは、特定のプロシージャの機能について説明することができます。ただし、お客様固有の要件を満たすために、追加機能の提供またはプロシージャの作成のために、これらの例に変更を加えたりはしません。
注: この修正プログラムをインストールする前に、Microsoft Dynamics NAV のすべてのクライアント ユーザーがシステムの電源を記録することを確認します。これには、Microsoft Dynamics NAV アプリケーション サーバー (NAS) のサービスが含まれます。この修正プログラムを実装すると、ログオンしている唯一のクライアント ユーザーが必要です。
この修正プログラムを実装するには、開発者用のライセンスが必要です。
ユーザー アカウントまたはデータベース ログイン ウィンドウに Windows のログイン ウィンドウにある「スーパー」ロール id を割り当てられていることをお勧めします。ユーザー アカウントには、「スーパー」ロール ID を割り当てることができません、する場合は、ユーザー アカウントが次のアクセス許可を持っているを確認する必要があります。
-
変更するオブジェクトの変更のアクセス許可。
-
実行のアクセス許可、システム オブジェクトの ID 5210オブジェクトおよびシステム オブジェクトの ID 9015
オブジェクトです。
注: データの修復を実行する必要があるない限り、データ ストアへの権限を持っている必要はありません。
コードの変更
注常にテスト コードの修正プログラムの制御された環境で、運用コンピューターに修正プログラムを適用する前にします。変更を適用するには、前に SEPA のすべての更新プログラムをインポートしてください。
この問題を解決するには、次の手順を実行します。
-
仕入先の明細書レポート (13377) のデータ項目数 1 のコードを次のように変更します。
既存のコード 1... Currency2.INSERT;
UNTIL Currency.NEXT = 0;
END;
// Delete the following line.
OnAfterGetRecord=BEGIN
// End of the deleted line.
CurrReport.LANGUAGE := Language.GetLanguageID("Language Code");
PrintLine := FALSE;
Vend2 := Vendor;
COPYFILTER("Currency Filter",Currency2.Code);
...置換用コード 1
... Currency2.INSERT;
UNTIL Currency.NEXT = 0;
END;
// Add the following lines.
OnAfterGetRecord=VAR
VendLedgEntry@1000 : Record 25;
BEGIN
// End of the added lines.
CurrReport.LANGUAGE := Language.GetLanguageID("Language Code");
PrintLine := FALSE;
Vend2 := Vendor;
COPYFILTER("Currency Filter",Currency2.Code);
...既存のコード 2
...PrintLine := Vend2."Net Change" <> 0;
UNTIL (Currency2.NEXT = 0) OR PrintLine;
END;
IF (NOT PrintLine) AND PrintAllHavingEntry THEN BEGIN
// Delete the following lines.
"Vendor Ledger Entry".RESET;
"Vendor Ledger Entry".SETCURRENTKEY("Vendor No.","Posting Date");
"Vendor Ledger Entry".SETRANGE("Vendor No.",Vendor."No.");
"Vendor Ledger Entry".SETRANGE("Posting Date",StartDate,EndDate);
Vendor.COPYFILTER("Currency Filter","Vendor Ledger Entry"."Currency Code");
PrintLine := "Vendor Ledger Entry".FIND('-');
// End of the deleted lines.
END;
IF NOT PrintLine THEN
CurrReport.SKIP;
...置換用コード 2
... PrintLine := Vend2."Net Change" <> 0;
UNTIL (Currency2.NEXT = 0) OR PrintLine;
END;
IF (NOT PrintLine) AND PrintAllHavingEntry THEN BEGIN
// Add the following lines.
VendLedgEntry.SETCURRENTKEY("Vendor No.","Posting Date");
VendLedgEntry.SETRANGE("Vendor No.",Vendor."No.");
VendLedgEntry.SETRANGE("Posting Date",StartDate,EndDate);
Vendor.COPYFILTER("Currency Filter",VendLedgEntry."Currency Code");
PrintLine := NOT VendLedgEntry.ISEMPTY;
// End of the added lines.
END;
IF NOT PrintLine THEN
CurrReport.SKIP;
... -
仕入先の明細書レポート (13377) でのデータ項目数 4 のコードを次のように変更します。
既存のコード 1... }
{ PROPERTIES
{
DataItemIndent=3;
// Delete the following lines.
DataItemTable=Table25;
DataItemTableView=SORTING(Vendor No.,Posting Date);
OnPreDataItem=BEGIN
SETRANGE("Posting Date",StartDate,EndDate);
SETRANGE("Currency Code",Currency2.Code);
CurrReport.CREATETOTALS("Remaining Amount");
// End of the deleted lines.
IF Currency2.Code = '' THEN BEGIN
GLSetup.TESTFIELD("LCY Code");
CurrencyCode3 := GLSetup."LCY Code"
END ELSE
...置換用コード 1
... }
{ PROPERTIES
{
DataItemIndent=3;
// Add the following lines.
DataItemTable=Table2000000026;
DataItemTableView=SORTING(Number)
WHERE(Number=CONST(1));
DataItemVarName=VendLedEntryHdr;
PrintOnlyIfDetail=Yes;
}
SECTIONS
{
}
}
{ PROPERTIES
{
DataItemIndent=4;
DataItemTable=Table380;
DataItemTableView=SORTING(Vendor No.,Posting Date,Entry Type,Currency Code)
WHERE(Excluded from calculation=CONST(No),
Entry Type=FILTER(<>Application&<>Redrawal));
DataItemVarName=DtldVendLedgEntry;
PrintOnlyIfDetail=No;
OnPreDataItem=BEGIN
SETRANGE("Vendor No.",Vendor."No.");
SETRANGE("Posting Date",StartDate,EndDate);
SETRANGE("Currency Code",Currency2.Code);
// End of the added lines.
IF Currency2.Code = '' THEN BEGIN
GLSetup.TESTFIELD("LCY Code");
CurrencyCode3 := GLSetup."LCY Code"
END ELSE
...既存のコード 2
...END ELSE
CurrencyCode3 := Currency2.Code
END;
// Delete the following lines.
OnAfterGetRecord=BEGIN
// PT0002.begin
// VendBalance := VendBalance + "Remaining Amount";
VendBalance := VendBalance + "Original Amount";
// PT0002.end
// End of the deleted lines.
END;
DataItemLinkReference=Vendor;
DataItemLink=Vendor No.=FIELD(No.);
...置換用コード 2
... END ELSE
CurrencyCode3 := Currency2.Code
END;
// Add the following lines.
OnAfterGetRecord=VAR
VendLedgEntry@1000 : Record 25;
DtldVendLedgEntry1@1001 : Record 380;
BEGIN
RemainingAmount := 0;
PrintLine := TRUE;
CASE "Entry Type" OF
"Entry Type"::"Initial Entry":
BEGIN
VendLedgEntry.GET("Vendor Ledger Entry No.");
Description := VendLedgEntry.Description;
DueDate := VendLedgEntry."Due Date";
VendLedgEntry.SETRANGE("Date Filter",0D, EndDate);
VendLedgEntry.CALCFIELDS("Remaining Amount");
RemainingAmount := VendLedgEntry."Remaining Amount";
END;
"Entry Type"::"Payment Discount",
"Entry Type"::"Payment Discount (VAT Excl.)",
"Entry Type"::"Payment Discount (VAT Adjustment)",
"Entry Type"::"Payment Discount Tolerance",
"Entry Type"::"Payment Discount Tolerance (VAT Excl.)",
"Entry Type"::"Payment Discount Tolerance (VAT Adjustment)":
BEGIN
Description := Text006;
DueDate := 0D;
END;
"Entry Type"::"Payment Tolerance",
"Entry Type"::"Payment Tolerance (VAT Excl.)",
"Entry Type"::"Payment Tolerance (VAT Adjustment)":
BEGIN
Description := Text014;
DueDate := 0D;
END;
"Entry Type"::"Appln. Rounding",
"Entry Type"::"Correction of Remaining Amount":
BEGIN
Description := Text007;
DueDate := 0D;
END;
END;
IF PrintLine THEN
VendBalance := VendBalance + Amount;
// End of the added lines.
END;
DataItemLinkReference=Vendor;
DataItemLink=Vendor No.=FIELD(No.);
... -
仕入先の明細書レポート (13377) のデータ項目数 4 のセクションでコードを次のように変更します。
既存のコード 1... DataSetFieldName=Vendor_Ledger_Entry_Description }
{ 47 ;TextBox ;7980 ;0 ;1680 ;423 ;HorzAlign=Left;
FontSize=9;
CaptionML=ENU=Due Date;
// Delete the following lines.
SourceExpr=FORMAT("Due Date",0,4);
DataSetFieldName=Vendor_Ledger_Entry__Due_Date_ }
{ 48 ;TextBox ;13230;0 ;2310 ;423 ;FontSize=9;
CaptionML=ENU=Remaining Amount;
SourceExpr="Remaining Amount";
// End of the deleted lines.
AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=Vendor_Ledger_Entry__Remaining_Amount_ }
{ 49 ;TextBox ;15750;0 ;2310 ;423 ;FontSize=9;
...置換用コード 1
... DataSetFieldName=Vendor_Ledger_Entry_Description }
{ 47 ;TextBox ;7980 ;0 ;1680 ;423 ;HorzAlign=Left;
FontSize=9;
CaptionML=ENU=Due Date;
// Add the following lines.
SourceExpr=FORMAT(DueDate,0,4);
DataSetFieldName=Vendor_Ledger_Entry__Due_Date_ }
{ 48 ;TextBox ;13230;0 ;2310 ;423 ;FontSize=9;
CaptionML=ENU=Remaining Amount;
SourceExpr=RemainingAmount;
// End of the added lines.
AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=Vendor_Ledger_Entry__Remaining_Amount_ }
{ 49 ;TextBox ;15750;0 ;2310 ;423 ;FontSize=9;
...既存のコード 2
...AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=VendBalance_Control49 }
{ 54 ;TextBox ;10710;0 ;2310 ;423 ;FontSize=9;
// Delete the following line.
SourceExpr="Original Amount";
// End of the deleted line.
AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=Vendor_Ledger_Entry__Original_Amount_ }
{ 78 ;TextBox ;9870 ;0 ;840 ;423 ;FontSize=9;
...置換用コード 2
... AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=VendBalance_Control49 }
{ 54 ;TextBox ;10710;0 ;2310 ;423 ;FontSize=9;
// Add the following line.
SourceExpr=Amount;
// End of the added line.
AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=Vendor_Ledger_Entry__Original_Amount_ }
{ 78 ;TextBox ;9870 ;0 ;840 ;423 ;FontSize=9;
... -
仕入先の明細書レポート (13377) のデータ項目数 5 のコードを次のように変更します。
既存のコード...END;
OnAfterGetRecord=BEGIN
IF ISSERVICETIER THEN
// Delete the following lines.
VendBalance2 := VendBalance2 + "Remaining Amount"
ELSE
VendBalance := VendBalance + "Remaining Amount";
// End of the deleted lines.
END;
DataItemLinkReference=Vendor;
DataItemLink=Vendor No.=FIELD(No.);
...置換用コード
... END;
OnAfterGetRecord=BEGIN
IF ISSERVICETIER THEN
// Add the following lines.
VendBalance2 := VendBalance2 + RemainingAmount
ELSE
VendBalance := VendBalance + RemainingAmount;
// End of the added lines.
END;
DataItemLinkReference=Vendor;
DataItemLink=Vendor No.=FIELD(No.);
... -
仕入先の明細書レポート (13377) のデータ項目数 5 のセクションでコードを次のように変更します。
既存のコード...SourceExpr=Description;
DataSetFieldName=VendorLedgEntry2_Description }
{ 60 ;TextBox ;7980 ;0 ;1680 ;423 ;HorzAlign=Left;
FontSize=9;
// Delete the following lines.
SourceExpr=FORMAT("Due Date",0,4);
DataSetFieldName=VendorLedgEntry2__Due_Date_ }
{ 61 ;TextBox ;13230;0 ;2310 ;423 ;FontSize=9;
SourceExpr="Remaining Amount";
// End of the deleted lines.
AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=VendorLedgEntry2__Remaining_Amount_ }
{ 62 ;TextBox ;15750;0 ;2310 ;423 ;FontSize=9;
...置換用コード
... SourceExpr=Description;
DataSetFieldName=VendorLedgEntry2_Description }
{ 60 ;TextBox ;7980 ;0 ;1680 ;423 ;HorzAlign=Left;
FontSize=9;
// Add the following lines.
SourceExpr=FORMAT(DueDate,0,4);
DataSetFieldName=VendorLedgEntry2__Due_Date_ }
{ 61 ;TextBox ;13230;0 ;2310 ;423 ;FontSize=9;
SourceExpr=RemainingAmount;
// End of the added lines.
AutoFormatType=1;
AutoFormatExpr="Currency Code";
DataSetFieldName=VendorLedgEntry2__Remaining_Amount_ }
{ 62 ;TextBox ;15750;0 ;2310 ;423 ;FontSize=9;
... -
次のように仕入先の明細書レポート (13377) のグローバル変数内のコードを変更します。
既存のコード 1...Text000@1000 : TextConst 'ENU=Page %1';
Text001@1001 : TextConst 'ENU=Open Entries %1';
Text002@1002 : TextConst 'ENU=Overdue Entries %1';
Text003@1003 : TextConst 'ENU="Statement "';
GLSetup@1004 : Record 98;
CompanyInfo@1005 : Record 79;
Vend2@1006 : Record 23;
Currency@1007 : Record 4;
...置換用コード 1
...Text000@1000 : TextConst 'ENU=Page %1';
Text001@1001 : TextConst 'ENU=Open Entries %1';
Text002@1002 : TextConst 'ENU=Overdue Entries %1';
Text003@1003 : TextConst 'ENU="Statement "';
// Add the following lines.
Text005@1030 : TextConst 'ENU=Multicurrency Application';
Text006@1031 : TextConst 'ENU=Payment Discount';
Text007@1032 : TextConst 'ENU=Rounding';
Text014@1033 : TextConst 'ENU=Application Writeoffs';
// End of the added lines.
GLSetup@1004 : Record 98;
CompanyInfo@1005 : Record 79;
Vend2@1006 : Record 23;
Currency@1007 : Record 4;
...既存のコード 2
...PrintAllHavingEntry@1010 : Boolean;
PrintAllHavingBal@1011 : Boolean;
PrintEntriesDue@1012 : Boolean;
PrintLine@1013 : Boolean;
StartDate@1014 : Date;
EndDate@1015 : Date;
VendAddr@1016 : ARRAY [8] OF Text[50];
CompanyAddr@1017 : ARRAY [8] OF Text[50];
...置換用コード 2
...
PrintAllHavingEntry@1010 : Boolean;
PrintAllHavingBal@1011 : Boolean;
PrintEntriesDue@1012 : Boolean;
PrintLine@1013 : Boolean;
// Add the following line.
DueDate@1038 : Date;
// End of the added line.
StartDate@1014 : Date;
EndDate@1015 : Date;
VendAddr@1016 : ARRAY [8] OF Text[50];
CompanyAddr@1017 : ARRAY [8] OF Text[50];
...既存のコード 3
...StartDate@1014 : Date;
EndDate@1015 : Date;
VendAddr@1016 : ARRAY [8] OF Text[50];
CompanyAddr@1017 : ARRAY [8] OF Text[50];
StartBalance@1018 : Decimal;
VendBalance@1019 : Decimal;
FormatAddr@1020 : Codeunit 365;
CurrencyCode3@1022 : Code[10];
...置換用コード 3
...StartDate@1014 : Date;
EndDate@1015 : Date;
VendAddr@1016 : ARRAY [8] OF Text[50];
CompanyAddr@1017 : ARRAY [8] OF Text[50];
// Add the following lines.
Description@1039 : Text[50];
RemainingAmount@1040 : Decimal;
// End of the added lines.
StartBalance@1018 : Decimal;
VendBalance@1019 : Decimal;
FormatAddr@1020 : Codeunit 365;
CurrencyCode3@1022 : Code[10];
...既存コード 4
... </ReportItems>
</TableCell>
</TableCells>
<Visibility>
// Delete the following line.
<Hidden>=IIF(Fields!Vendor_Ledger_Entry_Vendor_No_.Value = "",TRUE,FALSE)</Hidden>
// End of the deleted line.
</Visibility>
</TableRow>
</TableRows>
</Details>
...置換用コード 4
...</ReportItems>
</TableCell>
</TableCells>
<Visibility>
// Add the following line.
<Hidden>=IIF(Fields!DtldVendLedgEntry_Vendor_No_.Value = "",TRUE,FALSE)</Hidden>
// End of the added line.
</Visibility>
</TableRow>
</TableRows>
</Details>
...既存コード 5
...<FontWeight>700</FontWeight>
<TextAlign>Right</TextAlign>
<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=iif(Last(Fields!Vendor_Ledger_Entry_Vendor_No_.Value) = "" ,Last(Fields!VendBalance_Control66Caption.Value),
// End of the deleted line.
Last(Fields!VendBalance_Control53Caption.Value))</Value>
</Textbox>
</ReportItems>
</TableCell>
...置換用コード 5
...<FontWeight>700</FontWeight>
<TextAlign>Right</TextAlign>
<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=iif(Last(Fields!DtldVendLedgEntry_Vendor_No_.Value) = "" ,Last(Fields!VendBalance_Control66Caption.Value),
// End of the added line.
Last(Fields!VendBalance_Control53Caption.Value))</Value>
</Textbox>
</ReportItems>
</TableCell>
...既存のコード 6
...<FontWeight>700</FontWeight>
<TextAlign>Right</TextAlign>
<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=iif(Last(Fields!Vendor_Ledger_Entry_Vendor_No_.Value) = "" ,Last(Fields!CurrencyCode3_Control73.Value),
// End of the deleted line.
Last(Fields!CurrencyCode3.Value))</Value>
</Textbox>
</ReportItems>
</TableCell>
...置換用コード 6
... <FontWeight>700</FontWeight>
<TextAlign>Right</TextAlign>
<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=iif(Last(Fields!DtldVendLedgEntry_Vendor_No_.Value) = "" ,Last(Fields!CurrencyCode3_Control73.Value),
// End of the added line.
Last(Fields!CurrencyCode3.Value))</Value>
</Textbox>
</ReportItems>
</TableCell>
...既存コード 7
...FontWeight>700</FontWeight>
<Format>=Fields!VendBalance_Control49Format.Value</Format>
<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=iif(Last(Fields!Vendor_Ledger_Entry_Vendor_No_.Value) = "" ,Last(Fields!VendBalance_Control56.Value),
// End of the deleted line.
LAST(Fields!VendBalance.Value))</Value>
</Textbox>
</ReportItems>
</TableCell>
...置換用コード 7
...<FontWeight>700</FontWeight>
<Format>=Fields!VendBalance_Control49Format.Value</Format>
<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=iif(Last(Fields!DtldVendLedgEntry_Vendor_No_.Value) = "" ,Last(Fields!VendBalance_Control56.Value),
// End of the added line.
LAST(Fields!VendBalance.Value))</Value>
</Textbox>
</ReportItems>
</TableCell>
...既存コード 8
...</Field>
<Field Name="CurrencyCode3">
<DataField>CurrencyCode3</DataField>
</Field>
// Delete the following lines.
<Field Name="Vendor_Ledger_Entry_Entry_No_">
<DataField>Vendor_Ledger_Entry_Entry_No_</DataField>
</Field>
<Field Name="Vendor_Ledger_Entry_Vendor_No_">
<DataField>Vendor_Ledger_Entry_Vendor_No_</DataField>
// End of the deleted lines.
</Field>
<Field Name="STRSUBSTNO_Text002_Currency2_Code_">
<DataField>STRSUBSTNO_Text002_Currency2_Code_</DataField>
</Field>
...置換用コード 8
...</Field>
<Field Name="CurrencyCode3">
<DataField>CurrencyCode3</DataField>
</Field>
// Add the following lines.
<Field Name="DtldVendLedgEntry_Entry_No_">
<DataField>DtldVendLedgEntry_Entry_No_</DataField>
</Field>
<Field Name="DtldVendLedgEntry_Vendor_No_">
<DataField>DtldVendLedgEntry_Vendor_No_</DataField>
// End of the added lines.
</Field>
<Field Name="STRSUBSTNO_Text002_Currency2_Code_">
<DataField>STRSUBSTNO_Text002_Currency2_Code_</DataField>
</Field>
...
必要条件
この修正プログラムを適用するのにはインストールされている製品は次のいずれかが必要です。
-
Microsoft Dynamics NAV 2009 の R2 のポルトガル語版
-
Microsoft Dynamics NAV 2009 の SP1 のポルトガル語版
アンインストール情報
この修正プログラムを削除することはできません。
状況
マイクロソフトは、この問題を「対象製品」セクションに記載されているマイクロソフト製品の問題として認識しています。
注: これは、マイクロソフト サポートの組織内から直接作成した「高速公開」の資料です。ここに含まれる情報は、新たに発生している問題に応じて現状のまま提供されています。速やかに利用できるようにした結果として、内容には誤植が含まれている可能性があり、事前告知なしで改訂する場合があります。その他の考慮事項については、使用条件を参照してください。
