Do Case em Genexus

Exemplo simplificado de uso do comando "Do Case" em linguagem Genexus, para tanto utilizei um objeto Data Provider, onde inclui o comando "Do Case",  um Web Panel chamando o Data Provider e a base de estudos dos cursos oficiais para Genexus.


Passo 1: Crie um objeto Data Provider e inclua as linhas abaixo na aba SOURCE:

//Contar Notas fiscais e atribuir um desconto
For each Invoice
   where CustomerId = &CustomerId
   &Qtde = count(InvoiceDate)
Endfor

Do Case
   Case &Qtde = 1 &Desconto = 5
   Case &Qtde = 2 &Desconto = 10
   Case &Qtde = 3 &Desconto = 15
   Case &Qtde > 3 &Desconto = 20
 Otherwise
     &Desconto = 0
 Endcase


Passo 2: Inclua na aba RULES do Data Provider

 Parm(in: &CustomerId, inout: &Qtde, inout: &Desconto);


Passo 3: Crie um objeto Web Panel e inclua as variáveis da regra(aba RULE) Parm do Data Provider.

Passo 4: Inclua as variáveis na aba WEB FORM do Web Panel, e acrescente um Botão(Button), nomeie a propriedade "On Click Event" como 'Chama Data Provider'.

Passo 5: Inclua o comando abaixo na aba EVENT do Web Panel:

 Event 'Chama Data Provider' 

       GetDiscount(&CustomerId, &Qtde, &Desconto) 

Endevent

Passo 6: Salve tudo, compile (F5) e teste a aplicação

Link para um curso de Genexus disponibilizado no youtube:
https://www.youtube.com/playlist?list=PL2npmScYno4YNLiKJ3STOczbuHBN7qntu