Raporu'den 11584 11587'ın İsviçre sürümü Microsoft Dynamics NAV 2009, "Toplam çalışan sayısı içinde başlatmak için Almanca (İsviçre) dil kullandığınızda Faturaları ve iade faturalarını "her zaman sıfır olarak gösterilir. Bu sorun, aşağıdaki ürün oluşur:
-
Microsoft Dynamics NAV 2009 R2'ın İsviçre sürümü
-
Microsoft Dynamics NAV 2009 SP1'ın İsviçre sürümü
Çözüm
Düzeltme bilgileri
Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.
Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.
Yükleme bilgileri
Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.
Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Dynamics NAV istemci kullanıcıların sistem kaydedildiğini doğrulayın. Bu, Microsoft Dynamics NAV uygulama sunucusu (NAS) hizmetleri içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.
Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.
Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:
-
Nesnenin, değiştirme değişiklik yapma izni.
-
Sistem nesne kimliği 9015 ve Sistem nesnesi kimliği 5210 nesne için Execute izni
nesne.
Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.
Kod değişiklikleri
Not her zaman test kodu düzeltmeleri denetimli bir ortamda üretim bilgisayarlarınıza onarımları uyguladıktan önce. Değişiklikleri uygulamadan önce lütfen tüm SEPA güncelleştirmeleri alın.
Bu sorunu gidermek için şu adımları izleyin:
-
Bölümlerdeki veri madde numarası 1 SR müşteri kodu değiştirin. Fatura Std raporu (11584) listesi:
Varolan kodu...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 değiştirme
... 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;
...
-
SR Müşt CalcExrate işlevinde kodu değiştirin. Fatura Std raporu (11584) listesi:
Varolan kodu 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>
...Değiştirme kodu 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>
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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>
...Değiştirme kodu 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>
... -
Bölümlerdeki veri madde numarası 1 SR müşteri kodu değiştirin. Faturaları listesi FPB raporu (11585):
Varolan kodu... 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 değiştirme
... 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;
... -
SR Müşt CalcExrate işlevinde kodu değiştirin. Faturaları listesi FPB raporu (11585):
Varolan kodu 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>
...Değiştirme kodu 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>
...
Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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_">
...Değiştirme kodu 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_">
...Varolan kodu 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>
...Değiştirme kodu 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>
...Varolan kodu 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>
...Değiştirme kodu 6
...</Fields>
<Query>
<CommandText />
<DataSourceName>DummyDataSource</DataSourceName>
</Query>
</DataSet>
</DataSets>
<DataSources>
<DataSource Name="DummyDataSource">
<ConnectionProperties>
... -
Bölümlerdeki veri madde numarası 1 SR müşteri kodu değiştirin. Deftere nakil raporu (11586) faturaları listesi:
Varolan kodu... 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 değiştirme
...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;
... -
SR Müşt CalcExrate işlevinde kodu değiştirin. Deftere nakil raporu (11586) faturaları listesi:
Varolan kodu 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>
...Değiştirme kodu 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>
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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>
...Değiştirme kodu 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>
...
-
Bölümlerdeki veri madde numarası 1 SR müşteri kodu değiştirin. Faturaların listesini ödeme raporu (11587):
Varolan kodu... 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 değiştirme
... 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;
... -
SR Müşt CalcExrate işlevinde kodu değiştirin. Faturaların listesini ödeme raporu (11587):
Varolan kodu 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>
...Değiştirme kodu 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>
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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
...Değiştirme kodu 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
...Varolan kodu 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>
...Değiştirme kodu 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>
...
Önkoşullar
Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:
-
Microsoft Dynamics NAV 2009 R2'ın İsviçre sürümü
-
Microsoft Dynamics NAV 2009 SP1'ın İsviçre sürümü
Kaldırma bilgileri
Bu düzeltmeyi kaldıramazsınız.
Durum
Microsoft bu sorunun "Aşağıdakilere Uygulanır" bölümünde listelenen Microsoft ürünlerinde bulunduğunu onaylamıştır.
Not: Bu, doğrudan Microsoft destek kuruluşu bünyesinde oluşturulan bir "HIZLI YAYIN" makalesidir. Burada yer alan bilgiler, oluşan sorunlara yanıt olarak olduğu gibi sağlanmıştır. Makale hızla kullanıma sunulduğu için materyallerde yazım hataları olabilir ve materyaller bildirilmeksizin herhangi bir zamanda revize edilebilir. Kullanım koşullarıdiğer konular için bkz.
