Lookup-table From Table Tecord Links

Berni

Hi,
I want to add Information related to the table Record link (2000000068)
So I added Code in the lookup trigger of this table and this works while i'm
testing "RUN"ning the Table.

But if I try to test it from a form like the Customer form using the symbol "paperclip"
in the toolbar then
looking up still works, but if i want to close the record link window ( I did not find this window in the Object list) then there comes the nasty error message:
'RecLink PrtControl' cannot be closed, because it is locked by
'01121212 Spostmeyer..... - Links'.
Please finish '01121212 Spostmeyer..... - Links' , before closing.

'RecLink PrtControl' is the form used by the called lookup form
I inserted commits, but no success.

the code in the Lookup trigger of Field Description

Description - OnLookup()

IF STRPOS(Description,'#DRU') > 0 THEN BEGIN
    
  tPrtCtrl.SETCURRENTKEY(LinkID);
  tPrtCtrl.SETFILTER(LinkID, '%1', "Link ID" );
  tPrtCtrl.SETFILTER(RecordID, '%1', "Record ID" );
  IF NOT tPrtCtrl.FIND('-') THEN BEGIN
    tPrtCtrl.LinkID := "Link ID";
    tPrtCtrl.RecordID := "Record ID";
    tPrtCtrl.INSERT;
  END;
  COMMIT;
  CLEAR(frmRecLinkPrtCtrl) ;

frmRecLinkPrtCtrl.LOOKUPMODE := TRUE;

IF (frmRecLinkPrtCtrl.RUNMODAL = ACTION::OK )  THEN    
  rc := 1    // ERROR('OK')
ELSE     
  rc := 0 ;   // ERROR('Was anderes <> OK');
COMMIT;   // wegen  Fehlers
}
END;