Jessé Silva Cerqueira

Voltando a ativa no blog

2010-09-24T11:54:00.001-03:00

A partir de hoje vou dedicar um tempo para que o blog não passe por um longo tempo como esse sem postagens.
Quando saiu o beta do windows 7, eu instalei logo para testar e gostei bastante. Mas como a versão era liberada para uso por apenas um ano, já estava chegando o período que ia parar de funcionar, não tinha saído a versão para estudantes no MSDNAA ainda e eu não estava afim de desembolsar o valor para poder usá-lo, então eu resolvi partir para o linux. Fiquei em dúvida entre o ubuntu e o fedora. Instalei o fedora 12. Para um usuário que nunca tinha utilizado linux, eu tive dificuldades um pouco nas instalações de alguns programas que eu achava essenciais. Depois acabei descobrindo o yum. Que maravilha esse comando heim?
Agora, após pouco mais de um ano utilizando linux, eu não penso em voltar para o windows. Tenho tudo que eu preciso no linux e não preciso me preocupar tanto com a segurança. Atualmente estou utilizando o fedora 13.

[SQL SERVER] Escrever valor por extenso em português

2009-07-13T17:26:00.004-03:00

Essa é uma função que eu achei na net, e corrigi um pequeno erro com valores como entre 101 e 109, 201 e 209... Está funcionando perfeitamente agora

CREATE FUNCTION dbo.TrataGrupoExtenso(
@GRUPO DECIMAL(18, 5), @SINGULAR VARCHAR(50),
@PLURAL VARCHAR(50), @FLAG_E INT, @STR_EXT VARCHAR(255))
RETURNS @RESULTADO TABLE (FLAG_E INT, STR_EXT varchar(250))
AS
BEGIN
DECLARE
@RETORNO VARCHAR(255),
@FLAG INT

SET @RETORNO = @STR_EXT
SET @FLAG = @FLAG_E

IF (@GRUPO <> 0)
BEGIN
IF (@FLAG_E = 1) SET @RETORNO = @RETORNO + ' e'
SET @FLAG_E = 1
SET @RETORNO = @RETORNO + (SELECT dbo.GrupoExtenso(@grupo))
IF (@GRUPO = 1) SET @RETORNO = @RETORNO + @SINGULAR
ELSE SET @RETORNO = @RETORNO + @PLURAL
END
INSERT @RESULTADO
(FLAG_E, STR_EXT) VALUES (@FLAG, @RETORNO)
RETURN
END

GO

CREATE FUNCTION dbo.GrupoExtenso(@VALOR DECIMAL(18, 2))
RETURNS VARCHAR(255)
AS
BEGIN
DECLARE
@STR_EXT VARCHAR(255),
@AUX INT,
@VALOR_T INT

SET @STR_EXT = ''
SET @AUX = 0

SET @VALOR_T = ROUND(@VALOR, 0)
SET @AUX = @VALOR_T - (@VALOR_T % 100)

IF (@VALOR_T = 100) SET @STR_EXT = ' Cem'
ELSE IF (@AUX = 100) SET @STR_EXT = ' Cento'
ELSE IF (@AUX = 200) SET @STR_EXT = ' Duzentos'
ELSE IF (@AUX = 300) SET @STR_EXT = ' Trezentos'
ELSE IF (@AUX = 400) SET @STR_EXT = ' Quatrocentos'
ELSE IF (@AUX = 500) SET @STR_EXT = ' Quinhentos'
ELSE IF (@AUX = 600) SET @STR_EXT = ' Seiscentos'
ELSE IF (@AUX = 700) SET @STR_EXT = ' Setecentos'
ELSE IF (@AUX = 800) SET @STR_EXT = ' Oitocentos'
ELSE IF (@AUX = 900) SET @STR_EXT = ' Novecentos'

IF (((@VALOR_T - @AUX) <> 0) AND(@AUX <> 0))
SET @STR_EXT = @STR_EXT+' e'

SET @AUX = (@VALOR_T % 100) - (@VALOR_T % 10)

IF (@AUX = 0)
BEGIN
SET @AUX = (@VALOR_T % 10)

IF (@AUX = 1) SET @STR_EXT = @STR_EXT+' Um'
ELSE IF (@AUX = 2) SET @STR_EXT = @STR_EXT+' Dois'
ELSE IF (@AUX = 3) SET @STR_EXT = @STR_EXT+' Tres'
ELSE IF (@AUX = 4) SET @STR_EXT = @STR_EXT+' Quatro'
ELSE IF (@AUX = 5) SET @STR_EXT = @STR_EXT+' Cinco'
ELSE IF (@AUX = 6) SET @STR_EXT = @STR_EXT+' Seis'
ELSE IF (@AUX = 7) SET @STR_EXT = @STR_EXT+' Sete'
ELSE IF (@AUX = 8) SET @STR_EXT = @STR_EXT+' Oito'
ELSE IF (@AUX = 9) SET @STR_EXT = @STR_EXT+' Nove'
END

