No mínimo, triste....

Hoje de manhã, na consulta matinal a minha Caixa de Entrada, para minha surpresa recebi a notícia que o site jornalístico No Minimo estava sendo descontinuado. Corri para acessar o site para ver se era verdade e, de fato, o site estava sendo fechado, e o motivo: falta de interesse de patrocinadores.
É uma pena, uma pena mesmo, não só porque o conteúdo do site era ótimo, com excelentes colunistas, que usavam de criatividade e bom humor para tratar dos mais diversos assuntos, mas também, por ver que em nosso belo país, conteúdo não desperta interesse, enquanto banalidades e assuntos sem valor arrastam centenas de anunciantes para sites que nada acrescentam.
Fica aqui nosso agradecimento a equipe do site No Minimo e o desejo de que tenham sucesso em suas novas empreitadas.

De mãozinhas dadas

Salve,

Acharam que eu tinha abandonado esse blog né? Estavam enganados! Pra alegria geral (acho que só minha) estou de volta.

Quero retomar meus posts comentando, para quem ainda não sabe, a parceria firmada no dia 1 de maio entre o projeto Ubuntu Linux, mantido pelo Canonical, e a Dell computadores. Como devem saber, a Dell é uma gigante mundial em venda direta de computadores, e o projeto Ubuntu é uma ousada iniciativa de distribuição gratuíta, em nível mundial, do sistema operacional do pinguim, que envia CD's diretamente a quem solicitar.

Em minha humilde opinião, a Microsoft deveria olhar atentamente para essa parceria, pois o Ubuntu Linux é uma distribuição fantástica. Leve, bonita, intuitiva, que pode até mesmo ser executada sem instalação, e que agora, com essa parceria, certamente vai ganhar visibilidade e muitos usuários. Você pode estar perguntando: quem ganha com isso? A Dell? Que poderá vender seus computadores com preço mais acessível ainda? O Ubuntu Linux? Que agora pode ganhar mercado e deixar de ser um projeto "filantrópico"?

Certamente que as duas ganharão com a parceria, no entanto, mais alguém pode sair ganhando: o usuário de computador, que poderá agora experimentar um SO alternativo veloz, eficiente, seguro e que, o melhor de tudo, não custa nada

Férias

No período de 23 de abril a 13 de maio estarei de férias, por isso escreverei menos (isso é possível?) :)
Vai ser um período de descanso e reciclagem. Espero voltar com novidades.
Té+

Semana de Informática da ETE Cel Raphael Brandão

Acontece de 23 a 26 de abril a Semana de Informática da ETE Cel Raphael Brandão, onde serão realizadas palestras dos mais diversos temas relacionados a informática, desde de o seu uso na educação, até as modernas linguagens de desenvolvimento. Quem tiver oportunidade, visite. Maiores informações: www.etebarretos.com.br

IV Barretos Motorcycles

Para quem, como eu, passa grande parte do tempo sobre duas rodas, seja a trabalho, seja a lazer, acontece em Barretos de 27 a 29 de abril o IV Barretos Motorcyles. Atualmente já é considerado o segundo maior encontro de motociclistas do país. Sintam-se convidados.

Será que já não vi esse filme?

