Memo1.lines.text := '('+
ReplaceStr1(GetSQLSubQueryData('select n.billcode '+
' from opitemrece o '+
' left outer join nondrugitems n on n.icode = o.icode '+
' left outer join income i on i.income = o.income '+
' where i.name = "'+ DBPipeline['name'] +'" '+
' and o.finance_number = "'+ DBPipeline['name9'] +'" order by n.billcode '),'''',' ')+')';