Announcements
I have a Header table;
table 50108 "Production Time Log Header"
{
DataClassification = ToBeClassified;
fields
{
field(50000; "Entry No"; Integer)
{
DataClassification = CustomerContent;
}
field(50002; "Production No."; Code[20])
{
DataClassification = ToBeClassified;
}
field(50003; "Total"; Decimal)
{
FieldClass = FlowField;
CalcFormula = sum ("Production Time Log Lines"."Run Time" where("Production No." = field("Production No.")));
}
}
keys
{
key(PK; "Entry No")
{
Clustered = true;
}
}
var
myInt: Integer;
trigger OnInsert()
var
recPTLH: Record "Production Time Log Header";
begin
Clear(recPTLH);
IF recPTLH.FindLast() then
"Entry No" := recPTLH."Entry No" + 1
else
"Entry No" := 1;
end;
}
and a Line table;
table 50113 "Production Time Log Lines"
{
DataClassification = ToBeClassified;
fields
{
field(50000; "Entry No"; Integer)
{
DataClassification = CustomerContent;
}
field(50001; "Line No."; Integer)
{
DataClassification = CustomerContent;
Editable = false;
}
field(50002; "Production No."; Code[20])
{
DataClassification = CustomerContent;
// TableRelation = "Production Time Log Header"."Production No." where("Entry No" = field("Entry No"));
// ValidateTableRelation = true;
}
field(50003; "Process"; Code[20])
{
DataClassification = CustomerContent;
TableRelation = "Work Center";
}
field(50012; "Run Time"; Decimal)
{
DataClassification = CustomerContent;
}
}
keys
{
key(PK; "Entry No", "Line No.")
{
Clustered = true;
}
key(T; "Run Time")
{
MaintainSqlIndex = false;
MaintainSiftIndex = true;
SumIndexFields = "Run Time";
}
}
var
myInt: Integer;
trigger OnInsert()
begin
end;
}
and a Header page;
page 50111 "Production Time Log Card"
{
PageType = Document;
ApplicationArea = All;
UsageCategory = Administration;
SourceTable = "Production Time Log Header";
RefreshOnActivate = true;
layout
{
area(Content)
{
group(General)
{
field("Entry No"; "Entry No")
{
ApplicationArea = All;
}
field("Production No."; "Production No.")
{
ApplicationArea = All;
TableRelation = "Production Order"."No.";
}
field(Total; Total)
{
ApplicationArea = All;
}
}
part(Line; "Production Time Log Subform")
{
Visible = true;
ShowFilter = true;
UpdatePropagation = Both;
SubPageLink = "Entry No" = field("Entry No");
}
}
}
}
and a Subform;
page 50112 "Production Time Log Subform"
{
PageType = ListPart;
ApplicationArea = All;
UsageCategory = Administration;
SourceTable = "Production Time Log Lines";
AutoSplitKey = true;
DelayedInsert = true;
MultipleNewLines = true;
layout
{
area(Content)
{
repeater(Line)
{
field(Process; Process)
{
ApplicationArea = All;
}
field(Runtime; Runtime)
{
ApplicationArea = All;
}
}
}
}
}
}
I am trying to copy the Production Number that gets entered up on the Header to the Lines. So when a new document is created, let's say with Production No. = 100, for the line items that user creates, for every line I would like to save 100 as well. I can get this moved from Header to Line if I keep Production No. as my Primary Key. And my case does not allow that, because for every header with production no 100 I can have multiple Lines posted. Hence I made Entry No as a kind of Document No for my table and increment it by 1 every time. Inshort, how do I get my Production No from header flow to my lines table? Thanks a lot in advance for the help! I have seen 36 and 37 and could not figure it out.
Answered on the other forum. Set correctly the key on the Line table (Entry No, Production No, Line No) and all is working.
André Arnaud de Cal... 291,359 Super User 2024 Season 2
Martin Dráb 230,370 Most Valuable Professional
nmaenpaa 101,156