Genexus CSV - Parte II

Nessa segunda parte sobre criação e leitura de arquivos CSV, iremos visualizar como podemos realizar a leitura  de um arquivo exemplo (figura abaixo), criado anteriormente a partir do post Genexus CSV - Parte I.

Vamos imaginar que o nosso cliente contratou um novo software de frente de caixa, esse novo software oferece um relatório diário de todas as vendas realizadas na loja, e este relatório pode ser extraído no formato CSV. Em determinados períodos, o cliente precisará importar estes dados para o seu sistema gerencial.

Pois bem, agora precisamos criar em nossa aplicação uma tela que permita ao usuário importar o relatório desejado e gravar em nossa base de dados estas informações. Como faremos isso.. veremos a seguir..

Criação da Web Panel Importadora

Primeiro, iremos adicionar a variável &Blob à nossa web panel..

..e um botão "Importar Arquivo" que realizará o seguinte evento:

Event 'ImportarArquivo'
   //=====Chama Procedure de leitura passando o caminho da variável blob como parâmetro===
   LeArquivoCSV.Call(&Blob.ToString())
EndEvent

Ao utilizar uma variável do tipo blob os arquivos selecionados através desta variável são abertos a partir da pasta "PrivateTempStorage", definida nas propriedades do nosso gerador. Portanto, quando utilizamos a função "ToString()" estamos na verdade trabalhando com o caminho (source) do arquivo selecionado.

Criação de Procedure de Leitura dos Arquivos Importados

Agora precisamos programar nossa Procedure "LeArquivoCSV" criada.

Esta procedure irá receber como parâmetro o caminho (source) do arquivo importado na web panel.

//=====Variável Arquivo = Varchar, caminho do arquivo recebido=====
parm(in:&Arquivo);

Na aba Source da nossa Procedure iremos adicionar o seguinte código.

Obs.: Quando uma determinada variável Blob não é usada junto a algum registro da base de dados, não é possível capturar a sua extensão através da função "FileType()". Logo, para capturarmos a extensão desta variável, teremos que pegá-la através do seu caminho completo...

//=====Captura extensão do arquivo recebido como parâmetro=====
&PosicaoInicial = StrSearchRev(&Arquivo,'.',&Arquivo.Trim().Length())
&PosicaoInicial += 1
&Extensao = SubStr(&Arquivo,&PosicaoInicial,5)

//=====Se a extesão nao for csv, envia mensagem=====
if &Extensao.ToLower() <> 'csv'
msg('Arquivo Incorreto!')
else

//=====Abre Arquivo recebido como parâmetro=====
&retorno = dfrOpen(&Arquivo,,',','"','utf-8')

//=====Realizar a seguinte rotina enquanto não chegar ao fim do arquivo=====
do while dfrNext() = 0

//=====Leitura dos registros contidos=====
&retorno = dfrGNum(&LivroCodigo)
&retorno = dfrGTxt(&LivroNome)
&retorno = dfrGTxt(&LivroEdicao)
&retorno = dfrGNum(&LivroValor)
&retorno = dfrGTxt(&EditoraNome)
&retorno = dfrGDate(&NotaFiscalData,'dmy','/')
&retorno = dfrGTxt(&Hora)
&NotaFiscalHora.FromString(&Hora)
&retorno = dfrGNum(&NotaFiscalNSU)
&retorno = dfrGTxt(&PagamentoTipo)
&retorno = dfrGNum(&PagamentoId)
enddo

//=====Fechar arquivo=====
&retorno = dfrClose()
endif

A função StrSearchRev() serve para procurarmos a posição de um determinado caractere de trás para frente. Esta função recebe como parâmetros:

1. String que desejamos realizar a procura - variável &Arquivo;
2. Caractere(s) que estamos procurando - caractere ponto ".";
3. Posição inicial da procura - fim do caminho do arquivo.

Note que não é possível capturarmos o registro hora de forma direta, o genexus não fornece uma função específica para este tipo de formato. Portanto, precisamos primeiro capturá-lo como uma String para após associá-lo a varíável hora (DateTime, propriedades: picture Date format = none).

Bom pessoal, pretendo postar mais alguns exemplos de desenvolvimento nos próximos posts. Bom ano novo pra todos, abraço!

Genexus CSV - Parte I

Dando continuidade aos nossos posts, a partir de hoje iremos aprender como criar e ler arquivos CSV. Quase todos os analistas genexus em algum momento já se depararam com a necessidade de trabalhar com este tipo de arquivos. Como sabem, assim como o XML, o CSV é muito utilizado para transmitir registros e informações, porém quando estes registros e informações são muito extensos, o CSV torna-se mais adequado.

