Arquivos do Excel

Executável de Exemplo para gerar arquivos do Excel.
vale a pena baixar para ver.. até gráfico gerado a partir executável, dentro do Excel.

Clique aqui para baixar o demo
Se gostar entre em contato comigo... e faça sua solicitação.

:) UliRamos

Update Incremental com Cursor "for Select"

/*

Bem deixa eu explicar o que Aconteceu..

o ultimo layout de exportação de dados para a Folha do Rubi 

precisava deste comando para que os dependentes variassem de acordo com a quantidade, exemplo: 3 dependentes , o primeiro código=1, o segundo código=2 e o terceiro Código=3, Já para o próximo titular tudo recomeçava com 1.

O COMANDO ABAIXO RESOLVE A PARADA, É CLARO CRIAMOS A COLUNA ID_DEPEN*/ 

/*

By Ulisses Ramos

Data: 12/09/2012 as 19hs

Belém - PA

alter taBLE dbo.FPCADDEP ADD ID_DEPEN SMALLINT

update dbo.FPCADDEP set ID_DEPEN=null

select * from TempDepen

*/

DECLARE UPDATE_TempDepen CURSOR FOR

SELECT matnum, recnum

FROM dbo.FPCADDEP

order by matnum;

declare @MatNum char(8);

declare @idNew int;

declare @recnum int;

OPEN UPDATE_TempDepen ;

FETCH NEXT FROM UPDATE_TempDepen into @MatNum,@recnum;

WHILE @@FETCH_STATUS <> -1

   BEGIN

  IF (@@FETCH_STATUS <> -2)

   BEGIN                   

      select @idNew = coalesce( MAX(a.id_depen),0)+1 from dbo.FPCADDEP a where a.MATNUM=@MatNum ;

      update dbo.FPCADDEP set  ID_DEPEN=@idNew where MATNUM=@MatNum  and RECNUM=@recnum ;

      print 'matnum é '+@MatNum+' e o id esta em :'+cast( @idNew as varchar(10));    

    END     

      FETCH NEXT FROM UPDATE_TempDepen into @MatNum,@recnum

 

   END;

CLOSE UPDATE_TempDepen;

DEALLOCATE UPDATE_TempDepen;

GO

Importação de Dados XML to SQLServer

Recentemente tive que prestar assessoria para converter dados do arquivo de Dados DataFlex para o Banco de Dados SQLServer.
Bem o passos foram:
1) Converti DataFlex para XML
2) XML para SQLServer
3) SQLServer para um Arquivo de acordo com Layout.

o Comando do SQLServer para converter XML para uma Tabela no SQLServer ai abaixo:

CREATE TABLE XmlImportTest
(
    xmlFileName VARCHAR(300),
    xml_data xml
)
GO

DECLARE @xmlFileName VARCHAR(300)
SELECT  @xmlFileName = 'c:\TestXml.xml'

-- inserir dinamicamente a variavel @xmlFileName  em um OPENROWSET