SET @AUX = (@VALOR_T % 100) - (@VALOR_T % 10)

IF (@AUX = 10)
BEGIN
SET @AUX = (@VALOR_T % 10)

IF (@AUX = 0) SET @STR_EXT = @STR_EXT+' Dez'
ELSE IF (@AUX = 1) SET @STR_EXT = @STR_EXT+' Onze'
ELSE IF (@AUX = 2) SET @STR_EXT = @STR_EXT+' Doze'
ELSE IF (@AUX = 3) SET @STR_EXT = @STR_EXT+' Treze'
ELSE IF (@AUX = 4) SET @STR_EXT = @STR_EXT+' Quatorze'
ELSE IF (@AUX = 5) SET @STR_EXT = @STR_EXT+' Quinze'
ELSE IF (@AUX = 6) SET @STR_EXT = @STR_EXT+' Dezesseis'
ELSE IF (@AUX = 7) SET @STR_EXT = @STR_EXT+' Dezessete'
ELSE IF (@AUX = 8) SET @STR_EXT = @STR_EXT+' Dezoito'
ELSE IF (@AUX = 9) SET @STR_EXT = @STR_EXT+' Dezenove'
END
ELSE
BEGIN
IF (@AUX = 20) SET @STR_EXT = @STR_EXT+' Vinte'
ELSE IF (@AUX = 30) SET @STR_EXT = @STR_EXT+' Trinta'
ELSE IF (@AUX = 40) SET @STR_EXT = @STR_EXT+' Quarenta'
ELSE IF (@AUX = 50) SET @STR_EXT = @STR_EXT+' Cinquenta'
ELSE IF (@AUX = 60) SET @STR_EXT = @STR_EXT+' Sessenta'
ELSE IF (@AUX = 70) SET @STR_EXT = @STR_EXT+' Setenta'
ELSE IF (@AUX = 80) SET @STR_EXT = @STR_EXT+' Oitenta'
ELSE IF (@AUX = 90) SET @STR_EXT = @STR_EXT+' Noventa'

IF ((@AUX <> 0) and ((@VALOR_T % 10) <> 0))
BEGIN
SET @STR_EXT = @STR_EXT+' e'

SET @AUX = (@VALOR_T % 10)

IF (@AUX = 1) SET @STR_EXT = @STR_EXT+' Um'
ELSE IF (@AUX = 2) SET @STR_EXT = @STR_EXT+' Dois'
ELSE IF (@AUX = 3) SET @STR_EXT = @STR_EXT+' Tres'
ELSE IF (@AUX = 4) SET @STR_EXT = @STR_EXT+' Quatro'
ELSE IF (@AUX = 5) SET @STR_EXT = @STR_EXT+' Cinco'
ELSE IF (@AUX = 6) SET @STR_EXT = @STR_EXT+' Seis'
ELSE IF (@AUX = 7) SET @STR_EXT = @STR_EXT+' Sete'
ELSE IF (@AUX = 8) SET @STR_EXT = @STR_EXT+' Oito'
ELSE IF (@AUX = 9) SET @STR_EXT = @STR_EXT+' Nove'
END
END

RETURN(@STR_EXT);
END

GO

CREATE FUNCTION dbo.Extenso(@VALOR DECIMAL(18, 5))
RETURNS VARCHAR(255)
AS
BEGIN

DECLARE
@STR_EXT VARCHAR(255),
@FLAG_E INT,
@GRUPO DECIMAL(10, 2),
@MOEDA VARCHAR(10),
@MOEDA_PLURAL VARCHAR(10),
@FLAG_CENTAVOS DECIMAL(18, 5)

-- Aqui vc podera configurar a descricao da Moeda
SET @MOEDA = 'Real'
SET @MOEDA_PLURAL = 'Reais'
SET @FLAG_CENTAVOS = 1 -- Exibir os centavos [ 0) Nao 1) Sim ]

SET @STR_EXT = ''
SET @FLAG_E = 0
SET @GRUPO = 0

