Declare
   al_buton Number;
   a        Varchar2(123) := Null;
Begin
   If :log_store.chk_check <> 'Y' Then
      set_alert_property('QMS$WARNING', alert_message_text, ' Choose record before delete! ' || chr(10) || ' Chon ban ghi truoc khi xoa');
      al_buton := show_alert('QMS$WARNING');
   End If;
   go_block('log_store');
   first_record;
   Loop
      If :log_store.chk_check = 'Y' Then
         delete_record;
      End If;
      If :system.last_record = 'TRUE' Then
         Exit;
      End If;
      next_record;
   End Loop;
   Commit;
   go_block('log_store');
   do_key('execute_query');
End;

  If :system.last_record = 'TRUE' THEN
    If :log_store.chk_check = 'Y' Then
      delete_record;
      Exit;
    End If;
  ELSE
    If :log_store.chk_check = 'Y' Then
      delete_record;
    ELSE
      next_record;
    End If;
  END IF;

If :log_store.chk_check = 'Y' Then
      delete_record;

  If :system.last_record = 'TRUE' THEN
    If :log_store.chk_check = 'Y' Then
      delete_record;
    End If;
    Exit;
  ELSE
    If :log_store.chk_check = 'Y' Then
      delete_record;
    ELSE
      next_record;
    End If;
  END IF;