QSqlQuery выполнение sql запросов из файла

Необходимо выполнять на разных базах данных FireBird запросы такого вида

SET TERM ^ ;
create or alter procedure TMP1C_T1
as
declare variable ARTICLE_ID integer;
declare variable TERMINAL_ID smallint = 2142;
begin
    FOR select A.article_id from get_asaldos (:TERMINAL_ID, 9999, null, 0) GA
    join articles A on A.article_id = GA.article_id and A.terminal_id = :TERMINAL_ID
    where A.isactive = 'F'
    INTO :ARTICLE_ID
    DO
        update articles AR set AR.isactive = 'T'
        where AR.terminal_id = :TERMINAL_ID and AR.article_id = :ARTICLE_ID;
end^
SET TERM ; ^
GRANT EXECUTE ON PROCEDURE GET_ASALDOS TO PROCEDURE TMP1C_T1;
GRANT SELECT,UPDATE ON ARTICLES TO PROCEDURE TMP1C_T1;
GRANT EXECUTE ON PROCEDURE TMP1C_T1 TO SYSDBA;
execute procedure tmp1c_t1;

        QSqlQuery q = QSqlQuery(db);
        q.exec("CREATE OR ALTER PROCEDURE TMP1C_T1 "
               "AS "
               "DECLARE variable ARTICLE_ID INTEGER; "
               "DECLARE variable TERMINAL_ID SMALLINT; "
               "BEGIN "
                   "SELECT CAST(F_MID(CAST(F_BLOBASPCHAR(RDB$DEFAULT_SOURCE) AS VARCHAR(20)), 8, 10) AS INTEGER) "
                   "FROM RDB$FIELDS WHERE RDB$FIELD_NAME = 'T_TERMINAL' INTO :TERMINAL_ID; "
                   "FOR SELECT A.article_id FROM get_asaldos (:TERMINAL_ID, 9999, NULL, 0) GA "
                   "JOIN articles A ON A.article_id = GA.article_id AND A.terminal_id = :TERMINAL_ID "
                   "WHERE A.isactive = 'F' "
                   "INTO :ARTICLE_ID "
                   "DO "
                       "UPDATE articles AR SET AR.isactive = 'T' "
                       "WHERE AR.terminal_id = :TERMINAL_ID AND AR.article_id = :ARTICLE_ID; "
               "END");
        q.exec("GRANT EXECUTE ON PROCEDURE GET_ASALDOS TO PROCEDURE TMP1C_T1");
        q.exec("GRANT SELECT,UPDATE ON ARTICLES TO PROCEDURE TMP1C_T1");
        q.exec("GRANT EXECUTE ON PROCEDURE TMP1C_T1 TO SYSDBA");
        q.exec("EXECUTE PROCEDURE tmp1c_t1");