Este tipo de arquivo é padrão de bancos, administradoras de cartões de crédito e sistemas ERP, entre outros. Como as transações ocorrem diariamente em uma grande quantidade, os bancos, por exemplo, disponibilizam estes arquivos diariamente, junto com um manual de leitura, e dessa forma, torna-se mais fácil às empresas realizar um programa de leituras destas informações e por fim, registrá-las em seu próprio sistema.

O que vem a ser este tipo de arquivo?

CSV significa Coma Separator Value, traduzindo: Valores Separados por Vírgula. De forma padrão um arquivo CSV, contém diversos valores, campos (ou colunas de tabelas), separados por vírgulas. Porém não necessariamente estes valores necessitam estar separados por este tipo de caractere (vírgula), através do genexus qualquer caractere que definirmos realizará esta separação, eu particularmente prefiro o ponto e vírgula. Principalmente quando um destes campos contém um valor (onde se utiliza a vírgula).

Exemplo de criação de arquivos CSV

Para começar este assunto, daremos continuidade ao nosso exemplo de uma aplicação para controle de uma livraria digital. Um novo ERP foi adquirido pela empresa, e precisamos criar um arquivo CSV diariamente com todas as vendas realizadas para que o ERP possa importá-las. Cada campo do CSV representará uma coluna da tabela de vendas, e cada linha representará uma venda, logo...

O nosso exemplo de arquivo contém:

1. código do livro vendido;
2. nome do livro vendido;
3. edição;
4. valor bruto;
5. editora;
6. data da venda;
7. hora da venda;
8. número único da transação;
9. forma de pagamento;
10. código de pagamento;

Vamos lá então, primeiro passo, em uma Web Panel inserimos uma variável Varchar(40) e um botão ao lado. Através desta variável, o usuário poderá determinar em qual pasta este arquivo será gerado. Veja figura abaixo:

Ao clicar sobre o botão o seguinte evento é executado:

Event 'GeraArquivo'
if not &Destino.IsEmpty()
GeraArquivoCSV.Call(&Destino)
else
msg('Informe o Destino do arquivo!')
endif
EndEvent

Agora, na procedure "GeraArquivoCSV" criada, iremos definir a propriedade "commit on exit: no".

Incluir em suas Regras o recebimento do parâmetro, variável Destino:

parm(in:&Destino);

E, em seu Source, o seguinte código:

//=====Captura Ano/Mes/Dia=====
&Ano = Year(ServerDate())
&Mes = Month(ServerDate())
&Dia = Day(ServerDate())

/*=====Monta Nome do Arquivo=====
O nome irá conter:
1º Caminho (pasta a ser gravado)
2º Nome do Arquivo (Data de Geração - Ano/Mes/Dia)
Exemplo: VendaDiaria_20121215
3º Extensão (.csv)
*/
&NomeArquivo = &Destino.Trim()+'VendaDiaria_'
&NomeArquivo += &Ano.ToString().Trim()+&Mes.ToString().Trim()+&Dia.ToString().Trim()
&NomeArquivo += '.csv'

/*=====Cria novo arquivo=====
Parâmetro:
1º Nome do Arquivo completo
2º Delimitador de registros (, - vírgula)
3º Delimitador de conteúdo (" - aspas duplas)
4º Anexar = false (caso exista outro arquivo com o mesmo nome, irá sobrescrever)
5º Encoding (utf-8)
*/
&retorno = dfwOpen(&NomeArquivo,',','"',0,'utf-8')

//=====Percorre tabela de notas fiscais====
for each NotaFiscalData NotaFiscalHora

/*Inserir registros (os delimitadores se inserem automaticamente)
quando utilizarmos "dfwPNum" precisamos informar um parâmetro: quantidade de decimais
quando utilizarmos "dfwPTxt" o ideal é utilizarmos a função .Trim()
quando utilizarmos "dfwPDate" precisamos informar dois parâmetros:
  1º formato da data, "d" para dia, "m" para mês e "y" para ano
  2º separador dos caracteres dia,mês e ano

os registros inseridos com "dfwPNum" e "dfwPDate", por não serem Strings não irão ficar entre aspas duplas "
*/
&retorno = dfwPNum(LivroCodigo,0)
&retorno = dfwPTxt(LivroNome.Trim())
&retorno = dfwPTxt(LivroEdicao.Trim())
&retorno = dfwPNum(LivroValor,2)
&retorno = dfwPTxt(EditoraNome.Trim())
&retorno = dfwPDate(NotaFiscalData,'dmy','/')
&retorno = dfwPTxt(NotaFiscalHora.ToString().Trim())
&retorno = dfwPNum(NotaFiscalNSU,0)
&retorno = dfwPTxt(PagamentoTipo.Trim())
&retorno = dfwPNum(PagamentoId,0)

