Creating Item Journal from Custom Requisition

Dear All,

This code below is for creating an Item Journal from a customized requisition. But cannot work.

It refuses to recognize the Journal template and the batch and if I comment both Journal template and the batch, it refuses to recognise the posting date and lock the document. 

what could be the issue.

procedure CreateItemJournal()
var
ItmJnl: Record "Item Journal Line";
PRQHeader: Record "Purchase Requisition Header";
PRLine: Record "Purchase Reqiusition Lines";
NextLineNo :Integer;
//counter:Integer;
//counter := counter + 10000;

begin
if PRQHeader.Find then

ItmJnl.INIT();

ItmJnl.VALIDATE("Journal Template Name",'GENERAL');
ItmJnl.VALIDATE("Journal Batch Name",'Default');

IF ItmJnl.FINDLAST THEN
NextLineNo := ItmJnl."Line No." + 10000
ELSE
NextLineNo := 10000;

//NextLineNo := NextLineNo + 10000;
//ItmJnl.validate("Line No.",NextLineNo);

ItmJnl.VALIDATE("Posting Date",PRQHeader."PRQ Date");
ItmJnl.VALIDATE("Entry Type",ItmJnl."Entry Type"::"Negative Adjmt.");
ItmJnl.VALIDATE("Document No.",'Issue'+PRLine."PRQ No.");
ItmJnl.VALIDATE("Item No.",PRLine."No.");
ItmJnl.VALIDATE(Description,PRLine.Description);
ItmJnl.VALIDATE("Variant Code",'');
ItmJnl.VALIDATE("Location Code",'HQ');
ItmJnl.VALIDATE(Quantity,PRLine.Quantity);
ItmJnl.VALIDATE("Quantity (Base)",PRLine.Quantity);
ItmJnl.VALIDATE("Unit of Measure Code",PRLine."Unit of Measure Code");
ItmJnl.VALIDATE("Unit Amount",PRLine."Unit Cost");
ItmJnl.VALIDATE(Amount,PRLine.Quantity*PRLine."Unit Cost");
ItmJnl.VALIDATE("Unit Cost",PRLine."Unit Cost");
ItmJnl.VALIDATE("Applies-to Entry",0);
ItmJnl.Insert();
end;
}

 

Related
Recommended