Inventory valuation report customization

Alex Chow wrote:

You're not asking a question. You're asking someone to create a report for you, that's why no one responded.

So sorry, I already clarified my question.

Savatage wrote:

have you tried anything? :whistle:

I designed the Data Item structure:

.Item
.Value Entry (named InvoicedValueLedgerEntries)

And write on Value Entry - OnAfterGetRecord() following code:

/////////////////////////////////////////////////////////////////////////////
//Getting GLAccount for Inventory
AdjCost := 0;
InvPostSetup.SETRANGE("Invt. Posting Group Code", Item."Inventory Posting Group");
IF InvPostSetup.FINDFIRST THEN
InvAcc := InvPostSetup."Inventory Account";


//Filt Value Entry
InvoicedValueLedgerEntries.SETRANGE("Inventory Posting Group",Item."Inventory Posting Group");
InvoicedValueLedgerEntries.SETRANGE(InvoicedValueLedgerEntries."Item No.",Item."No.");

//Filt G/L Entry with Posting Date & G/L Account
GLEntry.SETRANGE("Posting Date",0D,EndingDate);
GLEntry.SETRANGE("G/L Account No.",InvAcc);
IF GLEntry.FINDSET THEN
REPEAT
InvoicedValueLedgerEntries.SETRANGE("Entry No.",GLEntry."Value Entry No.");
IF InvoicedValueLedgerEntries.FINDFIRST THEN
AdjCost := AdjCost + "Adjusted Cost";
UNTIL GLEntry.NEXT = 0;
TotalAdjCost := TotalAdjCost + AdjCost;
/////////////////////////////////////////////////////////////////////////////

It shows exactly result which I want but I think this code is not good performance and I should calculate much filed (quantity, amount at begin period, in period...). Any suggestion for improve performance or design? Thanks!

Alex Chow wrote:

Look at the SETCURRENTKEY function.

It's ok now. Thanks Alex!