ABAP SFP function

最新推荐文章于 2024-09-10 18:18:43 发布

zltpc007

最新推荐文章于 2024-09-10 18:18:43 发布

阅读量3.4k

点赞数

分类专栏： SAP ABAP 文章标签： function header fp command table object

本文链接：https://blog.youkuaiyun.com/zltpc007/article/details/4359685

版权

SAP 同时被 2 个专栏收录

26 篇文章

订阅专栏

ABAP

12 篇文章

订阅专栏

本文介绍了一个 SAP ABAP 系统中用于处理员工档案照片的程序片段。该程序通过调用 SAP 函数模块来获取员工的照片归档信息，并将其转换为可供打印输出的格式。此外，还展示了如何利用 SAP 的归档接口获取归档对象的连接信息及字节数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

*&---------------------------------------------------------------------*
*&      Form PROCESS_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_TB_INDEX text
*----------------------------------------------------------------------*
FORM PROCESS_COMMAND USING    P_TB_INDEX.

DATA: IE_OUTPUTPARAM TYPE SFPOUTPUTPARAMS.
I_NAME TYPE FPNAME,
I_FUNCNAME TYPE FUNCNAME,

      IM_TEXT        TYPE STRING,
      LOGFILEOBJ     TYPE REF TO CL_LSO_LOGFILE.
      SZ_OBJID(50),
      ICOUNT         TYPE SY-INDEX,
      AR_CONNECTIONS TYPE TOAV0 OCCURS 1 WITH HEADER LINE,
      AR_DOCCLASS    TYPE TOADD-DOC_TYPE,
      BINDATA        LIKE TBL1024 OCCURS 0 WITH HEADER LINE,
      SZ_XSTRING     TYPE XSTRING,

WA_TOA_DARA TYPE TOA_DARA,

FP_DOCPARAMS TYPE SFPDOCPARAMS,
FP_FORMOUTPUT TYPE FPFORMOUTPUT,

IT0023 TYPE TABLE OF ZHRSGRJL_0023 WITH HEADER LINE,
IT0021 TYPE TABLE OF ZHRSGRJL_0021 WITH HEADER LINE.

LOGFILEOBJ = CL_LSO_LOGFILE=>GET_INSTANCE( CL_LSO_LOGFILE=>CO_HANDLE_CP ).

READ TABLE Z01 INDEX P_TB_INDEX.

PERFORM GET_IT_0023_0021 TABLES IT0023 IT0021.

CONCATENATE Z01-PERNR '0002' INTO SZ_OBJID.

CALL FUNCTION 'ARCHIV_GET_CONNECTIONS'
EXPORTING
   OBJECTTYPE               = 'PREL'
   OBJECT_ID                = SZ_OBJID
   CLIENT                   = SY-MANDT
   ARCHIV_ID                = 'A2'
   DOCUMENTTYPE             = 'HRICOLFOTO'
*   UNTIL_AR_DATE            = SY-DATUM
IMPORTING
   COUNT                    = ICOUNT
TABLES
   CONNECTIONS              = AR_CONNECTIONS
EXCEPTIONS
   NOTHING_FOUND            = 1
   OTHERS                   = 2.

IF ICOUNT > 0.
READ TABLE AR_CONNECTIONS INDEX 1.

MOVE AR_CONNECTIONS-RESERVE TO AR_DOCCLASS.

CALL FUNCTION 'ARCHIVOBJECT_GET_BYTES'
    EXPORTING
      ARCHIV_ID                      = AR_CONNECTIONS-ARCHIV_ID
      ARCHIV_DOC_ID                  = AR_CONNECTIONS-ARC_DOC_ID
      DOCUMENT_TYPE                  = AR_DOCCLASS
      LENGTH                         = 0
      OFFSET                         = 0
    TABLES
      BINARCHIVOBJECT                = BINDATA
    EXCEPTIONS
      ERROR_ARCHIV                   = 1
      ERROR_COMMUNICATIONTABLE       = 2
      ERROR_KERNEL                   = 3
      OTHERS                         = 4.

LOOP AT BINDATA.
CONCATENATE SZ_XSTRING BINDATA-LINE INTO SZ_XSTRING IN BYTE MODE.
ENDLOOP.

Z01-MIMETYPE = AR_DOCCLASS.
Z01-PHOTO = SZ_XSTRING.

ENDIF.

IE_OUTPUTPARAM-DEVICE = 'PRINTER'.
IE_OUTPUTPARAM-NODIALOG = 'X'.
*IE_OUTPUTPARAM-DEST = 'ZPDF'.
*IE_OUTPUTPARAM-REQNEW = 'X'.
*IE_OUTPUTPARAM-ARCMODE = 2.

CALL FUNCTION 'FP_JOB_OPEN'
CHANGING
    IE_OUTPUTPARAMS       = IE_OUTPUTPARAM
EXCEPTIONS
    CANCEL                = 1
    USAGE_ERROR           = 2
    SYSTEM_ERROR          = 3
    INTERNAL_ERROR        = 4
    OTHERS                = 5.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

I_NAME = 'ZHRIRESUMEPDF'.

CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
EXPORTING
    I_NAME                     = I_NAME
IMPORTING
    E_FUNCNAME                 = I_FUNCNAME
* E_INTERFACE_TYPE =
          .

*wa_toa_dara-mandant = sy-mandt.
*wa_toa_dara-sap_object = 'PREL'.
*wa_toa_dara-ar_object = 'HRIDIPLAPL'.
*concatenate learnerid objid into wa_toa_dara-object_id.
*wa_toa_dara-reserve = 'Commit'.

APPEND WA_TOA_DARA TO FP_DOCPARAMS-DARATAB.

CALL FUNCTION I_FUNCNAME
EXPORTING
    /1BCDWB/DOCPARAMS          = FP_DOCPARAMS
    ZHREMPLOYEEINFO            = Z01
    TBL_PS0023                 = IT0023[]
    TBL_PS0021                 = IT0021[]
IMPORTING
    /1BCDWB/FORMOUTPUT         = FP_FORMOUTPUT
EXCEPTIONS
    USAGE_ERROR                = 1
    SYSTEM_ERROR               = 2
    INTERNAL_ERROR             = 3.

IF SY-SUBRC NE 0.
IM_TEXT = ''.
CONCATENATE IM_TEXT I_FUNCNAME ',MSGNO:' SY-MSGNO INTO IM_TEXT.
CALL METHOD LOGFILEOBJ->WRITE_FREE_ENTRY
    EXPORTING
      IM_TEXT      = IM_TEXT
      FUNCTIONNAME = 'ZHRP0051F01'
      IM_MSGTY     = 'E'
      IM_LEVEL     = 3.
ENDIF.

CALL FUNCTION 'FP_JOB_CLOSE'
EXCEPTIONS
   USAGE_ERROR          = 1
   SYSTEM_ERROR         = 2
   INTERNAL_ERROR       = 3
   OTHERS               = 4.

ENDFORM. " PROCESS_COMMAND