IF ((CONVERT(INT, @VALOR) - (CONVERT(INT, @VALOR) % 1)) = 0)
BEGIN
SET @STR_EXT = ' Zero'
END
ELSE
BEGIN
DECLARE @TEMPINT BIGINT
-- SET @TEMPINT = (.000000001*((CONVERT(BIGINT, @VALOR) % 1000000000000)
-- - (CONVERT(BIGINT, @VALOR) % 1000000000)))
-- SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT FROM dbo.TrataGrupoExtenso(
-- @TEMPINT, ' Bilhão', ' Bilhões', @FLAG_E, @STR_EXT)

SET @TEMPINT = .000001*((CONVERT(INT, @VALOR) % 1000000000)
- (CONVERT(INT, @VALOR) % 1000000))

SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT
FROM dbo.TrataGrupoExtenso(
@TEMPINT, ' Milhão' , ' Milhões', @FLAG_E, @STR_EXT)

SET @TEMPINT = .001*((CONVERT(INT, @VALOR) % 1000000) -
(CONVERT(INT, @VALOR) % 1000))

SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT
FROM dbo.TrataGrupoExtenso(
@TEMPINT, ' Mil' , ' Mil', @FLAG_E, @STR_EXT)

SET @TEMPINT = (CONVERT(INT, @VALOR) % 1000)

SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT
FROM dbo.TrataGrupoExtenso(
@TEMPINT, '' , '', @FLAG_E, @STR_EXT)
END

IF (ROUND(@VALOR, 0) = 1)
BEGIN
SET @STR_EXT = @STR_EXT + ' '+RTRIM(@MOEDA)
END
ELSE
BEGIN
IF (ROUND(@VALOR, -6) <> 0) and
(ROUND(@VALOR, 0) - ROUND(@VALOR, -6) = 0)
SET @STR_EXT = @STR_EXT + ' de ' + RTRIM(@moeda_plural)
ELSE
SET @STR_EXT = @STR_EXT + ' ' + RTRIM(@moeda_plural)
END

IF (@FLAG_CENTAVOS = 1)
BEGIN
SET @FLAG_E = 1;

DECLARE @TEMPINT2 BIGINT
-- SET @TEMPINT2 = 100*(@VALOR - ROUND(@VALOR, 0))

set @TEMPINT2 = cast(right(cast(cast(@VALOR as numeric(10,2)) as varchar(15)),2) as BIGINT)

-- Aqui vc podera mudar a descricao dos centavos
SELECT @FLAG_E = FLAG_E, @STR_EXT = STR_EXT
FROM dbo.TrataGrupoExtenso(
@TEMPINT2, ' Centavo' , ' Centavos', @FLAG_E, @STR_EXT)
END

RETURN(@STR_EXT)
END

GO

Testando: select dbo.extenso()
206 - Duzentos e Seis Reais
9999.99 - Nove Mil Novecentos e Noventa e Nove Reais e Noventa e Nove Centavos
76543924.64 - Setenta e Seis Milhões Quinhentos e Quarenta e Tres Mil Novecentos e Vinte e Quatro Reais e Sessenta e Quatro Centavos
0.50 - Zero Real e Cinquenta Centavos

Alterar imagem de fundo e banner padrão do Webrun

2009-06-08T11:27:00.006-03:00

Para alterar as imagens de fundo e o banner padrão do webrun, deve ser criado um novo parâmetro de configuração. Os parâmetros de configuração encontram-se em
>
Em parâmetro de Configuração, deve ser criado um grupo com nome Skin.
Deve ser criado então os parâmetros conforme a figura abaixo. São eles:
BackgroundImageOutApp
ConfigBannerImage
LoginBannerImage

As imagens devem estar na pasta Maker.Commons (Essa pasta deve ser ciada na pasta C:\Arquivos de programas\Softwell Solutions\...\systems caso não exista)

Após salvar e atualizar, o resultado é este

[SQL SERVER] Deletando registros duplicados

2009-02-27T14:57:00.001-03:00

Vamos supor que você está usando o SQL Server 2005 no seu atual projeto, e você achou que algumas linhas com os dados iguais em todas as colunas. Vamos considerar que você tenha uma tabela com nome "Exemplo" e as colunas ID e Nome.

Você pode ver que os registros com nome Jessé e Cerqueira estão duplicados. A consulta abaixo retorna apenas os registros duplicados

SELECT
[ID],[NOME],COUNT([ID])
FROM
[Exemplo]
GROUP BY
[ID],[NOME]
HAVING
COUNT([ID]) > 1

Vamos supor que você precise excluir o registro com valor (1, 'Jessé'), de modo que apenas uma linha continue.

DELETE TOP(1) FROM [Exemplo] WHERE [ID] = 1