Hoje, em uma lista de discussão sobre Delphi onde participam alguns funcionários da CodeGear, perguntei sobre o futuro dos Turbos, a sua linha de ferramentas populares e, como já imaginava, a resposta que tive não foi das mais animadoras, pois fiquei sabendo de que eles só serão atualizados depois do lançamento do BDS 2007 (codinome Highlander).
No fundo compreendo que a CodeGear tenha um interesse maior em seu "top de linha", pois, pra se ter uma idéia, o BDS 2006 Professional (D2006, C++Builder 2006 + C# Builder 2006) para novos usuários (a versão mais barata) custa hoje, em promoção, R$ 2.452,50, enquanto que qualquer um dos Turbos sai por R$ 1.200,00, ou seja, metade do preço. Será que já não vimos esse filme com o Kylix (alguém se lembra dele)?
Honestamente, acho que a CodeGear deveria focar mais nessa linha, afinal, quantos de nós desenvolvemos comercialmente em mais de uma linguagem? Eu pessoalmente, uso o Delphi e comecei agora a "brincar" com o C#, então pra quê eu quero Delphi, C++ e C# no mesmo pacote?
Tudo bem, se o preço fosse acessível como o do Visual Studio, que custa entre R$ 1.200,00 e R$ 1.700,00 e vem com IDE para C# e VB.NET. E com todo respeito a CodeGear, o VS dá um banho em termos de produtividade.

Cursos OnLine Gratuítos

O Next Generation é um site de atualização on-line, que oferece cursos gratuitos pela Internet. Os cursos são modulares e com certificado de conclusão, muito bom para você se manter atualizado .

Vale a pena conferir

Operador Ternário em C#

Como já comentei, comecei minha aventura rumo ao badalado C#. Apesar de já ter lido uma coisa ou outra sobre ele e de conhecer a base da programação orientada a objetos, preferi partir do zero, estudando o seu "core", ou seja, seus comandos básicos e suas sintaxes. Também estou procurando me livrar dos vícios de programador orientado a ambientes RAD, não que não se possa programar orientado a eventos em C#, mas se fizer isso, não se pode usufruir de todos os benefícios da POO.
O primeiro recurso diferente que encontrei foi o operador ternário. Para quem já usou o MS Excel, o operador ternário pode ser comparado à função "SE", onde em uma única instrução podemos escolher entre dois valores. A sintaxe do operador ternário é:

condicao ? valor_se_verdadeiro : valor_se_falso

Abaixo eu mostro um exemplo; nele declaro 3 variáveis A, B e C. A e B recebem valores quaisquer, enquanto C vai receber o maior valor entre A e B.

Para os valores sugeridos no exemplo o resultado será:

Neste exemplo usei o Turbo C# da Code Gear, uma excelente ferramenta.

Abraços.

Yahoo lançará e-mail ilimitado

A partir de Maio, o Yahoo Mail, que hoje oferece 1 GB de espaço por conta, passará a oferecer gradativamente a seus usuários espaço ilimitado. Com isso, o Yahoo Mail ultrapassará o GMail (Google), que lançou seu serviço há alguns anos com capacidade inicial de 1 GB e teve sua capacidade expandida a 2,8 GB.

A novidade foi divulgada por John Kremer, vice-presidente do Yahoo Mail, em post no blog Yodel Anecdotal.

Resta saber agora como será a reação dos concorrentes, mas uma coisa é certa: com essa "briga", quem certamente sairá ganhando serão os usuários.

Até +

Quanto cobrar pelo seu sistema?

Hoje, em uma das listas de discussão que assino, ocorreu um debate ferrenho sobre quanto e como cobrar por um sistema. Lá eu vi de tudo; há quem cobre por hora, por licença, por módulo, por pacote, etc.

O preço depende, é claro, da complexidade do sistema, mas discrepância é que não faltou, sendo que uns cobram R$100,00 por sistema e R$ 0,00 de manutenção (acreditam nisso?), outros cobram R$1.000,00 de implantação mais R$ 150,00 por licença mensalmente, o que é um valor no mínimo razoável. Há aqueles que cobram exageros, que acho melhor nem comentar.

Um texto muito bom, publicado pelo colega José Carlos Macoratti, pode ser lido aqui. Neste texto ele faz uma explanação séria e muito coerente sobre tema, vale a pena ler.

TADOQuery trabalhando com dados em cache

Esse é um recurso do TADOQuery pouco conhecido, mas bastante útil. Assim como já se fazia nos tempos do TQuery + TUpdateSQL, onde os dados ficavam no cache local é só eram enviados para o banco através do método ApplyUpdates, o TADOQuery também pode manter os dados localmente e só enviar os dados ao banco no momento desejado e não após o método Post, comportamento que ele tem por padrão.

Isso é muito bom quando trabalhamos com tabelas do tipo mestre-detalhe, onde na maioria das vezes é necessário setar os campos relacionados antes do envio dos dados ao banco. O processo fica ainda mais tranquilo se for usado TADOConnection para controlar a transação, pois, você pode "commitar" os dados da tabela mestre e em seguida os da tabela detalhe e, caso ocorra algum erro, pode abortar, tratar o erro e tentar a gravação novamente sem que o usuário perca seu trabalho.

Bem, vamos ao que interessa! Para isso tudo funcionar primeiro altere a propriedade LockType do TADOQuery para ltBatchOptimistic, isso já fará com que os dados fiquem no cache local. Agora, para postar efetivamente os dados no banco, chame o método UpdateBatch(), que é semelhante ao método ApplyUpdates do TQuery. Fácil, não? :)

