I am able to store records in a table, but not displayong on page. Any help.
trigger OnAfterGetRecord()
var
PWR: Record PostedWarrantyReg;
PWRL: Record PostedWarrantyRegLines;
PWRL1: Record PostedWarrantyRegLines;
WR: Record WarrantyReg;
WRL: Record WarrantyRegisterationLines;
VarWR: Code[20];
begin
initprice := 0;
WRL.Reset;
PWRL1.Reset;
WRL.SetRange(WRL.WarrantyRegNo, WarrantyRegNo);
IF WRL.FINDSET THEN begin
VarWR := WRL.WarrantyRegNo;
/* Message(VarWR); */
end;
PWRL1.SetRange(PWRL1.WarrantyRegNo, VarWR);
IF PWRL1.FIND('-') THEN begin
exit;
end
else
IF WRL.FINDSET THEN begin
REPEAT
PWRL.SETCURRENTKEY("No.");
IF PWRL.FINDLAST THEN Begin
PWRL.INIT;
PWRL."No." := PWRL."No." + 10;
PWRL."ItemNo." := WRL."ItemNo.";
PWRL.WarrantyRegNo := WRL.WarrantyRegNo;
PWRL.WarrantyFormNo := WRL.WarrantyFormNo;
PWRL.Price := WRL.CopyPrice;
PWRL.CopyPrice := WRL.CopyPrice;
PWRL.Insert;
CurrPage.Update();
End
UNTIL WRL.NEXT = 0;
end;
end;