Skip to content

Replicar Campos Complementares no Totvs RM

Algumas vezes precisamos replicar campos complementares em varias coligadas no Totvs RM e fazer isso manualmente é um trabalho tedioso, porem com essa SQL basta criar uma unica vez é replicar-los para todas as coligadas.

INSERT INTO GDEFCOMPL (
  CodColigada, Aplicacao, TabDados, NomeColuna, Descricao, CodTabDinam, CodFormula,
  ValorDefault, CodColTabDinam, AplicTabDinam, Ordem, QuebraLinha, PesqTabdinamPorCod,
  CodColFormula, CodAplicFormula, TipoTexto, RecCreatedBy, RecCreatedOn, RecModifiedBy, RecModifiedOn)
SELECT B.CodColigada, A.Aplicacao, A.TabDados, A.NomeColuna, A.Descricao, A.CodTabDinam, A.CodFormula,
       A.ValorDefault, A.CodColTabDinam, A.AplicTabDinam, A.Ordem, A.QuebraLinha, A.PesqTabdinamPorCod,
       A.CodColFormula, A.CodAplicFormula, A.TipoTexto, A.RecCreatedBy, A.RecCreatedOn, A.RecModifiedBy,
       A.RecModifiedOn
FROM GDEFCOMPL A (NOLOCK)
  JOIN GCOLIGADA B (NOLOCK) ON A.CodColigada <> B.CodColigada And B.CodColigada <> 0
WHERE A.CodColigada = 1
  And A.Aplicacao = 'X'
  And A.Tabdados = 'XVENDACOMPL'
  And A.NomeColuna IN ('CAMPO1', 'CAMPO2', ... )
  And NOT EXISTS (SELECT 1
                  FROM GDEFCOMPL X (NOLOCK)
                  WHERE X.CodColigada = B.CodColigada
                    And X.Aplicacao = A.Aplicacao
                    And X.NomeColuna = A.NomeColuna
                    And X.TabDados = A.TabDados)
Published inBanco de DadosTotvs RM

Be First to Comment

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *