Utilizar o Entity Manipulation Language

Utilize a ferramenta Visualização de dados para verificar o nome atual da agência de viagens com o ID "0700##", onde ## representa seu número de grupo.

1. Abra a definição da entidade de visão CDS /DMO/I_AgencyTP.

   1. Se você ainda tiver a definição de dados /DMO/I_AGENCYTP aberta a partir do exercício anterior, mude para a guia correspondente. Caso contrário, pressione Ctrl + Shift + A para abrir o objeto de desenvolvimento ABAP.

2. Abra a ferramenta Visualização de dados.

   1. Clique com o botão direito do mouse em qualquer lugar do texto fonte para abrir o menu de contexto.

   2. No menu de contexto, selecione Abrir com→visualização de dados.

3. Verifique o nome atual da agência de viagens com o ID "0700##", onde ## representa seu número de grupo.

   1. Role para baixo até a entrada com o valor "0700##" na coluna AgencyID e anote o valor na coluna Nome.

No seu próprio pacote, crie uma nova classe ABAP.

1. Crie uma nova classe ABAP chamada ZCL_##_EML, onde ## representa seu número de grupo. Certifique-se de que a classe implementa a interface IF_OO_ADT_CLASSRUN.

   1. Selecione Arquivo→Nova→classe ABAP.

   2. Insira o nome do seu pacote no campo Pacote. No campo Nome, insira o nome ZCL_##_EML, em que ## é seu número de grupo. Insira uma descrição.

   3. No quadro de grupo Interfaces, selecione Adicionar.

   4. Insira IF_OO_ADT_CLASSRUN. Quando a interface aparecer na lista de ocorrências, clique duas vezes nela para adicioná-la à definição de classe.

   5. Selecione Avançar.

   6. Selecione sua ordem de transporte e, em seguida, Concluir.

Implemente uma instrução EML para modificar o nome da agência de viagens com o ID "0700##" (## representa seu número de grupo).

1. No método IF_OO_ADT_CLASSRUN~MAIN, declare uma tabela interna com o tipo derivado correto para uma atualização EML da entidade /DMO/I_AgencyTP (nome proposto: agencies_upd).

   1. Adicione o seguinte código:

      Code Snippet

      Copy codeSwitch to dark mode

      123
      
           DATA agencies_upd TYPE TABLE FOR UPDATE /DMO/I_AgencyTP.
      

2. Preencha a tabela interna com uma única linha contendo "0700##" como o valor para a coluna AGENCYID (onde ## representa seu número de grupo) e qualquer valor novo para a coluna NAME.

   1. Após a declaração de dados, adicione algum código semelhante ao seguinte código:

      Code Snippet

      Copy codeSwitch to dark mode

      123
         
         agencies_upd = VALUE #( ( agencyid = '0700##' name = 'Some fancy new name' ) ).
         

3. Implemente uma instrução EML MODIFY ENTITIES para a interface do business object /DMO/I_AgencyTP. Atualize os dados da entidade raiz, garantindo que somente o campo NAME seja modificado.

   Dica

   Lembre-se de que o comportamento da interface define o nome do alias /DMO/Agency para a entidade raiz /DMO/I_AgencyTP.

   1. No final do método, adicione o seguinte código:

      Code Snippet

      Copy codeSwitch to dark mode

      123456
      
           MODIFY ENTITIES OF /dmo/i_agencytp
              ENTITY /dmo/agency
              UPDATE FIELDS ( name )
                WITH agencies_upd.
      

4. Para obter algum resultado visível do aplicativo, escreva um literal de texto no console usando o método out->write.

   1. Após a instrução MODIFY ENTITIES, adicione o seguinte código:

      Code Snippet

      Copy codeSwitch to dark mode

      123
      
           out->write( `Method execution finished!`  ).
      

5. Ative e teste a classe.

   1. Pressione Ctrl + F3 para ativar a classe.

   2. Pressione F9 para executar a classe.

6. Verifique se o novo nome foi escrito no banco de dados.

   1. Volte para a visualização de dados para a entidade de visão CDS /DMO/I_AgencyTP.

   2. Na barra de ferramentas da guia Visualização de dados, selecione Atualizar.

7. Adicione a instrução COMMIT ENTITIES ao seu código para confirmar as modificações.

   1. Volte para o método IF_OO_ADT_CLASSRUN~MAIN em sua classe global ZCL_##_EML.

   2. Ajuste o código da seguinte forma:

      Code Snippet

      Copy codeSwitch to dark mode

      123456789101112131415161718
      
      METHOD if_oo_adt_classrun~main.
      
          DATA agencies_upd TYPE TABLE FOR UPDATE /dmo/i_agencytp.
      
          agencies_upd = VALUE #( ( agencyid = '0700##' name = 'Some fancy new name' ) ).
      
          MODIFY ENTITIES OF /dmo/i_agencytp
            ENTITY /dmo/agency
            UPDATE FIELDS ( name )
              WITH agencies_upd.
      
          COMMIT ENTITIES.
      
          out->write( `Method execution finished!`  ).
      
        ENDMETHOD.
      

8. Ative e teste a classe novamente. Confirme que as modificações estão agora no banco de dados.

   1. Pressione Ctrl + F3 para ativar a classe.

   2. Pressione F9 para executar a classe.

   3. Volte para a visualização de dados para a entidade de visão CDS /DMO/I_AgencyTP.

   4. Na barra de ferramentas da guia Visualização de dados, selecione Atualizar.