//=====Ir para a próxima linha=====
&retorno = dfwNext()
endfor

//=====Fechar arquivo=====
&retorno = dfwClose()

Ao trabalhar com arquivos csv, utilizamos as funções

• dfw...(Delimited File Write) - para escrever arquivos;
• dfr...(Delimited File Read) - para ler arquivos;

Por hoje era isso, no próximo post entraremos na função de leitura de arquivos .csv, e para facilitar, continuaremos utilizando este mesmo exemplo. Grande abraço.

Genexus Business Component - Parte II

Nesta segunda parte do assunto Business Component (acesse aqui a parte 1), iremos verificar como realizar rotinas de inserção através de Data Provider, além de atualizações e exclusões de registros. Se a utilização de BC já reduz as linhas de programação e facilita o desenvolvimento, a combinação deste com Data Provider facilita ainda mais.

Mas lembre-se, através de Data Provider só podemos realizar inserções através do Business Component. Veremos abaixo como realizar isto.

Inserção de registros através de Data Provider

Continuando com o exemplo da Parte 1, considere uma aplicação Genexus para uma livraria. Nesta livraria os livros são catalogados por Assunto, Editora e edição correspondente. A partir do seu Assunto cada livro recebe um código único. Após definirmos o desenho da transação e declarar suas regras, definidos a propriedade "Business Component" como true. Neste código, os três primeiros dígitos é o código de seu assunto e os três últimos são sequenciais. Então, os livros do assunto "Negócios" (código 100), terão códigos de 100001 a 100999.

Para facilitarmos a inserção de novos livros, é criado uma Web Panel contendo um grid, com todos os livros registrados. Na última coluna da direita deste grid, inserimos uma imagem e criamos um evento associado a esta, com a opção de clonar este livro. Isto é, inserir um novo livro a partir dos dados do livro selecionado. Logo em nossa form teríamos:

Adicionamos a variável "Livro" que terá como Tipo de Dado o Business Component Livro. Agora, na aba de eventos desta Web Panel, iremos programar o evento associado ao clique da imagem "Clonar":

Event 'ClonarLivro'
//=====Chama o Data Provider passando o código do livro clicado como parâmetro=====
&Livro = DPLivro(LivroCodigo)

//=====Salva os Dados=====
&Livro.Save()

//=====Finaliza a UTL=====
commit

//=====Atualiza a página para aparecer o novo registro no grid=====
Refresh
EndEvent

Data Provider utilizado, a propriedade Output foi definida com o objeto Transação Livro. Os objetos Data Provider não possuem parâmetros de saída (out), este parâmetro é sempre definido a partir de suas propriedades, conforme abaixo:

Regra declarada:

parm(in:&LivroCodigo);

Podemos notar que o parâmetro recebido, id da tabela de Livros, serve como condição para capturar os dados referentes a este registro (where LivroCodigo = &LivroCodigo).

O atributo LivroCodigo e LivroDataCadastro não estão especificados no Data Provider em função de serem atribuídos a partir das regras da transação Livro. Isto é, o Business Component irá herdar estas regras (Regras especificadas na parte 1).

Atualização de registros através de Business Component

Imaginamos a seguinte situação, após determinados períodos, a nossa livraria necessita alterar o preço de todos os livros cadastrados, aumentando ou diminuindo 5% ou então 10%. Seria muito trabalhoso para o administrador da aplicação entrar em todos os livros e realizar esta alteração.

Logo, iremos inserir um campo de ajuste e um botão em nossa web panel para permitir ao administrador alterar todos os registros a partir de uma determinada porcentagem. Assim as mudanças da Form do objeto ficaram da seguinte forma:

Ao clicar sobre o botão o seguinte evento é realizado:

Event 'RealizarAjuste'
//=====Se valor informado não for vazio=====
if not &Ajuste.IsEmpty()

//=====Para cada linha do Grid=====
for each line in Grid

//=====Carrega BC com chave primária=====
&Livro.Load(LivroCodigo)

//=====Define novo valor do livro=====
&Livro.LivroValor = LivroValor * (1+(&Ajuste/100))

//=====Salva alteração e finaliza UTL=====
&Livro.Save()
commit
endfor

//=====Refresh após todos valores serem alterador=====
Refresh
else

