create or replace function ZAKUP(V_ID_DOKUMENTY number) return varchar2 is

  begin

    --Licnziki
    update LICZNIKI T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    update LICZNIKI_HISTORIA T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    --Zegary
    update ZEGARY T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    update ZEGARY_HISTORIA T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    --Przekładniki
    update PRZEKLADNIKI T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    update PRZEKLADNIKI_HISTORIA T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    --Inne
    update INNE T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    update INNE_HISTORIA T
       set t.zaksiegowany = 1
     where t.id_dokumenty = V_ID_DOKUMENTY;

    return 'OKOK';

  exception
    when others then
      return 'Wystąpił błąd: ' || dbms_utility.format_error_backtrace() || chr(13) || SQLCODE || chr(13) || SQLERRM;

end ZAKUP