I am creating a purchase order through AL code using multiple items, in a report but it is coming like this,
Can anyone help me please, I am sharing my code how to I am creating the purchase order.
report 50408 "Purchase Order MultipleItems"
{
UsageCategory = ReportsAndAnalysis;
ApplicationArea = All;
ProcessingOnly = true;
dataset
{
dataitem(Integer; Integer)
{
trigger OnAfterGetRecord()
var
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
Vendor: Record Vendor;
i: Integer;
begin
// for i := 0 to 1 do begin
if Vendor."No." = '' then
CurrReport.Skip();
PurchaseHeader.init();
PurchaseHeader."Document Type" := PurchaseHeader."Document Type"::Order;
PurchaseHeader.Validate("No.", '');
PurchaseHeader.Insert(true);
PurchaseHeader.Validate("Buy-From Vendor No.", '20000');
PurchaseHeader."Posting Date" := WorkDate();
PurchaseHeader."Document Date" := PurchaseHeader."Posting Date";
PurchaseHeader."Due Date" := PurchaseHeader."Posting Date";
PurchaseHeader.Modify();
PurchaseLine.Init();
PurchaseLine."Document Type" := PurchaseHeader."Document Type";
PurchaseLine."Document No." := PurchaseHeader."No.";
PurchaseLine."Line No." := 10000;
PurchaseLine.Insert(true);
PurchaseLine.Type := PurchaseLine.Type::Item;
PurchaseLine."No." := '1896-S';
PurchaseLine.Modify();
PurchaseLine.Init();
PurchaseLine."Document Type" := PurchaseHeader."Document Type";
PurchaseLine."Document No." := PurchaseHeader."No.";
PurchaseLine."Line No." += 10000;
PurchaseLine.Insert(true);
PurchaseLine.Type := PurchaseLine.Type::Item;
PurchaseLine."No." := '1900-S';
PurchaseLine.Modify();
end;
// end;
}
}
requestpage
{
layout
{
area(Content)
{
group(GroupName)
{
// field(Name; SourceExpression)
// {
// ApplicationArea = All;
// }
}
}
}
actions
{
area(processing)
{
action(ActionName)
{
ApplicationArea = All;
}
}
}
}
}
Thanks & Regards,
P V Sarath.
