Exclui lançamentos duplicados no Saldus gerados pelo Nucleus

Use este script:


DECLARE @iIDMOV INT
DECLARE @fVALOR FLOAT
DECLARE @iCODFILIAL INT
DECLARE @sCODCONTA VARCHAR(20)
DECLARE @iLCTREF INT
DECLARE @sNUMEROMOV VARCHAR(6)

SET @iCODFILIAL = 4;
SET @sCODCONTA = '3.1.1.010.0004'
SET @sNUMEROMOV = '023053'

SET @iIDMOV = (select IDMOV from TMOV where numeromov = @sNUMEROMOV and codfilial = @iCODFILIAL and codtmv = '2.2.01');
SET @iLCTREF = (select LCTREF from TMOVCONT where idmov = @iIDMOV and CODCONTA = @sCODCONTA)

delete from TMOVCONT where IDMOV in (select idmov FROM TMOV where codlote is null and DATAEMISSAO >= '2006-04-01 00:00:00.000' and codcoligada = 2 and codfilial = 4 and codtmv = '2.2.01')
delete from CLCTLOTE WHERE CODFILIAL = 4 and DOCUMENTO in (select numeromov FROM TMOV where codlote is null and DATAEMISSAO >= '2006-04-01 00:00:00.000' and codcoligada = 2 and codfilial = 4 and codtmv = '2.2.01')