Usando o Top(1) é possível excluir apenas o primeiro registro, em situações como no exemplo acima, que tem apenas um registro a mais. Se você tiver várias linhas com valores duplicados, você tem que usar TOP (n-1) para que apenas 1 linha permaneça após o delete. Para apagar todos os registros duplicados que você precisa para escrever um cursor como no exemplo abaixo.

DECLARE @ID int
DECLARE @NOME NVARCHAR(50)
DECLARE @CONT int

DECLARE CUR_DELETE CURSOR FOR
SELECT [ID],[NOME],COUNT([ID]) FROM [Exemplo] GROUP BY [ID],[NOME] HAVING COUNT([ID]) > 1

OPEN CUR_DELETE

FETCH NEXT FROM CUR_DELETE INTO @ID,@NOME,@CONT
WHILE @@FETCH_STATUS = 0
BEGIN

DELETE TOP(@CONT -1) FROM [Exemplo] WHERE ID = @ID

FETCH NEXT FROM CUR_DELETE INTO @ID,@NOME,@CONT
END

CLOSE CUR_DELETE
DEALLOCATE CUR_DELETE

[Tomcat] Erro ao inicializar o serviço do apache tomcat

2008-12-17T12:28:00.004-03:00

Aconteceu comigo uma vez, tentando iniciar o tomcat em um computador com windows xp service pack 2. Estava tudo instalado certinho, configurado, mas o tomcat não iniciava de jeito nenhum. Aparecia a mensagem: 'O Windows não pôde iniciar o Apache Tomcat em Computador local. Para obter mais informações, examine o log de eventos do sistema. Se este for um serviço não-Microsoft, contate o fornecedor do serviço e informe o código de erro específico do serviço.'

Descobri em um forum que ao copiar o arquivo JAVA_HOME/bin/msvcr71.dll para CATALINA_HOME/bin funciona. Então eu copiei C:\Arquivos de programas\Java\jre1.6.0_06\bin\msvcr71.dll
para C:\Arquivos de programas\Apache Software Foundation\Tomcat 6.0 e pronto.
Alguns dizem que copiando para o system32 também funciona.

[SQL SERVER] limpar database - truncate

2008-12-05T16:31:00.003-03:00

Segue uma rotina para limpar a data base usando truncate table.
obs: Lembrando que truncate zera todos os identitys

IF EXISTS (Select [name] from sys.tables where [name] = 'TAB_FK_TRUNCATE' and type = 'U')
truncate table TAB_FK_TRUNCATE
go

IF NOT EXISTS (Select [name] from sys.tables where [name] = 'TAB_FK_TRUNCATE' and type = 'U')
Create table NomeDaDatabase.dbo.TAB_FK_TRUNCATE (
ID int identity (1,1),
NomeDaConstraint varchar (255),
TabelaPai varchar(255),
ColunaPaiPK varchar(255),
TabelaFilha varchar(255),
ColunaFilhaFK varchar(255),
FKOrder int
)
go

insert into NomeDaDatabase.dbo.TAB_FK_TRUNCATE(NomeDaConstraint,TabelaPai,ColunaPaiPK,TabelaFilha,ColunaFilhaFK,FKOrder)
SELECT object_name(constid) as NomeDaConstraint,object_name(rkeyid) TabelaPai
,sc2.name ColunaPaiPK
,object_name(fkeyid) TabelaFilha
,sc1.name ColunaFilhaFK
,cast (sf.keyno as int) FKOrder
FROM sysforeignkeys sf
INNER JOIN syscolumns sc1 ON sf.fkeyid = sc1.id AND sf.fkey = sc1.colid
INNER JOIN syscolumns sc2 ON sf.rkeyid = sc2.id AND sf.rkey = sc2.colid
ORDER BY rkeyid,fkeyid,keyno

declare @NomeDaConstraint varchar (max)
declare @TabelaFilha varchar (max)
declare @TabelaPai varchar (max)
declare @ColunaFilhaFK varchar (max)
declare @ColunaPaiPK varchar (max)
declare @FKOrder smallint
declare @sqlcmd varchar (max)

declare drop_constraints cursor
fast_forward
for
SELECT object_name(constid) as NomeDaConstraint,object_name(rkeyid) TabelaPai
,sc2.name ColunaPaiPK
,object_name(fkeyid) TabelaFilha
,sc1.name ColunaFilhaFK
,cast (sf.keyno as int) FKOrder
FROM sysforeignkeys sf
INNER JOIN syscolumns sc1 ON sf.fkeyid = sc1.id AND sf.fkey = sc1.colid
INNER JOIN syscolumns sc2 ON sf.rkeyid = sc2.id AND sf.rkey = sc2.colid
ORDER BY rkeyid,fkeyid,keyno

open drop_constraints
fetch next from drop_constraints
into
@NomeDaConstraint
,@TabelaPai
,@ColunaPaiPK
,@TabelaFilha
,@ColunaFilhaFK
,@FKOrder
while @@Fetch_status = 0
begin

select @sqlcmd = 'alter table '+@TabelaFilha+' drop constraint '+@NomeDaConstraint--+' foreign key '+'('+@ColunaFilhaFK+')'+' references '+@TabelaPai+' ('+@ColunaPaiPK+')'+' on delete no action on update no action'
If EXISTs (select object_name(constid) from sysforeignkeys where object_name(constid) = @NomeDaConstraint)
exec (@sqlcmd)
fetch next from drop_constraints
into
@NomeDaConstraint
,@TabelaPai
,@ColunaPaiPK
,@TabelaFilha
,@ColunaFilhaFK
,@FKOrder
end
close drop_constraints
deallocate drop_constraints

go

EXEC sp_MSForEachTable 'ALTER TABLE ? NOCHECK CONSTRAINT ALL'

go

EXEC sp_MSForEachTable 'truncate TABLE ? '
print 'All tables truncated'
go

obs: Não utilizem em sistemas feitos em maker, pois essa rotina limpa todas as tabelas FR também

Fonte: databasejournal

[SQL SERVER] Listar todas as tabelas e colunas em uma database

2008-11-25T10:19:00.003-03:00

Com essa query, é possível fazer uma listagem das tabelas de uma database com as colunas e detalhes como tipo, tamanho, e se o campo aceita nulo. É possível listar os campos de uma tabela adicionando um filtro TABELAS.NAME = 'tabela desejada' ou listar as views (XTYPE = 'V') ou procedures (XTYPE = 'P')

SELECT
TABELAS.NAME AS TABELA,
COLUNAS.NAME AS COLUNA,
TIPOS.NAME AS TIPO,
COLUNAS.LENGTH AS TAMANHO,
COLUNAS.ISNULLABLE AS EH_NULO

FROM
SYSOBJECTS TABELAS
INNER JOIN SYSCOLUMNS COLUNAS ON (TABELAS.ID = COLUNAS.ID)
INNER JOIN SYSTYPES TIPOS ON (COLUNAS.USERTYPE = TIPOS.USERTYPE)
WHERE
TABELAS.XTYPE = 'U' /*'U' = TABELAS*/
ORDER BY TABELAS.NAME

[SQL SERVER] Configurando o Firewall (Zone Alarm) para permitir comunicação com outros aplicativos

2008-10-15T17:17:00.007-03:00

Para que as conexões remotas funcionem no SQL Server 2005, o Zone Alarm deve ter exceções para as instâncias do SQL Server 2005 e o serviço do Navegador do SQL Server (SQL Server Browser). Ao tentar utilizar o Webrun por exemplo, o firewall bloqueia o sql server e antes da tela de login, e exibe o erro: "Network error IOException: Connection refused: connect", conforme a imagem logo abaixo.

A liberação no Firewall deve ser feita para cada instância que terá suas conexões remotas permitidas. Realizar estas exceções em cada instância do SQL Server é necessária pelo fato de ser permitido instalar diversas instâncias do SQL Server em um mesmo servidor. Cada instalação do SQL Server é chamada de instância, e cada uma pode ter quantos Bancos de Dados forem necessários. Para colocar uma instância do SQL Server nas exceções do Zone Alarm, devemos abrir o menu em Program Control, ia na aba Programs, clicar em ADD e procurar o arquivo SqlServr.exe que por padrão, encontra-se na pasta C:\Arquivos de Programas\Microsoft SQL Server\MSSQL.1\MSSQL\Binn.

Após adicionar o sqlserv.exe, deve marcar Access e server com Allow.
A pasta MSSQL.1 é a pasta referente à instância 1 do SQL Server. Se for colocar uma exceção para uma segunda instância do SQL, o arquivo SqlServr.exe deve ser localizado na pasta MSSQL.2.

Para colocar uma exceção ao serviço do SQL Server Browser, devemos seguir os mesmos passos que percorremos para colocar exceção à instância do SQL Server, a única diferença será procurar o arquivo SqlBrowser.exe que por padrão está na pasta C:\Arquivos de Programas\Microsoft SQL Server\90\Shared.

[SQL SERVER] ALTERAR IDIOMA(LANGUAGE) DO BANCO DE DADOS

2008-09-19T10:57:00.002-03:00

