Maurício Vinicius (Análise e desenvolvimento)

Declarações IN e NOT IN no Linq to Entity

2010-08-12T14:49:00.000-07:00

Esses dias eu quebrei a cabeça para fazer uma declaração IN e NOT IN em minha query.
Enfim, eu tinha pensado que já tinha arrumado uma solução, que seria utilizar o Contains:

var query =

from i in dm.inspecoes

where i.idtipo_operacao == 6

&& !(from i2 in dm.inspecoes

where i.idtipo_operacao == 5

select i2.chassi)

.Contains(i.chassi)

select i;

foreach (var c in query) Console.WriteLine( c );

Nossa, fiquei super alegre em saber que eu poderia utilizar o Contains, que geraria uma clausula CONTAINS no comando SQL final.
Dai fui implementar...e...nada! :S
Dava o seguinte erro:

LINQ to Entities does not recognize the method 'Boolean Contains[String](System.Linq.IQueryable`1[System.String], System.String)' method, and this method cannot be translated into a store expression.

Igual diz o Milton Leite: "Que beleza!"
Pesquisando na internet, vi que o Entity não tem suporte para o método Contains. Dai pensei: Que padronização maravilhosa! essa é a Microsoft! :(

A SUBQUERY
Uma forma que eu arrumei de solucionar esse problema, é utilizar a clausula Where da minha entidade.
Primeiro de tudo, eu separei a subquery em uma outra variavel.
Nessa subquery, nós possuimos todas as ocorrências que nós queremos inserir dentro da clausula IN:

var subQuery = (from i2 in dm.inspecoes
where idtipo_operacao == 5
select new { chassi = "'" + i2.chassi + "'" });

Como o campo do meu critério é do tipo VARCHAR e não INT, eu preciso inserir uma apostrofe antes e depois do valor de cada campo, dai o resultado seria: { '123455abcde', '987654fedcba'}
Até ai beleza, montamos nossa SubQuery.
Agora, precisamos passar os valores para um array, para que posteriormente tenhamos os valores dentro da clausula IN. Nossa array fica dessa forma:

string[] resultados;
resultados = subQuery.Select(r => r.chassi).ToArray();

Para finalizar, basta inserirmos a clausula IN ou NOT IN em nossa query principal:

A QUERY PRINCIPAL E A SOLUÇÃO
var queryFinal = dm.inspecoes.Where("it.idtipo_operacao = 6 AND it.chassi IN {" + string.Join(",", resultados) + "}");

Notem que eu usei como alias para a minha tabela a sigla "it". Esse alias é criado pelo Emtity por padrão para a entidade selecionada.

Depois, com esse resultado você pode voltar um list ou um array.
return queryFinal.ToList();
return queryFinal.ToArray();

OBSERVAÇÕES
Como o Entity Framework não tem suporte para o Contains, esse foi um método que consegui obter o resultado que queria. Porém, se formos pensar bem, teremos uma queda de desempenho considerável em nossa query.
O que a query acima faz, é o seguinte:
SELECT * FROM inspecoes i WHERE i.chassi NOT IN ('331311233', '2323434244', '2342324234', '2343232423');

Lembra que passamos o resultado da subquery para um array? Então, esse array nada mais é que o seguinte resultado: { '331311233', '2323434244', '2342324234', '2343232423' }

Se o Entity desse suporte para o Contains, o resultado final seria:
SELECT * FROM inspecoes i WHERE i.idtipo_operacao = 6 AND i.chassi NOT IN (SELECT chassi FROM i i2 WHERE i2.idtipo_operacao = 5)

A consulta SQL seria mais rápida, porque o SGBD não precisará verificar valor por valor do conteudo que esta na clausula IN. Sem contar que podemos ter o campo "chassi" indexado, o que ajudaria no desempenho de nossas consultas.

To passando um perrengue danado com esse Entity, mas chego lá!!

Menu dinâmico buscando itens da base de dados (ASP.Net)

2010-07-29T20:18:00.001-07:00

Fala pessoaL!
Nossa, faz muito tempo que não posto nada e para falar a verdade, faz tempo que eu nem acesso meu blog. Estou sem tempo e com muitas preocupações. Viajarei para a Australia no fim desse ano e isso esta me deixando ansioso e muito nervoso. Correria total!!
Bom, como o blog não é sobre mim mas sim sobre análise e desenvolvimento de sistemas, vamos ao que interessa.

Devido a um novo projeto da empresa, comecei a programar em asp.net C# há poucos dias. Precisei fazer um controle de login dos usuários e claro, um menu contendo todos os menus que o usuário tem acesso.
Só que esses menus estão cadastrados na base de dados. E agora?
Não achei nada na internet, nenhum blog de pessoas que já fizeram isso em asp.net e disponibilizaram.

TECNOLOGIAS E FERRAMENTAS UTILIZADAS

Estou utilizando o modelo entidade relacional Entity Framework da Microsoft, acessando uma base de dados MySQL (the best database ever! ;) )

Não irei tratar aqui sobre como fazer os relacionamentos das tabelas ou criação e associação entre as classes do nosso modelo objeto relacional, mas sim como criar o menu para o site e seus respectivos filhos.

TABELAS USADAS NO EXEMPLO

Eu utilizei uma tabela com relacionamento Self One to Many. Para quem não conhece esse tipo de relacionamento, vale a pena dar uma olhada nesse outro post em meu blog:

http://devutils.blogspot.com/2008/12/sql-relacionamentos-self-to-self.html

CREATE DATABASE `exemplomenu`

USE `exemplomenu`

DROP TABLE IF EXISTS `menus_web`;

CREATE TABLE `menus_web` (
`idmenus` int(7) unsigned NOT NULL AUTO_INCREMENT,
`nome` varchar(45) NOT NULL COMMENT 'nome do item de menu',
`ordem` int(7) unsigned DEFAULT NULL COMMENT 'para ordenação dos itens de menu',
`pai` int(7) unsigned DEFAULT NULL,
`hint` varchar(255) DEFAULT NULL,
`bitmap` int(7) DEFAULT NULL COMMENT 'icone do item de menu',
`url` varchar(50) DEFAULT NULL,
PRIMARY KEY (`idmenus`),
KEY `fk_menus_menus1` (`pai`)
) ENGINE=InnoDB AUTO_INCREMENT=12 DEFAULT CHARSET=latin1;

/*Data for the table `menus_web` */

insert into `menus_web`(`idmenus`,`nome`,`ordem`,`pai`,`hint`,`bitmap`,`url`) values (1,'Veículos',50,NULL,NULL,NULL,''),(2,'Relatórios',NULL,1,NULL,NULL,''),(3,'Por responsabilidade',NULL,2,NULL,NULL,'/veiculos/relatorios/responsabilidade.aspx'),(4,'Avarias por montadora',NULL,7,NULL,NULL,''),(5,'Avarias por modelo',NULL,7,NULL,NULL,''),(6,'Avarias por peça',NULL,7,NULL,NULL,''),(7,'Gráficos',NULL,1,NULL,NULL,''),(8,'Por responsabilidade e período',NULL,2,NULL,NULL,''),(9,'Algodão',NULL,NULL,NULL,NULL,''),(10,'Relatórios',NULL,9,NULL,NULL,''),(11,'Sair',NULL,NULL,NULL,NULL,'sair.aspx');

CRIAÇÃO DO MENU

Utilizarei o componente Menu, que se encontra na aba Navigation da ToolBox. Vamos deixar o ID dele como Menu1.

Repare que o menu possui uma propriedade chamada MaximumDynamicDisplayLevels. Essa propriedade diz quantos nodes filhos o menu poderá ter.

//Objeto do tipo MenuItem (node de um menu)
MenuItem vMenu;
//Objeto array, do tipo MenuItem
MenuItem[] vMenu2 = new MenuItem[5];
int vCont = 0;

Primeriamente vamos gerar um procedimento que nos traz todos os menus pais, ou seja, que contenha o valor pai igual a vazio.

private void GerarMenu()
{
using (kerpModel.kerpModelEntities dm = new kerpModel.kerpModelEntities())
{
//SELECIONA OS DADOS DO MENU POR MEIO DO LINQ
var consMenu = (from m in dm.menus_web
where m.pai == null
select m);

//CORRE OS REGISTROS DO MENU
foreach(kerpModel.menus_web row in consMenu)
{
//Cria um novo node para o menu
vMenu = new MenuItem(row.nome.ToString());

vMenu.NavigateUrl = row.url.ToString();
Menu1.Items.Add(vMenu);
//Chama o procedimento que verifica se o menu possui filhos, passando o id do menu como parametro
this.GerarMenuFilho(int.Parse(row.idmenus.ToString()));
}
}
}

//Função que adiciona os filhos do item de menu
private void GerarMenuFilho(int idpai)
{
using (kerpModel.kerpModelEntities dm = new kerpModel.kerpModelEntities())
{
//SELECIONA OS DADOS DO MENU, QUE TEVE O ID PASSADO POR PARAMETRO
var consMenu = (from m in dm.menus_web
where m.pai == idpai
select m);

//CORRE OS REGISTROS DO MENU
foreach (kerpModel.menus_web row in consMenu)
{
//Chama a função que verifica se o menu atual também possui filhos
if (totalFilhos(int.Parse(row.idmenus.ToString())) > 0)
{
//Adiciona o menu ao array de menus, para que ele possa ser recuperado posteriormente
vMenu2[vCont] = vMenu;
//Variavel que conta quantos nodes principais o menu possui
vCont++;
//Adiciona o filho atual ao menu e ao mesmo tempo diz que agora o novo menu é ele mesmo
vMenu.ChildItems.Add(vMenu = new MenuItem(row.nome.ToString(), null, null, row.url.ToString(), null));
//Chama novamente a função, e adiciona seus filhos
this.GerarMenuFilho(int.Parse(row.idmenus.ToString()));
}
else
{
//Caso o item não possua filos, apenas o adiciona como um novo node
vMenu.ChildItems.Add(new MenuItem(row.nome.ToString(), null, null, "~"+row.url.ToString(), null));
}
}

//Aqui esta o segredinho. Foi para isso que eu criei o contador. Cada vez que o node e seus filhos sao criados, ainda é necessário criar os outros nodes faltantes, mas esses nodes precisam ser inseridos em seus pais. Cada vez que o cursor passa por aqui, dizemos que o menu atual é o menu pai anterior. Dificil de entender, né? para entender, debuge a aplicação.
vCont--;
if(vCont >= 0)
vMenu = vMenu2[vCont];

}
}

//Função que verifica se o menu possui filhos
private int totalFilhos(int idmenu)
{
int count = 0;
using (kerpModel.kerpModelEntities dm = new kerpModel.kerpModelEntities())
{
count = (from m in dm.menus_web
where m.pai == idmenu
select m).Count();
}
return count;

}

//Para finalizar, no nosso Page_Load nós chamamos o procedimento
protected void Page_Load(object sender, EventArgs e)
{
if (!Page.IsPostBack)
{
this.GerarMenu();
}
}

Pessoal, peço desculpas por estar ausente do blog. Esta muito dificil de acessá-lo. Mas assim que for possível, responderei a seus comentários. Obrigado.

Dump com FirePHP/FireBUG e Zend Framework

2009-08-20T05:11:00.000-07:00

Esses dias que eu estava me atualizando na internet, me deparei com um artigo falando sobre o FirePHP, que até aquele momento me era desconhecido.
Para todos os desenvolvedores que trabalham com Javascript em especialmente Ajax, o Firebug do Firefox é uma ferramenta "ferrada" para o debug e dump das informações que foram criadas via Javascript.

E que tal termos algo parecido só que para o PHP? Seria legal, não é verdade? É exatamente isso que o FirePHP faz.

Eu não falarei exatamente sobre o FirePHP, mas falarei sim sobre como utilizálo no Zend Framework por meio das classes já existentes no nosso maravilhoso framework que é uma mão na roda!

Quem quiser saber mais sobre o FirePHP, aconselho ler o mesmo artigo que li no imasters:
http://imasters.uol.com.br/artigo/13959/php/_como_debugar_aplicacoes_ajaxphp_com_firephp/

E também indico o manual do Zend que fala sobre o FirePHP:
http://framework.zend.com/manual/en/zend.log.writers.html#zend.log.writers.firebug

É por isso que gosto do Zend, pela sua vasta documentação :)

CRIANDO AS INSTÂNCIAS NECESSÁRIAS

O FirePHP funciona como um log. Do mesmo jeito que criamos log por meio da classe Zend_Log. É o Zend_Log quem delega o log atual registrado para os "log writers" e o Zend_Log_Writer_FireBug é um componente writer que envia o log para o FirePHP.

Em seu bootstrap, antes de você dar um dispatcher em seu controller, insira as linhas abaixo:

$logger = new Zend_Log();
$writer = new Zend_Log_Writer_Firebug();

//DIZ AO LOG QUEM É O WRITER, OU SEJA, QUEM IRÁ GRAVAR OS LOGS
$logger->addWriter($writer);

Para utilizar seu log em todo o seu projeto, você pode manter uma instancia do seu Logger para toda a aplicação e usar em suas views, controllers e models:
Zend_Registry::set('logger',$logger);

Utilizando o Logger:
$logger = Zend_Registry::get('logger');
$logger->log('Mensagem de log para o FirePHP!', Zend_Log::INFO);

Repare na constante INFO da classe Zend_Log.
Toda vez que chamarmos um Log, no FireBug do firefox será mostrada um ícone de informação com a mensagem do primeiro parametro.
Você também pode utilizar as constantes WARN ou ALERT como referência de log ou prioridade das mensagens.

Um exemplo disso, é utilizarmos esse log em blocos Try catch.
Exemplo:
try {
// Caso tenha ocorrido algum erro
} catch(Exception $e) {
Zend_Registry::get('logger')->err($e)
}

ou também de outra forma:

try {
// Caso tenha ocorrido algum erro
} catch(Exception $e) {
$logger->log('Erro em bloco try catch ao tentar inserir dados na Base: '.$e, Zend_Log::ALERT);
}

DUMP DE INFORMAÇÕES PROCESSADAS NA BASE DE DADOS

Seria legal nós termos um dump de todas as operações que são feitas em nossa base de dados, não acha?
Mas seria um saco, cansativo e de grande manutenabilidade termos que chamar nosso log toda hora.

