Denne artikkelen beskriver et problem når du skriver ut Stock mottatt, ikke fakturert og lager levert, ikke fakturert rapportene i Storbritannia lokalisering av Microsoft Dynamics NAV 2009. Dette problemet oppstår fortsatt etter implementering av KB 2882942.
Følg trinnene i delen kodeendringer for å løse dette problemet. Dette problemet oppstår i følgende produkter:
-
Storbritannia-lokalisering av Microsoft Dynamics NAV 2009 R2
-
Storbritannia-lokalisering av Microsoft Dynamics NAV 2009 Service Pack 1 (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
Obs! Alltid løser teste koden i et kontrollert miljø før du installerer hurtigreparasjoner til produksjonsdatamaskiner for.
Hvis du vil løse dette problemet, gjør du følgende:
-
Endre koden i Data element nummer 1 inndelinger i lager-mottatt, ikke fakturert rapport (10540) som følger:
Eksisterende kode 1...VertAlign=Bottom;
FontBold=Yes;
MultiLine=Yes;
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
{ 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
VertAlign=Bottom;
...Ny kode 1
...VertAlign=Bottom;
FontBold=Yes;
MultiLine=Yes;
// Adding the following line.
CaptionML=ENU=Cost Amount (Expected);
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
{ 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
VertAlign=Bottom;
...Eksisterende kode 2
...SourceExpr="Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
// Deleting the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected__ }
{ 1040045;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
SourceExpr=Text1040005 + ' ' + Item."No.";
...Ny kode 2
...SourceExpr="Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
// Adding the following line.
SourceExpr=ItemCostAmtExpected;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected__ }
{ 1040045;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
SourceExpr=Text1040005 + ' ' + Item."No.";
...Eksisterende kode 3
...DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Deleting the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
{ 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
SourceExpr="Value Entry"."Invoiced Quantity";
...Ny kode 3
...DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Adding the following line.
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
{ 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
SourceExpr="Value Entry"."Invoiced Quantity";
...Eksisterende kode 4
...DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Deleting the following lines.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected___Control1040068 }
{ 1040069;TextBox ;7350 ;423 ;1550 ;423 ;FontSize=7;
FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
...Ny kode 4
...DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Adding the following lines.
SourceExpr=ItemCostAmtExpectedTotal }
{ 1040069;TextBox ;7350 ;423 ;1550 ;423 ;FontSize=7;
FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
SourceExpr=ItemCostAmtExpectedTotal - ValueCostAmtActualTotal;
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
...Eksisterende kode 5
...ForeColor=65535;
SourceExpr=ItemInvoicedQtyTotal;
DataSetFieldName=ItemInvoicedQtyTotal }
// Delete the following lines.
{ 1040103;TextBox ;300 ;0 ;150 ;423 ;Name=ItemCostAmtExpectedTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemCostAmtExpectedTotal;
DataSetFieldName=ItemCostAmtExpectedTotal }
// End of the deleted lines.
{ 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=ItemReceivedQtyTotal;
Visible=No;
ForeColor=65535;
...Ny kode 5
...ForeColor=65535;
SourceExpr=ItemInvoicedQtyTotal;
DataSetFieldName=ItemInvoicedQtyTotal }
{ 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=ItemReceivedQtyTotal;
Visible=No;
ForeColor=65535;
... -
Endre koden i Data element nummer 2 seksjoner i børs mottatt, ikke fakturert rapport (10540) som følger:
Eksisterende kode 1...NoOfItems := NoOfItems + 1;
CurrReport.CREATETOTALS(Quantity,"Invoiced Quantity","Cost Amount (Expected)");
CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Delete the following lines.
// GB1004.begin
ItemReceivedQty += Quantity;
ItemInvoicedQty += "Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemReceivedQtyTotal += Quantity;
ItemInvoicedQtyTotal += "Invoiced Quantity";
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
// End of the deleted lines.
// GB1004.end
END;
...Ny kode 1
...NoOfItems := NoOfItems + 1;
CurrReport.CREATETOTALS(Quantity,"Invoiced Quantity","Cost Amount (Expected)");
CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Add the following lines.
CALCFIELDS("Cost Amount (Actual)");
CALCFIELDS("Cost Amount (Expected)");
// GB1004.begin
ItemReceivedQty += Quantity;
ItemInvoicedQty += "Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)" + "Cost Amount (Actual)";
ItemReceivedQtyTotal += Quantity;
ItemInvoicedQtyTotal += "Invoiced Quantity";
ItemCostAmtExpectedTotal += "Cost Amount (Expected)" + "Cost Amount (Actual)";
// End of the added lines.
// GB1004.end
END;
...Eksisterende kode 2
...{ 1040047;TextBox ;2100 ;0 ;1500 ;423 ;HorzAlign=Left;
SourceExpr="Source No.";
DataSetFieldName=Item_Ledger_Entry__Source_No__ }
// Delete the following line.
{ 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr="Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
}
}
...Ny kode 2
...{ 1040047;TextBox ;2100 ;0 ;1500 ;423 ;HorzAlign=Left;
SourceExpr="Source No.";
DataSetFieldName=Item_Ledger_Entry__Source_No__ }
// Add the following line.
{ 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr="Cost Amount (Expected)" + "Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
}
}
...Eksisterende kode 3
...SourceExpr="Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Cost_Amount__Expected__ }
{ 1040079;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
SourceExpr=Text1040005 + ' ' + Item."No.";
...Ny kode 3
...SourceExpr="Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ItemCostAmtExpected;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Cost_Amount__Expected__ }
{ 1040079;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
SourceExpr=Text1040005 + ' ' + Item."No.";
...Eksisterende kode 4
...DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
{ 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
Visible=No;
...Ny kode 4
...DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
// Add the following line.
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
{ 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
Visible=No;
... -
Endre koden i Data element nummer 3 delene i børs mottatt, ikke fakturert rapport (10540) som følger:
Eksisterende kode 1...OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
// Delete the following line.
SETFILTER("Invoiced Quantity",'<>%1',0);
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
// End of the deleted line.
END;
OnAfterGetRecord=BEGIN
...Ny kode 1
...OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
// Add the following lines.
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
LastDocumentNo := '';
// End of the added lines.
END;
OnAfterGetRecord=BEGIN
...Eksisterende kode 2
...ValueInvoicedQty += "Invoiced Quantity";
ValueCostAmtActualTotal += "Cost Amount (Actual)";
ValueInvoicedQtyTotal += "Invoiced Quantity";
// GB1004.end
END;
...Ny kode 2
...ValueInvoicedQty += "Invoiced Quantity";
ValueCostAmtActualTotal += "Cost Amount (Actual)";
ValueInvoicedQtyTotal += "Invoiced Quantity";
// Add the following line.
CalcSumDocumentNo("Value Entry");
// End of the added line.
// GB1004.end
END;
...Eksisterende kode 3
...SectionWidth=18150;
SectionHeight=423;
OnPreSection=BEGIN
// Delete the following line.
CurrReport.SHOWOUTPUT(PrintDetails);
// End of the deleted line.
END;
}
...Ny kode 3
...SectionWidth=18150;
SectionHeight=423;
OnPreSection=BEGIN
// Add the following line.
CurrReport.SHOWOUTPUT(PrintDetails AND ("Invoiced Quantity" <> 0));
// End of the added line.
END;
}
... -
Endre koden i globale variabler i børs mottatt, ikke fakturert rapport (10540) som følger:
Eksisterende kode...</TableCell>
</TableCells>
<Visibility>
// Delete the following line.
<Hidden>=iif (Fields!PrintDetails.Value and Fields!Value_Entry_Entry_No_.Value > 0,FALSE,TRUE)</Hidden>
// End of the deleted line.
</Visibility>
</TableRow>
</TableRows>
...Ny kode
...</TableCell>
</TableCells>
<Visibility>
// Adding the following line.
<Hidden>=iif (Fields!PrintDetails.Value and Fields!Value_Entry_Entry_No_.Value and Fields!Value_Entry__Invoiced_Quantity_.Value <> 0,FALSE,TRUE)</Hidden>
// End of the added line.
</Visibility>
</TableRow>
</TableRows>
... -
Endre koden i Data element nummer 1 delene i lager levert, ikke fakturert rapport (10541) som følger:
Eksisterende kode 1...VertAlign=Bottom;
FontBold=Yes;
MultiLine=Yes;
DataSetFieldName=Value_Entry__Cost_Amount__Actual__Caption }
{ 1040026;Label ;15000;846 ;1500 ;846 ;ParentControl=1040025;
HorzAlign=Right;
...Ny kode 1
...VertAlign=Bottom;
FontBold=Yes;
MultiLine=Yes;
// Add the following line.
CaptionML=ENU=Cost Amount (Actual);
// End of the added line.
DataSetFieldName=Value_Entry__Cost_Amount__Actual__Caption }
{ 1040026;Label ;15000;846 ;1500 ;846 ;ParentControl=1040025;
HorzAlign=Right;
...Eksisterende kode 2
...VertAlign=Bottom;
FontBold=Yes;
MultiLine=Yes;
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
{ 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
VertAlign=Bottom;
...Ny kode 2
...VertAlign=Bottom;
FontBold=Yes;
MultiLine=Yes;
// Add the following line.
CaptionML=ENU=Cost Amount (Expected);
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
{ 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
VertAlign=Bottom;
...Eksisterende kode 3
...SourceExpr=Text1040005 + ' ' + Item."No.";
DataSetFieldName=Text1040005_________Item__No__ }
{ 1040054;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Value Entry"."Cost Amount (Actual)";
// End of the deleted line.
DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
...Ny kode 3
...SourceExpr=Text1040005 + ' ' + Item."No.";
DataSetFieldName=Text1040005_________Item__No__ }
{ 1040054;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=-"Value Entry"."Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
...Eksisterende kode 4
...DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
{ 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
// Delete the following line.
SourceExpr="Value Entry"."Cost Amount (Actual)";
// End of the deleted line.
DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040071 }
{ 1040072;Label ;0 ;423 ;5550 ;423 ;FontSize=9;
FontBold=Yes;
...Ny kode 4
...DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
{ 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
// Add the following line.
SourceExpr=-"Value Entry"."Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040071 }
{ 1040072;Label ;0 ;423 ;5550 ;423 ;FontSize=9;
FontBold=Yes;
... -
Endre koden i Data element nummer 2 i lager levert, ikke fakturert rapport (10541) som følger:
Eksisterende kode 1...OnAfterGetRecord=BEGIN
NoOfItems := NoOfItems + 1;
CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Delete the following lines.
ItemCostAmount += "Cost Amount (Expected)";
ItemShippedQty += -Quantity;
ItemInvoicedQty += -"Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemCostAmountTotal += "Cost Amount (Expected)";
ItemShippedQtyTotal += -Quantity;
ItemInvoicedQtyTotal += -"Invoiced Quantity";
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
// End of the deleted lines.
END;
DataItemLink=Item No.=FIELD(No.);
...Ny kode 1
...OnAfterGetRecord=BEGIN
NoOfItems := NoOfItems + 1;
CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Add the following lines.
CALCFIELDS("Cost Amount (Actual)");
CALCFIELDS("Cost Amount (Expected)");
ItemCostAmount -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
ItemShippedQty -= Quantity;
ItemInvoicedQty -= "Invoiced Quantity";
ItemCostAmtExpected -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
ItemCostAmountTotal -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
ItemShippedQtyTotal -= Quantity;
ItemInvoicedQtyTotal -= "Invoiced Quantity";
ItemCostAmtExpectedTotal -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
// End of the added lines.
END;
DataItemLink=Item No.=FIELD(No.);
...Eksisterende kode 2
...{ 1040047;TextBox ;2100 ;0 ;1500 ;423 ;HorzAlign=Left;
SourceExpr="Source No.";
DataSetFieldName=Item_Ledger_Entry__Source_No__ }
// Delete the following line.
{ 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr="Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
{ 1040082;TextBox ;18000;0 ;150 ;423 ;Name="Entry No.";
Visible=No;
...Ny kode 2
...{ 1040047;TextBox ;2100 ;0 ;1500 ;423 ;HorzAlign=Left;
SourceExpr="Source No.";
DataSetFieldName=Item_Ledger_Entry__Source_No__ }
// Add the following line.
{ 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr=-("Cost Amount (Expected)" + "Cost Amount (Actual)");
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
{ 1040082;TextBox ;18000;0 ;150 ;423 ;Name="Entry No.";
Visible=No;
... -
Endre koden i Data element nummer 3 i lager levert, ikke fakturert rapport (10541) som følger:
Eksisterende kode 1...OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
// Delete the following lines.
SETFILTER("Invoiced Quantity",'<>%1',0);
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
OnAfterGetRecord=BEGIN
ValueInvoicedQty += -"Invoiced Quantity";
ValueCostAmtActual += "Cost Amount (Actual)";
ValueInvoicedQtyTotal += -"Invoiced Quantity";
ValueCostAmtActualTotal += "Cost Amount (Actual)";
// End of the deleted lines.
END;
DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
...Ny kode 1
...OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
// Add the following lines.
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
LastDocumentNo := '';
END;
OnAfterGetRecord=BEGIN
ValueInvoicedQty -= "Invoiced Quantity";
ValueCostAmtActual -= "Cost Amount (Actual)";
ValueInvoicedQtyTotal -= "Invoiced Quantity";
ValueCostAmtActualTotal -= "Cost Amount (Actual)";
CalcSumDocumentNo("Value Entry");
// End of the added lines.
END;
DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
...Eksisterende kode 3
...SectionWidth=18150;
SectionHeight=423;
OnPreSection=BEGIN
// Delete the following line.
CurrReport.SHOWOUTPUT(PrintDetails);
// End of the deleted line.
END;
}
...Ny kode 3
...SectionWidth=18150;
SectionHeight=423;
OnPreSection=BEGIN
// Add the following line.
CurrReport.SHOWOUTPUT(PrintDetails AND ("Invoiced Quantity" <> 0));
// End of the added line.
END;
}
...Eksisterende kode 4
...{ 1040025;TextBox ;15000;0 ;1500 ;423 ;CaptionML=ENU=Invoiced Quantity;
SourceExpr=-"Invoiced Quantity";
DataSetFieldName=Value_Entry__Invoiced_Quantity_ }
// Delete the following line.
{ 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr="Cost Amount (Actual)";
// End of the deleted line.
DataSetFieldName=Value_Entry__Cost_Amount__Actual__ }
}
}
...Ny kode 4
...{ 1040025;TextBox ;15000;0 ;1500 ;423 ;CaptionML=ENU=Invoiced Quantity;
SourceExpr=-"Invoiced Quantity";
DataSetFieldName=Value_Entry__Invoiced_Quantity_ }
// Add the following line.
{ 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr=-"Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Value_Entry__Cost_Amount__Actual__ }
}
}
... -
Endre koden i Data element nummer 4 i lager levert, ikke fakturert rapport (10541) som følger:
Eksisterende kode...SourceExpr=-"Value Entry"."Invoiced Quantity";
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
{ 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Value Entry"."Cost Amount (Actual)";
// End of the deleted line.
DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040044 }
{ 1040029;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
SourceExpr=Text1040005 + ' ' + Item."No.";
...Ny kode
...SourceExpr=-"Value Entry"."Invoiced Quantity";
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
{ 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=-"Value Entry"."Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040044 }
{ 1040029;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
SourceExpr=Text1040005 + ' ' + Item."No.";
... -
Endre koden i globale variabler i lager levert, ikke fakturert rapport (10541) som følger:
Eksisterende kode 1...ItemCostAmtExpectedTotal@1040016 : Decimal;
ValueInvoicedQtyTotal@1040019 : Decimal;
ValueCostAmtActualTotal@1040020 : Decimal;
BEGIN
{
...Ny kode 1
...ItemCostAmtExpectedTotal@1040016 : Decimal;
ValueInvoicedQtyTotal@1040019 : Decimal;
ValueCostAmtActualTotal@1040020 : Decimal;
// Add the following lines.
LastDocumentNo@1040023 : Code[20];
LOCAL PROCEDURE CalcSumDocumentNo@1040000(VAR ValueEntry@1040000 : Record 5802);
VAR
ValueEntry1@1040001 : Record 5802;
ValueCostAmtActualPer@1040002 : Decimal;
ValueIncoicedQtyPer@1040003 : Decimal;
BEGIN
IF LastDocumentNo = ValueEntry."Document No." THEN BEGIN
ValueEntry."Cost Amount (Actual)" := 0;
ValueEntry."Invoiced Quantity" := 0;
END ELSE BEGIN
WITH ValueEntry1 DO BEGIN
COPYFILTERS(ValueEntry);
SETRANGE("Document No.",ValueEntry."Document No.");
IF FINDSET THEN
REPEAT
ValueCostAmtActualPer += "Cost Amount (Actual)";
ValueIncoicedQtyPer += "Invoiced Quantity";
UNTIL NEXT = 0;
END;
ValueEntry."Cost Amount (Actual)" := ValueCostAmtActualPer;
ValueEntry."Invoiced Quantity" := ValueIncoicedQtyPer;
LastDocumentNo := ValueEntry."Document No.";
END;
END;
// End of the added lines.
BEGIN
{
...Eksisterende kode 2
...</TableCell>
</TableCells>
<Visibility>
// Delete the following line.
<Hidden>=IIF(First(Fields!PrintDetails.Value) And (Fields!Value_Entry__Document_No__.Value<>""),False,True)</Hidden>
// End of the deleted line.
</Visibility>
</TableRow>
</TableRows>
...Ny kode 2
...</TableCell>
</TableCells>
<Visibility>
// Add the following line.
<Hidden>=IIF(First(Fields!PrintDetails.Value) And (Fields!Value_Entry__Document_No__.Value<>"") And (Fields!Value_Entry__Invoiced_Quantity_.Value <>0),False,True)</Hidden>
// End of the added line.
</Visibility>
</TableRow>
</TableRows>
...
Forutsetninger
Du må ha Storbritannia lokalisering av Microsoft Dynamics NAV 2009 R2 eller SP1 installert for å bruke denne hurtigreparasjonen.
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.