Como eu já disse, esse é um recurso muito útil, mas pouco conhecido. Espero que gostem da dica.
Até a próxima.

Salvando o seu formulário como imagem

Dia desses, um colega de uma lista de discussão precisava gerar um JPEG a partir de um formulário de seu sistema, algo como um "Print Screen" para usuários menos íntimos com a coisa. Postei lá a solução e, como achei a solicitação interessante, decidi postá-la aqui também. Vamos a solução:

Imaginemos o exemplo clássico, um formulário "Form1" e um botão "Button1", o evento OnClick do botão ficaria como abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var JPEG: TJPEGImage;
begin

JPEG := TJPEGImage.Create;
JPEG.Assign(form1.GetFormImage);
JPEG.SaveToFile('caminho\meuform.jpg');

end;

Fácil né? :) Vocês podem dar um rebuscada na solução usando um TSaveDialog para que o usuário possa escolher o local e o nome do arquivo a ser salvo.

Até a próxima.
Ah! Não esqueçam de declarar o unit JPEG na cláusula Uses.

Code Gear - Delphi Tour

De 20 a 30 de março estará ocorrendo o Code Gear - Delphi Tour, um evento gratuíto cuja finalidade é apresentar as novas ferramentas da Code Gear: o Delphi 2007 for Win32 (com suporte ao Windows Vista) e o Delphi for PHP.

Este é um evento que, para quem tiver oportunidade de ir, pode ser bem interessante. É claro que se trata de um evento puramente comercial, mas entre uma apresentação e outra um novo recurso pode ser avaliado.

As inscrições e a consulta das cidades em que o acontecerá o evento podem ser feitas no site aqui.

Abraços

Declaração de Imposto de Renda 2007

Declaração IR 2007

Neste ano, mais uma vez, sentirei a mordida do leão da Receita Federal. Juntamente com o IPVA, esse é um dos impostos que mais protesto na hora do pagamento, mas, infelizmente, não há como fugir dele. Aliás, ter até tem, mas não quero que diminuam meu salário :), e tentar evitar seu pagamento através de certas "técnicas" não faz o meu tipo, mais cedo ou mais tarde acabamos tendo problema.

Hoje dando uma vasculhada na Internet sobre as formas de declaração, encontrei um artigo bem interessante e resolvi transcrevê-lo aqui. Acredito que pode ser valia para muitos que estejam fazendo a declaração pela primeira vez.

Diferença entre Declaração simplificada ou completa

Quem ainda não fez a declaração do IR, tem duas opções para prestar contas à Receita Federal: a declaração simplificada ou a completa.

A declaração simplificada é indicada para que tem deduções abaixo de R$ 11.177,20. Serve para quem não têm muitas deduções a fazer ou que não têm como comprovar os gastos. Além disso, o contribuinte terá um desconto de 20% nos rendimentos tributáveis. Contribuintes com ganhos
acima de R$ 55.886,00 também poderão fazer a declaração simplificada, mas terão apenas o desconto limite.

Já a declaração completa é para os contribuintes que têm deduções comprovadas acima de R$11.177,20 ou que superem os 20% de rendimentos tributáveis. Neste caso, o desconto será maior que os 20% da declaração simplificada.

Podem ser deduzidos do IR gastos com dependentes, médicos, dentistas, hospitais, clínicas, escola, faculdade, pensão alimentícia, previdência privada, pagamento de advogados, engenheiros, arquitetos, aluguéis, arrendamento rural e outros.

A entrega da declaração pode ser feita pela Internet até o dia 30 de abril. Para enviar as informações à Receita Federal pela Web é necessário utilizar outro programa, o Receitanet.

Não há previsão para prorrogação do prazo por isso é importante não deixar para a última hora. Além de enviar pela Web, o contribuinte também pode mandar por disquete ou formulário. O pagamento da restituição - aos contribuintes que têm esse direito - acontece por ordem de entrega, priorizando idosos com 60 anos ou mais e declarações entregues por meio magnético