Mas..olha só como o Zend é camarada...rs
No seu bootstrap mesmo, insira as seguintes linhas de código depois de ter setado o seu Adapter e antes do dispatcher do seu controller:

$profiler = new Zend_Db_Profiler_Firebug('All DB Queries');
$profiler->setEnabled(true);
//$db SERIA O SEU ADAPTER CONFIGURADO PARA ACESSAR A BASE DE DADOS.
$db->setProfiler($profiler);

Com esse código, toda vez que for enviada uma instrução SQL para nossa base, o FirePHP nos mostrará os dados enviados para o servidor, parecido com a imagem abaixo:

DICAS

Em meu firebug, eu tive que habilitar a opção Rede (Última aba da janela do FireBug).
Não esqueça de habilitar o seu FirePHP.
Insira seu site na lista de (allowed Sites) do FirePHP
Seria chato se os usuários que acessam o site visualizassem todos os dumps que usamos para nos basear em tempo de produção, não é verdade?
Para não enviarmos mais o dump, não é necessário tirar todas as linhas de código dos nossos objetos. Basta fazer o seguinte:

$writer->setEnabled(false);
$profiler->setEnabled(false);

Espero que tenham gostado da matéria e por favor, enviem sugestões, criticas ou elogios.
Abraços.

Upload de arquivos com Zend Framework - Parte 2

2009-08-03T13:18:00.000-07:00

Pessoal,
Criei uma classe que utiliza o Zend_File para o upload de arquivos.
Como sempre tive problemas ao postar códigos nesse blog, tive novamente que dar um printscreen da tela...

Eu criei uma classe abstrata chamada Utils, onde implemento todos os métodos que utilizo frequentemente em meu projeto.
Os métodos que crio nessa classe são estáticos, pq não precisarei criar uma estância deles cada vez que eu for utilizá-los.
Eu criei um diretório chamado "classes" dentro de application. Basta adicionar o include_path desse diretório em seu bootstrap.

Essa classe faz upload de todos os campos do tipo file que tiver na página.
@UploadDir: Diretório para onde será encaminhado o arquivo
@renameFile: Caso deseja renomear os arquivos para que não haja overwrite, deixe este parâmetro como true. Caso contrário, o arquivo sofrerá overwrite.
@allowedFiles: Caso filtrar os tipos de arquivos à enviar, crie um array contendo os formatos permitidos.

Reparem que eu utilizei um método da própria classe, que serve para identificar a extensão do arquivo.
Segue abaixo o código desse método estático:

static function findexts($filename)
{
$filename = strtolower($filename) ;

$exts = split("[/\\.]", $filename) ;

$n = count($exts)-1;

$exts = $exts[$n];

return $exts;
}

Para chamar a classe em Seus controllers:

Caso você queira permitir todos os tipos de arquivos, basta não passar o 3º parâmetro para a classe.

Caso o nome dos arquivos sejam renomeados, o nome inicial do arquivo será o nome do input, por exemplo: foto_perfil....jpg
Para verificar se houve erro no envio de algum arquivo, você pode fazer o seguinte tratamento:

//LOOP EM CIMA DOS ARQUIVOS ENVIADOS
foreach($filesUploaded as $fileUploaded)
{
//HOUVE ERRO NO ARQUIVO?
if(!strpos($fileUploaded, 'Erro:')) {...}
}

Qualquer dúvida, fiquem avontade de incluir comentários.

Instead of reinventing the wheel, I use Frameworks. ZEND FRAMEWORK! ;)

FUNÇÃO AJAX C/ JQUERY

2009-07-17T08:12:00.000-07:00

E ai pessoal,
Tenho demorado para postar pq estou muuuuuito sem tempo :(

Está mais correria do que nunca, mas a vida honesta é dura, faz parte.

Eu comecei outro projeto nesse mes.
É um site de relacionamentos e terá muitas coisas em Ajax.
Eu pensei então em escrever uma função que me auxiliasse toda vez que fosse preciso carregar meus dados sem dar um Refresh na página inteira.
Essa função que eu desenvolvi é bem simples de utilizar.
Eu testei várias vezes e até agora tem suprido minhas necessidades.

As funções Javascript.

Infelizmente, o blog não me permite inserir códigos javascript. Então dei um printscreen da minha tela..e estou passando para vocês.

A PRIMERA FUNÇÃO QUE CHAMEI DE isArray, É RESPONSÁVEL POR VERIFICAR SE O OBJETO PASSADO É UM ARRAY

A SEGUNDA FUNÇÃO É A ALMA DO NEGÓCIO, A FUNÇÃO callAjax.
Segue abaixo alguns detalhes sobre os parâmetros
@CAMPO = NOME DO CONTAINER(DIV) QUE VOCÊ DESEJA ATUALIZAR
@PARAMETRO = PARAMETROS QUE DESEJA PASSAR PARA A URL (PODE SER UM ARRAY)
@CAMPOVALOR = CAMPOS QUE POSSUEM OS VALORES REFERENTES AOS PARAMETROS (A SEQUENCIA DOS VALORES AQUI DEVEM ESTAR NA MESMA ORDEM QUE VOCÊ PASSOU O PARAMETRO. TAMBÉM PODE SER UM ARRAY)
@METODO = MÉTODO GET OU POST
@VARURL = URL QUE VOCÊ DESEJA CHAMAR

Módo de utilização

Passando parâmetros e valores simples (não Array)

//TODA VEZ QUE UM COMPONENTE COM O ID "button1" FOR CLICADO, REQUISITA A FUNÇÃO JS.
$("#button1").click(function(){
callAjax('p_email', 'email', 'email', 'GET', 'verificaemail.php');
});

Passando parâmetros e valores compostos (Array)

//TODA VEZ QUE UM COMPONENTE COM O ID "button1" FOR CLICADO, REQUISITA A FUNÇÃO JS.
//PASSANDO 3 PARAMETROS PARA A PAGINA verificaemail.php
parametros = new Array(3);
parametros[0] = 'email';
parametros[1] = 'idcliente';
parametros[2] = 'idade';

//PASSANDO 3 VALORES PARA A PAGINA verificaemail.php.
//AQUI OS VALORES (id dos campos input por exemplo) DEVEM ESTAR NA MESMA SEQUENCIA DOS PARÂMETROS
valores = new Array(3);
valores[0] = 'campo_email';
valores[1] = 'campo_idcliente';
valores[2] = 'campo_idade';

O que seria enviado para a pagina verificaemail.php, seria o seguinte Querystring:
?email=valordocampo&idcliente=valordocampo&idade=valordocampo

Para chamar a função, é a mesma coisa. Idêntica como chamamos pelo primeiro exemplo:
$("#button1").click(function(){
callAjax('p_email', parametros, valores, 'GET', 'verificaemail.php');
});

A função callAjax você pode colocar dentro de um arquivo .js por exemplo, incluindo junto com sua biblioteca de scripts.

Para chamar a função como no exemplo acima, vc deve chamar dentro do ready do Jquery. Ficaria assim:

$(document).ready(function() {

$("#button1").click(function(){
callAjax('p_email', parametros, valores, 'GET', 'verificaemail.php');
});

});

Blz pessoal?
Desculpem a demora para postar.
No outro post, espero postar algumas coisas a mais sobre o Zend Framework.
Abraços...t+

Carrinho de compras com Zend Framework

2009-06-23T07:31:00.001-07:00

E ai pessoal,
Desculpem minha ausência, tenho me ocupado muito com alguns projetos que tenho feito por fora.

Tenho mexido bastante com o Zend Framework e só tenho uma coisa a dizer: Estou tendo bem menos dor de cabeça do que quando programava com PHP puro. Isso sem falar da organização do projeto em MVC, os benefícios do Zend_Layout, etc.

Em um dos projetos, tive que construir um carrinho de compras utilizando Session.
Eu li um livro sobre Zend Framework, que ensina a criar um carrinho de compras com o Zend_Registry.
O problema do Zend_Registry é que ele não utiliza sessões, mas sim variáveis globais.

Eu não me basiei nesse livro, então caso saiba de qual livro estou me referindo, esqueça o carrinho que você aprendeu lá caso queira fazer um carrinho baseado em Session.

Para a criação de Sessions no Zend, nós utilizamos a classe Zend_Session_Namespace();

Como essa é uma classe singleton, caso já tenha sido criada uma instância da mesma, apenas é retornado a instância já criada. Você pode tentar criá-la várias vezes, mas ela apenas retornará a instância que já foi criada, até que ela seja liberada da memória.
Ou seja, o Zend simplesmente ignora a criação do novo objeto vazio e continua a session com os mesmos valores já gravados.

Eu ajustei uma classe que peguei em um forum sobre ZF. Ela "manuseia" uma session e achei que valeria a pena incluí-la no meu projeto.

Como tive muito problemas ao postar o código nesse blog, eu printei as telas.
Pois o blog não estava permitindo que eu colocasse os conteudos

Segue abaixo a classe. Você pode ajustá-la conforme suas necessidades. Para nosso carrinho, creio que seja o suficiente da forma como a deixei.

CLASSE "CONTROLADORA" DAS NOSSAS SESSIONS

Eu já dei o name do meu namespace de carrinho, mas você pode colocar no construtor da classe um parâmetro que seria o nome do seu namespace. Caso você não de um nome para o namespace, ele adota o valor Default.
Ficaria assim: Zend_Session_Namespace('Default');

ACTION DE INCLUSÃO DE ITEM NO CARRINHO

LISTANDO OS ITENS NO CARRINHO

Para listar os itens no carrinho é simples, basta fazer um foreach da variavel carrinho, que atribuimos o valor no nosso controller: "$this->view->carrinho = $carrinho;"

$carrinho = $this->carrinho;
$chave = @array_keys($carrinho);
for($ i = 0; $i < count ($chave);$ i ++){
$indice = $chave[$i];

//CRIANDO O OBJETO DA NOSSA CLASSE DE PERSISTENCIA COM A BASE DE DADOS, DA TABELA PRODUTOS.
$produtos = new Produtos();
$where = "idproduto = ".$carrinho[$indice]['idproduto'];
//PUXANDO OS DADOS DO PRODUTO
$produto = $produtos->fetchRow($where);
}

Eu estou criando um objeto da nossa classe de persistencia (model), para poder visualizar o nome do produto, qtde em estoque, entre outras coisas.
Você pode usar seu próprio modelo.
Caso queira apenas mostrar o código do produto e quantidade escolhida pelo usuário, você poderia implementar o código abaixo:

$carrinho = $this->carrinho;
$chave = @array_keys($carrinho);

for($ i = 0;$ i< sizeof ($chave); $ i ++){
//GUARDANDO O INDICE DO ARRAY
$indice = $chave[$i];
//MOSTRANDO OS DADOS INCLUIDOS NO CARRINHO
echo $carrinho[$indice]['idproduto']." - ".$carrinho[$indice]['qtde'];

}

ATUALIZANDO E EXCLUINDO ITENS DO CARRINHO
Para atualizar ou excluir itens de um carrinho, eu coloquei um checkbox em nosso carrinho de compras, contendo o indice do mesmo ($indice), então eu aplico um submit do formulário contendo os itens incluidos.
O formulário nos enviará para uma action chamada udcarrinhoAction().

Segue abaixo minha action udcarrinho:

Caso vocês queiram apagar todos os itens do carrinho, basta usar o método emptySess da nossa classe.

Caso tenham dúvidas em como montar o formulário do carrinho, entrem em contato comigo. Farei de tudo para ajudar.

The Best regards for you guys!! ;)

Prova da IBM

2009-05-20T07:07:00.000-07:00

Para aqueles que estão terminando a faculdade e querem estagiar na IBM, é necessário fazer uma prova que é válida por 1 ano.
A prova não é nenhum bicho de 7 cabeças, mas o que a torna difícil é o tempo para finalização das questões.

A prova é dividida em 3 módulos: Exercícios de Lógica, Inglês e Redação.

TESTE DE LÓGICA

Os problemas de lógica são divididos em 3 partes onde a primeira você possui 25 minutos, a segunda 15 minutos e a terceira 20 minutos. A cada 4 questões erradas 1 certa é anulada.

Todas as questões possuem 5 alternativas, sendo que na primeira parte, a alternativa (E) diz que todas as alternativas anteriores estão incorretas.
As questões da primeira parte são parecidas com as de baixo, mas claro que eu não me lembro exatamente como foram as questões, mas são bem parecidas:

Ex 1.: Antônio possui 60 reais e deseja comprar caixas de bombom para a namorada. Cada caixa custa 12,25. Quantas caixas Antônio poderá comprar?

Ex 2: Um ônibus possui 15 assentos de cada lado, porém 2 assentos foi retirado do lado direito para dar espaço à deficientes físicos.
No fundo, o ônibus possui 5 assentos. Quantos assentos tem no total?

A segunda parte é mais fácil. Você tem 5 códigos onde cada um diz respeito a uma categoria. Exemplo:

Serviços de almoxarifado e organização dos eventos da Empresa - Cód A

Instalações Elétricas e segurança - Cód B

Serviços e materiais de Limpeza - Cód C

Manutenção de equipamentos eletrônicos - Cód D

Em cada pergunta você deve responder à que categoria a pergunta melhor se adequa.
Exemplo:

1 - Repor produtos de limpeza
2 - Arrumar impressora com defeito
3 - Repor folhas para o almoxarifado
4 - Consertar vazamento no banheiro do 13º andar.
5 - Comprar canetas e folhas para impressão.

E por aí vai. Essa é a parte mais fácill da prova de lógica.

A terceira parte é um pouco mais chata, pelo menos na minha opinião.
É dada uma tabela com horários de saída e chegada de aviões de 4 aeroportos e em cima disso, é dada algumas perguntas referente aos horarios.
Sinceramente eu não me lembro de uma pergunta das questões dessa última parte, portanto eu ficarei devendo.

TESTE DE INGLÊS

A prova de inglês é super fácil e tem o prazo de 15 minutos. Creio que com um nível intermediário você conseguirá gabaritar a prova facilmente.
As questões de inglês possuem apenas 3 alternativas, o que torna ainda mais fácil a prova, porém neste teste a cada 1 erro, 1 questão certa é anulada. Portanto responda apenas as questões que você tenha certeza.

Tipos de questão:

1 - Have you ever _____ in Los Angeles?
a) stay b) been c) be