Quem ja teve dor de cabeça com idiomas do banco de dados utilizado para desenvolver um sistema diferente do idioma do banco de dados utilizado pelo cliente, sabe como é importante tratar isso na aplicação, mas, pra quem não fez esse tratamento, é so alterar o idioma do banco do seu cliente e deixar igual ao seu. Logo abaixo, tem um passo a passo para fazer essa alteração.

--EXIBIR TODOS OS IDIOMAS EXISTENTES NO BANCO

USE MASTER

SELECT * FROM SYSLANGUAGES

-- EXIBIR A ATUAL CONFIGURACAO DE IDIOMA

USE NOMEDOSEUBANCO

SELECT @@language, @@langid

-- DEFINIR O IDIOMA DEFAULT PARA O SERVIDOR (27 = PORTUGUES)

EXEC sp_configure 'default language', 27

-- DEFINIR O IDIOMA PARA CADA LOGIN DO SERVIDOR

EXEC sp_defaultlanguage 'sa', 'Português (Brasil)'

-- COMANDO PARA RECONFIGURAR ALTERACOES FEITAS

RECONFIGURE

-- APOS ISSO SERA PRECISO DAR UM STOP e START NO SQL SERVER

[SQL SERVER] DESABILITAR RELACIONAMENTOS DE UMA TABELA

2008-09-18T23:28:00.003-03:00

Para desabilitar todos os relacionamentos de uma tabela a escolha, é so utilizar esse script, alterando apenas o nome da tabela. Depois so não pode esquecer de habilitar os relacionamentos novamente.

DECLARE
@NOME_FOREIGN VARCHAR(100),
@PARENT INT,
@NOME_TABELA VARCHAR(100)
DECLARE NOMES_FOREIGN CURSOR FOR
SELECT NAME, PARENT_OBJ FROM DBO.SYSOBJECTS
WHERE OBJECTPROPERTY(ID,N'ISFOREIGNKEY') = 1
and name like '%NOME DA TABELA%'

OPEN NOMES_FOREIGN

FETCH NEXT FROM NOMES_FOREIGN INTO @NOME_FOREIGN, @PARENT

WHILE @@FETCH_STATUS = 0
BEGIN
SELECT @NOME_TABELA = NAME FROM DBO.SYSOBJECTS WHERE ID = @PARENT

PRINT 'DESABILITA CHAVE ESTRANGEIRA: ' + @NOME_TABELA + ' - ' + @NOME_FOREIGN
EXEC('ALTER TABLE [' + @NOME_TABELA + '] NOCHECK CONSTRAINT [' + @NOME_FOREIGN + ']')

FETCH NEXT FROM NOMES_FOREIGN INTO @NOME_FOREIGN, @PARENT
END

CLOSE NOMES_FOREIGN
DEALLOCATE NOMES_FOREIGN

[SQL SERVER] HABILITAR RELACIONAMENTOS DE UMA TABELA

2008-09-18T23:26:00.000-03:00

DECLARE
@NOME_FOREIGN VARCHAR(100),
@PARENT INT,
@NOME_TABELA VARCHAR(100)

DECLARE NOMES_FOREIGN CURSOR FOR
SELECT NAME, PARENT_OBJ FROM DBO.SYSOBJECTS
WHERE OBJECTPROPERTY(ID,N'ISFOREIGNKEY') = 1
-- AND NAME LIKE '%' + @SISTEMA + '%' ESCAPE '#'
and name like '%NOME DA TABELA%'

OPEN NOMES_FOREIGN

FETCH NEXT FROM NOMES_FOREIGN INTO @NOME_FOREIGN, @PARENT

WHILE @@FETCH_STATUS = 0
BEGIN
SELECT @NOME_TABELA = NAME FROM DBO.SYSOBJECTS WHERE ID = @PARENT

PRINT 'HABILITA CHAVE ESTRANGEIRA: ' + @NOME_TABELA + ' - ' + @NOME_FOREIGN
EXEC('ALTER TABLE [' + @NOME_TABELA + '] CHECK CONSTRAINT [' + @NOME_FOREIGN + ']')

FETCH NEXT FROM NOMES_FOREIGN INTO @NOME_FOREIGN, @PARENT
END

CLOSE NOMES_FOREIGN
DEALLOCATE NOMES_FOREIGN

[MAKER - WEBRUN] Remover código fonte dos sistemas

2008-09-18T23:05:00.007-03:00

Para quem vai instalar algum sistema feito em maker em algum cliente, e não quer seu código fonte a mercê, basta publicar seu sistema, deletar algumas tabelas FR, colocar o tomcat ou IIS e pronto.

Primeiro passo é exportar o sistema pelas configurações do webrun

Opção Publicar WAR

