---

1. Selecione a variável vrItemTotal na banda de detalhes.

2. Selecione a guia Eventos do Object Inspector.

3. Dê um duplo clique sobre o evento OnCalc. Uma classe de evento será gerada em seu form Delphi.

4. Adicione o seguinte código para este evento:

Value := plItem['Qty']*plPart['ListPrice'];

Nota: Este evento recupera a quantidade e lista dos preços dos itens e retorna o valor total por meio do parâmetro Value. O resultado será o valor do componente variable. O evento OnCalc irá disparar uma vez para cada item.

5. Retorne ao Report Designer e selecione a variável vrOrderTotal na banda de rodapé de grupo.

6. Código do evento OnCalc:

Value := Value + vrItemTotal.Value;

Nota: Este evento recupera o total corrente para o item e adiciona à execução total para a ordem. Este evento OnCalc também irá disparar uma vez para cada registro de item.

7. Volte para o Report Designer, clique com botão direito sobre a variável vrOrderTotal, e selecionar Timing … opção de menu.

8. Selecione “GroupEnd 'para restabelecer a lista suspensa. Selecione 'Group0: OrderNo' da lista drop-down Group.

Nota: O diálogo Timing permite que você controle quando o evento OnCalc dispara e quando o valor da variável será reposta. Para esse total, queremos calcular o valor de cada vez que um registro é atravessado e queremos redefinir o valor após o rodapé de grupo tenha concluído a impressão.

9. Selecione “Project | Compile rbMDDProj”. Corrigir quaisquer problemas de compilação.

10. Select “File | Save” no menu do Delphi.