2 - Did you ______ Maurício yesterday?
a) see b) saw c) look

REDAÇÃO

Na redação você escolhe um dos 3 assuntos listados e possui prazo de 20 minutos:
1 - Team working (trabalho em equipe)
2 - Foco no cliente
3 - Alguma coisa relacionada a novas idéias no trabalho, algo do tipo: Boas idéias, novas soluções, etc.

Não tem como eu lembrar tudo, mas creio que isso já ajuda à quem quer fazer a prova e deseja se preparar.

ATUALIZAÇÃO - 09/06/2009

Pessoal, estou atualizando o blog para lhes informar que passei na prova.
Depois da prova, me chamaram para uma dinâmica em grupo.

Hasta Luego y buena prueba.

Agrupando Erros do Zend_Form em uma mesma linha

2009-04-29T13:32:00.000-07:00

Toda vez que utilizamos o método isValid para validar nossos campos e emitir os erros no formulário, por padrão o ZF mostra os erros em baixo de cada Elemento, que é onde fica o decorate "Errors". E talvez gostaríamos de mostrar ao usuário os erros de uma vez só, jogando tudo em apenas uma linha.

Para isso, nós utilizaremos os decorators da classe Zend_Form.

Nosso resultado final será como a figura abaixo:

Para o nosso exemplo, a seguinte classe esta montada:

class MeuForm extends Zend_Form
{

public function __construct($options = null)
{

parent::__construct($options);

$this->setMethod(’post’);

$username=new Zend_Form_Element_Text(’login’, array(

‘required’ => true,

‘label’ => ‘Login:’,

‘filters’ => array(’StringTrim’, ‘StringToLower’),

‘validators’ => array(

‘Alnum’,

array(’Regex’,false,array(’/^[a-z][a-z0-9]{2,}$/’))

)
));

$username->removeDecorator(’Errors’);

$password=new Zend_Form_Element_Password(senha’, array(

‘required’ => true,

‘label’ => ‘Senha:’,

‘filters’ => array(’StringTrim’),

‘validators’ => array(

‘NotEmpty’,

array(’StringLength’, false, array(6))

)
));

$password->removeDecorator(’Errors’);

$save=new Zend_Form_Element_Submit(’save’, array(

‘label’ => ’Salvar’,

‘required’=> false,

‘ignore’ => true,
));

$this->addElements(array($username, $password, $save));

$this->setDecorators(array(

‘FormElements’,

‘FormErrors’,

‘Form’

));

}

}

As linhas principais da nossa mudança são as seguintes:

$username->removeDecorator(’Errors’);
$password->removeDecorator(’Errors’);

Se você não utilizar o parametro removeDecorator, com certeza os erros apareceram em baixo de cada elemento de seu formulário.
Para os erros aparecerem agrupados, o seguinte decorator foi criado:
$this->setDecorators(array(

‘FormElements’,

‘FormErrors’,

‘Form’

));

quer incrementar mais ainda?
Então no lugar de criar o decorator acima, crie o seguinte decorator:

$this->setDecorators(array(

‘FormElements’,

new Zend_Form_Decorator_FormErrors(array(

‘ignoreSubForms’=>true,

‘markupElementLabelStart’=> ‘<b>’,

‘markupElementLabelEnd’=> ‘</b>’,

‘markupListStart’=>’<div>’

‘markupListEnd’ => ‘</div>’,

‘markupListItemStart’=>’<span>’,

‘markupListItemEnd’=>’</span>’,

)),

‘Form’

));

O código acima irá colocar os "Índices" dos erros em um div e em negrito e os erros dos validators (StringLength, Alnum, NotEmpty) em uma tag span.

Tenho estudado sobre como utilizar o Dojo ToolKit no ZF. Os formulários ficam show de bola!
Espero postar sobre o Dojo ToolKit no ZF ;)

Abraços Pessoal.

Integrando Smarty com Zend Framework

2009-04-24T03:59:00.000-07:00

E ai pessoal...
Dando continuidade ao aprendizado do Zend Framework, escreverei como integrar o Zend framework com o Smarty Template Engine.

Com o smarty nós conseguimos separar nossas views(Front controllers) em templates. Apesar do Zend adotar o padrão MVC (Movel View Controller), nós temos algumas limitações visuais para organizar nosso código de forma que um webdesigner reconheça ou tenha uma grande noção do que está acontecendo em cada bloco de código de nossos arquivos de layout do sistema e, pelos seguidores do Smarty, não há outro template engine melhor que ele.

Um exemplo:
Toda vez que formos mostrar valores, fazer loops e decisões em nossas páginas e juntarmos tudo ao código HTML, nós temos um visual poluido de nossos arquivos deixando a manutenção mais exaustiva, sem contar que em alguns editores usados pelos webdesigners como o Dreamweaver, a tentativa de interpretação do código do dreamweaver muitas vezes desestrutura o layout do nosso site em fase de desenvolvimento.
Uma diferença de um código sem e com Smarty.
Sem Smarty: < ?php echo $nomedavariavel ? >
Com Smarty: {$nomedavariavel}

Eu li alguns artigos explicando como integrar o Smarty com o Zend...mas não gostei. Vou postar aqui da forma que eu achei menos confusa e mais fácil para manutenção:

INSTALANDO, INSTANCIANDO E CONFIGURANDO O SMARTY

Faça o download do smarty pelo link: http://www.smarty.net/download.php
Crie um diretório chamado Smarty dentro do diretório Library da sua aplicação ZF.
Copie o conteúdo da pasta Lib do arquivo de download(Smarty) para o novo diretório criado.

Dentro do diretório application do ZF, crie os seguintes diretórios: templates, templates_c e templates_cache.

include "Zend/Loader.php";
// Instancia as classes necessárias automaticamente (inclusive a do Smarty)
Zend_Loader::registerAutoload();

//Cria objeto do smarty e configura suas propriedades
$smarty = new Smarty();
$smarty->debugging = false;
$smarty->force_compile = true;
$smarty->caching = true;
$smarty->compile_check = true;
$smarty->cache_lifetime = -1;
$marty->template_dir = './application/templates/';
$smarty->compile_dir = './application/templates_c';
$smarty->cache_dir = './application/templates_cache';
//Registra o objeto criado. É por esse registro que iremos referenciar o objeto smarty em nossos controllers
Zend_Registry::set('smarty', $smarty);

Em seu controller, crie uma variável privada chamada $smarty:
class MeuController extends Zend_Controller_Action
{
private $smarty;
...
}

Chame o smarty da seguinte forma na function init() do seu controller:
public function init(){
$this->smarty = Zend_Registry::get('smarty');
}

E dentro de suas actions, passe os valores necessários para o smarty, Ex.:
public function indexAction()
{
//Cria uma variável chamada Hello com o valor Hello Word!
$this->smarty->assign('Hello', 'Hello Word!');
//Diz ao smarty qual é seu arquivo de template para ser renderizado
$this->smarty->display('arquivo_template.tpl');
}

Não esqueça de criar seu arquivo de template(dados html) dentro do diretório templates que criamos.
Caso esteja trabalhando com módulos no Zend, vc também pode fazer isso sem problemas que funciona da mesma forma.

PLUG-IN DO SMARTY PARA ECLIPSE

Como eu uso o Eclipse, existe um Suporte do Smarty para o eclipse PDT.
Vocês podem baixar nesse endereço: http://code.google.com/p/smartypdt/
Basta descompactar o arquivo no seu diretório do eclipse.
Ele é bom para verificar erros de sintaxe do Smarty e além disso, caso não tenhamos esse plugin, o eclipse fica mostrando aqueles warnings como se fossem erros de HTML.

Bom pessoal, é isso!
Hasta luego!!
;)

Módulos no Zend Framework

2009-04-22T13:08:00.001-07:00

E ai pessoal,
Há um tempo atrás eu passei um sufoco ao tentar criar a separação dos meus controllers e diretórios por módulos. Nas minhas pesquisas para resolver meu problema, verifiquei que há muitas pessoas encontrando esta dificuldade e sem soluções.
Vamos imaginar que você possui um site que terá a área default(front com os usuários) e a parte de administração - admin(front dos administradores do site). É dessa forma que veremos como criar esses módulos.
Eu fiz o teste do exemplo utilizando o XamppLite 1.7.0 e o Appserv 2.5.10.
Obs.: Caso esteja tendo problemas com o .htaccess, leia mais no final do post (Dicas).

Eu cheguei a fazer testes com o Application server, mas deu um problema com relação a segurança e redirecionamentos do .htaccess. Estou entrando em contato pelo site do application server para poder solucionar o problema, mas pelo xampplite deu tudo certo.

ESTRUTURA DE DIRETÓRIOS

Deve existir várias formas de separar os módulos. Postarei a forma que obtive sucesso após bater a cabeça.
A estrutura do nosso diretório ficará como a figura abaixo:

Note que dentro de application eu criei um diretório chamado admin e outro chamado default(marquei de vermelho), que serão nossos módulos e conterão seus próprios controllers, models e scripts.

Para cada área da administração eu criei um controller, onde vc pode inserir as Actions de add, edit, etc...Assim como os arquivos phtml.
Os nomes dos arquivos phtml precisam ser iguais ao de suas Actions. Por exemplo, dentro do Controller NoticiasController, terei as seguintes actions:
public function addAction(){...}
public function editAction(){...}
e o nome de seus templates: add.phtml e edit.phtml

É dessa forma que o Zend trabalha. Caso tenha alguma outra forma que você saiba e tenha se sentido incomodado com minha observação, pode postar um comentário que ficarei feliz de saber outra forma. :)

CONTROLLERS

Como nós separamos nosso exemplo em módulos, devemos dizer ao index.php onde ficarão esses módulos.

No seu index.php, adicione a seguinte linha:
//Cria a instrancia do front_controller
$controller = Zend_Controller_Front::getInstance();

//Indica o topo do nosso diretório. por exemplo, caso o seu endereço fique: http://localhost/sistemas/Exemplo, o seu setBaseUrl deverá ficar com o valor '/sistemas/Exemplo'. No meu caso, estarei acessando http://localhost/ex_modulo
$controller->setBaseUrl('/Ex_modulo');

// mostra os erros em modo de execução
$controller->throwExceptions(true);

//Diz onde está os controllers do nosso módulo default
$controller->setControllerDirectory('./application/default/controllers');

//Aqui nós dizemos ao ZF que existe um módulo chamado admin e que seus controllers estão no diretório passado por parâmetro.
$controller->addControllerDirectory('./application/admin/controllers', 'admin');

Note que nos diretórios de controllers eu já criei os controllers para cada área de nossa administração: IndexControllers.php, NoticiasController.php e BlogsController.php .
Quando criamos nosso projeto sem módulos, o nome da classe dos módulos no nosso caso ficaria +/- assim:

public class NoticiasController extends Zend_Controller_Action(){...}
Se você tentar executar seu projeto o Zend reclamará que ele não conseguiu achar os controllers requisitados.
Como separamos nosso projeto em módulos, as nossas classes deverão conter o nome do nosso Módulo (com a primeira letra em maiúsculo) + underline"_" + NomedomoduoloController
Ficou confuso? bom, o resultado final ficaria assim:
public class Admin_IndexController extends Zend_Controller_Action(){...}
public class Admin_NoticiasController extends Zend_Controller_Action(){...}
public class Admin_BlogsController extends Zend_Controller_Action(){...}

DICAS

1 - No seu index.php indique seus include paths do seguinte modo:
setlocale(LC_ALL, 'BRA');
date_default_timezone_set('America/Sao_Paulo');
set_include_path('.' . PATH_SEPARATOR . '..' . PATH_SEPARATOR . './library'
. PATH_SEPARATOR .'./application/default/models/'
. PATH_SEPARATOR .'./application/admin/models/'
. PATH_SEPARATOR
. get_include_path());

E para facilitar nossa vida, você pode utilizar a o autoload do Zend:

include "Zend/Loader.php";
Zend_Loader::registerAutoload();

2 - Inclua o arquivo .htaccess no diretorio raiz do seu projeto que no nosso caso é o Ex_modulo:
Arquivo .htaccess:
# Rewrite Engine config
RewriteEngine on
RewriteCond %{REQUEST_FILENAME} !-f
RewriteCond %{REQUEST_FILENAME} !-d
RewriteRule !\.(gif|jpg|png|css|js|controller.php|tpl|trans.php|service.php)$ index.php

# Coloca UTF-8 como charset padrao
AddDefaultCharset iso8859-1

# Desabilita a auto insercao de escapes (\)
php_flag magic_quotes_gpc off

# Desabilita as Variaveis globais
php_flag register_globals off

No appserv e wampp, é necessário descomentar a seguinte linha no httpd.conf do apache:
LoadModule rewrite_module modules/mod_rewrite.so
se não vc vai obter o erro: Internal Server error .
O Xampplite já vem com a linha descomentada por padrão (pelo menos nessa versão).

Veja que eu inseri o Charset Iso8859-1 no arquivo htacces.
Caso você não lembre que estamos setando essa configuração no .htaccess e você quer q seu projeto rode com o charset utf8 e não lembrar de mudar no seu .htaccess, você vai ter sérias dores de cabeça procurando onde esta seu problema de CharSet.

Bom pessoal, em caso de dúvidas ou caso queiram que eu envie os arquivos do Exemplo, comentem ou me enviem e-mail que enviarei os arquivos de exemplo.

Abraços e até +

Upload de arquivos com Zend Framework

2009-04-09T08:49:00.000-07:00

E ai pessoal,
Depois de um longo tempo sem escrever devido à mudança de emprego que tive, escreverei hoje sobre um framework que tenho estudado, o Zend Framework.

Lembra de quando você fazia o código para upload de arquivos do seu site e tinha uma "dor de cabeça" para obter tamanho de arquivo, verificar extensão, tamanho e etc?

O Zend já faz essa brincadeira para nós. É aquela velha história de não termos que reinventar a roda ou perder tempo criando nossas proprias classes e, além de criar, fazer testes exaustivos.
Então, pq não usar um framework de confiança e já testado?

Para este tutorial, você precisa ter uma base de como funciona o Zend Framework, como carregar(include) seus arquivos com o Zend_Loader por exemplo e saber como o Zend visualiza a estrutura de arquivos do seu projeto.
Para isso, eu indico um bom tutorial para iniciantes:

