Exclui um funcionario cadastrado no RM Labore

Execute esta Stored Procedure

EXCLUIRFUNCIONARIO '025874'



CREATE PROCEDURE EXCLUIRFUNCIONARIO (
@sCHAPA VARCHAR(6)
)
AS
BEGIN

DECLARE @iCODCOLIGADA INT;

SET @iCODCOLIGADA = 2;

DELETE FROM AABONFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AAFHTFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AATUALFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ABANCOHORFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ABATFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ABATREFFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ABATVIS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ACOMPFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AEAUTFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AEESPFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AFOLGFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AINTEXTRA WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AIREFFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AJUSTFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AMOVFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AOCORREN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM APERFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM APERMFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AREFFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AREFVIS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ARELBANCOHOR WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ARELFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM ASECVIS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM AUSOPROV WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPAFUNC = @sCHAPA
DELETE FROM APARFUN WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM FCFO WHERE CODCOLCHAVESESTRANG = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM IBEMFUNC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
-- DELETE FROM KAPONTAFUNCIONARIO WHERE CODCOLCHAPA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PDADQUIOSQUE WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFAAS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFADICFER WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFAVISO WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFCODFIX WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFCOMPL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFDEPEVENTOS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFDEPMOV WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFDEPENDCOMPL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFDEPEND WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFEMPRT WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
-- DELETE FROM PFENCAR WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFFERIAS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFPERFER WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFFERPROG WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFFINANC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFMOVCC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFMOVCCCOMPL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFPERFF WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFFINANCCOMPL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFPERFFCOMPL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTAFT WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTCSD WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTFCO WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTFER WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTHOR WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTNDP WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTPROV WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTSAL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTSEC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFHSTSIT WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFMOVTOMADOR WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFRATEIOFIXO WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFRATEIOTOMADOR WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFSALCMP WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFSUBSTITUICAO WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFUNCVAL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFVALETR WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFVERBAS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFVERBASCOMPL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PPARDIRF WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPAFUNC = @sCHAPA
DELETE FROM PSUBSTCHEFE WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPASUBST = @sCHAPA
DELETE FROM TITMMOV WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VADVERTENCIA WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VBENEFFUNC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VCURSOSPESSOAIS WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VDISTRVERBATREINA WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VFUNCIONARIO WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VMOVFUNC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VOCORRENCIA WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VRANKFUNCIONAL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VTAREFAPESSOAL WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM VHISTPOSTOPFUNC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFENCARGO WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PHSTOCORRENCIA WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA
DELETE FROM PFUNC WHERE CODCOLIGADA = @iCODCOLIGADA AND CHAPA = @sCHAPA

END

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')

Excluindo um lançamento no RM Fluxus

Use esta procedure:

EXCLUIRMOVIMENTOFLUXUS 158547, 0,2


CREATE PROCEDURE EXCLUIRMOVIMENTOFLUXUS (
@iIDLAN INT,
@STATUSMOVIMENTO VARCHAR(1),
@iCODFILIAL INT
)
AS
BEGIN

DECLARE @iCODCOLIGADA INT;

SET @iCODCOLIGADA = 2;

DELETE FROM FLANRATCCU WHERE IDLAN = @iIDLAN
DELETE FROM FLANCONT WHERE codcoligada = @iCODCOLIGADA and codfilial = @iCODFILIAL and IDLAN = @iIDLAN
DELETE FROM FLANRATDEP WHERE codfilial = @iCODFILIAL and IDLAN = @iIDLAN
DELETE FROM FLAN WHERE codfilial = @iCODFILIAL and IDLAN = @iIDLAN

END

Excluindo um movimento no Núcleus que tenha vínculo com outros módulos do RM

Carregue esta Stored Procedure no SQL Server.

Para executá-la use a seguinte sintaxe no Query Analyxer:

EXCLUIRMOVIMENTOMANUALMENTE '002547', '2.2.01', 'Q', 4


CREATE PROCEDURE EXCLUIRMOVIMENTOMANUALMENTE (
@NUMEROMOVIMENTO VARCHAR(6),
@TIPOMOVIMENTO VARCHAR(6),
@STATUSMOVIMENTO VARCHAR(1),
@CODIGOFILIAL INTEGER
)
/*Excluir movimento manualmente*/
AS
BEGIN
DECLARE @IDMOVIMENTO INTEGER;

SET @IDMOVIMENTO = (SELECT IDMOV FROM TMOV WHERE CODFILIAL = @CODIGOFILIAL AND CODTMV = @TIPOMOVIMENTO
AND STATUS = @STATUSMOVIMENTO AND NUMEROMOV = @NUMEROMOVIMENTO);


DELETE FLANRATCCU WHERE IDLAN in (SELECT IDLAN FROM FLAN WHERE IDMOV in(SELECT IDMOV FROM TMOV
WHERE IDMOV IN (@IDMOVIMENTO)))
DELETE FLANRATDEP WHERE IDLAN in (SELECT IDLAN FROM FLAN WHERE IDMOV in(SELECT IDMOV FROM TMOV
WHERE IDMOV IN (@IDMOVIMENTO)))
DELETE FLANCONT WHERE IDLAN in (SELECT IDLAN FROM FLAN WHERE IDMOV in(SELECT IDMOV FROM TMOV
WHERE IDMOV IN (@IDMOVIMENTO)))
DELETE FLAN WHERE IDLAN in (SELECT IDLAN FROM FLAN WHERE IDMOV in(SELECT IDMOV FROM TMOV
WHERE IDMOV IN (@IDMOVIMENTO)))

DELETE TMOVRATDEP WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TMOVRATCCU WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TTRBMOV WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TITMMOVCOMPL WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TITMMOV WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TMOVRELAC WHERE IDMOVDESTINO IN (@IDMOVIMENTO)
DELETE TMOVHISTORICO WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TMOVCOMPL WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TITMMOVRELAC WHERE IDMOVDESTINO IN (@IDMOVIMENTO)
DELETE TMOVFISCAL WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TMOVRESUMOTRBIT WHERE IDMOV IN (@IDMOVIMENTO)
DELETE TMOVCONT WHERE IDMOV IN (@IDMOVIMENTO)

/*Retira relacionamento*/
UPDATE TMOV SET IDMOVRELAC = NULL WHERE IDMOVRELAC IN (@IDMOVIMENTO)
/*'Atualiza OC com status A Faturar' e 'Atualiza OC com Quantidade Original'*/
UPDATE TMOV SET status = 'A' WHERE CODTMV = '2.1.09' AND IDMOVRELAC IN (@IDMOVIMENTO)
/*'Exclusao especial'*/
DELETE CLCTLOTE WHERE INTEGRACHAVE IN (SELECT RTRIM(LTRIM(STR(IDMOV))) FROM TMOV
WHERE CODFILIAL = @CODIGOFILIAL AND CODTMV = @TIPOMOVIMENTO AND NUMEROMOV = @NUMEROMOVIMENTO)

DELETE CLANCA WHERE LCTREF IN (@IDMOVIMENTO)

DELETE TMOV WHERE IDMOV IN(@IDMOVIMENTO)

END