Aumentar un folio de tipo string

[[duilioisola]]

En Firebird esto lo solucionas mediante SUBSTRNG

Código SQL [-]
/* Asumo que folio contiene el max(folio) */

/* Obtengo los 4 caracteres que queden a partir del 4 caracter */
nro_folio = cast(substring(folio from 4 for 4) as integer);
/* incrementeo el numero */
nro_folio = nro_folio + 1;
/* aqui falta controlar el largo de nro_folio (<10 agregar '000', <100 agregar '00', < 1000 agregar '0') */
folio = 'INV' || nro_folio;