UPDATE
   NOVOCODIGO 
SET NRSEQUENCIAL = 
(SELECT
   LPAD(MAX(NRCOLEPRECO) + 1,20,'0')
 FROM
   COLETAPR
 WHERE
   CDFILIAL = '9999'
)
WHERE 
   CDCONTADOR = 'COLETA9999'
/