http://akrabat.com/wp-content/uploads/iniciando-com-zend-framework_130.pdf

AS CLASSES

O Zend possui uma classe Zend_File_Transfer que além de nos permitir trabalhar com uploads, também nos dá uma mão para a segurança em download de arquivos do nosso site.

Para conseguirmos indicar para onde irá nossos arquivos e checar algumas configurações, utilizaremos a classe Zend_File_Transfer _Adapter_Http

EXEMPLOS

Vamos criar um formulário que conterá um input file 'uploadedfile', que será responsável por carregar nosso arquivo (lembrando que precisamos ter o enctype preenchido sempre que formos mexer com arquivos em nossos formulários).



      Arquivo: 


  

Além de fazer o formulário de envio via HTML, podemos usar também a classe 
Zend_Form_Element_File (O que eu acho melhor, veja o pq).
Exemplo:

$element = new Zend_Form_Element_File('uploadedfile');
$element->setLabel('Enviar arquivo:')
       ->setDestination('c:\Temp');

// Quero que o usuário envia apenas 1 arquivo
$element->addValidator('Count', false, 1);
// com o tamanho limite de 100K
$element->addValidator('Size', false, 102400);
// apenasJPEG, PNG, e GIFs
$element->addValidator('Extension', false, 'jpg,png,gif');
$form->addElement($element, 'foo');

//Setando o destino de nossos arquivos de upload (Caso use o exemplo de formulário em html)

$adapter = new Zend_File_Transfer_Adapter_Http();

$adapter->setDestination('C:\temp');

if (!$adapter->receive()) {
$messages = $adapter->getMessages();
echo implode("\n", $messages);
}

//Carregando os arquivos para o servidor

$upload = new Zend_File_Transfer();

// Retorna as informações referente ao arquivo
$files = $upload->getFileInfo();

foreach ($files as $file => $info) {
//O usuário escolheu um arquivo ou o campo esta vazio?
if (!$upload->isUploaded($file)) {
   print "Pq vc nao escolheu o seu arquivo e deixou o campo vazio?";
   continue;
}

// Tudo ok?
if (!$upload->isValid($file)) {
   print "Desculpe, mas o arquivo $file não é o que queremos.";
   continue;
}
}

//Envia para o servidor
$upload->receive();

// Obtem o nome do arquivo
$names = $upload->getFileName('uploadedfile');

// Retorna o tamanho do arquivo
$size = $upload->getFileSize('uploadedfile');

// Retorna o mimetype do arquivo (Se é jpeg, gif, pdf, etc)
$type = $upload->getMimeType('uploadedfile');


Que ajuda o Zend nos fornece né?
Bom, é isso ai!
Para dúvidas, consultem o manual da Zend:

http://framework.zend.com/manual/en/zend.file.html

Trabalhando com arquivos XML no PHP

2009-03-04T06:34:00.001-08:00

E aew pessoal.
Esses dias eu criei uma aplicação simples em PHP para ser utilizada em Pocket PC, ou seja, páginas WAP só que envolvendo o PHP como linguagem para acessar os dados de uma base MySQL.
Mas como eu iria dizer ao aplicativo PHP que eu teria que acessar a base do servidor x, y ou z?
Foi ai que eu criei um arquivo XML não só contendo informação da base de dados, mas também outros dados que seriam interessantes quando não houvesse conexão com a rede wireless.

ARQUIVOS XML

O XML trabalha muito parecido com o html em relação a criação, abertura e fechamento de Tags. A diferença é que todo XML é case sensitive. Outra característica parecida com o HTML, é que você pode definir o character code, segundo o padrão W3C.

Um exemplo de um arquivo XML:

Este é um exemplo simples de um arquivo XML, contendo como nódulo pai e seus filhos chamados nome.

CARREGANDO ARQUIVOS XML

Para interpretar um documento XML, utilizamos a função simplexml_load_file(). Esta função realiza a leitura de um documento XML, criando um objeto do tipo SimpleXmlElement. Caso o documento esteja mal formatado, com algum erro de case sensitive ou até mesmo não seja um documento XML, essa função retornará FALSE.

Vamos criar um documento PHP que lerá o arquivo XML do exemplo acima. Vamos chamar o arquivo XML de estados.XML.

< ?
//interpreta o documento XML
$xml = simplexml_load_file('estados.XML');

var_dum($xml);

?>

Obs.: A função var_dump() analisa o objeto resultante.

O resultado será o seguinte:

Object(SimpleXMLElement)#1 (4) {
["nome"]=> string(9) "SAO PAULO"
["nome"]=> string(14) "RIO DE JANEIRO"
["nome"]=> string(17) "RIO GRANDE DO SUL"
["nome"]=> string(4) "ACRE"
}

Você pode pegar os dados de um arquivo xml pelos índices de seus nodes. Exemplo:

< ? //interpreta o documento XML
$xml = simplexml_load_file('estados.XML');

echo "Estado: ' . $xml->estados->nome[0] . "\n";
echo "Estado: ' . $xml->estados->nome[1]. "\n";
echo "Estado: ' . $xml->estados->nome[2]. "\n";
echo "Estado: ' . $xml->estados->nome[3];
?>

Você também pode mudar o valor de um node, como no exemplo a seguir:

< ? //interpreta o documento XML
$xml = simplexml_load_file('estados.XML');

//Modificando o valor do primeiro estado e mostrando a seguir
$xml->estados-nome[0] = "MATO GROSSO DO SUL";
echo "Estado: ' . $xml->estados-nome[0];

?>

Você pode utilizar a função foreach para mostrar todos os subelementos nome do documento:

< ? //interpreta o documento XML
$xml = simplexml_load_file('estados.XML');

foreach($xml->estados->nome as $estado){
echo $estado . "\n";
}
?>

FUNÇÕES NATIVAS DO PHP5 PARA MANUSEIO DE ARQUIVOS XML

Existem algumas funções que auxiliam no uso do XML, como incluir novo node, Listar atributos, visualizacão de nodes filhos, gravar dados em um novo arquivo XML, e muitos outros.

Para visualizar e aprender essas funções, nada melhor que o bom e velho PHP.net (www.php.net) que na minha opinião, é o melhor manual/tutorial para linguagem de programação feito até hoje.
Segue abaixo algumas funções que sempre costumo usar:

asXML() - Retorna uma string XML formatada representando o objeto, bem como seus subelementos.
addChild() - Adiciona um novo elemento ao node especificado.
file_put_contents - Sobrepõe um arquivo XML com novos dados.

Qualquer dúvida, é só potar um comentário...
Abraços.

Análise de Requisitos

2009-02-20T10:34:00.000-08:00

E aew pessoal,
Eu resolvi escrever esse artigo devido a uma visita em um suposto novo cliente, depois de ele ter solicitado a criação de um sistema.

Grande parte das vezes que visitamos um cliente que necessita de um software de gestão para a empresa, a primeira coisa que escutamos é: "Eu quero pouca coisa", "É coisa rápida e fácil".
Escutamos isso porquê o cliente tem pouca noção para análisar um problema, então é aí que entra o analista de sistemas para levantar os requisitos de sistema.

INTRODUÇÃO

A análise de requisitos é uma das sub-áreas da engenharia de software, que a função é detectar e documentar problemas do cenário atual para que eles sejam implementados com qualidade e com o mínimo de manutenção possível.

Creio que cerca de 80% dos erros nos projetos são causados por defeitos inseridos durante a análise e requisitos, causando um custo maior de manutencão e de testes do sistema e, o pior são os erros descobertos pelos usuários. Atire a primeira pedra o programador que nunca escutou: "Está dando problema!", "Esta com bug!", "Não funciona!". Além disso, a pior coisa para uma empresa é a perda de oportunidades e de confiança com os clientes.

Para terminar a introdução, segundo a wikipedia, Análise de requisitos é: " O estudo das características que o sistema deverá ter para atender às necessidades e expectativas do cliente.
Cada funcionalidade demandada pelo cliente deve ser analisada para verificar os possíveis impactos no desenvolvimento das demais funcionalidades do sistema, e verificado em conjunto com a equipe de desenvolvimento se as necessidades tecnológicas para a sua implementação estão disponíveis."

ESTUDO DE VIABILIDADE

Você esta prestes a criar a documentação necessária e a implementar o novo sistema. Mas será que é realmente viável a criação do mesmo?

Uma forma de avaliar a viabilidade de um projeto é obter, através de interação com as partes interessadas a resposta às seguintes questões:

Será que o sistema contribui para os objetivos da organização? (POR PARTE DO CLIENTE)
Dadas as restrições tecnológicas, organizacionais (econômicas, políticas, ambientais, recursos disponíveis) e temporais associadas ao projeto, será que o sistema pode ser implementado? (POR PARTE DOS ANALISTA/DESENVOLVEDOR)
Caso haja necessidade de integração entre diferentes sistemas, será que esta é possível? (POR PARTE DOS ANALISTA/DESENVOLVEDOR)

Creio que a primeira questão é a que mais "pega" em um estudo de viabilidade. Caso a resposta seja negativa, com certeza você terá dores de cabeça caso resolva tocar o projeto, pois o cliente nuncá ficará satisfeito mesmo se tudo estiver funcionando.

PROCESSOS DA ENGENHARIA DE REQUISITOS

Você deve estar se perguntando: "E quais são os passos para o levantamento de requisitos?"

Identificação do problema (Questionar os problemas e as necessidades que o cliente esta enfrentando).
Análise e negociação (Saber como funciona cada processo e a regra de negócio é fundamental!).
Especificação e documentação (Documentar por meios legíveis todos os processos que cada tarefa terá. É nesta fase que se dá a produção do documento de especificação de requisitos).
Validação (Rever os 3 passos anteriores e demonstrar que o documento de requisitos produzido corresponde ao sistema que o cliente pretende receber).

Esses passos podem ser feitos de vários meios: Entrevistas, Questionários, Workshops ou qualquer outro meio de obter o máximo de informações dos usuários.

Não podemos começar a implementar um sistema pelo que achamos que deve ser feito, por isso o usuário "trabalha", passando todas as informações necessárias.

Como criar a documentação jogando todos os requisitos funcionais e todos os processos que cada requisito terá, explicarei em outro Post...caso eu ainda esteja vivo com esse carnaval.

Abraços e até +.

InputQuery / Inputbox com campo estilo senha

2009-02-12T03:43:00.000-08:00

Hoje eu precisei pedir uma senha para o usuário do sistema, só que eu não queria criar um form só para solicitar a senha, dai eu resolvi usar InputQuery.
Só que havia um problema, o usuário não pode visualizar a senha enquanto digita. Então como fazer com que o InputQuery fique com o passwordChar igual a #?

O delphi não possui um componente/função que faça isso. Então eu fui ao bendito google e achei a função/procedimento que queria no Blog do Adriano Santos http://delphitodelphi.blogspot.com que além de escrever para o blog pessoal, cria alguns artigos para a revista ClubeDelphi da devMedia www.devmedia.com.br.

Para a função, você precisa adicionar na Uses, as seguintes unidades: Types, Controls e Windows.

Segue abaixo a função:

function InputQuerySenha(const ACaption, APrompt: string; var Value: string):
Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
function GetAveCharSize(Canvas: TCanvas): TPoint;
var
I: Integer;
Buffer: array[0..51] of Char;
begin
for I := 0 to 25 do
  Buffer[I] := Chr(I + Ord('A'));
for I := 0 to 25 do
  Buffer[I + 26] := Chr(I + Ord('a'));
GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
Result.X := Result.X div 52;
end;
procedure Saida(Sender: TObject);
begin
if TEdit(Sender).Text = '' then
begin
  ShowMessage('Vazio');
  TEdit(Sender).SetFocus;
end;
end;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
try
Canvas.Font := Font;
DialogUnits := GetAveCharSize(Canvas);
BorderStyle := bsDialog;
Caption := ACaption;
ClientWidth := MulDiv(180, DialogUnits.X, 4);
Position := poScreenCenter;
Prompt := TLabel.Create(Form);
with Prompt do
begin
  Parent := Form;
  Caption := APrompt;
  Left := MulDiv(8, DialogUnits.X, 4);
  Top := MulDiv(8, DialogUnits.Y, 8);
  Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  WordWrap := True;
end;
Edit := TEdit.Create(Form);
with Edit do
begin
  {Usando a fonte Wingdings e a letra "ele" em minúsculo, simula-se as "bolinhas" no lugar
       de asterísco da senha}
  Font.Name := 'Wingdings';
  PasswordChar := 'l';
  Parent := Form;
  Left := Prompt.Left;
  Top := Prompt.Top + Prompt.Height + 5;
  Width := MulDiv(164, DialogUnits.X, 4);
  MaxLength := 255;
  Text := Value;
  SelectAll;
end;
ButtonTop := Edit.Top + Edit.Height + 15;
ButtonWidth := MulDiv(50, DialogUnits.X, 4);
ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
with TButton.Create(Form) do
begin
  Parent := Form;
  Caption := 'Confirmar';
  ModalResult := mrOk;
  Default := True;
  SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
    ButtonHeight);
end;
with TButton.Create(Form) do
begin
  Parent := Form;
  Caption := 'Cancelar';
  ModalResult := mrCancel;
  Cancel := True;
  SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,
    ButtonWidth, ButtonHeight);
  Form.ClientHeight := Top + Height + 13;
end;
if ShowModal = mrOk then
begin
  Value := Edit.Text;
  Result := True;
end;
finally
Form.Free;
end;
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
var
Texto : string;
begin
InputQuerySenha('Caption', 'Caption', Texto);
Edit1.Text := Texto;
end;

Abraços pessoal. T+

Threads - Conceito e exemplo em Delphi

2009-01-22T13:58:00.000-08:00

Nesse post falarei a respeito de Threads no Delphi.
Threads são processos e segundo o dicionário, o verbo processar no termo computacional significa "tratar dados em computador a fim de obter informação sistematizada" ou "interpretar e executar instruções".
Toda vez que executamos um projeto no Delphi, o projeto aberto é uma thread na qual é o processo principal do seu sistema. Você pode estar pensando: "Mas para que eu preciso aprender sobre Threads?". Você já notou que toda vez que um trecho de código é executado no delphi, você só consegue mexer no seu sistema depois que tudo é executado. Não notou? Então faça o seguinte exemplo:

Crie um projeto VCL forms e arraste um button no seu formulário.
No Onclick de um botao, coloque o código abaixo, rode o programa e depois clique nele.
var
I: Integer;
begin
for I:=1 to 10000 do
begin

end;
end;

Notou que após que você clica no botao e enquanto o laço de repetição não foi finalizado, não é possível nem mover o seu formulário ou executar qualquer outra tarefa em seu aplicativo?
Isso acontece devido ao processo que esta rodando mas ainda não foi finalizado.
Mas e agora? Se eu quiser executar outra tarefa no meu aplicativo enquanto o laço de repetição ainda esta em loop?. É aqui que entra Threads de sistema!
Outro exemplo de Thread é o componente Timer do Delphi que enquanto você esta rodando seu aplicativo, você consegue fazer com que o timer atualize a hora em um label a cada segundo sem interferir nas outras execuções.

CRIANDO UMA CLASSE E TENDO COMO HERANÇA A CLASSE TTHREAD

Criaremos uma classe chamada TMinhaThread que extenderá a classe TThread que esta na unit Classes:

type
TMinhaThread = class(TThread)
private
procedure Execute; override;
end;

Na nossa classe criada, criamos uma procedure chamada Execute que deverá ser modificada(override/virtual) toda vez que herdamos a classe Tthread. Somos forçados a fazer isso pois a classe TThread possui o método Execute que é abstrato e segundo o conceito de Orienteção a objetos, toda classe que herda uma classe que possui métodos abstratos, deve implementar todos os métodos abstratos da mesma. Eu sei que você deve estar pensando: "E toda classe que possui métodos abstratos, deve ser abstrata.", mas orientação a objetos não é o foco do Post.

Pressione CTRL+SHIFT+C para o delphi criar a estrutura no método Execute.

procedure TMinhaThread.Execute;
var
I: Integer;
begin

try
for I:=0 to 10000 do
begin
Sleep(20);
end;
Except

end;
end;

Com a procedure já implementada, arraste outro button para o formulário e adicione o seguinte trecho de código:

var
//Cria a variavel minhaThread do tipo TMinhaThread
minhaThread: TMinhaThread;
begin
//Criação do objeto
minhaThread := TMinhaThread.Create(False);
minhaThread.FreeOnTerminate := true;
end;

O método create recebe um valor booleano que significa:
True - A Thread é iniciada porém ela é pausada ou seja, não executa o método Execute (imagine o componente Timer com a opção Enabled = false).
False - O método Execute é executado assim que a Thread é iniciada.

O método FreeOnTerminate, verifica se a Thread precisa ser liberada da memória assim que ela for finalizada. Com isso não precisamos dar um FreeAndNil.
Valor True para liberar da memória e False para permanecer armazenada.

Execute o botão e note que apesar do seu aplicativo estar em loop, você consegue movê-lo e até mesmo executar outras tarefas.

Outro exemplo onde podemos utilizar Threads é no download ou upload de múltiplos arquivos, pois com thread conseguimos fazer a transferência de vários arquivos ao mesmo tempo sem ser preciso esperarmos o término de cada um.

Todas as explicações que eu posto aqui no blog são de tarefas que pratico no dia-a-dia, mas caso algum leitor ache interessante eu postar algo de um determinado assunto, basta comentar em algum post ou me enviar um e-mail.

Blz pessoal?
See ya guys....

Votação de produtos com porcentagem e barra de progresso

2009-01-21T09:46:00.000-08:00

E ai pessoal, tudo tranquilo?
Depois de mais ou menos 1 mes de ferias do blog, voltei aqui para postar mais uma implementação q fiz em um dos meus trabalhos.

No momento eu estou fazendo um site em PHP, onde há produtos e cada produto possui uma enquete com 5 opções:
1 - Péssimo produto
2 - Razoável
3 - Bom
4 - Muito bom
5 - Excelente

Eu não explicarei exatamente como fazer a enquete, ou seja, como incluir uma nova enquete ou como fazer com que a página receba os votos do usuário. Irei apenas enfatizar como pegar o total de votação e mostrar a porcentagem de cada opção e além disso, como mostrar o total da votação em uma barra de progresso horizontal.

TABELAS UTILIZADAS

Segue abaixo como estao as minhas tabelas na base de dados:

USUARIOS
-------------------
idusuario INT AUTOINCREMENT NOT NULL
nome VARCHAR(30) NOT NULL

PRODUTOS
-------------------
idproduto INT AUTOINCREMENT NOT NULL
nome VARCHAR(30) NOT NULL

VOTACOES_PRODUTOS
--------------------
idusuario INT
idproduto INT
data_votacao DATETIME
declaracao TINYINT (Campo que determina a opção do voto)

Bom, agora com nossas tabelas, irei mostrar a logica de como fazer a porcentagem de votos para cada opção.

PORCENTAGEM DE VOTOS POR OPÇÃO VOTADA

Para calcular a porcentagem de votos que uma opção teve, devemos fazer o seguinte calculo:
porcentagem é = quantidade total . (quantidade de votos/100)

Quantidade total = Número de registros da tabela votacoes_produtos.
Ex.: (SELECT COUNT(*) as qtde_total FROM votacoes_produtos)

Quantidade de votos = Número de votos que o produto obteve na determinada opção.
Ex.: (SELECT COUNT(*) as qtde_votos FROM votacoes_produtos WHERE idproduto = 3 and declaracao = 4)

ficaria assim em PHP:
$porcentagem = $qtde_total*($qtde_votos/100);
echo $porcentagem;

RECEBENDO A PORCENTAGEM DE TODAS AS OPÇÕES

Imagine a primeira opção (Péssimo produto) como 0% e a quinta opção (Excelente) como 100% da nossa barra de progresso.
Precisamos criar uma forma de preencher nossa barra de progresso pelas votações recebidas, tendo votos da primeira e última opção ou não.

Para fazer isso, faremos uma regra de três.
Vamos supor que 5 pessoas votaram, seus votos foram: 5, 3, 5, 1 e 2
A soma de todas as votações(opções), seria 16...correto?
O máximo de número de votos seria 5x5 = 25(100%)
Ai você faz aquela pergunta para obter a porcentagem: se para 25 pontos eu tenho 100%, quantos % eu obtive com 16 pontos?
Fácil!
25 = 100%
16 = x

x = (100*16)/25
x = 64%

Como diz o professor de inglês Arthur que aparece no youtube: IT'S EASY!!!

CRIANDO A BARRA DE PROGRESSO

Nossa barra de progresso será feita no esquema de Estrelas.
Faça download das seguintes imagens:

Para criar a barra de progresso, utilizaremos HTML puro.
Crie uma tabela com 100 pixels de largura, 0 de borda, cellpadding e cellspacing.
Dentro dessa nova tabela criada, insira outra tabela com 100% de largura, 0 de borda, cellpadding e cellspacing.

Na coluna(TD) da primeira tabela criada, insira o seguinte código CSS: style="background-image:url(estrela02.gif); background-repeat:no-repeat;"
Na coluna(TD) da segunda tabela criada, insira o seguinte código CSS:
style="background-image:url(estrela01.gif); background-repeat:no-repeat"

No width da segunda tabela criada, coloque o seguinte valor: width="< ? echo $x; ? >"
onde $x é o novo valor q obtemos com a regra de 3 que criamos acima.
Note que conforme a porcentagem, as estrelas coloridas sobrepõe as estrelas apagadas.

É isso galera..
Em caso de dúvidas, envie comentário q tentarei responder o mais rápido possível.
Até lá.

Grid com AJAX, Paginação, Ordenação e Filtro no PHP

2008-12-16T11:13:00.000-08:00

Estou em meio ao desenvolvimento de um site em PHP e precisei de uma Grid que além de me auxiliar na paginação, busca e ordenação dos registros, também fosse em AJAX.
Depois de procurar no site PHP Classes (http://www.phpclasses.org/) achei uma Grid bem interessante chamada EyeDBGrid.

Para download da classe, acesse o link: http://www.phpclasses.org/browse/package/4951/download/zip.html

Com ela nós conseguimos recuperar dados de qualquer base Mysql.
Segue abaixo uma imagem de exemplo:

Após feito o download você terá as classes, imagens e folhas de estilo usadas pela Grid.
Rode o exemplo no seu servidor.
A classe utiliza as proprias funções "mysql_", sendo assim, não é preciso de ativação das classes PDO pelo servidor.

Eu não tenho muito o que falar sobre as configurações e adaptações da Grid para seu sistema, pois todos os exemplos e arquivos contendo as classes estão comentados.

Espero ter ajudado vocês.
Abraços.

Criando auditoria do seu aplicativo e melhorando o desempenho com Stored Procedures no MYSQL

2008-12-15T11:30:00.001-08:00

E ai pessoal,
Nesse post veremos como criar uma auditoria de todas as inclusões, alterações e exclusões que os usuários fazem em sua base de Dados MySQL. Faremos isso com a ajuda de Stored Procedures que, além de nos auxiliar na auditoria, já é comprovado que elas aumentam o desempenho quando vamos trabalhar com nossas tabelas de base de dados e além disso, não ficamos dependendo de qual linguagem será implementado o sistema desde que a linguagem consiga se comunicar com a base e chamar as SPs do servidor Mysql.

ENTENDENDO O USO DE STORED PROCEDURE

Primeiramente veremos como trabalha as Stored Procedures no Mysql.
A criação de SPs estão disponíveis apenas na versão 5.x do MySQL, o que foi um marco do SGBD OpenSource. Ainda faltam alguns recursos no MYSQL como vemos em outros SGBD, como a criação de Exceptions e outras funcionalidades.

Uma Stored Procedure trabalha parecido como Functions, Procedures e Métodos das linguagens de programação, onde você cria o nome e passa os paramêtros para a rotina.
Nós temos 3 tipos diferentes de métodos em SP. Esses métodos podem ser de Entrada, de Saída ou de Entrada e Saida ao mesmo tempo.

IN: este é um parâmetro de entrada, ou seja, um parâmetro cujo seu valor será utilizado no interior do procedimento para produzir algum resultado;

OUT: esté parâmetro retorna algo de dentro do procedimento para o lado externo, colocando os valores manipulados disponíveis na memória ou no conjunto de resultados;

INOUT: faz os dois trabalhos ao mesmo tempo!

CRIANDO STORED PROCEDURES

Agora veremos como criar Stored Procedures.

Exemplo de criação de SP no MYSQL:

//Criamos um delimitador, para que possamos criar várias "linhas de código" em um único script
DELIMITER $

/*Apagamos a procedure chamada sp_pessoas caso ela já exista.*/
DROP PROCEDURE IF EXISTS sp_pessoas$

/*Criamos uma procedure chamada sp_pessoas que recebe 3 parâmetros de entrada*/
CREATE PROCEDURE sp_pessoas(IN sNome_pessoa VARCHAR(35), IN sEndereco_pessoa VARCHAR(30), IN sUf CHAR(1))
BEGIN

/*Inserimos na entidade pessoas, valores passados ao chamar a Stored Procedure*/
INSERT INTO pessoas(nome_pessoa, endereco_pessoa, uf) VALUES (sNome_pessoa, sEndereco_pessoa, sUF);

END$

Para podermos chamarmos essa StoredProcedure diretamente pelo Mysql, utilizamos a função CALL.
Exemplo:
CALL sp_pessoas('Mauricio', 'Rua sem saida', 'SP');

CRIANDO A AUDITORIA

Para criarmos a auditoria, iremos criar uma tabela chamada usabilidade, na qual irá conter dados do usuário que esta efetuando o processo no sistema e um pequeno histórico sobre o processo.
Campos da tabela usabilidade :
idoperador INT(11) - (AI, PK)
data_uso TIMESTAMP - (Default value: CURRENT_TIMESTAMP)
menu VARCHAR(35)
acao VARCHAR(35)

Agora criaremos uma SP para Adicionar uma nova ou Atualizar uma pessoa já existente na entidade.
Para isso, vamos inserir algumas linhas no código do exemplo acima. Ele ficará assim:

/*Criamos um delimitador, para que possamos criar várias "linhas de código" em um único script*/
DELIMITER $

DROP PROCEDURE IF EXISTS sp_pessoas_IU$

CREATE PROCEDURE sp_pessoas_IU(sIdpessoa INT(11), sNome_pessoa VARCHAR(35), sEndereco_pessoa VARCHAR(30), sUf CHAR(1), sIdoperador INT(11))
BEGIN

/*O que faremos aqui, é verificar pelo id da pessoa, se ela já existe. Caso nao exista (seja igual a 0), insere no banco. Caso contrário, atualiza os dados*/
IF NOT EXISTS(SELECT idpessoa FROM pessoas WHERE idpessoa = sIdpessoa) THEN
INSERT INTO pessoas(nome_pessoa, endereco_pessoa, uf) VALUES (sNome_pessoa, sEndereco_pessoa, sUF);
/*Inserimos na entidade usabilidade, o historico do que o usuário processou.*/
INSERT INTO usabilidade(idoperador, menu, acao) VALUES (sIdoperador, 'CADASTROS - PESSOAS', CONCAT('O USUÁRIO INSERIU A SEGUINTE PESSOA: ', LAST_INSERT_ID()));

ELSE

UPDATE pessoas SET nome_pessoa = sNome_pessoa, sEndereco_pessoa = sNome_pessoa, uf = sUF WHERE idpessoa = sIdpessoa;
/*Inserimos na entidade usabilidade, o historico do que o usuário processou.*/
INSERT INTO usabilidade(idoperador, menu, acao) VALUES (sIdoperador, 'CADASTROS - PESSOAS', CONCAT('O USUÁRIO ATUALIZOU A SEGUINTE PESSOA: ', sIdpessoa));

END IF;

END$

Agora, criaremos a StoredProcedure para Apagar um usuário da entidade:

DROP PROCEDURE IF EXISTS sp_pessoas_D$

CREATE PROCEDURE sp_pessoas_D(sIdpessoa INT(11), sIdoperador INT(11))
BEGIN
/*Apaga a pessoa da base de dados*/
DELETE FROM pessoas WHERE idpessoa = sIdPessoa;
/*Inserimos na entidade usabilidade, o historico do que o usuário processou.*/
INSERT INTO usabilidade(idoperador, menu, acao) VALUES (sIdoperador, 'CADASTROS - PESSOAS', CONCAT('O USUÁRIO DELETOU A SEGUINTE PESSOA: ', sIdpessoa));

END$

CHAMANDO AS STORED PROCEDURES

Stored procedure de inserção:
/*Chamamos a StoredProcedure, inserindo uma nova pessoa. Nota que o IdPessoa passado no parametro da nossa SP, tem o valor 0 (ZERO). Fazendo isso, forçamos a inserção na nossa base de dados, pois nunca existirá um usuário com o Id 0(Zero) em nossa base de dados*/

/*Insere um usuario*/
CALL sp_pessoas_IU(0, 'Mauricio', 'Rua Bahia', 'SP', 1);

/*Atualiza o usuário*/
CALL sp_pessoas_IU(1, 'Mauricio', 'Rua Bahia', 'BA', 1);

/*Deletando um usuário*/
CALL sp_pessoas_D(1, 1);

Blz pessoal?
Qualquer dúvida, enviem comentários.
Terei prazer de responder ;)

