procedure ItemJournalPost(itemNo: Code[20]; documentNo: code[20]; Quantity: decimal; amount: Decimal; description: Text[100]; ReturnReasonCode: Code[10]; Location: Code[10])
var
GLPost: Codeunit "Item Jnl.-Post Line";
Line: Record "Item Journal Line";
rec_item: Record Item;
begin
Line.Init();
line."Line No." := 10000;
Line."Posting Date" := TODAY();
Line."Entry Type" := Line."Entry Type"::"Negative Adjmt.";
Line."Gen. Prod. Posting Group" := 'RETAIL';
line."Journal Template Name" := 'ITEM';
Line."Document No." := documentNo;
Line."Item No." := itemNo;
Line.Validate("Item No.");
Line.Description := description;
Line.Validate(Description);
Line."Reason Code" := 'VV';
Line."Return Reason Code" := ReturnReasonCode;
Line.Validate("Return Reason Code");
Line."Location Code" := Location;
Line.Validate("Location Code");
Line.Quantity := Quantity;
Line.Validate(Quantity);
Line.Amount := amount;
line.Validate(Amount);
GLPost.RunWithCheck(Line);
end;
//page where I am calling
if rec_SalesLines.FindSet() then
repeat
cu_EnquiriesAndReturns.ItemJournalPost(rec_SalesLines."No.", rec_SalesLines."Document No.", rec_SalesLines.Quantity, rec_SalesLines.Amount, rec_SalesLines.Description, rec_SalesLines."Return Reason Code", rec_SalesLines."Location Code");
until rec_SalesLines.Next() = 0;
end;
