-- confirm reception
    update int_bil
    set bi_status = 3,
        bi_datmod = sysdate,
        bi_utimod = prog
  where bi_type = 'A'
    and bi_status = 1
    and exists (select 1 from tb_ebil where eb_status = 8
                                        and eb_centord = bi_numcde
                                        and (upper(eb_numwbil) = upper(bi_numwbil));

   -- reject reception
   update int_bil
    set bi_status = 5,
        bi_datmod = sysdate,
        bi_utimod = prog
  where bi_type = 'A'
    and bi_status = 1
    and exists (select 1 from tb_ebil where eb_status = 9
                                        and eb_centord = bi_numcde
                                        and (upper(eb_numwbil) = upper(bi_numwbil));

update int_bil
    set bi_status = 3,
        bi_datmod = sysdate,
        bi_utimod = prog
  where bi_type = 'A'
    and bi_status = 0
    and exists (select * from tb_eimport where eimp_stat = 3 and eimp_zakaz = bi_numcde);