Trabalhando com tabela Mestre e Detalhe no Delphi

2008-12-12T05:41:00.000-08:00

E aew pessoal.
Esse post foi feito pelo meu amigo Marcos Carmo. Ele esta contribuindo com esse artigo falando sobre Mestre Detalhe no Delphi utilizando componentes ADO, DataSetProvider e ClientDataSet.
Ele também disponibilizou seu e-mail para quem quizer tirar dúvidas, enviar críticas ou sugestões com relação ao artigo:
E-mail: m4rk0s@gmail.com
MSN: m4rk0s_c4rm0@hotmail.com

SITUAÇÃO
Iniciei este artigo pensando na dificuldade que inúmeros programadores têm quando trabalham com tabelas Mestre>Detalhe, inclusive eu tive essa dificuldade quando comecei a programar.
Conheci várias maneiras para resolver isso, sendo que julguei apenas 2 delas como viáveis e irei explicar o método que prefiro e utilizo.

Métodos
Aqui estão alguns métodos que encontrei com suas respectivas qualidades e defeitos.

Método 1
Iniciar transação ao abrir o form, gravar a tabela mestre, dessa maneira você obtém o ID_MESTRE e pode gravar direto na Detalhe, em caso de cancelamento basta dar um Rollback.
Qualidade: Fácil e rápido de programar
Defeito: Transação muito tempo ativa, praticamente deixa o sistema monousuário.

Método 2
Inserir o Mestre ao abrir o form e entrar em modo de edição, dessa maneira você obtém o ID_MESTRE e pode gravar direto na Detalhe, em caso de cancelamento deverá deletar os registros.
Qualidade: Fácil e rápido de programar
Defeito: É necessário apagar tudo o que foi incluido em caso de cancelamento e cada item incluido é um acesso ao banco de dados.

Método 3
Inserir os dados em um StringGrid e passar gravar tudo ao confirmar.
Qualidade: Acesso único ao banco de dados.
Defeito: Trabalhar com StringGrid é trabalhoso, exige muitas linhas de código e tempo.

Método 4
Inserir o Mestre ao criar o form e entrar em modo de edição, sendo a query detalhe utilizando o LockType como ltBatchOptimistic, dessa maneira você obtém o ID_MESTRE e pode gravar direto na Detalhe. ltBatchOptimistic serve para trabalhar em cache, caso haja cancelamento deverá deletar o registro Mestre.
Qualidade: Considero esse método viável, é rápido de programar e trabalha em cache, tendo ótimo desempenho e contato único com o banco de dados.
Defeito: É necessário apagar o registro em caso de cancelamento e se o ID_MESTRE for um campo identidade vc perde um número da sequência.

Método 5 (Vencedor)
Utilizar ClientDataSet para a tabela Detalhe, trabalhando tudo em cache e acessando o banco apenas quando a operação for finalizada.
Qualidade: Faz tudo em cache tendo ótimo desempenho e gerando o ID_MESTRE apenas na finalização da operação.
Defeito: Utiliza muitos componentes (query, datasetprovider, clientdataset) e precisa fazer looping na tabela detalhe para gravar o ID_MESTRE.

O QUE É PRECISO

1 TADOQuery (qryMestre) - para a tabela Mestre (SELECT * FROM MESTRE)
1 TADOQuery (qryDetalhe)- para a tabela Detalhe (SELECT * FROM DETALHE WHERE ID_MESTRE = :ID_MESTRE)
1 TDataSetProvider (dspDetalhe) - que será ligado a TADOQuery da tabela detalhe {dspDetalhe.DataSet := qryDetalhe}
1 TClientDataSet (cdsDetalhe) - que será ligado ao TDataSetProvider {cdsDetalhe.ProviderName := dspDetalhe.Name}
e o básico: TForm, TButton, TDBEdit, TDBLookupComboBox, TDBGrid, etc...

É importante ressaltar que para trabalhar com o TClientDataSet é necessário ter a midas.dll na pasta system32 ou na pasta do executável do software. Existem algumas pessoas que adicionam a midas.dll ao projeto, o problema de fazer isso é que o projeto fica imenso.

COMO FAZER (HOW TO)

Não vou entrar em detalhes quanto ao básico considerando que este tutorial é para quem tem um nível intermediário com Delphi.

Primeiros passos:
Antes de mais nada vá ao dspDetalhe e altere a propriedade UpdateMode para UpWhereKeyOnly, isso significa que quando o TClientDataSet montar a instrução UPDATE (em uma edição) a única coisa que entrará na cláusula WHERE será a chave da tabela (isso depende de umas configurações que faremos adiante com os fields).
Agora vamos aos fields.
Adicione-os nas Querys e no ClientDataSet (considerando as ligações que foram citadas acima).

Agora as propriedades dos fields da tabela Detalhe. A qryDetalhe e o cdsDetalhe deverão estar iguais. ProviderFlags, todos os fields do tipo fkData (exceto o ID_DETALHE se ele for Identity) deverão estar pfInUpdate = True, o ID_DETALHE deve estar com pfInWhere e pfInKey como true. Se o ID_DETALHE for Identity o delphi o trouxe como ReadOnly True, é importante que ele seja alterado para false para um procedimento que será explicado adiante. Fields do tipo Lookup, Calculated, InternalCalc ou Aggregate devem estar com todas as ProviderFlags como False.
Importante: Fields do tipo Lookup devem estar com a propriedade LookupCache = True, caso contrário você terá a mensagem 'Erro desconhecido.' e vai surtar como eu surtei um dia.

Uma informação importante, todos os trabalhos da tabela detalhe serão feitos no cdsDetalhe, então fields lookup por exemplo não precisam ser adicionados a qryDetalhe.
Clique com o botão direito no cdsDetalhe e clique na opção FetchParams (para ele pegar o parâmetro ID_MESTRE da qryDetalhe conforme exemplo acima).

Agora vamos às linhas de código!
- qryMestre.Append (ela deve estar aberta: qryMestre.Open)
Inserção:
- O parâmetro da cdsDetalhe deve estar com um ID que não exista na tabela Mestre, 0 por exemplo, se o campo for Identity ele nunca terá o valor 0. (cdsDetalhe.Params.ParamByName('ID_MESTRE').Value := 0)
Edição:
- O parâmetro da cdsDetalhe deve estar o valor do ID da tabela Mestre. (cdsDetalhe.Params.ParamByName('ID_MESTRE').Value := qryMasterID_MESTRE.Value)
Abra a cdsDetalhe agora que ela já tem o parâmetro (cdsDetalhe.Open)
Declare no seu form uma variável pública inteira inicializada com valor -1 (no meu exemplo será ID_DETALHE). A variável deve ser negativa e será decrementada para que não haja violação de chave.
o evento OnNewRecord do cdsDetalhe você deverá fazer o seguinte:
cdsDetalheID_DETALHE.Value := ID_DETALHE; //por isso a propriedade ReadOnly deve estar como false
Dec(ID_DETALHE);
- Agora trabalhe nos botões referente à tabela Detalhe:
Inserção: cdsDetalhe.Append;
Edição: cdsDetalhe.Edit;
Confirmação: cdsDetalhe.Post;
Cancelamento: cdsDetalhe.Cancel;
Exclusão: cdsDetalhe.Delete;
- No botão de finalização do processo (confirmando) deve estar um código semelhante a este:
try (opcional)
//Iniciar transação (opcional)
qryMestre.Post;
cdsDetalhe.DisableControls; //Apenas para aumentar a performance do looping que será feito.
cdsDetalhe.First;
while not cdsDetalhe.Eof do
begin
cdsDetalhe.Edit;
cdsDetalheID_MESTRE.Value := qryMestreID_MESTRE.Value;
cdsDetalhe.Post;
cdsDetalhe.Next;
end;
cdsDetalhe.EnableControls;
if cdsDetalhe.ApplyUpdates(0) <> 0 then //Caso haja um erro ao incluir os itens ele gera uma exceção > 0 não applica atualizações com erros > -1 ignora erros e qualquer valor maior que 0 é a quantidade de erros que ele irá permitir
Raise Exception.Create('Erro ao incluir os itens (cdsDetalhe.ApplyUpdates(0))')
//commit (opcional)
except (opcional)
on e:Exception do
begin
//Retorna transação (rollback)
Application.MessageBox(pChar('Erro: '+e.Message),'Atenção',MB_ICONERROR);
end;

Bom.. é isso aí...
Não sou muito bom para explicar, mas acho que da pra entender.
Qualquer dúvida basta me contatar por e-mail.

Colunas em ComboBox no Delphi

2008-12-11T09:03:00.000-08:00

Eu sei que tenho postado muitas coisas em Delphi, isso é devido ao projeto em que estou agora que é feito em cima do Delphi 2007, mas espero estar postando sempre mais coisas novas para diversificar.

Bom, vamos ao assunto do Post.

Quase sempre precisei utilizar ComboBox com colunas, então eu até adotava alguns meios de adicioná-las em eventos "Draw" do Combobox, mas contece que eu queria ir mais além daquelas colunas estranhas. Eu gostaria de inserir dados com letras em negrito, cores de fundo ecolunas bem mais alinhadas. Foi pesquisando que achei o componente TColumnComboBox.
Com ele é possível colocar cores e adicionar quantas colunas forem precisas em seu Combo.
Ele pode ficar mais ou menos com o estilo abaixo:

Esse é um combo que utilizo em meu sistema.
Eu estou buscando essas informações pela minha base de Dados, mas nada impede de você inserir seus dados fixos.
Nós podemos inserir um código para identificar o registro que queremos trabalhar. Isso fica muito mais visível para o usuário que utiliza o sistema e mais "fácil" para quem esta implementando.

INSTALAÇÃO

O TColumnComboBox é feito pela empresa TMS Software.
Para fazer o download do TColumComboBox, acesse a seguinte URL:
http://www.tmssoftware.com/site/colcombo.asp

A instalação é bem parecida com o FreeBoleto, que é um componente que eu ensino como instalá-lo aqui no meu Blog.

FUNCIONAMENTO DO TCOLUMNCOMBOBOX

O TColumnComboBox não possui a propriedade Items como estamos acostumados a utilizar em um ComboBox comum.
Para adicionar os dados, utilizaremos as propriedades Columns e ComboItems.
Na propriedade Columns, adicionamos a quantidade e título das colunas que quizermos e em comboItens, adicionamos as linhas do TColumComboBox.

Nesse post, ensinarei como inserir os valores em modo de Execução e além de criar o Combo, criaremos uma procedure que amplia a largura do ComboBox quando ele é clicado.

Segue abaixo o código da criação dos items do TColumnComboBox:

var
//Cria um objeto do tipo TColumnComboBox
C: TColumnComboBox;
begin
//Faz referencia a classe
C := TColumnComboBox.Create(Self);

with C do
begin
Parent := Panel1;
Name := 'cmbFormaPagto';
Left := 10;
Top := 10;
Visible := true;
CharCase := ecUpperCase;
AutoSize := true;
//Inserimos uma função no evento ondropdown do ComboBox, para assim que
//Clicar no ComboBox, a largura seja ampliada.
OnDropDown := ExpandirComboFormaPagto;

//Cria a primeira coluna
with Columns.Add do
begin
Width:=25;
Font.Style:=[fsBold];
Color := clRed;
end;

//Cria a segunda coluna
with Columns.Add do
begin
Width:=220;
end;

//Cria a terceira coluna
with Columns.Add do
begin
Width:=220;
Font.Color:=clBlue;
Font.Style:=[fsBold];
Color := $00D1FCDC;
end;

//Adciona os itens aos combobox
with ComboItems.Add do
begin
Strings.Add('1');
Strings.Add('Primeiro item');
Strings.Add(' Descrição 1');
end;

