Error Running Report 795 Adjust Cost - Item Entries

headley27

Hello,

I am receiving an error when running Report 795 Adjust Cost - Item Entries. The message received is:
'There is no Value Entry within the filter.'
'Filters: Item Ledger Entry No.: 157063, Document No.: PI022470, Entry Type: Indirect Cost, Adjustment: No'

The failure occurs in C5895 in a function called 'AdjustAppliedFromEntries(AppliedFromEntry : Integer;AverageCostItem : Boolean) : Boolean'.

The line that breaks is: 'OrigValueEntry.FIND('-');' in the Case 2 Statement.

FOR i := 1 TO 3 DO BEGIN
IF (AdjustedCost <> InvoicedCost) OR (AdjustedCostACY <> InvoicedCostACY) THEN BEGIN
NewAdjustedCost := AdjustedCost - InvoicedCost;
NewAdjustedCostACY := AdjustedCostACY - InvoicedCostACY;
ChangeToActualCost := ChangeToActualCost + NewAdjustedCost;
ChangeToActualCostACY := ChangeToActualCostACY + NewAdjustedCostACY;
CASE i OF
1: // direct cost
InsertAdjmtEntry(NegValueEntry,NewAdjustedCost,NewAdjustedCostACY);
2: //indirect cost
BEGIN
OrigValueEntry.COPY(NegValueEntry);
OrigValueEntry.SETRANGE("Entry Type",OrigValueEntry."Entry Type"::"Indirect Cost");
OrigValueEntry.FIND('-');
OrigValueEntry."Invoiced Quantity" := "Invoiced Quantity";
InsertAdjmtEntry(OrigValueEntry,NewAdjustedCost,NewAdjustedCostACY);
END;

Can someone please explain to me why I have received this error and how I may go about correcting it?

Thank you,
headley27

ara3n

which version are you running? There could be a hotfix/improvement on MS website.

headley27

US Version 3.70.A

We run this report everyday.
This is the first time we have seen this error message.

Thank you.
headley27

headley27

Additionally I see 3 records in the Value Entry table for Item Ledger Entry No.: 157063.
2 records are for Document No.: PI022470 and are Direct Cost entries..
The other record is a Direct Cost entry for a separate document.

Thanks again.

frutta

I think you should check your data , if there is something missing or not

while you do that, i think you can add some code to by pass that error:

If OrigValueEntry.FIND('-') then begin
OrigValueEntry."Invoiced Quantity" := "Invoiced Quantity";
InsertAdjmtEntry(OrigValueEntry,NewAdjustedCost,NewAdjustedCostACY);
end;

headley27

Thank you frutta.

This is my concern as well.
I believe that there is a missing Indirect Cost entry however I am unsure why. I am not certain of exactly how the system 'costs' items.

Also, I am concerned about bypassing the error if a record does not exist.
Should I be?

ara3n

i looked at version 3.7b and the code for that area hasn't changed, so it does look like bad data.

headley27

Thanks ara3n

Any idea what could cause an Indirect Cost entry to be missing?

mgre

I have had this problem on version 3.70 B where a Purchase Credit Memo is linked to a receipt through Applies-to Item Ledger field and posted BEFORE the receipt has been posted as an invoice. In this case you get only the Direct Value Entry on th ereturn not the indirect.
This will be a little late for you headley27 but may be of use to others....
Cheers,
Mike

ara3n

headley27 wrote:

Thanks ara3n

Any idea what could cause an Indirect Cost entry to be missing?

No I don't know why they would be missing.