{{:bk_cab_rh3software.png?200|}}



**<fs x-large>Formatador de Relatório - Manual do RAP</fs>**



=====TUTORIAL RAP - CONFIGURANDO OS COMPONENTES DO RELATÓRIO - Endereço de linhas de carga no Memo - Adicionar o código====
----

**Tarefa 2**

Digite o código para o evento handler

1. Acesse a área de trabalho Calc clicando na guia Calc

2. Selecione Memo1;

3. Clique com o botão direito no evento OnPrint e selecione New.

{{ :manual_usuario:outros:formatador_68.png?700 |}}

4. Digite o seguinte código para o evento handler:

  var
    lsLine: String;
    lsState: String;
    lsZIP: String;
  begin
  {clear memo}
    Memo1.Lines.Clear;
  
    {add contact}
    lsLine := Customer['Contact'];
  
    Memo1.Lines.Add(lsLine);
  
    {add company}
    lsLine := Customer['Company'];
  
    Memo1.Lines.Add(lsLine);
  
    {add address line1}
    lsLine := Customer['Addr1'];
  
    if lsLine <> '' then
      Memo1.Lines.Add(lsLine);
  
    {add address line2}
    lsLine := Customer['Addr2'];
  
    if lsLine <> '' then
      Memo1.Lines.Add(lsLine);
  
    {add city, state zip}
    lsLine := Customer['City'];
  
    lsState := Customer['State'];
  
    if lsState <> '' then
      lsLine := lsLine + ', ' + lsState;
  
    lsZIP := Customer['ZIP'];
  
    if lsZIP <> '' then
      lsLine := lsLine + ' ' + lsZIP;
  
    Memo1.Lines.Add(lsLine);
  
    {add country}
    lsLine := Customer['Country'];
  
    Memo1.Lines.Add(lsLine);
  end;

5. Clique com o botão direito e selecione "Compile";

6. Visualize o relatório. Seu relatório deve ficar assim:

{{ :manual_usuario:outros:formatador_69.png?700 |}}

7. Salve o relatório;

8. Feche o relatório.

Parabéns! Você criou um relatório usando RAP para carregar linhas de endereço em um Memo.