Advertisement
adeilsoncs

Mafersa Novo

Sep 14th, 2015
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SQL 3.45 KB | None | 0 0
  1.   SELECT TOP 100
  2.  
  3.   Clt_cadCliente.IdCliente,
  4.   Clt_cadCliente.IdClientePai,
  5.   Clt_cadCliente.Codigo,
  6.   Clt_cadCliente.Nome,
  7.   Clt_cadCliente.DataNasc,  
  8.   ISNULL((SELECT SUM(PONTOS) AS Pontos  
  9.   FROM  
  10.   (SELECT IdPontos, Pontos FROM  [Clt_cadPontosFidelidade] AS cons1
  11.  
  12.   WHERE cons1.Ativado = 1 AND cons1.Pontos > 0 AND  
  13.   (CASE WHEN   (SELECT NumberField FROM mng_cadConfig WHERE NomeCampo = 'mng_DiasValidadePontos') > 0  
  14.   THEN  
  15.   DATEADD(DAY, (SELECT NumberField FROM mng_cadConfig WHERE NomeCampo = 'mng_DiasValidadePontos'), cons1.DATA)  
  16.   ELSE
  17.   DATEADD(YEAR, 100, cons1.DATA)   END) >= GETDATE() AND cons1.IdCliente = Clt_cadCliente.IdCliente  
  18.   UNION  SELECT IdPontos, Pontos FROM  [Clt_cadPontosFidelidade] AS cons2
  19.   WHERE cons2.Ativado = 1 AND
  20.   cons2.Pontos < 0 AND cons2.IdCliente = Clt_cadCliente.IdCliente) AS Tb1    ), 0)AS Pontos,    
  21.   Clt_cadCliente.IdEstCivil,
  22.   Clt_cadCliente.CPF,
  23.   Clt_cadCliente.RG,
  24.   Clt_cadCliente.DataAdm,  
  25.   Clt_cadCliente.DescPendencia,Clt_cadCliente.Obs,    
  26.   Clt_cadCliente.IdSitBloq,
  27.   Clt_cadCliente.Profissao,
  28.   Clt_cadCliente.Empresa,
  29.    Clt_cadCliente.IdNaturezaPadrao,
  30.    Clt_cadCliente.Agencia,
  31.    (CASE WHEN Clt_cadCliente.EnviaBoleto IS NULL OR Clt_cadCliente.EnviaBoleto = 1 THEN 'Não' ELSE 'Sim' END)
  32.     AS EnviaBoleto, Clt_cadCliente.IdUsuario,  
  33.     (CASE WHEN Clt_cadCliente.NomeFantasia IS NULL  THEN Clt_cadCliente.Nome ELSE
  34.      Clt_cadCliente.NomeFantasia END) AS NomeCli,    
  35.      (CASE WHEN NOT CodDep IS NULL  THEN Codigo + '-' + CodDep ELSE Codigo END) AS CodCli,
  36.       (SELECT TOP 1 Descricao FROM Clt_regHistoricoCat INNER JOIN Clt_cadCategoria ON Clt_regHistoricoCat.IdCategoria=Clt_cadCategoria.IdCategoria
  37.       WHERE Inicio<=GETDATE()  AND Clt_regHistoricoCat.IdCliente=Clt_cadCliente.IdCliente ORDER BY Inicio DESC) AS Categoria,    
  38.       (SELECT TOP 1 Clt_cadCategoria.IdCategoria FROM Clt_regHistoricoCat INNER JOIN Clt_cadCategoria ON
  39.       Clt_regHistoricoCat.IdCategoria=Clt_cadCategoria.IdCategoria
  40.       WHERE Inicio<=GETDATE()   AND Clt_regHistoricoCat.IdCliente=Clt_cadCliente.IdCliente
  41.        ORDER BY Inicio DESC) AS IdCategoria,        
  42.           -- MAFERSA    
  43.          
  44.           dt_exame AS DataExame,  
  45.           dt_validade AS DataValidade,  
  46.           dtAcademia_Inicio AS DataAcademiaInicio,  
  47.           dtAcademia_fim AS DataAcademiaFim,  
  48.           dtCancela_Inicio AS DataCancelaInicio,  
  49.           dtCancela_Fim AS DataCancelaFim,  
  50.           codigoCracha AS CodigoCracha,
  51.           controleCracha AS controleCracha ,
  52.           estacionamento AS estacionamento ,
  53.           observacoes1  AS observacoes1 ,
  54.             Clt_cadModelos.Banco AS Banco2,
  55.             Clt_cadModelos.Agencia AS Agencia2,
  56.             Clt_cadModelos.NumeroConta,
  57.             Clt_cadModelos.TitularConta
  58.              
  59. FROM
  60.  
  61. Clt_cadCliente
  62.  
  63. LEFT JOIN Clt_cadModelos ON Clt_cadModelos.IdCliente = Clt_cadCliente.IdCliente  
  64. LEFT JOIN Clt_cadEnderecos ON Clt_cadEnderecos.IdCliente = Clt_cadCliente.IdCliente  
  65. LEFT JOIN Clt_infoComplementares ON Clt_infoComplementares.Id_Cliente =  Clt_cadCliente.IdCliente
  66. WHERE NOT Clt_cadCliente.Nome LIKE 'RSV%' AND Ativado=1  AND   (  Clt_cadEnderecos.IdEndereco = (SELECT TOP 1 IdEndereco FROM Clt_cadEnderecos WHERE Clt_cadEnderecos.IdCliente = Clt_cadCliente.IdCliente
  67.  
  68. ORDER BY Clt_cadEnderecos.IdEndereco ASC)   OR  (SELECT TOP 1 IdEndereco FROM Clt_cadEnderecos WHERE Clt_cadEnderecos.IdCliente = Clt_cadCliente.IdCliente ORDER BY Clt_cadEnderecos.IdEndereco ASC) IS NULL  )
  69.  
  70.  
  71.  ORDER BY IdCliente DESC
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement