Alterar o número de uma Nota fiscal no RM Núcleus

Utilize este Script:

DECLARE @iIDMOV INT
DECLARE @fVALOR FLOAT
DECLARE @iCODFILIAL INT
DECLARE @fNOVANOTA VARCHAR(8)
DECLARE @dDATAEMISSAO DATETIME

SET @fNOVANOTA = '005819'
SET @iCODFILIAL = 16;
SET @dDATAEMISSAO = '06/13/2007'
SET @iIDMOV = (select IDMOV from TMOV where numeromov = '005819' and codfilial = @iCODFILIAL and codtmv = '2.2.01');
update TMOV set NUMEROMOV = @fNOVANOTA, DATAEMISSAO = @dDATAEMISSAO, DATASAIDA = @dDATAEMISSAO, DATACONTABILIZACAO = @dDATAEMISSAO where idmov = @iIDMOV
update FLAN set NUMERODOCUMENTO = @fNOVANOTA + '-A' where IDMOV = @iIDMOV
update CLCTLOTE set DOCUMENTO = @fNOVANOTA, COMPLEMENTO = @fNOVANOTA + SUBSTRING(COMPLEMENTO,7,40) where CODFILIAL = @iCODFILIAL and LCTREF in (select LCTREF from TMOVCONT where idmov = @iIDMOV)