Oracle Delphi Ошибка ora-00933 sql command not properly ended

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    if Edit1.Text ='' then begin
    Beep();
     MessageDlg('Фильтр по пустым значениям не выполнится', mtWarning, [mbOK], 0);
     Edit1.SetFocus;
   Abort;
   Edit1.SetFocus;
    end;
OraQuery1.Close;
  OraQuery1.SQL.Clear;
  OraQuery1.SQL.Add(' select case when length(bp.code) <= 5 then  '' '' ||bp.code else substr( '' '' ||bp.code, 1, length( '' '' ||bp.code)-3) end code_main, '+
                        ' bp.TYPE_NAME_STR_Main, max(t.WDT) fd, '' '' ||c.comp_name name, '' '' Service, '+
                        ' nvl(substr(bp.Package_Name_Str, 1, instr(bp.Package_Name_Str, '+
                        ' case when length(bp.code) > 5 then substr(bp.code, -3) else null end) -1), bp.Package_Name_Str) prod_m, '+
                        ' '' '' || bp.Package_Name_Str prod, '' ''||bp.code code_f, '' ''||bp.Code_b code, '+
                        ' '' '' || bp.NOTE3 seria, '' '' ||to_char( bp.DATE3, ''mmyy'' ) valid, bp.DATE3, bp.COUNT_PACK, '+
                        ' '' '' || bp.Unit_SHORT_Name_Str unit, round(sum(t.COUNT_PR), 4) COUNT_PR, round(sum(t.COUNT_PR * cn.cost_full), 4) cost_full, '+
                        ' round(sum(cn.cost_No_TAX*t.COUNT_PR), 4) cost_no_tax_sum, round(sum(cn.cost_tax*t.COUNT_PR), 4) cost_tax_sum, '+
                        ' round(sum(cn.cost_additional*t.COUNT_PR), 4) cost_additional_sum, round(sum(t.COUNT_PR*cn.cost_No_TAX_org), 4) AMOUNT_ORIG_summ, '+
                        ' decode(bp.n3, 0, null, bp.n3) check_num,  bp.NOTE1 invoice_N, trunc(bp.DATE1, ''dd'') invoice_dt '+
                        ' from v1103_turnover t, v1011_contracts c, v1101_balance_name_unit_Cat bp, v1105_prodcostsum_new cn  '+
                        ' where  sysdate between c.fd and c.TD and t.contr_id = c.T1018_ID and cn.T1101_ID(+) = bp.T1101_ID  '+
                        ' and t.PROD_ID = bp.PROD_ID and t.CODE_ID = bp.CODE_ID and t.BALANCE_ID = bp.T1101_ID '+
                        ' and t.WDt > sysdate - 100 and t.WDt < sysdate - 90 '+
                        ' and t.oper_id = (select n.ID from v0909_names n where n.Typ = ''Operations'' and '+
                        ' n.Name = pg_constant.Get_Constant(''PO_Buy'')) '+
                        ' group by round(cn.cost_additional, 4), t.oper_id, t.T1104_ID, t.T1103_ID, t.check_num, bp.CONTR_ID, c.ORG1_ID, t.DEPOTI_ID, bp.PROD_ID, '+
                        ' bp.CODE_ID, bp.code, bp.drop_b, bp.UNIT_NAME, c.comp_name, c.ORG2_ID, bp.n3, bp.Package_Name_Str, bp.Code_b, '+
                        ' bp.NOTE3, bp.NOTE1, to_char(bp.DATE3, ''mmyy''), round(cn.cost_full, 4), round(cn.cost_tax, 4), '+
                        ' case when cn.cost_No_TAX_org = 0 then 0 else round((cn.cost_No_TAX)/cn.cost_No_TAX_org, 4) end, '+
                        ' round(cn.cost_No_TAX_org, 4), bp.TYPE_NAME_STR_Main, '+
                        ' round(cn.cost_No_TAX, 4), bp.pack_unit, t.comments, bp.Unit_SHORT_Name_Str, bp.T1101_ID,  bp.COUNT_PACK, '+
                        ' bp.No_Full_Pack, bp.packs_Count, bp.Package_Name_Str ||''^''|| t.check_num ||''^''|| bp.code || ''^'' || bp.NOTE3, bp.DATE1,t.T1104_ID, bp.DATE3 '+
                        ' order by bp.n3, max(t.FD) desc, c.comp_name, bp.Package_Name_Str');
 OraQuery1.SQL.Add(' HAVING CHECK_NUM IN ( ' + Edit1.Text+ ' ) ');
 OraQuery1.Open;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    if Edit1.Text ='' then begin
    Beep();
     MessageDlg('Фильтр по пустым значениям не выполнится', mtWarning, [mbOK], 0);
     Edit1.SetFocus;
   Abort;
   Edit1.SetFocus;
  end;
    OraQuery1.Close;
    OraQuery1.SQL.Clear;
    OraQuery1.SQL.Add(' select employee_id,department_id, first_name, last_name '+
                      ' from employees where department_id IN (20,40,50,90,100) '+
                      ' group by employee_id,department_id, first_name, last_name ');
    OraQuery1.SQL.Add('HAVING employee_id IN ('+ Edit1.Text+ ')');
    OraQuery1.Open;
 
end;