var borrs = FOREST_SQL_GROUP_COL("select b.codborr, t.codtraborr from gdo_grl_borrador b join gdo_sgc_edit_form e on e.codeditform = b.codtpl join gdo_sgc_formato f on f.codform = e.codform join gdo_tra_borrador_doc t on b.codborr = t.codborr where b.codinst = ? and b.coddoc is null and f.codigo in (?, ?) and t.codfun_firma is not null order by t.version desc", CurrentDesktop.codInst, "estudios_previos", "Estudios_Min_cuantia"); var borradores = MAKE_LIST(); LIST_ADD_ALL(borradores, borrs.keySet()); for (var i = 0; i < borradores.length; i++) { var key = borradores[i]; var versiones = borrs.get(key); var bytes; for (var j = 0; j < versiones.length; j++) { if (j == versiones.length - 1) { var codFile = FOREST_SQL_SCALAR("SELECT CODFILE FROM GDO_TRA_BORRADOR_DOC WHERE CODTRABORR = ?", versiones[j]); bytes = FOREST_GET_FILE(codFile); } FOREST_ELIMINAR_VERSION_BORRADOR(versiones[j]); } |