trigger OnAction() var FitRec: Record /Fit/; ItemFitRec: Record /Item Fit/; DesignDetlRec: Record /Design Detail/; begin clear(FitRec); Clear(ItemFitRec); if FitRec.FindSet() then repeat if not ItemFitRec.get(FitRec.Code,Rec.Code) then begin Clear(DesignDetlRec); DesignDetlRec.SetRange(/Design Code/, Rec./Design Code/); DesignDetlRec.SetRange(/Fit Code/, FitRec.Code); if DesignDetlRec.FindSet() then begin ItemFitRec.Init(); ItemFitRec./Item No./ := Rec./No./; ItemFitRec./Fit Code/ := FitRec.Code; ItemFitRec.Insert(true); end; end; until FitRec.Next() = 0; end;
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
André Arnaud de Cal... 291,113 Super User 2024 Season 2
Martin Dráb 229,918 Most Valuable Professional
nmaenpaa 101,156