EXEC('
INSERT INTO XmlImportTest(xmlFileName, xml_data)

SELECT ''' + @xmlFileName + ''', xmlData 
FROM
(
    SELECT  * 
    FROM    OPENROWSET (BULK ''' + @xmlFileName + ''' , SINGLE_BLOB) AS XMLDATA
) AS FileImport (XMLDATA)
')
GO
SELECT * FROM XmlImportTest

DROP TABLE XmlImportTest

Fast Repor 4.10.5

http://asfile.com/file/a2a1HmH

http://www.unibytes.com/RGctMsJnc9wLqw-Us4P3UgBB

http://www.gigabase.com/getfile/XLL2mfCDotnxsmPv_5i7oQBB/FR4.7z.html

http://www.share4web.com/get/byq7Y5S8CqnLv2SzqgrzF97kK8scTFky/FR4.7z.html

http://www.4shared.com/rar/UrgyVHKk/fastreports_xe2_programadoronl.html

NOVA VERSÃO 4.12.6

Quente.. Sistema para Controlar Estoque e atendimento de Farmacias..

Sistema para controlar o estoque de farmácias e ainda:

1. Os mais vendidos.. 
2. Reposição de estoque
3. Analises dos dias que mais se vende..
4. Os itens mais vendidos
5. Os dias que mais se vende e o que se vende
6. Abertura e fechamento do caixa por dia
7. Já vem com todos os produtos da ABC Farma.
8. Com o modulo de atualização de preços e itens. Apartir da ABC Farma.
9. Voce ainda pode personalizar alguma opção desejada.
10. Estatísticas diversas de sua farmácia.

Entre em contato comigo no fone (91) 8235 - 0249

Ulisses Ramos.

Exportar Todos os Logins do SQLServer

--------------------------

-- voce esta trocando de servidor ou vai atualizar seu sqlserver do

-- 7 para o 2000 ou do 2000 para o 2005 ou do 2005 para o 2008

-- esse script gera uma stored procedure chamanda

-- "sp_help_revlogin"

-- depois rode na tela o comando "exec sp_help_revlogin"

-- salve o result e depois carregue ele no novo sqlserver

-- rode so depois de ter restaurado todos os bancos.

--------------------------

use master

go

if object_id ('sp_hexadecimal') is not null

drop procedure sp_hexadecimal

go

create procedure sp_hexadecimal

@binvalue varbinary(256),

@hexvalue varchar (514) output

as

declare @charvalue varchar (514)

declare @i int

declare @length int

declare @hexstring char(16)

select @charvalue = '0x'

select @i = 1

select @length = datalength (@binvalue)

select @hexstring = '0123456789abcdef'

while (@i <= @length)

begin

declare @tempint int

declare @firstint int

declare @secondint int

select @tempint = convert(int, substring(@binvalue,@i,1))

select @firstint = floor(@tempint/16)

select @secondint = @tempint - (@firstint*16)

select @charvalue = @charvalue +

substring(@hexstring, @firstint+1, 1) +

substring(@hexstring, @secondint+1, 1)

select @i = @i + 1

end

select @hexvalue = @charvalue

go

if object_id ('sp_help_revlogin') is not null

drop procedure sp_help_revlogin

go

create procedure sp_help_revlogin @login_name sysname = null as

declare @name sysname

declare @type varchar (1)

declare @hasaccess int

declare @denylogin int

declare @is_disabled int

declare @pwd_varbinary varbinary (256)

declare @pwd_string varchar (514)

declare @sid_varbinary varbinary (85)

declare @sid_string varchar (514)

declare @tmpstr varchar (1024)

declare @is_policy_checked varchar (3)

declare @is_expiration_checked varchar (3)

declare @defaultdb sysname

if (@login_name is null)

declare login_curs cursor for

select p.sid, p.name, p.type, p.is_disabled, p.default_database_name, l.hasaccess, l.denylogin from

sys.server_principals p left join sys.syslogins l

on ( l.name = p.name ) where p.type in ( 's', 'g', 'u' ) and p.name <> 'sa'

else

declare login_curs cursor for

select p.sid, p.name, p.type, p.is_disabled, p.default_database_name, l.hasaccess, l.denylogin from

sys.server_principals p left join sys.syslogins l

on ( l.name = p.name ) where p.type in ( 's', 'g', 'u' ) and p.name = @login_name

open login_curs

fetch next from login_curs into @sid_varbinary, @name, @type, @is_disabled, @defaultdb, @hasaccess, @denylogin

if (@@fetch_status = -1)

begin

print 'no login(s) found.'

close login_curs

deallocate login_curs

return -1

end

set @tmpstr = '/* sp_help_revlogin script '

print @tmpstr

set @tmpstr = '** generated ' + convert (varchar, getdate()) + ' on ' + @@servername + ' */'

print @tmpstr

print ''

while (@@fetch_status <> -1)

begin

if (@@fetch_status <> -2)

begin

print ''

set @tmpstr = '-- login: ' + @name

print @tmpstr

if (@type in ( 'g', 'u'))

begin -- nt authenticated account/group

set @tmpstr = 'create login ' + quotename( @name ) + ' from windows with default_database = [' + @defaultdb + ']'

end

else begin -- sql server authentication

-- obtain password and sid

set @pwd_varbinary = cast( loginproperty( @name, 'passwordhash' ) as varbinary (256) )

exec sp_hexadecimal @pwd_varbinary, @pwd_string out

exec sp_hexadecimal @sid_varbinary,@sid_string out

-- obtain password policy state

select @is_policy_checked = case is_policy_checked when 1 then 'on' when 0 then 'off' else null end from sys.sql_logins where name = @name

select @is_expiration_checked = case is_expiration_checked when 1 then 'on' when 0 then 'off' else null end from sys.sql_logins where name = @name

set @tmpstr = 'create login ' + quotename( @name ) + ' with password = ' + @pwd_string + ' hashed, sid = ' + @sid_string + ', default_database = [' + @defaultdb + ']'

if ( @is_policy_checked is not null )

begin

set @tmpstr = @tmpstr + ', check_policy = ' + @is_policy_checked

end

if ( @is_expiration_checked is not null )

begin

set @tmpstr = @tmpstr + ', check_expiration = ' + @is_expiration_checked

end

end

if (@denylogin = 1)

begin -- login is denied access

set @tmpstr = @tmpstr + '; deny connect sql to ' + quotename( @name )

end

else if (@hasaccess = 0)

begin -- login exists but does not have access

set @tmpstr = @tmpstr + '; revoke connect sql to ' + quotename( @name )

end

if (@is_disabled = 1)

begin -- login is disabled

set @tmpstr = @tmpstr + '; alter login ' + quotename( @name ) + ' disable'

end

print @tmpstr

end

fetch next from login_curs into @sid_varbinary, @name, @type, @is_disabled, @defaultdb, @hasaccess, @denylogin

end

close login_curs

deallocate login_curs

return 0

go