//=====Se valor informado for vazio, exibir mensagem=====
msg('Informe a porcentagem de ajuste!')
endif
EndEvent

Note que ao realizar o Load, apenas passamos a chave primária, nos Business Components não precisamos passar todos os parâmetros recebidos pela transação, como o Modo (Update, Delete, Insert ou Display).

Exclusão de registros através de Business Component

Por fim, veremos como excluir registro através do BC.

Nossa seguinte demanda é, após algumas falhas de inclusões (um administrador novato tomou conta do sistema..hehe), precisamos facilitar a forma de exclusão dos livros. Caso se deseje excluir 100 livros, esta tarefa se torna muito trabalhosa, caso tenha que entrar de um em um. Logo, iremos inserir um check box na linha do grid, com a opção do usuário selecionar aquelas linhas que deseje excluir apenas clicando sobre um botão.

Nossa Form ficaria da seguinte forma:

Ao clicar sobre o botão "Excluir Registros Selecionados" o seguinte evento é realizado:

Event 'ExcluirRegistrosSelecionados'
//=====Para cada linha do Grid=====
for each line in Grid
if &Excluir = 'S'
//=====Carrega BC com chave primária=====
&Livro.Load(LivroCodigo)

//=====Exclui registro e finaliza UTL=====
&Livro.Delete()
commit
endif
endfor

//=====Refresh após todos valores serem alterador=====
Refresh
EndEvent

Bom gurizada, caso tenham alguma dúvida perguntem nos comentários, não há necessidade de se identificar. Forte Abraço.

Genexus Business Component - Parte I

Ao desenvolver aplicativos através do Genexus, podemos determinar diferentes formas de atualizar a nossa base de dados, seja através de transações, procedimentos ou até web panels. Cada uma destas opções possui os seus prós e contras de utilização.

O grande diferencial das transações, é a sua facilidade de criação, já que o analista não necessita programar as rotinas de inserção, alteração e exclusão dos dados informados pelo usuário.

Já os procedimentos são utilizados quando há a necessidade de realizar inserções/alterações/exclusões com muitos dados de forma automatizada e até por rotinas batch. Sua principal característica é sua alta performance, principalmente quando utilizamos a função "Blocking" para estas grandes atualizações.

Porém e quando necessitamos trabalhar com uma web panel, quem sabe um grid de clientes que informe entre outros dados, a coluna ativo/inativo. E, através de um clique sobre esta coluna, este status é alterado, sem a necessidade de entrar no modo alteração da transação, alterar o valor do atributo e clicar em confirmar. São em situações como esta que a utilização de Business Component (BC) é a mais recomendada.

Lembre-se

Antes de visualizarmos alguns exemplos do Business Component em ação, precisamos lembrar que:

1. Os Data Providers podem ser utilizados junto com o Business Component apenas para operações de inserção;
2. O Business Component omite o valor da propriedade "commit on exit" dos objetos. Isto é, ao utilizarmos o BC precisamos utilizar o comando "commit" para finalizar a UTL;
3. O BC importa algumas regras e eventos definidos na sua respectiva transação:
1. todas as regras são executadas, exceto aquelas que chamam outro objeto com interface, e regras como parm, prompt, noprompt;
2. todos os eventos são ignorados, exceto os eventos START e AFTER TRN. Comandos que chamam outro objeto com interface (WebPanel.Call()) são ignorados sempre;
4. Para capturarmos as mensagens de erro utilizamos a variável "messages", programando:

&messages = &VariavelBC.GetMessages()
for &message in &messages
endfor

Inserindo valores através de Business Component

Para exemplificar o método de inserção utilizando BC, considere uma aplicação Genexus para uma livraria. Neste livraria os livros são catalogados por Assunto, Editora e edição correspondente. A partir do seu Assunto cada livro recebe um código único. Neste código, os três primeiros dígitos é o código de seu assunto e os três últimos são sequenciais. Então, os livros do assunto "Negócios" (código 100), terão códigos de 100001 a 100999. De acordo com esta definição, o desenho de nossa transação Livro e suas regras definidas serão:

//=====Define a Data de inserção como Data de Cadastro=====
Default(LivroDataCadastro,&Today);

//=====Serializa o Código do Livro, de acordo com seu Assunto=====
LivroCodigo = SerializaLivroCodigo.Udp(AssuntoCod) 
on beforeinsert;

Antes de tudo, para utilizarmos o BC precisamos definir qual a transação que iremos trabalhar. Definida esta transação, em suas propriedades, precisamos definir o item "Business Component" como True, conforme figura abaixo:

