Hi All,
I am using this code for creation of 100 purchase orders in a report,
trigger OnAfterGetRecord()
var
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
Vendor: Record Vendor;
GetVendorNo: code[20];
GetLocation: code[20];
DocumentNo: Code[20];
i: Integer;
begin
for i := 1 to 100 do begin
PurchaseHeader.init();
PurchaseHeader."Document Type" := PurchaseHeader."Document Type"::Order;
PurchaseHeader."No." := '20000';
// PurchaseHeader.Insert(True);
PurchaseHeader.Validate("Buy-From Vendor No.", Vendor."No.");
PurchaseHeader.Validate("Posting Date", Workdate);
PurchaseHeader.Validate("Location Code", GetLocation);
PurchaseHeader."Vendor Posting Group" := Vendor."Vendor Posting Group";
// DocumentNo := PurchaseHeader."No.";
if not PurchaseHeader.Insert() then
PurchaseHeader.Modify;
PurchaseLine.Init();
PurchaseLine."Document Type" := PurchaseLine."Document Type"::Order;
PurchaseLine."Document No." := PurchaseHeader."No.";
PurchaseLine."Line No." := 10000;
PurchaseLine.Insert();
end;
But I am getting an error I am attaching the error, can anyone help me.

Thanks & Regards,
Sams