with ComboItems.Add do
begin
Strings.Add(2');
Strings.Add('Segundo item');
Strings.Add(' Descrição 2');
end;

end;
end;

Segue abaixo o código da procedure para apliar a largura do ComboBox:

begin
//Aqui decidimos a largura do ComboBox para 500, mas você pode mudar a largura que quizer.
TComboBox(Sender).Perform(CB_SETDROPPEDWIDTH, 500, 0);
end;

Beleza pessoal?
Abraços e até +.

Uso de Aggregates no ClientDataSet

2008-12-10T02:23:00.000-08:00

Olá pessoal.
Hoje nesse post, falarei sobre o uso de aggregates no ClientDataSet.

PARA QUÊ E ONDE EU UTILIZO AGGREGATES?

Uma das funções do aggregate, é poder gerar expressões que envolvam todas as ocorrências adquiridas em uma Query como Somar, Contar, adquirir o valor Mínimo, Máximo e média total.
Muitos programadores costumam fazer isso atribuindo valores a um loop Do While Next;
Mas essa é uma alternativa lerda em que caso for contar uma quantidade grande de registros, a aplicação pode ficar lenta.

Você pode estar se perguntando: "Eu não posso fazer isso pelo InternalCalc?".
Com o Internalcalc, eu consigo fazer operações no registro onde esta o ponteiro, mas não em todos os registros.

UTILIZANDO AGGREGATES

Vamos botar a mão na massa.
Arraste um Panel, um ClientDataSet, um DataSource e um DBGrid para o formulário.
Marque a opção Align do panel para AlBottom e a opção Align do DBGrid para AlClient.

Vamos carregar os dados no ClientDataSet de um arquivo XML.
A instalação do Delphi gera alguns arquivos XML por padrão, para uso de testes dentro do Delphi.

Clique no ClientDataSet e clique na elipse(...) da propriedade FileName.
Vá na raiz onde esta instalado o Delphi-> Arquivos de Programas ->Arquivos Comuns->Borland Shared (ou CodeGear Shared) ->Data.
Escolha o arquivo Employee.xml
Marque a propriedade Active do CDS para TRUE.
Aponte a propriedade DataSet do DataSource1 para o ClientDataset1.

Seu Form deverá ficar assim:

Clique 2x no ClientDataSet, e tecla CTRL+F(Add All Fields).
Marque a opção AggregatesActive do CDS para True.
No FieldsEditor do CDS, tecle CTRL+M(New Field).
em Name, digite SOMA e em FieldType, marque a opção Aggregate. Note que o Type do novo Field, também ficará como Aggregate.

Note que o FieldEditor adicionou uma nova linha separada com o campo Agregado. O CDS faz isso com todos os campos agregados que lhe é carregado.
Clique no TField Soma e vá até a propriedade Expression no Object Inspector.
Digite o seguinte: SUM(salary) e ainda no TFieldSoma, marque a propriedade Active para TRUE.
Arraste um DBText para o Panel abaixo do DBGrid. Aponte o DataSource1 na propriedade DataSource do DBText e em DataField selecione a opção SOMA (que é o novo TField agregado que criamos).
Note que o Caption do DBText já é alterado pegando a soma total do campo Salary em todas as ocorrências. Caso você filtre o ClientDataSet, a somatotal do DBText será a soma de todos os registros filtrados.

Nossa aplicação não fica beeeeeeeeeeem mais rápida assim?
:D
legal né?

Em caso de dúvidas, podem comentar que respondo o mais rápido que eu puder.

Abraços e até a proxima.

Transactions com DBExpress 4 e MySQL 5

2008-12-09T02:55:00.000-08:00

E ai pessoal. Antes de começar o Post, gostaria de agradecer aos meus amigos pelos comentários e pelos parabéns que tenho recebido por msn e orkut :).

Nesse Post falarei sobre Transaction no Mysql utilizando o próprio MySQL e/ou Delphi 2007 com DBExpress 4.0.

TRANSACÇÃO DE DADOS (TRANSACTION)

O que seria uma transacção de dados?
Transacção de dados, nada mais é do que um acordo entre duas operações, uma regra de negócio que para ser finalizada, todos os dados precisam estar completos e fazendo parte de um acordo.

Para exemplificar, imagina uma operação financeira. Dentro de uma conta a pagar, é necessário emitir 6 faturas e, essas faturas completam o valor total da conta criada.
Ficaria assim:
Valor total da conta a pagar: R$ 600
Total de faturas: 6 faturas de R$100,00

Agora imagina você cadastrando a conta e quando vai gerar as faturas, o servidor cai, seu computador desliga ou ocorre algum outro erro? O que acontece?
Seus dados podem não estar completos, gerando inconsistência nos dados e, ao invés de você cadastrar as 6 faturas, acaba registrando apenas 4. Fora os problemas e erros que podem gerar na base de dados.
É ai que a TRANSACTION entra em ação!

Resumindo e quase "desenhando" como a transaction age em nosso sistema e base de dados:

Sistema: Banco, esta ai? inicia uma transação ai pra mim.
Base de dados: Transação realizada.
Sistema: Ei banco vlw, registra pra mim essa conta.
Base de dados: Legal, conta registrada, pode continuar.
Sistema: Registra essa fatura:
Base de dados: Fatura registrada.
Sistema: Banco, registra essa outra fatura:
Sistema: Banco??? Banco???? Cadê vc????
Sistema: Como não consegui registrar tudo, entao vou cancelar a conta e a fatura já cadastrada para mais tarde quando a base voltar do banheiro, fazer tudo novamente.

Isso é uma transaction gerada pelo sistema. Você também pode fazer a mesma coisa dentro de uma Stored Procedure ou uma trigger, direto pelo banco, sem a utilização do seu sistema, independentemente se é feito em Delphi, PHP, C#, Java ou qualquer outra linguagem de programação.

Este tipo de utilização da transaction, depende do processo que você irá realizar.

Por exemplo, se você deseja armazenar dados em um relacionamento 1-N, a melhor forma de utilizar a transaction é pelo sistema, caso contrário, você pode fazer a transaction diretamente pelo banco, como em uma auditoria de cadastros e atualizações das entidades da sua base de dados.

TRANSACTION UTILIZANDO DBEXPRESS 4

Em uma transação, temos:
Inicio da transação
Comandos SQL DML
Se tudo deu certo, COMMIT (comete)
Se deu algo errado, ROLLBACK (Volta e desfaz tudo!)

Então, vamos la.

var
Trans: TDBXTransaction;
Qry: TSQLQuery;
begin
//Inicia a transacão com o componente de conexão com a base de dados, chamada de
//CONEXAO. Ele é um TSQLConnection da aba DBExpress
//Todos os objetos que se conectarem a essa conexão, estarão em transação
Trans := CONEXAO.BeginTransaction(TDBXIsolations.ReadCommitted);

//Aqui utilizamos um try para verificar se tudo vai ocorrer bem.
try
//Cria um objeto da classe TSQLQuery para conectar-se ao componente de conexao a
// base de dados criada anteriormente
Qry := TSQLQuery.Create(Self);
with Qry do
begin
SQLConnection := CONEXAO;
SQL.Text := 'INSERT INTO contas (documento, valor_original, valor_total) VALUES ('+QuotedStr('00043244')+', '+QuotedStr('35.50')+', '+QuotedStr('40.00')+')';
ExecSQL;

SQL.Text := 'INSERT INTO faturas (idconta, valor_total, data_lancamento, data_pagamento) VALUES ('+QuotedStr('1')+', '+QuotedStr('2008/08/03')+', '+QuotedStr('2008/08/10')+')';
ExecSQL;

SQL.Text := 'INSERT INTO faturas (idconta, valor_total, data_lancamento, data_pagamento) VALUES ('+QuotedStr('1')+', '+QuotedStr('2008/08/03')+', '+QuotedStr('2008/08/10')+')';
ExecSQL;

Close;
end;

//Caso tudo ocorreu normalmente, Comete a transação, ou seja. Insere todos os dados na
//base de dados
CONEXAO.CommitFreeAndNil(Trans);

Except
//Caso ocorreu algum erro, cancela TODAS as operações acima
DM1.CONEXAO.RollbackFreeAndNil(Trans);

end;

end;

Esse cadastro foi feito apenas para explicação. Crie sua base de dados e provoque erros no código para testar sua aplicação utilizando TRANSACTION.

TRANSACTION DIRETAMENTE PELO MYSQL

Para utilizar Transações no Mysql 5, o Engine das suas tabelas precisam estar como INNODB.
Por padrão, MySQL é executado em modo autocommit. Isto significa que assim que você executa uma instrução que atualiza (modifica) uma tabela, o MySQL armazena a atualização no disco.
você pode colocar o MySQL em modo não autocommit com o seguinte comando:

SET AUTOCOMMIT=0

Depois de disabilitar o modo autocommit configurando a variável AUTOCOMMIT com zero, você deve utilizar COMMIT para armazenar suas alterações em disco ou ROLLBACK se você deseja ignorar as alterações que você fez desde o início da sua transação.

Se você quiser disabilitar o modo autocommit para uma única série de instruções, você pode utiliar a instrução START TRANSACTION:

START TRANSACTION;

INSERT INTO contas(documento, valor_original, valor_total) VALUES ('343434', '45.50', '50.00');

INSERT INTO faturas(idfatura, data_vencimento, data_pagamento) VALUES (LAST_INSERT_ID(), '2008-12-01', '2008-12-01');

COMMIT;


Caso queira cancelar a transação, ao invés de COMMIT, use ROLLBACK.

Pessoal, tentei explicar da forma mais simples possível como utilizamos Transações pelo Delphi utilizando o componente DBExpress e diretamente pelo Mysql.

Blz pessoal?
Abraços e até mais.

SQL: Relacionamentos Self One-to-Many

2008-12-06T05:48:00.000-08:00

Esses dias para o plano de contas do sistema, precisei criar um cadastro que funcionasse de forma hierarquica, onde cada cadastro obedecia uma sequência.

Exemplo

DESPESAS OPERACIONAIS

- ASSISTÊNCIA MÉDICA

- VALE TRANSPORTE

- ALIMENTAÇÃO

- PRO-LABORE

- SALÁRIOS

Note que os últimos 5 itens ficam dentro de um item de nível superior.

Nós podemos fazer isso usando duas tabelas e fazendo um relacionamento 1-N

ou, podemos criar um relacionamento chamado Self One-to-Many que utiliza a mesma tabela para poder fazer esses relacionamentos.

O SQL pode tratar uma mesma tabela de diferentes modos.

CRIANDO A TABELA

Iremos criar uma tabela bem simples de um cadastro de categorias para um restautante.

As categorias do restaurante costumam ser: Bebidas, Doces, Salgados....e dentro dessas categorias ou grupos, existem outros grupos que se encaixam como em Bebidas, eu posso ter: ÁGUAS, REFRIGERANTES, BEBIDAS ALCOÓLICAS, etc.

Para essa referência, criaremos um campo que funciona como chave estrangeira. É a mesma coisa como se fossemos criar uma outra tabela para fazer o relacionamento das categorias.

O Código para criação das tabelas para uma base MySQL, é a seguinte:

Create table `test`.`categorias`( `idcategoria` int(11) NOT NULL AUTO_INCREMENT , `idsubcategoria` int(11) , `nome` varchar(50) , PRIMARY KEY (`idcategoria`), KEY `FKcategoria` (`idsubcategoria`), CONSTRAINT `FKcategoria` FOREIGN KEY (`idsubcategoria`) REFERENCES `categorias` (`idcategoria`)) ENGINE=InnoDB AUTO_INCREMENT=12 DEFAULT CHARSET=latin1;

Eu usei o tipo da tabela como INNODB, mas você poderá usar MyISAM normalmente.

Com a tabela criada, insira os dados na tabela como na imagem abaixo:

Veja que há um relacionamento de Refrigerantes, Alcoólicas e água com a categoria BEBIDAS.

CAPTURANDO DADOS RELACIONAMENTOS PELA MESMA TABELA

Para fazer a query e receber os dados relacionados, tratamos a tabela de categorias como 2 tabelas distintas relacionadas.

Para isso, podemos criar a seguinte query:
SELECT CONCAT(c.nome, ' >> ', s.nome) as categorias FROM categorias c, categorias s
WHERE s.idsubcategoria = c.idcategoria

O Concat serve para concatenar dados em uma query SQL.
O resultado será o seguinte:

Maravilha né?
Dessa forma, como utilizamos a mesma estrutura de dados para as tabelas, podemos fazer o relacionamento Self One-to-Many.

Qualquer dúvida, favor comentar ;)
Abraços...e até +

Arrays (Vetores/Matrizes) no PHP

2008-12-05T16:27:00.000-08:00

Quando comecei a programar, tive muitas dúvidas de como usar arrays ou até mesmo o que é um array, vetor ou matriz.

Esses dias no meu trabalho meu amigo meio "Bixinha" me perguntou:
Aiiii...como que eu posso armazenar valores diferentes em uma mesma variável?
Dai foi então que eu expliquei: ARRAY!

O QUE É UM ARRAY?

Essa foi a pergunta da minha linda namorada antes da prova da faculdade.
O que eu expliquei pra ela foi o seguinte:
Array, é como se fosse um livro.
Dentro de um livro, possuimos índices e, em cada índice, o livro possui um valor, que é o conteudo daquele indice.
Exemplo:
livro[0]
livro[1]
livro[2]

No exemplo acima e seguindo o exemplo que dei à minha namorada sobre o livro, lemos o seguinte:
Livro índice 0
Livro índice 1
Livro índice 2
Então, esse livro possui 3 índices e cada índice do livro, possui textos diferentes.
O array trabalha da mesma forma.
Na programação, nós podemos dar valores aos índices de uma variável do tipo array.

Exemplo:
livro[0] = 'Branca de neve encontrou os sete anões'
livro[1] = 'Branca de neve foi morar com os 7 anões'
livro[2] = 'Branca de neve mordeu a maça da bruxa e dormiu eternamente'

UTILIZANDO ARRAY NO PHP

Uma dica que eu dou para as pessoas que tiram dúvidas comigo, é: Consulte o manual!!
O manual do php é ótimo e além de fornecer informações sobre as funções e estruturas da linguagem, contém exemplos enviados pela comunidade "PHPense".
Algumas funções já possuem manual em português.
Para acessar o manual, basta entrar em www.php.net

Meu patrão sempre me fala que manual é o guia dos "burros", mas na minha opinião, os espertos não perdem tempo fazendo besteiras e já os consultam logo de cara!

Existem várias formas de criar um array, a forma mais fácil na minha opinião é descrita abaixo:

$livro[0] = "Branca de neve encontrou os sete anões";
$livro[1] = "Branca de neve foi morar com os 7 anões";
$livro[2] = "Branca de neve mordeu a maça da bruxa e dormiu eternamente";

Além de criar vetores por índices como feito acima, podemos criar vetores com seus índices e referenciá-los por um nome, exemplo:

$livro[0]["titulo"] = "Branca de neve e os sete anões";
$livro[0]["autor"] = "Mariana";
$livro[0]["anopublicacao"] = "2000"

$livro[1]["titulo"] = "Cinderela";
$livro[1]["autor"] = "Maurício";
$livro[1]["anopublicacao"] = "1980"

O que o array acima esta fazendo, é criar uma "tabela" com seus índices e valores para cada "título"

Imagine agora os dados digitados acima em uma tabela do word, que nas colunas contenha os títulos e valores:

Título | Autor | Ano Publicacao
Branca de... Mariana 2000
Cinderela Maurício 1980

É exatamente isso que estou fazendo ao criar o array.

ONDE E QUANDO USAR ARRAY?

O array é muito utilizado quando você deseja guardar em memória, valores diferentes em uma mesma variável.
Essa função é muito utilizada em E-commerce, para inserir produtos em um carrinho de compras. Enquanto o usuário que navega o site nao finalizar a compra, todos os itens que ele solicitou ficam guardados em um array, até que na finalização da compra, o sistema passa todas as informações armazenadas do array para a base de dados.

No exemplo do carrinho de compras, como queremos guardar os valores enquanto o usuário visita o site e mantê-los mesmo que ele acesse diferentes páginas do mesmo site, podemos criar variáveis de Sessão ($_SESSION) como arrays. Tá ai a dica.

FUNCÕES NATIVAS DO PHP PARA O USO DE ARRAY

Existem algumas funções no PHP que nos auxilia no uso de array. Eu citarei as que eu acho mais importantes:

count() — Conta o número de índices de um array
array_key_exists — Checa se uma chave ou índice existe em um array
array_keys — Retorna todas as chaves de um array
array_values — Retorna todos os valores de um array
print_r — Retorna valores de uma variável
array_search — Procura por um valor em um array e retorna sua chave correspondente caso seja encontrado

Adeus StringGrid, Olá ClientDataSet

2008-12-05T11:35:00.000-08:00

Muitas vezes que precisei armazenar dados em memória e tinha que mostrar esses dados em uma grid, utilizava o componente do Delphi chamado StringGrid, que armazena dados em forma de array e joga para a grid.

Toda vez que eu tinha que fazer esse procedimento, já me dava uma preguiiiiiiça só de pensar q teria q montar a grid, de fazer os procedimentos para deletar itens, alterar, ou até mesmo para zebrar a stringgrid.

O ClientDataSet é um componente muito poderoso e nos permite gravar dados em memória e usar um DataSource para interagir com meus componentes, como DBGrid ou qualquer outro que se utiliza de um DataSource para capturar os dados.
Além disso, podemos gravar os dados em um arquivo XML para depois utilizar os dados registrados para outros fins. Ótimo não???!!!

Então vamos a mão na massa.
Arraste para seu formulário um ClientDataSet e um DataSource, ambos da paleta DataAccess.

Clique duas vezes no ClientDataSet. Isso abrirá o FieldEditor.
Clique com o botao direito do mouse nele e New Field(CTRL+N).
em Name, digite: ID
em Type, escolha a Opção AutoIc.

Essa opção funciona como uma chave primária e nos volta um valor incrementado(AutoIncrement).

em FieldType, marque a opção Data.
Clique em OK.
Nós faremos um exemplo bem simples, por isso, adicionaremos apenas mais 2 campos, chamados nome e endereco.
Faça o mesmo procedimento acima, apenas mudando a propriedade Name para nome e endereco e o Type desses 2 novos TFields para String e em Size, digite 50.

O FieldsEditor ficará assim:

Clique com o botao direito no ClientDataSet e escolha a opção Create DataSet.

Ligue a propriedade DataSet do DataSource1 ao ClientDataSet1.
Arraste uma DBGRID e um DBNavigator ao formulário e ligue a propriedade DataSet dos 2 componentes ao DataSource1.
Percebeu que os titulos da DBGrid já pegou o nome dos campos que você adicionou ao ClientDataSet?
Legal né.
No ClientDataSet1, marque a propriedade Active para TRUE e rode a aplicação.
Veja como você manipula os dados pelo DBNavigator.
Feche o programa e os dados não estarão mais la, pois o ClientDataSet gravou os dados em memória e assim que o aplicativo é encerrado, os dados são perdidos.
Você pode usar o mesmo procedimento para componentes de terceiros como Jedi, RXLib, etc.

GERANDO E REMOVENDO OS FIELDS EM EXECUÇÃO
É possível gerar os TFields em modo de execução.
Sempre que adicionamos um novo campo em um ClientDataSet, o que estamos fazendo na realidade é adicionando um item a propriedade FieldDefs do ClientDataSet.
Abra a propriedadede FieldDefs e note que todos os campos que acrescentamos como TField estarão lá com suas propriedades.
E como geramos esses campos em modo de execução?
Simples.
Nós referenciamos os objetos pelo tipo do dados. Por exemplo:
Para um campo String, teremos que criar um objeto proveniente da classe TStringField, para um Field do tipo Float, utilizamos a classe TFloatField e para um Field Auto Incremento, utilizamos a classe TAutoIncField.
Criação de um TStringField:

var
Campo: TStringField;
begin
with ClientDataSet1 do
begin
       with FieldDefs do
       begin
         Campo := TFloatField.Create(Self);
         with Campo do
         begin
           FieldName := 'novoCampo';
           DisplayLabel := FieldName;
           DataSet := cdsDemonstrativo;
           Name := cdsDemonstrativo.Name+FieldName;
           cdsDemonstrativo.FieldDefs.Add(Campo.Name, ftString, 1, False);
         end;
         Update;
       end;
end;

Como falei anteriormente, utilizamos FieldDefs para a criação do novo Field.

Para liberar um TField da memória, podemos usar o seguinte código:

  Campo :=TFloatField(Self.FindComponent('novocampo'));
  if Assigned(Campo) then
     Campo.Free;

Qualquer dúvida, podem comentar que eu respondo.
Abraços.

BOLETOS BANCÁRIOS COM DELPHI 6 AO 2007

2008-12-04T03:09:00.000-08:00

Logo de manhã pela empresa, me foi pedido para adicionar ao sistema financeiro uma forma de enviar boletos bancários para os clientes assim que a conta com suas faturas fossem criadas.
Eu já tinha criado boletos bancários via Web pelo PHP e pelo ASP.

Pelo PHP, eu tinha as bibliotecas do PHP boleto f'ácil, pelo ASP eu criava os boletos seguindos os layouts dos bancos (móu trabalhão ferrado).
A maravilha do Delphi, é que temos uma comunidade muito grande que cria componentes quase que diariamente :D .

Eu testei dois componentes e que a maravilha dos dois, é que eles são openSource :D
Os componentes são os seguintes:

GBBoleto:
http://sourceforge.net/projects/gbboleto/ (Delphi 5, 6 e 7)
Bancos disponíveis:

Itaú
NossaCaixa
Banespa
Unibanco
Real
Bradesco
Caixa Federal
Banco do Brasil
Santander
Banco de crédito nacional
Sudameris
Mercantil do Brasil
Safra
Sicredi

FreeBoleto:
http://sourceforge.net/projects/freeboleto/ (Delphi 7 ao 2007)
Bancos disponíveis:

Itaú
NossaCaixa
Banespa
Unibanco
Real
Bradesco
Caixa Federal
Banco do Brasil
Santander

Instalando o FreeBoleto no Rad Studio 2007

Para instalar o componente no RAD Studio 2007, basta clicar em File, Open e abra o arquivo FreeBoleto_D11.dproj.

O Project Manager do Delphi ficará dessa forma:

Clique no FreeBoleto_D11.bpl com o botão direito do mouse, Build e depois clique em Install.
Uma nova paleta chamada FreeBoleto é criada.

Entendendo como funciona o boleto bancário.
Para criarmos boleto bancário, precisamos evidentemente possuir uma conta bancária em um dos bancos que o componente disponibiliza a geração do boleto.
Abaixo estão alguns dados referente ao boleto bancário que você precisa conhecer:

Código cedente: Este campo varia conforme o banco, mas em
geral é composto pelo número da carteira, agência, conta e dígito, que dependendo
do banco pode ser: agencia+conta ou mesmo carteira+agencia+conta, cada banco
tem um padrão. Você precisa entrar em contato com o seu banco, e solicitar seu código cedente para geração de boleto.

Cateira: Contem o código da carteira que está sendo utilizada. Isto também muda de banco
para banco.
É justamente este campo que indica o tipo de cobrança escolhida pelo cedente.
Por exemplo, no Unibanco a carteira sem registro é conhecida como "ESPECIAL"
e a registrada como "REGISTRADA". Já no Itaú, a sem registro é conhecida como
"174" ou "175" e a registrada como "109" e assim vai.
Existem umas grandes variedades de modalidade de cobrança, para boletos cada
uma tem uma finalidade, vantagens e desvantagens. Descrevi apenas as principais
diferenças entre os dois tipos mais comuns, que atende a maioria dos usuários,
temos mais detalhes sobre elas que não deu pra abordar neste artigo, mas o principal
você já sabe.
Se tiver maiores dúvidas, consulte seu banco, este sim poderá fornecer maiores
detalhes sobre os tipos de cobrança.

Nosso número: Este campo também varia conforme o banco, mas você deve dar uma atenção especial à ele, porque quando o boleto é pago, é com esse número que aparece no seu extrato, assim você tem como identificar o boleto pago por um sistema administrador da sua conta fornecido pelo seu banco (Esse sistema gerenciador não é obrigatório).
Você pode usar esse número para administrar seu sistema, como identificação de número da duplicata, número do boleto pago, ou algo dessa forma.
Portanto esse número deve ser diferente para cada boleto emitido, e não podendo haver duplicidades.
Alguns bancos fornecem uma faixa de números que o cliente pode trabalhar, outros já deixam a critério do cliente.

Modalidade da conta: O banco tem varias modalidades de cobrança, e emissão de boletos. Vou descrever
as duas principais e mais utilizadas e com as quais já trabalhei.

Cobrança Registrada

Quando emitir seus boletos com cobrança registrada, você deve enviar um arquivo
de remessa para o banco, este arquivo de remessa segue um padrão, que não vem
ao caso agora, senão o artigo vai ficar enorme.

Este arquivo de remessa que é enviado ao banco e serve para registrar os boletos
emitidos. Assim, se algum sacado não pagar, o banco pode automaticamente ou
por instrução do cedente, pode mandar o nome do sacado para protesto, ou mesmo
o para o cadastro do spc.

Ou seja, este tipo em geral é utilizado quando as empresas querem ter uma segurança
maior, de modo que se o cliente não pagar eles tem um meio legal de protestar
o sacado e cobrar a dívida.

Cobrança sem Registro

Nessa cobrança você simplesmente emite o boleto e o envia para o sacado pagar
e não há registro no banco sobre este boleto emitido, o banco só saberá da existência
do boleto quando ele for pago.
Esta é a cobrança mais indicada para uso na internet, porque se o cliente não
pagar, simplesmente o pedido não é enviado.

Agora que você já conhece os dois principais tipos de cobrança, vamos falar
sobre o campo "carteira" do boleto. É justamente este campo que indica o tipo
de cobrança escolhida pelo cedente.

Por exemplo, no Unibanco a carteira sem registro é conhecida como "ESPECIAL"
e a registrada como "REGISTRADA". Já no Itaú, a sem registro é conhecida como
"174" ou "175" e a registrada como "109" e assim vai.

Existem umas grandes variedades de modalidade de cobrança, para boletos cada
uma tem uma finalidade, vantagens e desvantagens. Descrevi apenas as principais
diferenças entre os dois tipos mais comuns, que atende a maioria dos usuários,
temos mais detalhes sobre elas que não deu pra abordar neste artigo, mas o principal
você já sabe.

Se tiver maiores dúvidas, consulte seu banco, este sim poderá fornecer maiores
detalhes sobre os tipos de cobrança.

Convênio: Este campo serve apenas para o banco do brasil (pelo menos o que eu sei até agora).
Caso seu banco seja o B.B, entre em contato com sua agencia/gerente e obtenha mais informações.
Como eu utilizo o Bradesco, não precisei utilizar este campo.

Documento: Você pode usar este campo para dizer qual documento/nota fiscal este boleto bancário pertence. Este campo não é obrigatório.

Criando o formulário e objetos para geração do boleto com o componente.

Você pode criar os objetos com as classes TFreeBoleto e TFreeBoletoImagem ou apenas arrastar os componentes que foram registrados na paleta FreeBoleto.

No diretório do arquivo compactado que você efetuou o download, há um diretório chamado Demo.
Abra o projeto e verifique os passos para a criação do boleto.
O exemplo é bem simples.
Em caso de dúvidas, há um grupo de discussões no yahoo do Freeboleto, que pode ser acessado pela URL:
http://br.groups.yahoo.com/group/freeboleto

Aqui esta "a cara" do boleto bancário utilizando o arquivo de demonstração do FreeBoleto:

Fmz pessoal?
Abraços e até a proxima.

DIA DO PROGRAMADOR

2008-12-03T18:44:00.000-08:00

Tá pensando que apenas médicos, veterinários e advogados tem seu dia?
Também temos o nosso!!
Não sei se foi por acaso, mas o dia do programador cai 3 dias após meu aniversário :P

Peguei esse post no blog do Luciano pimenta, que também trabalha no nosso ramo e tem seu blog.

" Se você ficou assustado ao ler o título, fique calmo e feliz, pois existe o nosso dia :). Claro que alguém lembraria daquele profissional, que nem sempre é entendido, muitos chamam de nerd, que usa óculos de grau elevado (nem todos) e que os assuntos sempre são voltados para tecnologias (também, nem todos), ou seja, nós programadores.

A definição do dia é a cara do programador ou seja o 256º dia do ano, o dia 13/Set ou 12/Set em anos bissextos. Saiba mais em: http://pt.wikipedia.org/wiki/Dia_do_Programador.
No mesmo link temos como é comemorada a data pelos programadores americanos.

INTRODUÇÃO AO BLOG

2008-12-03T18:16:00.000-08:00

Meu nome é Maurício Vinicius, sou tecnologo em processamento de dados pela FATEC (Faculdade de tecnologia), trabalho como Analista desenvolvedor, possuo conhecimento em linguagens de programação e banco de dados e, comecei nesse ramo há 10 anos pelo Coldfusion ainda quando ele pertencia a Allaire.
Resolvi criar esse blog para expôr todos problemas, resoluções e novidades que todo Analista/desenvolvedor se depara todos os dias.

Tentarei passar meus conhecimentos e experiências da forma mais didática possível.
Minha maior experiência e conhecimento são nas linguagens, SGBD, bibliotecas e ferramentas:

Web:
Coldfusion, PHP, ASP, ASP.NET, RAD STUDIO for .NET, EXTJS, JQUERY e CSS.
Win32:
Delphi .
SGBD:
MySql, POSTGRESQL, SQL SERVER e FIREBIRD
Análise:
UML

Já trabalhei nas seguintes empresas:
VE Provedor Internet - www.ve.com.br
HAIDAR - Adm. de comércio Exterior - www.haidar.com.br
KUHLMANN - Surveyors & Consultants - www.kuhlmann.com.br

Volte sempre ao meu blog que tentarei efetuar posts todas as semanas.
Abraços e até lá.