Para facilitarmos a inserção de novos livros, é criado uma Web Panel contendo um grid, com todos os livros registrados. Na última coluna da direita deste grid, inserimos uma imagem e criamos um evento associado a esta, com a opção de clonar este livro. Isto é, inserir um novo livro a partir dos dados do livro selecionado. Logo em nossa form teríamos:

Obs.: Este grid contém todos os atributos da transação Livro, aqueles que não nos interessa mostrar para o usuário estar marcados como invisíveis. Mais adiante será explicado o porque.

Adicionamos a variável "Livro" que terá como Tipo de Dado o Business Component Livro. Agora, na aba de eventos desta Web Panel, iremos programar o evento associado ao clique da imagem "Clonar":

Event 'ClonarLivro'
//=====Referencia um novo registro=====
&Livro = new()

//=====Iguala Atributos do BC ao da linha selecionada=====
&Livro.LivroNome = LivroNome
&Livro.LivroSinopse = LivroSinopse
&Livro.LivroAtivo = LivroAtivo
&Livro.LivroDataLancamento = LivroDataLancamento
&Livro.LivroCapa = LivroCapa
&Livro.LivroEdicao = LivroEdicao
&Livro.LivroPaginas = LivroPaginas
&Livro.LivroValor = LivroValor
&Livro.AssuntoCod = AssuntoCod
&Livro.EditoraId = EditoraId

//=====Salva os Dados=====
&Livro.Save()

//=====Finaliza a UTL=====
commit

//=====Atualiza a página para aparecer o novo registro no grid=====
Refresh
EndEvent

Note que, todos os atributos referenciados estão presentes no grid, alguns visíveis outros não. Isto é necessário para que ele carregue corretamente o valor de cada atributo.

Quando este Business Component for executado, as regras correspondentes a sua transação são carregadas automaticamente. Nestas regras, o atributo LivroDataCadastro recebe o valor default do dia e, o atributo LivroCodigo recebe um valor definido através de um procedimento. Por isso, estes dois atributos não são assinalados no evento "ClonarLivro".

Inserindo valores em transações com níveis

Agora a situação é um pouco diferente, após algum tempo foi verificado a necessidade de adicionar o(s) autor(es) de cada livro. Considere que um livro pode ter mais de um autor e um autor pode ter mais de um livro, logo o desenho da transação ficará (AutorCodigo é chave estrangeira):

Após isto será necessário alterar o evento "ClonarLivro" da nossa Web Panel, a variável "LivroAutores" é do tipo de dado - Business Component: Livro.Autores:

Event 'ClonarLivro'
//=====Referencia um novo registro=====
&Livro = new()

//=====Iguala Atributos do BC ao da linha selecionada=====
&Livro.LivroNome = LivroNome
&Livro.LivroSinopse = LivroSinopse
&Livro.LivroAtivo = LivroAtivo
&Livro.LivroDataLancamento = LivroDataLancamento
&Livro.LivroCapa = LivroCapa
&Livro.LivroEdicao = LivroEdicao
&Livro.LivroPaginas = LivroPaginas
&Livro.LivroValor = LivroValor
&Livro.AssuntoCod = AssuntoCod
&Livro.EditoraId = EditoraId

//=====Referencia novo registro de Autor A===== &LivroAutores = new() &LivroAutores.AutorCodigo = 1 //=====Adiciona referencia ao primeiro nível===== &Livro.Autores.Add(&LivroAutores) //=====Referencia novo registro de Autor B===== &LivroAutores = new() &LivroAutores.AutorCodigo = 2 //=====Adiciona referencia ao primeiro nível===== &Livro.Autores.Add(&LivroAutores)

//=====Salva os Dados=====
&Livro.Save()

//=====Finaliza a UTL=====
commit

//=====Atualiza a página para aparecer o novo registro no grid=====
Refresh
EndEvent

Note que a forma de trabalho do Business Component é muito semelhante ao trabalho com SDTs, possuem os mesmo comandos "new" e "add".

Na próxima parte vamos ver como inserir dados a partir de um Data Provider (ai o bicho pega) e as operações de Alteração e Exclusão de dados.

Era isso gurizada, qualquer dúvida ou sugestão enviem através dos comentários ou então pelo email genexus@outlook.com. Abraço

Certificação Genexus - Experiência Pessoal

Terça-feira, 19 de novembro realizei a tão esperada prova de certificação da Artech para analista sênior. Hoje irei contar como foi o passo a passo desta experiência, desde o contato junto ao centro de treinamento, responsável por realizar a prova, até a correção desta.

Como Realizar a Inscrição?