Ele vai gerar um arquivo .zip, que você deverá renomear para .war. O nome que você der a esse arquivo vai ser o nome para acessar o sistema. Exemplo, se renomear o arquivo para sistemas.war, para acessar o sistema, o link sera http://localhost:8080/sistemas.

Lembrando que será necessário instalar o tomcat, e esse arquivo deverá ficar na mesma pasta

Depois de publicar, é so deletar as tabelas FR.

Não esqueça o backup

OBS: ESSAS SÃO AS TABELAS QUE NÃO DEVEM SER DELETADAS
FR_SISTEMA
FR_USUARIO
FR_GRUPO
FR_USUARIO_GRUPO
FR_USUARIO_SISTEMA
FR_PERMISSAO
FR_LOG
FR_LOG_EVENT
FR_RELATORIO
FR_TAREFA
FR_TAREFA_TEMPO
FR_REGRAS
FR_SESSAO
FR_SESSAO_VI

Deletar essa tabelas é a parte chata...

Após essas alterações, não será mais possível fazer alteração no código fonte

[SQL SERVER] Como saber se uma tabela é usada em alguma view ou procedure...

2008-08-18T15:34:00.005-03:00

SELECT
   NAME
FROM
   SYSOBJECTS
WHERE
   ID IN (
      SELECT
         ID
      FROM
         SYSDEPENDS
      WHERE
         DEPID = OBJECT_ID('NOME DA TABELA')
      )

[SQL SERVER] Algumas funções SQL bastante utilizadas

2008-08-05T11:25:00.004-03:00

Funções de agrupamento:
AVG() = Retorna o valor médio de uma coluna específica
COUNT() = Retorna o número de linhas
MAX() = Retorna o valor máximo de uma coluna específica
MIN() = Retorna o valor mínimo de uma coluna específica
SUM() = Retorna a soma de uma coluna específica

Funções de manipulação de strings:
LEN (string) = Identifica o comprimento de uma expressão em caracteres
LOWER (string) = converte uma string uppercase para lowercase.
LTRIM (string) = remove os espaços em branco
REPLICATE (string, integer) = Repete N vezes um caractere especificado
REPLACE (string, string, string) Em uma expressão(1º parâmetro), essa função substitui uma referida string (2º parametro) por qualquer outra especificada(3º parâmetro)
RTRIM (string) = remove os espaços em branco à direita de uma string
SPACE (integer) = que retorna o número de espaços em branco informados no parâmetro SUBSTRING (string texto, posicao_inicial, tamanho) = retorna uma string com o comprimento definido em "tamanho" extraida da string "texto", a partir da "posicao_inicial"
UPPER (string) = retorna string em maiusculas

Funções de manipulação de data/hora:
nomes das partes de data:
Year = yy, yyyy
Month = mm, m
Day = dd, d
Week = wk, ww
Hour = hh
Minute = mi, n
Second = ss, s
Millisecond = ms
DW(dia da semana)

DATEADD (parte, numero, data) = adiciona um valor a parte de uma data
DATEDIFF (parte, data inicial, data final) = subtrai a data inicial da data final, indicando o resultado na unidade definida em "parte"
GETDATE() = retorna a data atual do sistema
DATENAME (parte, data) = retorna o nome da parte de uma data
DATEPART (parte, data) = retorna a parte de uma data

Funções de Sistema:
CAST (expressao as datatype) = converte uma expressao no datatype informado
ISNULL (expressao, valor) = se a expressao for null, troca pelo valor especificado
ISNUMERIC (expressao) = retorna 1 se a expressao for numerica e 0 se não for
NULLIF (expressao_1, expressao_2) = retorna nulo se as duas expressoes forem equivalentes. Se não forem, retorna a primeira expressao.
USER_ID (nome_do_usuario) = retorna o ID do usuario informado para o BD em uso
USER_NAME (id_do_usuario) = retorna o usuario conectado ao BD

Funções Matematicas:
ABS (numero) = retorna o valor absoluto do numero
ROUND (numero, precisao, arredonda_ou_trancar) = arredonda ou tranca o numero fornecido de acordo com a precisao informada. Se o terceiro parametro não for passado para a funçao, o numero é arredondado. Se quiser que o numero seja truncado, deve-se fornecer o valor 1
SIGN (numero) = retorna sinal positivo, negativo ou zero do numero
SQRT (float) = retorna a raiz quadrada de um numero
SQUARE (float) = retorna o quadrado de um numero

Função de conversão:
CONVERT (tipo(tamanho), expressão, estilo) = converte a expressão para o tipo de dado. O tamanho e o estilo são opcionais

[SQL SERVER] Descobrir tabelas e views dependentes

