IF Type = Type::Item THEN BEGIN CLEAR(ItemSearchList); ItemSearch.DELETEALL; ItemTmp.RESET; ItemTmp.SETCURRENTKEY("No."); ItemTmp.SETFILTER("No.", '%1', UPPERCASE(Text) + '*'); IF ItemTmp.FIND('-') THEN REPEAT ItemSearch."No." := ItemTmp."No."; ItemSearch.Description := ItemTmp.Description; ItemSearch."Unit price" := ItemTmp."Unit Price"; ItemSearch.INSERT; UNTIL ItemTmp.NEXT = 0; ItemTmp.SETRANGE("No."); ItemTmp.SETCURRENTKEY("Search Description"); ItemTmp.SETFILTER("Search Description", '%1', UPPERCASE(Text) + '*'); IF ItemTmp.FIND('-') THEN REPEAT ItemSearch."No." := ItemTmp."No."; ItemSearch.Description := ItemTmp.Description; ItemSearch."Unit price" := ItemTmp."Unit Price"; ItemSearch.INSERT; UNTIL ItemTmp.NEXT = 0; IF ItemSearch.FIND('-') THEN ItemSearchList.SETTABLEVIEW(ItemSearch); ItemSearchList.LOOKUPMODE(TRUE); IF ItemSearchList.RUNMODAL = ACTION::LookupOK THEN BEGIN ItemSearchList.GETRECORD(ItemSearch); Text := ItemSearch."No."; END; END;
Answers
No PM,please use the forum. || May the <SOLVED>-attribute be in your title!
Thank you Kriki, I should have used the search before I asked :oops: