Når du bruker språket tysk (Sveits) til å starte rapporten fra 11584 til 11587 i den sveitsiske versjonen av Microsoft Dynamics NAV 2009, den "Totalt Nr. for fakturaer eller kreditnotaer"vises alltid som null. Dette problemet oppstår i følgende produkt:
-
Sveitsisk versjon av Microsoft Dynamics NAV 2009 R2
-
Sveitsisk versjon av Microsoft Dynamics NAV 2009 SP1
Oppløsning
Informasjon om hurtigreparasjon
En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å løse problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som har dette bestemte problemet. Denne hurtigreparasjonen kan gjennomgå ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på neste oppdateringspakke for Microsoft Dynamics NAV 2009 eller den neste versjonen av Microsoft Dynamics NAV som inneholder denne hurtigreparasjonen.
Obs! I spesielle tilfeller avgifter som vanligvis påløper for støtte samtaler kan avbrytes hvis en kundestøttemedarbeider for Microsoft Dynamics og beslektede produkter avgjør at en bestemt oppdatering løser problemet. Vanlige kundestøttekostnader gjelder for ytterligere kundestøttespørsmål og problemer som ikke dekkes av den gjeldende oppdateringen.
Installasjonsinformasjon
Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre. De endrer imidlertid ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.
Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle brukerne i Microsoft Dynamics NAV-klienten er logget av systemet. Dette inkluderer tjenester for Microsoft Dynamics NAV Application Server (NAS). Du skal bare klient-brukeren som er logget på når du implementerer denne hurtigreparasjonen.
Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.
Vi anbefaler at kontoen i vinduet Windows-pålogging eller i vinduet Database-pålogging være tildelt "SUPER" rolle-ID. Hvis brukerkontoen ikke kan tilordnes "SUPER" rolle-IDen, må du kontrollere at brukerkontoen har følgende tillatelser:
-
Endre-tillatelse for objektet du vil endre.
-
Tilgangsnivået for systemet objekt-IDen til 5210 objektet og systemet objekt-ID-9015
-objektet.
Obs! Du har ikke tilgangsrettigheter til datalagre med mindre du har til å utføre data reparasjon.
Kodeendringer
Notat alltid teste koden reparasjoner i et kontrollert miljø før du bruker reparasjonene på produksjonsdatamaskinene. Før du bruker endringen, import alle SEPA-oppdateringer.
Hvis du vil løse dette problemet, gjør du følgende:
-
Endre koden i delene Data element nummer 1 i tabellen Kundepost SR. Fakturaer over Std rapport (11584):
Eksisterende kode...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;
...Ny kode
... 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;
...
-
Endre koden i funksjonen CalcExrate i tabellen Kundepost SR. Fakturaer over Std rapport (11584):
Eksisterende kode 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>
...Ny kode 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>
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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>
...Ny kode 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>
... -
Endre koden i delene Data element nummer 1 i tabellen Kundepost SR. Fakturaer val rapport (11585):
Eksisterende kode... 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;
...Ny kode
... 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;
... -
Endre koden i funksjonen CalcExrate i tabellen Kundepost SR. Fakturaer val rapport (11585):
Eksisterende kode 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>
...Ny kode 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>
...
Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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_">
...Ny kode 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_">
...Eksisterende kode 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>
...Ny kode 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>
...Eksisterende kode 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>
...Ny kode 6
...</Fields>
<Query>
<CommandText />
<DataSourceName>DummyDataSource</DataSourceName>
</Query>
</DataSet>
</DataSets>
<DataSources>
<DataSource Name="DummyDataSource">
<ConnectionProperties>
... -
Endre koden i delene Data element nummer 1 i tabellen Kundepost SR. Fakturaer-listen bokføringsrapport (11586):
Eksisterende kode... 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;
...Ny kode
...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;
... -
Endre koden i funksjonen CalcExrate i tabellen Kundepost SR. Fakturaer-listen bokføringsrapport (11586):
Eksisterende kode 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>
...Ny kode 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>
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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>
...Ny kode 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>
...
-
Endre koden i delene Data element nummer 1 i tabellen Kundepost SR. Fakturaer betalingsrapport (11587):
Eksisterende kode... 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;
...Ny kode
... 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;
... -
Endre koden i funksjonen CalcExrate i tabellen Kundepost SR. Fakturaer betalingsrapport (11587):
Eksisterende kode 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>
...Ny kode 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>
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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
...Ny kode 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
...Eksisterende kode 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>
...Ny kode 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>
...
Forutsetninger
Du må ha én av de følgende programmene installert for å bruke denne hurtigreparasjonen:
-
Sveitsisk versjon av Microsoft Dynamics NAV 2009 R2
-
Sveitsisk versjon av Microsoft Dynamics NAV 2009 SP1
Informasjon om fjerning
Du kan ikke fjerne denne hurtigreparasjonen.
Status
Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen "Gjelder for".
Obs! Dette er en "RASKT PUBLISERE" artikkel opprettet direkte fra innenfor organisasjonen Microsoft Kundestøtte. Informasjonen i dette dokumentet tilbys som-er som svar på nye problemer. Som et resultat av hastigheten i å gjøre den tilgjengelig materialene kan inkludere typografiske feil, og den kunne bli revidert når som helst uten varsel. Se Vilkårene for Brukfor andre hensyn.