2008-08-05T11:04:00.001-03:00

Quer descobrir quais sao as tabelas e views dependentes de uma determinada tabela?

O comando abaixo mostra todas as dependências da tabela a escolha, identificando as views com código 4 e tabelas com código 8. AS tabelas são as mesmas se for pelo enterprise e criar um novo diagrama adicionando todas as dependências da tabela

exec sp_MSdependencies N'[dbo].[NOMEDATABELA]', null, 1315327

[SQL SERVER] Como identificar a versão e qual service pack está instalado?

2008-07-29T17:24:00.003-03:00

SELECT SERVERPROPERTY('productversion')
SELECT SERVERPROPERTY('productlevel')

[SQL SERVER] Criar tabela a partir de outra via script

2008-07-29T13:18:00.002-03:00

Se você tem uma tabela, e quer criar outra com os mesmos dados mas alterando a ordem de colunas, ou até adicionar e excluir alguma outra coluna, pode usar essa solução.

select

campo1
,campo2
,campo3

into NOMEDANOVATABELA
from NOMEDOBANCO..NOMEDATABELA

[SQL SERVER] Desabilitar identity

2008-07-25T13:21:00.001-03:00

Desabilitando identity no SQL SERVER 2000.
para desabilitar:set IDENTITY_INSERT nomeTabela on
para habilitar:set IDENTITY_INSERT nomeTabela off
OBS.: se vc esquecer de habilitar o campo identity não tem problema, pois o comando só vale para a conexão atual.

[REPORT BUILDER] Como usar um mesmo filtro duas vezes?

2008-07-22T10:23:00.005-03:00

Se você está utilizando o Report Builder você quer utilizar um período num filtro, e seus registros devem estar dentro desse período, mas deve trazer registros anteriores a esse período também em alguns casos, o que fazer? O problema que eu tive foi num Extrato Bancário. Eu precisava trazer todos os débitos e créditos dentro de um período, mas precisava trazer também os débitos/créditos que ainda não foram conciliados até esse período. A solução que eu encontrei foi:

1- Criar um evento no OnCreate do relatório chamando uma procedure para preencher uma tabela ja com os filtros necessários

var
INICIO,FIM,VSQL, FILTRO2:string;
begin
PERIODO := Report.AutoSearchCriteriaByName('NOMEDODATASET', 'CAMPO_PERÍODO').SearchExpression;
FILTRO2 := Report.AutoSearchCriteriaByName('NOMEDODATASET', 'CAMPO_FILTRO2').SearchExpression;
DATA_FIM := StrToDate(Copy(PERIODO, 12, 10));
INICIO := Copy(PERIODO, 1, 10);
FIM := Copy(PERIODO, 12, 10);
CamposREL := TStringList.Create;
CamposREL.add('CAMPO');
VSQL:= ('DECLARE @DATAINI DATETIME ,@DATAFIM DATETIME, @OUTRO_FILTRO INT SET @DATAINI = CONVERT(DATETIME,'''+INICIO+''',103)SET @DATAFIM = CONVERT(DATETIME,'''+FIM+''',103)SET @OUTRO_FILTRO = CONVERT(INT,'+FILTRO2+',1) execute XXX_PROCEDURE_FILTRO_SP @DATAINI,@DATAFIM, @OUTRO_FILTRO select 1 as CAMPO');
execsql(Report, VSQL, CamposREL, false);
end;

2- Criar a tabela a ser preenchida com todos os campos necessários para sua projeção

3- Criar a procedure para preencher a tabela. Abaixo tem um exemplo de uma procedure simples que deleta a tabela, e preenche com o novo filtro.

CREATE PROCEDURE dbo.XXX_PROCEDURE_FILTRO_SP
( @DATA_INICIO DATETIME, @DATA_FIM DATETIME, @FILTRO2 INT )
AS BEGIN
DELETE FROM XXX_TABELA
INSERT INTO XXX_TABELA
(CAMPO1,CAMPO2,CAMPO3,CAMPOX,DATA_EMISSAO,DATA_PAGAMENTO)
SELECT
CAMPO1,
CAMPO2,
CAMPO3,
CAMPOX,
DATA_EMISSAO,
DATA_PAGAMENTO
FROM
XXX_TABELA
WHERE
((DATA_EMISSAO BETWEEN @DATA_INICIO AND @DATA_FIM) OR
((DATA_PAGAMENTO > @DATA_FIM or DATA_PAGAMENTO is null) AND
(DATA_EMISSAO < @DATA_INICIO))) AND (CAMPOX = @FILTRO2
END)

4- Fazer o relatório com essa tabela ja filtrada como dataset principal