Pular para o conteúdo principal

MSSQL - Remover itens duplicados

Muitas vezes, faz necessário eliminar informações duplicadas, existe algumas formas de realizar essa tarefa. Abaixo segue uma forma de fazer.

Explicação rápida, ele conta o total de duplicados, deixando sempre 1 (TOP(@CONT -1)).

Esse script foi testando no MSSQL 2008, 2012 e 2014.


DECLARE @ID VARCHAR(500)
DECLARE @CONT int
DECLARE CUR_DELETE CURSOR FOR

SELECT N4_FILIAL+N4_CBASE+N4_ITEM+N4_TIPO+N4_OCORR+N4_TIPOCNT+N4_CONTA+N4_DATA+N4_SEQREAV, COUNT(*)
FROM SN4010
WHERE D_E_L_E_T_ = ' '
AND N4_FILIAL = '01'
--AND N4_ITEM = '07'
AND N4_CBASE = 'BR0016    '
AND N4_DATA = '20100831'
GROUP BY N4_FILIAL+N4_CBASE+N4_ITEM+N4_TIPO+N4_OCORR+N4_TIPOCNT+N4_CONTA+N4_DATA+N4_SEQREAV
HAVING COUNT(*) > 1
OPEN CUR_DELETE

FETCH NEXT FROM CUR_DELETE INTO @ID,@CONT
WHILE @@FETCH_STATUS = 0
BEGIN
UPDATE TOP(@CONT -1) SN4010 SET D_E_L_E_T_ = '*'
WHERE N4_FILIAL+N4_CBASE+N4_ITEM+N4_TIPO+N4_OCORR+N4_TIPOCNT+N4_CONTA+N4_DATA+N4_SEQREAV = @ID
FETCH NEXT FROM CUR_DELETE INTO @ID,@CONT
END

CLOSE CUR_DELETE
DEALLOCATE CUR_DELETE

/*
VERIFICA OS REGISTROS QUE FORAM ALTERADOS
*/
SELECT N4_FILIAL, N4_CBASE, N4_ITEM, N4_TIPO, N4_OCORR, N4_MOTIVO, N4_TIPOCNT, N4_CONTA, N4_DATA, N4_VLROC1,N4_SEQREAV,count(*)
FROM SN4010
WHERE D_E_L_E_T_ = ' '
AND N4_FILIAL = '01'
--AND N4_ITEM = '07'
AND N4_CBASE = 'BR0016    '
AND N4_DATA = '20100831'
GROUP BY N4_FILIAL, N4_CBASE, N4_ITEM, N4_TIPO, N4_OCORR, N4_MOTIVO, N4_TIPOCNT, N4_CONTA, N4_DATA, N4_VLROC1,N4_SEQREAV
HAVING COUNT(*) > 1


       
 

Postagens mais visitadas deste blog

Recursividade Minha Linda! Estrutura Produtos Protheus SG1

Fato! Depois que você conhece recursividade em sua vida tudo fica mais leve (rss... ) a recursividade pode ser infinita (pode não ta!) se for infinita vai dar problema, não pode. Mas a recursividade nos ajuda a deixar nosso sistema mais flexível e dinâmico para montar uma série de regras de negócio. Hoje vou falar exatamente da SG1, tabela TOTVS Microsiga Protheus que é utilizada para montar a estrutura de um produto dentro PCP (Planejamento e Controle de Produção). Isso séria algo que a recursividade iria ajudar. Na SG1 temos o campos G1_COD (Pai) e G1_COMP (Filho). G1_COD->G1_COMP->G1_COD->G1_COMP->G1_COD->G1_COMP Seria assim o fluxo da informação. Sem mais delongas, abaixo vou deixar o script para MSSQL para apresentar esses dados. Inté! WITH ESTRUT( CODIGO, COD_PAI, COD_COMP, QTD, PERDA, DT_INI, DT_FIM ,TRT ,RECNO, NIVEL ) AS ( SELECT G1_COD PAI, G1_COD, G1_COMP, G1_QUANT, G1_PERDA, G1_INI, G1_FIM,G1_TRT,SG1.R_E_C_N_O_, 1 AS NIVEL FR...

SB9 Protheus x Fechamentos incorretos (Sem endereço ou lote)

Uebá!!! Montei essa query um tempo atrás para localizar fechamento incorreto no protheus, o fechamento acontece na SB9, que é feito todo mês. Let's Share! https://centraldeatendimento.totvs.com/hc/pt-br/articles/360006558492-MP-SIGAEST-Roteiro-para-a-realiza%C3%A7%C3%A3o-da-virada-de-saldos-no-estoque-MATA280 SELECT * FROM ( SELECT B9_FILIAL,B9_COD,B9_LOCAL,B9_DATA,B9_QINI, --ULTIMO FECHAMENTO ANTES DO MES ATUAL ( SELECT ISNULL(B9_QINI,0) FROM SB9050 SB9X WHERE SB9X.B9_COD =SB9.B9_COD AND SB9X.B9_LOCAL = SB9.B9_LOCAL AND SB9X.D_E_L_E_T_ = ' ' AND MONTH(SB9X.B9_DATA) = MONTH(DATEADD(month,-1,convert(datetime,SB9.B9_DATA,103))) AND YEAR(SB9X.B9_DATA) = YEAR(DATEADD(month,-1,convert(datetime,SB9.B9_DATA,103))) --SELECT * FROM SF4050 WHERE F4_CODIGO = '618' )-( --MOVIMENTACAO DO ESTOQUE SELECT ISNULL(SUM(CASE WHEN LEFT(SD3.D3_CF,1)='R' THEN SD3.D3_QUANT ELSE SD3.D3_QUANT * -1 END),0) FROM S...

REST Protheus Converter charset CP1252 para UTF8 com Header Accept UTF-8

O Protheus possui um tag que pode ser utilizada para conversão para UTF8 de forma transparente, basta enviar no header da requisição a TAG ACCEPT com charset=UTF-8, também pode-se adicionar o appllication/json. Accept : application/json; charset=UTF-8 ou Accept : charset=UTF-8 Isso ajuda pois não precisa mais utilizar as funções DecodeUTF8 e EncodeUT8 pois o próprio rest já vai fazer isso.