Kiedy używać język niemiecki (Szwajcaria) do uruchomienia raportu od 11584 do 11587 w Szwajcarskiej wersji systemu Microsoft Dynamics NAV 2009, całkowita nr." Faktur i faktur korygujących"jest zawsze wyświetlany jako zero. Ten problem występuje w następujących produktach:
-
Szwajcarską wersję systemu Microsoft Dynamics NAV 2009 R2
-
Szwajcarski wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Rozwiązanie
Informacje o poprawce
Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.
Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.
Informacje dotyczące instalacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.
Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.
Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.
Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
-
Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
-
Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i 9015 identyfikator obiektu systemu
obiekt.
Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.
Zmiany kodu
Uwaga zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych. Przed zastosowaniem zmiany, zaimportuj wszystkie aktualizacje SEPA.
Aby rozwiązać ten problem, wykonaj następujące kroki:
-
Zmień kod w sekcjach 1 numer elementu danych w SR Cust. Listy faktury raportu Std (11584):
Istniejący kod...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;
...Kod zastępczy
... 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;
...
-
Zmień kod w funkcji CalcExrate w SR Cust. Listy faktury raportu Std (11584):
Istniejący kod 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>
...Kod zastępczy 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>
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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>
...Kod zastępczy 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>
... -
Zmień kod w sekcjach 1 numer elementu danych w SR Cust. Raport w wal. listy faktur (11585):
Istniejący kod... 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;
...Kod zastępczy
... 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;
... -
Zmień kod w funkcji CalcExrate w SR Cust. Raport w wal. listy faktur (11585):
Istniejący kod 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>
...Kod zastępczy 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>
...
Istniejący kod 2TotalProfitLCY = 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
...Kod zastępczy 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
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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_">
...Kod zastępczy 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_">
...Istniejący kod 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>
...Kod zastępczy 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>
...Istniejący kod 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>
...Kod zastępczy 6
...</Fields>
<Query>
<CommandText />
<DataSourceName>DummyDataSource</DataSourceName>
</Query>
</DataSet>
</DataSets>
<DataSources>
<DataSource Name="DummyDataSource">
<ConnectionProperties>
... -
Zmień kod w sekcjach 1 numer elementu danych w SR Cust. Lista faktur Księgowanie raportu (11586):
Istniejący kod... 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;
...Kod zastępczy
...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;
... -
Zmień kod w funkcji CalcExrate w SR Cust. Lista faktur Księgowanie raportu (11586):
Istniejący kod 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>
...Kod zastępczy 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>
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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>
...Kod zastępczy 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>
...
-
Zmień kod w sekcjach 1 numer elementu danych w SR Cust. Raport płatności listy faktur (11587):
Istniejący kod... 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;
...Kod zastępczy
... 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;
... -
Zmień kod w funkcji CalcExrate w SR Cust. Raport płatności listy faktur (11587):
Istniejący kod 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>
...Kod zastępczy 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>
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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>
...Kod zastępczy 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>
...
Wymagania wstępne
Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
-
Szwajcarską wersję systemu Microsoft Dynamics NAV 2009 R2
-
Szwajcarski wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Informacje dotyczące usuwania
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowaniadla innych względów.
