Exemplo: SAP - RFC (Remote Function Call) com Delphi

Este é um pequeno exemplo em Delphi de como chamar no SAP uma RFC (Remote Function Call).

• Preparação Delphi

Para este exemplo será necessário importar no Delphi os ActiveX Controls SAP Logon Control e SAP Remote Function Call Control, conforme as imagens abaixo:

Exemplo: SAP - RFC para Integração de Funcionário (Dados mestre HR)

Depois de muito pesquisar enfim cheguei em uma "solução" para o desenvolvimento de uma RFC para Integração de Funcionário (Dados mestre HR), então venho aqui compartilhar a codificação para que talvez possa servir de auxílio para alguém:



FUNCTION ZHR_INTER_FUNC.
*"----------------------------------------------------------------------
*"*"Interface local:
*"  IMPORTING
*"     VALUE(FUNC) TYPE  ZHRE_INTER_FUNC
*"  TABLES
*"      RETORNO STRUCTURE  BAPIRETURN1
*"----------------------------------------------------------------------

  DATA: v_dialog_mode TYPE c VALUE '0', "1 - Exibir tela com erro
        it_return1 LIKE bapireturn1,
        it_pv TYPE STANDARD TABLE OF pprop,
        wa_pv LIKE LINE OF it_pv.

  wa_pv-infty = '0002'.

  wa_pv-fname = 'P0002-ANRED'.
  wa_pv-fval = func-anred.
  APPEND wa_pv TO it_pv.