A inscrição para a prova pode ser feita de duas formas, através do email apieroni@genexus.com (responsável da área comercial da Artech Brasil), ou então a partir de um centro de treinamento parceiro da Artech.

A partir deste contato inicial, você saberá quando é a próxima data marcada para ocorrerem as provas. Estas datas são determinadas pela Artech, por isso, não vá planejando e escolhendo uma data que deseje.. hehehe

Para confirmar a inscrição é necessário informar alguns dados como, nome completo, data de nascimento, endereço, CPF, empresa, usuário cadastrado no GxTechnical e horário de preferência, 09:00 ou 13:30.

Após isto, você irá receber um email com o boleto bancário a ser pago, no meu caso R$ 700,00 para analista sênior... este boleto tem que ser pago e até 3 dias úteis antes da realização da prova.

A Prova

A prova é realizada em algum centro de treinamento parceiro da artech. Esta prova é efetuada a partir do site GxTechnical, basta o usuário acessar este site, efetuar o login, e clicar no último link a esquerda do menu, "Exames".

Há um total de 36 questões, e para cada questão, uma alternativa correta. As questões serão:

• 70% de múltipla escolha - 3, 4 ou 5 alternativas, a última será sempre a opção "nenhuma das alternativas";
• 30% de Verdadeiro/Falso;

Você terá 180 minutos para realizar a prova, durante este tempo poderá avançar e retroceder as questões, revisar a prova de forma sucinta e confirmar o seu término. Após isto é pedido um usuário e senha da empresa que ministrou a certificação, para finalmente apresentar o resultado da certificação.

Na figura abaixo você pode conferir o layout do modo como a prova é apresentada. No seu topo, sempre irá aparecer o tempo que falta para a realização da prova, abaixo é apresentada a questão com o percentual  que compõe a prova. As questões mais difíceis valem de 5% a 6%, já as mais fáceis de 1% a 2%. Abaixo da questão são apresentadas as suas alternativas de respostas, e no rodapé os botões para avançar, retornar e efetuar revisão.

Conteúdo cobrado

O conteúdo cobrado foi:

CONTEÚDO	Nº DE QUESTÕES
Modelagem de transações segundo os relacionamentos 1-N, 1-1, N-1	3
Tabela base e estendida aplicado ao modelo de bachman, às transações e for each	4
Desenho das tabelas a partir de transações	1
Adicionar conteúdo a um SDT através de Data Provider	2
Business Component - inserções, inserções de níveis e atualizações	3
Data Provider	2
Ordem de execução das regras	3
Condições de fórmulas	1
Subtipos	2
GxServer	1
Patterns	1
UTL - unidade de trabalho lógica	1
Definição de tabela base de uma Web Panel, através de atributos	1
Web Panel Grid, evento load de um objeto com e sem tabela base	2
Web Panel, condições de um grid	1
Fórmulas Horizontais - expressões aritméticas	1
Conhecimento de for each aninhado - break, join, produto cartesiano	5
Procedure	1
Execução de uma compilação - run, build all, rebuild all	1

Uma recomendação, façam simulados, leiam a parte teórica disponibilizada no site Genexus Training,  e façam anotação, resumos desta teoria lida.

O tempo para a realização da prova é mais que o suficiente, não há por que se apressar. Tenham bastante paciência, mesmo que após uma hora e meia já estejam cansados. Peçam uma folha e um lápis para rascunho, vai ser muito útil. E imaginem que os enunciados são especificações de projetos, para resolvê-lo sem antes precisar olhar cada alternativa.

O simulado compartilhado pelo blog contém mais de 10 questões muito parecidas com o que foi cobrado, caso se interesse deixe seu email nos cometários, que envio sem nenhum problema.

Ah..por fim, consegui minha certificação com 87% de acertos, terminando a prova em cerca de 100 minutos. As vezes as questões mais simples se tornam as mais complicadas... hehehe, é isso pessoal, forte abraço

Ordem de execução das Regras - Parte II

Vamos para a segunda e última parte desta "série"... Bom gurizada, conforme combinado no dia primeiro de novembro (post "Ordem de Execução das Regras - Parte I"), darei continuidade a este assunto. Como, diabos, esse tal de Genexus trata a execução de regras e fórmulas especificadas nas transações. 

Hoje iremos conhecer, ou então recordarmos, as regras com eventos de disparos definidos. 

Mas que eventos de disparos são estes? 

Em alguns casos, quando programamos as regras em nossa transação, precisamos adicionar um evento para controlar o momento em que esta regra será executada, e dessa forma, controlar para que o objeto aja da forma esperada. 

Os eventos de disparos são:

1. BeforeValidate;
2. AfterValidate - BeforeInsert - BeforeUpdate - BeforeDelete;
3. AfterInsert - AfterUpdate - AfterDelete;
4. AfterLevel;
5. BeforeComplete;
6. AfterComplete;

Podemos visualizar na nossa figura de apoio abaixo, em qual momento cada um se executa:

Este conhecimento é essencial ao analista genexus, e é um assunto que sempre cai nas provas de certificações, por isso, vamos tentar capturar esta lógica de ordenação!

BeforeValidate

Este evento ocorre um momento antes que a informação trabalhada (cabeçalho ou linha de um grid) seja validada. Este é um evento pouco utilizado, visto que as informações digitadas na form ainda não foram validadas. Podemos utilizar para chamar procedures passando como parâmetro os próprios parâmetros recebidos através da regra parm.

AfterValidate - BeforeInsert - BeforeUpdate - BeforeDelete

Este evento ocorre após a validação da informação trabalhada (cabeçalho ou linha de um grid) e, antes da inserção física dos dados. Isso mesmo, a inserção física dos dados no banco de dados, ocorre após este evento de disparo, e não no famoso commit. 

Efetuar um commit, significa que um conjunto de operações realizada na base de dados, foi finalizada com sucesso. E assim, se da por finalizada uma unidade de trabalho lógica (UTL).

Preste atenção, pois os eventos especificados abaixo são idênticos:

[Regra] if insert on AfterValidate = [Regra] on BeforeInsert;
[Regra] if update on AfterValidate = [Regra] on BeforeUpdate;
[Regra] if delete on AfterValidate = [Regra] on BeforeDelete;

Porém, se especificarmos somente o evento AfterValidate, a regra será executada em todas as ações anteriores, inserção, alteração e exclusão. Cuide isto.

AfterInsert - AfterUpdate - AfterDelete

Este evento ocorre após a inserção física da informação trabalhada (seja cabeçalho ou linha de um grid).

Lembre-se então, para setarmos valores a atributos através de regras, o último momento é a regra anterior (AfterValidate). Desta regra em diante, os dados já estarão gravados no nosso banco de dados.

AfterLevel

Este evento ocorrerá após o abandono do nível (grid) trabalhado e, após a gravação física da última linha deste grid. Caso a nossa transação só possuir um grid, este evento ocorrerá no mesmo instante do evento BeforeComplete. Caso a transação possuir 2 ou mais níveis, este evento ocorrerá no mesmo número de vezes.

Exemplo, caso precisamos obrigar o usuário a inserir no mínimo uma linha do Grid, especificaríamos:

Error("....") if Count(AtributoGrid) = 0 on AfterLevel Level AtributoGrid;

BeforeComplete

Este evento ocorrerá antes de se realizar o commit, isto é, terminar a UTL trabalhada. Como visto anteriormente, este evento coincidirá com o evento AfterLevel quando só existir um nível ou então, caso possua N níveis, com o último nível criado.

AfterComplete

Este evento ocorrerá após a realização do commit.

Exemplos de utilização

Em uma transação de Clientes, desejamos emitir um relatório dos dados dos clientes nos determinados momentos: ao inserir um registro; ao atualizar um registro; e ao excluir um registro,

Inserção de novo registro

Neste caso só podemos chamar o relatório após os dados da transação terem sido gravados fisicamente na tabela. Por isso, não poderíamos utilizar o evento BeforeInsert/AfterValidate, pois os dados estariam apenas validados. Logo nossa regra seria:

Relatório.Call(ClienteId) on AfterInsert;

Se utilizássemos a regra BeforeInsert, o Id do Cliente não estaria inserido no banco de dados e nosso relatório se apresentaria vazio.
  
Atualização de um registro  - relatório dos dados antigos, antes de serem alterados

Neste caso, desejamos que o relatório seja gerado antes da gravação física dos novos dados, ou seja, um log da situação anterior à mudança. Logo nossa regra seria:

Relatorio.Call(ClienteId) on BeforeUpdate; ou então
Relatorio.Call(ClienteId) if update on AfterValidate;

Se utilizássemos a regra AfterUpdate, os novos dados já estariam sido gravados fisicamente na tabela, sendo assim, impossível de capturar sua posição anterior.

Exclusão de um registro - dados do cliente excluído do sistema

Neste caso, desejamos que o relatório seja gerado antes da exclusão ter sido realizada na tabela, para desta forma, podermos capturar todas as informações do cliente a ser excluído. Logo nossa regra seria:

Relatorio.Call(ClienteId) on BeforeDelete; ou então
Relatorio.Call(ClienteId) if delete on AfterValidate;

