// Comprime en un .zip los archivo encontrados en la consulta. var anexos=FOREST_SQL_MAP_LIST("SELECT ADJ.CODFILE, ADJ.NOMBRE FROM GDO_TRA_DOC_ADJUNTO ADJ WHERE ADJ.CODDOC IN (SELECT CODDOC FROM GDO_TRA_TAREADOCS)"); items = MAKE_LIST(); for(var i=0; i < anexos.length; i++){ item1 = MAKE_OBJECT('ZipItem'); item1.nombre=anexos[i].nombre; item1.archivo=FOREST_GET_FILE(anexos[i].codfile); LIST_ADD(items, item1); } zip = ZIP_FILE(items); |