Fonte: Yahoo Notícias

Incursões em C#

Salve,

Como profissionais em desenvolvimento de software, precisamos sempre
ficar atentos as novas tecnologias e linguagens que surgem de tempos
em tempos. Confesso que sou um pouco cético (ou conservador, como
queiram) com relação a novas tecnologias, não costumando ir na onda de
modismos ou de entusiastas que elegem uma tecnologia como
revolucionária e bradam aos quatro cantos que ela é melhor, sem que
uma análise profunda seja feita.

Claro que muitas tecnologias boas emergem nesse meio fecundo que é a
área da tecnologia da informação, mas prefiro me nortear pelo
movimento do mercado, ou seja, me orientar pelas tecnologias que as
empresas estão usando ou naquelas que elas estão investindo, pois
sejamos francos: a coisa só vai pra frente quando há grana na parada,
num é mesmo?

Vejam por exemplo o caso do Java. Tenho certeza que ela só chegou onde
está, se tornando uma das tecnologias mais difundidas e usadas no
mundo, graças ao investimento e apoio de grandes como IBM e Oracle.

Partindo desse cenário, estou iniciando uma reciclagem, pois como não
deve ser novidade para ninguém, programo "fluentemente" em Delphi, e
vejo que já está na hora de respirar novas sintaxes. :)

Ao longo deste ano quero estudar seriamente C# e Java, e se até o ano
que vem os ventos continuarem soprando a favor do Ruby on Rails, que em 2006
foi eleita a linguagem do ano pelo TPC Index, certamente ela será uma
das eleitas para 2008.

Um abraço e até a próxima.
--
Nappe

Dica de Delphi - Exportar dataset para arquivo texto de largura fixa

Saudações,

Vez ou outra sempre há a necessidade de se gerar um arquivo texto de
largura fixa, seja para enviar para algum, lugar seja para exportação
para outro sistema. A rotina a seguir faz isso, usando como referencia
para a largura das colunas o próprio tamanho do campo. Detalhe: no
caso de campos Float, eles serão formatados com 3 casas após a
virgula, mas basta uma "mexidinha" no código para adequar à sua
necessidade.

Divirtam-se!

GeraTextoLarguraFixa(Dataset: TDataset; Separador: Char);
var
intI, intII, intIII: Integer;
strLista: TStringList;
strLinha: string;
dlgSalvar: TSaveDialog;
vetLarguraColuna: array of Byte;
begin

if Dataset.Active = False then
begin
MessageDlg('O arquivo texto não poderá ser gerado porque o
Dataset está fechado!',
mtWarning, [mbOk], 0);
Exit;
end;

dlgSalvar := TSaveDialog.Create(Self);
dlgSalvar.Title := 'Salvar Arquivo Texto';
dlgSalvar.Filter := 'Arquivos Texto|*.txt|Todos os arquivos|*.*';

strLista := TStringList.Create;
strLinha := EmptyStr;

SetLength(vetLarguraColuna, Dataset.FieldCount);

for intI := 0 to Dataset.FieldCount - 1 do
if Dataset.Fields[intI].DisplayWidth >
Length(Dataset.Fields[intI].DisplayLabel) then
vetLarguraColuna[intI] := Dataset.Fields[intI].DisplayWidth
else
vetLarguraColuna[intI] := Length(Dataset.Fields[intI].DisplayLabel);

//Cria a primeira linha com os nomes das colunas
for intI := 0 to Dataset.Fields.Count - 1 do
begin
strLinha := strLinha + Dataset.Fields[intI].DisplayLabel;

if vetLarguraColuna[intI] >
Length(Dataset.Fields[intI].DisplayLabel) then
for intII := Length(Dataset.Fields[intI].DisplayLabel) to
vetLarguraColuna[intI] do
strLinha := strLinha + ' '
else
strLinha := strLinha + ' ';
end;

strLista.Add(strLinha);
strLinha := EmptyStr;

for intI := 1 to Dataset.RecordCount do
begin
for intII := 0 to Dataset.Fields.Count - 1 do
begin