Caso utilizássemos a regra AfterDelete, a exclusão física já haveria sido realizada, e não existiria mais as informações sobre nosso pobre cliente.

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

Exercícios

Verdadeiro ou falso, algumas regras estão mal programadas?

FaturaData = &today on AfterInsert;

Incorreto: o último momento de assinalarmos algum valor para os atributos é o evento AfterValidate/BeforeInsert/BeforeUpdate.

Procedure.Call(FaturaData) on AfterInsert;

Correto: os dados já foram inseridos fisicamente na tabela, por isso, caso o restante da transação não apresente erro, o comando irá se executar com sucesso.

Efeito Jquery em uma WebPanel - Genexus

Bom pessoal, vamos a mais um post a respeito de jquery. Esta biblioteca que tanto tem crescido no desenvolvimento de aplicações web, acredito que, por permitir trabalhar com javascript de uma forma muito fácil e prazerosa. Os efeitos abrangentes são fantásticos, muitas vezes quando achamos que um site foi programado em flash, por permitir interações através da movimentação do mouse, vamos mais a fundo, visualizamos seu código fonte, e eis que esse efeito é nada mais que um plugin desenvolvido em jquery.

Hoje vou mostrar o desenvolvimento de um efeito de slide a uma camada de Filtro, que tanto utilizamos nos nossos Patterns. Neste caso, a camada de Filtro se iniciará Invisível para o usuário, porém com a possibilidade de expandi-la através de um TextBlock.

Ao tentar realizar este exemplo me deparei com alguns bugs tanto do Internet Explorer (quase extinto, finalmente) quanto do próprio Genexus. O IE não trata o slideToggle (função jquery), da mesma forma que os outros browsers, ao realizarmos o efeito ele parece piscar, cada vez que é executado. Já no Genexus, a função slide parece não respeitar as tabelas, textblocks, variáveis presentes na tela.

Porém com um pouco de pesquisa cheguei a uma solução, para realizarmos o efeito da forma desejada precisaremos executar três funções do jquery, são:

slideToggle()	hide() - show()
Exemplo slideToggle()	Exemplo hide() e show()

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

Vamos lá então, em uma Web Panel crie a seguinte estrutura de tabelas em "Form":

Legenda:
      Vermelho: Tabela principal (2 Row/1Column)
      Verde: Tabela - ControlName: Table_Slide (Height:50px, Width: 100%)
      Azul: Tabela - ControlName: Table_Filtro (Height:20px)
      "Expandir": TextBlock - ControlName: TB_Expand

Em Eventos:

Event Start
//=====Adiciona estilos - css às tabelas "filtro" e "slide"=====
Form.HeaderRawHTML = '<style>'
Form.HeaderRawHTML += '#TABLE_FILTRO{display:none;} #TABLE_SLIDE{display:none;}'
Form.HeaderRawHTML += '</style>'

//=====Adiciona biblioteca jquery - mais recente=====
Form.HeaderRawHTML += '<script type="text/javascript" src="http://code.jquery.com/jquery-latest.js"></script>'

//=====Inclui função de slide=====
Form.HeaderRawHTML += '<script type="text/javascript">'
Form.HeaderRawHTML += '$(function() {'

//=====Ao clicar sobre o TextBlock TB_Expand - "Expandir"=====
Form.HeaderRawHTML += '$("#TB_EXPAND").click(function() {'

//=====Se a Tabela Filtro estiver invisível=====
Form.HeaderRawHTML += 'if($("#TABLE_FILTRO").css("display") == "none"){'

//=====Tabela Slide - aparece através de slide=====
Form.HeaderRawHTML += '$("#TABLE_SLIDE").slideToggle(400, function() {'

//=====Tabela Filtro se torna visível=====
Form.HeaderRawHTML += '$("#TABLE_FILTRO").show(300);});'

//=====Se a Tabela Filtro estiver visível=====
Form.HeaderRawHTML += '}else{'

//=====Tabela Filtro se torna invisível=====
Form.HeaderRawHTML += '$("#TABLE_FILTRO").hide(300, function() {'

//=====Tabela Slide - some através de slide=====
Form.HeaderRawHTML += '$("#TABLE_SLIDE").slideToggle(400);})}});'
Form.HeaderRawHTML += '});' 
Form.HeaderRawHTML += '</script>' 
EndEvent

Event TB_Expand.ClickEndEvent

Por fim, teremos uma tela semelhante a esta abaixo, onde ao clicar sobre o TextBlock "Expandir" a Tabela em Azul realiza um Slide up/down: