-
Notifications
You must be signed in to change notification settings - Fork 0
/
Page_50127.zyqrypage.al
87 lines (84 loc) · 3.01 KB
/
Page_50127.zyqrypage.al
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
page 50127 ZYPurchaseOrderQueryPage
{
Caption = 'ZY Purchase Order Query';
PageType = List;
UsageCategory = Lists;
ApplicationArea = All;
SourceTable = ZYPurchaseOrderQueryTable;//get name from table tempqry
layout
{
area(Content)
{
repeater(Group)
{
field(RowNo; Rec.RowNo)
{
ApplicationArea = All;
}
field("Buy-from Vendor No."; Rec."Buy-from Vendor No.")
{
ApplicationArea = All;
}
field("Buy-from Vendor Name"; Rec."Buy-from Vendor Name")
{
ApplicationArea = All;
}
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = All;
}
field("Amount Including VAT"; Rec."Amount Including VAT")
{
ApplicationArea = All;
}
field("Order Date"; Rec."Order Date")
{
ApplicationArea = All;
}
field("No."; Rec."No.")
{
ApplicationArea = All;
}
field(Description; Rec.Description)
{
ApplicationArea = All;
}
field(Quantity; Rec.Quantity)
{
ApplicationArea = All;
}
field(Amount; Rec.Amount)
{
ApplicationArea = All;
}
field(Inventory; Rec.Inventory)
{
ApplicationArea = All;
}
}
}
}
trigger OnOpenPage()
var
ZYPurchaseOrderQuery: Query "ZY Purchase Order Qry";//intance to get qry
begin
if ZYPurchaseOrderQuery.Open() then begin//opening the query
while ZYPurchaseOrderQuery.Read() do begin// reading the query
Rec.Init();
Rec.RowNo := Rec.RowNo + 1;
Rec."Buy-from Vendor No." := ZYPurchaseOrderQuery.Buy_from_Vendor_No_;
Rec."Buy-from Vendor Name" := ZYPurchaseOrderQuery.Buy_from_Vendor_Name;
Rec."Currency Code" := ZYPurchaseOrderQuery.Currency_Code;
Rec."Amount Including VAT" := ZYPurchaseOrderQuery.Amount_Including_VAT;
Rec."Order Date" := ZYPurchaseOrderQuery.Order_Date;
Rec."No." := ZYPurchaseOrderQuery.No_;
Rec.Description := ZYPurchaseOrderQuery.Description;
Rec.Quantity := ZYPurchaseOrderQuery.Quantity;
Rec.Amount := ZYPurchaseOrderQuery.Amount;
Rec.Inventory := ZYPurchaseOrderQuery.Inventory;
Rec.Insert();
end;
ZYPurchaseOrderQuery.Close();
end;
end;
}