if Dataset.Fields[intII].DataType in [ftFloat, ftCurrency,
ftBCD, ftFMTBcd] then
begin
for intIII := Length(FormatFloat('##0.000',
Dataset.Fields[intII].AsFloat)) to vetLarguraColuna[intII] - 1 do
strLinha := strLinha + '0';

strLinha := strLinha + FormatFloat('##0.000',
Dataset.Fields[intII].AsFloat) + ' ';
end
else
begin
strLinha := strLinha + Dataset.Fields[intII].AsString;

for intIII := Length(Dataset.Fields[intII].AsString) to
vetLarguraColuna[intII] do
strLinha := strLinha + ' ';
end;

end;

strLista.Add(strLinha);
strLinha := EmptyStr;
Dataset.Next;
end;

if dlgSalvar.Execute then
try
strLista.SaveToFile(dlgSalvar.FileName);
MessageDlg('O arquivo "' + dlgSalvar.FileName + '" foi gerado
com sucesso!',
mtInformation, [mbOK], 0);
except
on Erro: Exception do
MessageDlg('Não foi possível gerar o arquivo ' +
dlgSalvar.FileName + '.' +
#13#13 + 'Erro:' + #13 + Erro.Message, mtError, [mbOk], 0);
end;

dlgSalvar.Destroy;
strLista.Free;

end;

--
Fernando D. Nappe
Analista de Sistemas

Ranking das Linguagens mais usadas

Salve PessoALL,

Para aqueles que são desenvolvedores é sempre importante saber a quantas andam as linguagens de programação, assim é possível decidir em quais delas vale a pena investir estudos.

Baseado em pesquisas nos mecanismos de busca e atualizado mensalmente, o TPC Index é uma espécie de índice de popularidade das linguagens de programação.


Anotem o link aí e fiquem de olho: http://www.tiobe.com/tpci.htm

Abraços

Dica de Delphi - Ativando e desativando objetos em formulários

Salve Galera,

É muito comum precisarmos habilitar e desabilitar objetos em um formulário em função de outro objeto. Veja o exemplo abaixo:

O Edit do conjuge só poderá ser habilitado se a opção "Casado" for selecionada. Nestes casos é muito comum fazer algo do tipo:

If GroupBox.ItemIndex = 1 then
edtConjuge.Enabled := True

else

edtConjuge.Enabled := False;

É uma forma que funciona, mas poderia ser bem mais simples:

edtConjuge.Enabled := GroupBox.ItemIndex = 1;

Neste caso, estamos condicionando o a propriedade Enabled à igualdade ItemIndex = 1. Desta forma, além de ser mais elegante exige menos código.

É isso aí Galera, espero que curtam a dica. Se tiverem dúvidas é só postar.

Abraços

Gafe fenomenal

Saudações,
Não é o principal tema desse blog, mas encontrei um vídeo que é o máximo, desafio vc a assistir e não rir.
Abraços.

Assista

Dica de Delphi - Mudando de célula com ENTER no dbGrid

Quando o usuário está editando dados em um dbGrid, ele sempre espera que ao se pressionar a tecla "ENTER", a ação seja mudar para a célula seguinte (a da direita), mas o dbGrid não tem esse comportamento por padrão.

Pensando nisso, elaborei uma rotina, que deverá ser escrita no evento OnKeyUp do dbgrid. Sempre que se atinge a última célula em uma linha, automaticamente ele passa para a linha seguinte e, se estiver na última, uma nova será inserida.

Segue a rotina:

if Key = #13 then
begin
if dbgrid.SelectedIndex = dbgrid.Columns.Count - 1 then
//verifica se e a ultima celula
begin
if DatasetConectadoNoGrid.Eof then
DatasetConectadoNoGrid.Insert
else
DatasetConectadoNoGrid.Next;
//se for o ultimo registro insere um novo,
//caso contrario ele passa para o proximo
registro
dbgrid.SelectedIndex := 0;
//Posiciona na primeira celula
end
else
dbgrid.SelectedIndex := dbgrid.SelectedIndex + 1;
//Se nao estive na ultima celula passa a proxima
end;


Como sempre, em caso de dúvidas, escrevam.

--
Fernando D. Nappe
Analista de Sistemas