ABAP获取用户登录详细信息并已邮件附件的形式发送给你

最新推荐文章于 2023-08-14 21:22:08 发布
最新推荐文章于 2023-08-14 21:22:08 发布
阅读量3.3k 收藏 1
点赞数
分类专栏： ABAP

老外写的这段代码，从逻辑上看，我没看出问题，但是运行后不见发送邮件出来，请有空的前辈调试解决下，这段代码可以作为新人学习ABAP的一个典型DEMO。

This is a Sample Code for fetching the User Login Details and sending it as an XLS attachment to an Email using the XML method

*&---------------------------------------------------------------------*
*& REPORT  Z_WUWEI_0022
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_WUWEI_0022.

TYPE-POOLS: IXML.

*------------------------------------------------------------------------*
*                           DATA DECLARATIONS                            *
*------------------------------------------------------------------------*

* STRUCTURE FOR FINAL INTERNAL TABLE
TYPES: BEGIN OF TY_FINAL,
        SRNO(3) TYPE N,
        USER_ID TYPE USR02-BNAME,
        FULL_NAME TYPE BAPIADDR3-FULLNAME,
        DEPT TYPE BAPIADDR3-DEPARTMENT,
        LOGIN(3) TYPE C,
       END OF TY_FINAL.

* STRUCTURE FOR USR02
TYPES: BEGIN OF TY_USR02,
        BNAME TYPE USR02-BNAME,
        TRDAT TYPE USR02-TRDAT,
       END OF TY_USR02.

* INTERNAL TABLE & WORK AREA FOR FINAL INTERNAL TABLE
DATA: IT_FINAL TYPE TABLE OF TY_FINAL,
      WA_FINAL TYPE TY_FINAL.

* INTERNAL TABLE & WORK AREA FOR USR02 INTERNAL TABLE
DATA: IT_USR02 TYPE TABLE OF TY_USR02,
      WA_USR02 TYPE TY_USR02.

* WORK AREA FOR ADD3_DATA STRUCTRE
DATA: WA_ADDR TYPE BAPIADDR3.
DATA: IT_RETURN TYPE TABLE OF BAPIRET2.

DATA: LV_DATE TYPE D.
DATA: LV_FILENAME TYPE STRING.

TYPES: BEGIN OF XML_LINE,
        DATA(255) TYPE X,
       END OF XML_LINE.

DATA: L_IXML            TYPE REF TO IF_IXML,
      L_STREAMFACTORY   TYPE REF TO IF_IXML_STREAM_FACTORY,
      L_OSTREAM         TYPE REF TO IF_IXML_OSTREAM,
      L_RENDERER        TYPE REF TO IF_IXML_RENDERER,
      L_DOCUMENT        TYPE REF TO IF_IXML_DOCUMENT.

DATA: L_ELEMENT_ROOT        TYPE REF TO IF_IXML_ELEMENT,
      NS_ATTRIBUTE          TYPE REF TO IF_IXML_ATTRIBUTE,
      R_ELEMENT_PROPERTIES  TYPE REF TO IF_IXML_ELEMENT,
      R_ELEMENT             TYPE REF TO IF_IXML_ELEMENT,
      R_WORKSHEET           TYPE REF TO IF_IXML_ELEMENT,
      R_TABLE               TYPE REF TO IF_IXML_ELEMENT,
      R_COLUMN              TYPE REF TO IF_IXML_ELEMENT,
      R_ROW                 TYPE REF TO IF_IXML_ELEMENT,
      R_CELL                TYPE REF TO IF_IXML_ELEMENT,
      R_DATA                TYPE REF TO IF_IXML_ELEMENT,
      L_VALUE               TYPE STRING,
      L_TYPE                TYPE STRING,
      L_TEXT(100)           TYPE C,
      R_STYLES              TYPE REF TO IF_IXML_ELEMENT,
      R_STYLE               TYPE REF TO IF_IXML_ELEMENT,
      R_STYLE1              TYPE REF TO IF_IXML_ELEMENT,
      R_FORMAT              TYPE REF TO IF_IXML_ELEMENT,
      R_BORDER              TYPE REF TO IF_IXML_ELEMENT,
      NUM_ROWS              TYPE I.

DATA: L_XML_TABLE       TYPE TABLE OF XML_LINE,
      WA_XML            TYPE XML_LINE,
      L_XML_SIZE        TYPE I,
      L_RC              TYPE I.


*------------------------------------------------------------------------*
*                             INITIALIZATION                             *
*------------------------------------------------------------------------*

INITIALIZATION.
  LV_DATE = SY-DATUM - 1.


*------------------------------------------------------------------------*
*                           START OF SELECTION                           *
*------------------------------------------------------------------------*

START-OF-SELECTION.

  PERFORM GET_USER_DATA.
  PERFORM PROCESS_XML_DATA.
  PERFORM SEND_MAIL.


*&---------------------------------------------------------------------*
*&      FORM  GET_USER_DATA
*&---------------------------------------------------------------------*
*       FETCH USER DETAILS FROM USR02
*----------------------------------------------------------------------*

FORM GET_USER_DATA.

  REFRESH IT_FINAL.
  SELECT DISTINCT BNAME TRDAT FROM USR02 INTO TABLE IT_USR02.
  SORT IT_USR02 BY BNAME.

  IF NOT IT_USR02[] IS INITIAL.

    LOOP AT IT_USR02 INTO WA_USR02.

      CLEAR WA_FINAL.
      WA_FINAL-SRNO = SY-TABIX.                   " SERIAL NO.
      WA_FINAL-USER_ID = WA_USR02-BNAME.          " USER ID

      CALL FUNCTION 'BAPI_USER_GET_DETAIL'
        EXPORTING
          USERNAME = WA_USR02-BNAME
        IMPORTING
          ADDRESS  = WA_ADDR
        TABLES
          RETURN   = IT_RETURN.

      IF SY-SUBRC EQ 0.
        WA_FINAL-FULL_NAME = WA_ADDR-FULLNAME.    " FULL NAME
        WA_FINAL-DEPT = WA_ADDR-DEPARTMENT.       " DEPARTMENT
      ENDIF.

      IF WA_USR02-TRDAT EQ LV_DATE.
        WA_FINAL-LOGIN = 'YES'.                   " LOGIN ON PREVIOUS DAY
      ELSE.
        WA_FINAL-LOGIN = 'NO'.
      ENDIF.

      APPEND WA_FINAL TO IT_FINAL.

    ENDLOOP.

  ENDIF.

ENDFORM.                    " GET_USER_DATA


*&---------------------------------------------------------------------*
*&      FORM  SEND_MAIL
*&---------------------------------------------------------------------*
*       SEND EMAIL
*----------------------------------------------------------------------*

FORM SEND_MAIL.

  DATA: OBJPACK   LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
  DATA: OBJHEAD   LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
  DATA: OBJBIN    LIKE SOLIX OCCURS 10 WITH HEADER LINE.
  DATA: OBJTXT    LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
  DATA: RECLIST   LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
  DATA: DOC_CHNG  LIKE SODOCCHGI1.
  DATA: TAB_LINES LIKE SY-TABIX.
  DATA: L_NUM(3).
  DATA: SUBJ_DATE(10) TYPE C.

* MAIL SUBJECT
  CONCATENATE LV_DATE+6(2) '-' LV_DATE+4(2) '-' LV_DATE+0(4) INTO SUBJ_DATE.
  CONCATENATE 'SAP APPLICATION USAGE REPORT ' SUBJ_DATE INTO DOC_CHNG-OBJ_DESCR SEPARATED BY SPACE.

* MAIL CONTENTS
  OBJTXT = 'DEAR USER,'.
  APPEND OBJTXT.

  CLEAR OBJTXT.
  APPEND OBJTXT.

  CONCATENATE 'PLEASE FIND THE ATTACHED SAP APPLICATION USAGE REPORT FOR ' SUBJ_DATE INTO OBJTXT SEPARATED BY SPACE.              " MAIL CONTENTS
  APPEND OBJTXT.

  CLEAR OBJTXT.
  APPEND OBJTXT.

  OBJTXT = 'THANKS & REGARDS,'.
  APPEND OBJTXT.

  OBJTXT = 'HIMANSHU KANEKAR'.
  APPEND OBJTXT.

  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).

* PACKING LIST FOR THE E-MAIL BODY
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'RAW'.
  APPEND OBJPACK.

* CREATION OF THE DOCUMENT ATTACHMENT
  LOOP AT L_XML_TABLE INTO WA_XML.
    CLEAR OBJBIN.
    OBJBIN-LINE = WA_XML-DATA.
    APPEND OBJBIN.
  ENDLOOP.

  DESCRIBE TABLE OBJBIN LINES TAB_LINES.
  OBJHEAD = 'SAP LOGIN DETAILS'.
  APPEND OBJHEAD.

* PACKING LIST FOR THE E-MAIL ATTACHMENT
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
  CONCATENATE 'SAP_LOGIN_DETAILS' SUBJ_DATE INTO OBJPACK-OBJ_DESCR SEPARATED BY SPACE.
  OBJPACK-DOC_TYPE = 'XLS'.
  OBJPACK-DOC_SIZE = TAB_LINES * 255.
  APPEND OBJPACK.

* TARGET RECIPENT
  CLEAR RECLIST.
  RECLIST-RECEIVER = 'name@company.com'.
  RECLIST-REC_TYPE = 'U'.
  APPEND RECLIST.

* SENDING THE DOCUMENT
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = DOC_CHNG
      PUT_IN_OUTBOX              = 'X'
    TABLES
      PACKING_LIST               = OBJPACK
      OBJECT_HEADER              = OBJHEAD
      CONTENTS_TXT               = OBJTXT
      CONTENTS_HEX               = OBJBIN
      RECEIVERS                  = RECLIST
    EXCEPTIONS
      TOO_MANY_RECEIVERS         = 1
      DOCUMENT_NOT_SENT          = 2
      OPERATION_NO_AUTHORIZATION = 4
      OTHERS                     = 99.
   COMMIT WORK AND WAIT.

ENDFORM.                    " SEND_MAIL



*&---------------------------------------------------------------------*
*&      FORM  PROCESS_XML_DATA
*&---------------------------------------------------------------------*
*       PROCESS XML DATA
*----------------------------------------------------------------------*

FORM PROCESS_XML_DATA .

* CREATING A IXML FACTORY
  L_IXML = CL_IXML=>CREATE( ).

* CREATING THE DOM OBJECT MODEL
  L_DOCUMENT = L_IXML->CREATE_DOCUMENT( ).

* CREATE ROOT NODE 'WORKBOOK'
  L_ELEMENT_ROOT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'WORKBOOK'  PARENT = L_DOCUMENT ).
  L_ELEMENT_ROOT->SET_ATTRIBUTE( NAME = 'XMLNS'  VALUE = 'URN:SCHEMAS-MICROSOFT-COM:OFFICE:SPREADSHEET' ).

  NS_ATTRIBUTE = L_DOCUMENT->CREATE_NAMESPACE_DECL( NAME = 'SS'  PREFIX = 'XMLNS'  URI = 'URN:SCHEMAS-MICROSOFT-COM:OFFICE:SPREADSHEET' ).
  L_ELEMENT_ROOT->SET_ATTRIBUTE_NODE( NS_ATTRIBUTE ).

  NS_ATTRIBUTE = L_DOCUMENT->CREATE_NAMESPACE_DECL( NAME = 'X'  PREFIX = 'XMLNS'  URI = 'URN:SCHEMAS-MICROSOFT-COM:OFFICE:EXCEL' ).
  L_ELEMENT_ROOT->SET_ATTRIBUTE_NODE( NS_ATTRIBUTE ).

* CREATE NODE FOR DOCUMENT PROPERTIES.
  R_ELEMENT_PROPERTIES = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'TEST_REPORT'  PARENT = L_ELEMENT_ROOT ).
  L_VALUE = SY-UNAME.
  L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'AUTHOR'  VALUE = L_VALUE  PARENT = R_ELEMENT_PROPERTIES  ).

* STYLES
  R_STYLES = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'STYLES'  PARENT = L_ELEMENT_ROOT  ).

* STYLE FOR HEADER
  R_STYLE  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'STYLE'   PARENT = R_STYLES  ).
  R_STYLE->SET_ATTRIBUTE_NS( NAME = 'ID'  PREFIX = 'SS'  VALUE = 'HEADER' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'FONT'  PARENT = R_STYLE  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'BOLD'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'INTERIOR' PARENT = R_STYLE  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'COLOR'   PREFIX = 'SS'  VALUE = '#92D050' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'PATTERN' PREFIX = 'SS'  VALUE = 'SOLID' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'ALIGNMENT'  PARENT = R_STYLE  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'VERTICAL'  PREFIX = 'SS'  VALUE = 'CENTER' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WRAPTEXT'  PREFIX = 'SS'  VALUE = '1' ).

  R_BORDER  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDERS'  PARENT = R_STYLE ).
  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'BOTTOM' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'LEFT' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'TOP' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'RIGHT' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

* STYLE FOR DATA
  R_STYLE1  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'STYLE'   PARENT = R_STYLES  ).
  R_STYLE1->SET_ATTRIBUTE_NS( NAME = 'ID'  PREFIX = 'SS'  VALUE = 'DATA' ).

  R_BORDER  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDERS'  PARENT = R_STYLE1 ).
  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'BOTTOM' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'LEFT' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'TOP' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

  R_FORMAT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'BORDER'   PARENT = R_BORDER  ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'POSITION'  PREFIX = 'SS'  VALUE = 'RIGHT' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'LINESTYLE'  PREFIX = 'SS'  VALUE = 'CONTINUOUS' ).
  R_FORMAT->SET_ATTRIBUTE_NS( NAME = 'WEIGHT'  PREFIX = 'SS'  VALUE = '1' ).


* WORKSHEET
  R_WORKSHEET = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'WORKSHEET'  PARENT = L_ELEMENT_ROOT ).
  R_WORKSHEET->SET_ATTRIBUTE_NS( NAME = 'NAME'  PREFIX = 'SS'  VALUE = 'SHEET1' ).

* TABLE
  R_TABLE = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'TABLE'  PARENT = R_WORKSHEET ).
  R_TABLE->SET_ATTRIBUTE_NS( NAME = 'FULLCOLUMNS'  PREFIX = 'X'  VALUE = '1' ).
  R_TABLE->SET_ATTRIBUTE_NS( NAME = 'FULLROWS'     PREFIX = 'X'  VALUE = '1' ).

* COLUMN FORMATTING
  R_COLUMN = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'COLUMN'  PARENT = R_TABLE ).
  R_COLUMN->SET_ATTRIBUTE_NS( NAME = 'WIDTH'  PREFIX = 'SS'  VALUE = '40' ).

  R_COLUMN = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'COLUMN'  PARENT = R_TABLE ).
  R_COLUMN->SET_ATTRIBUTE_NS( NAME = 'WIDTH'  PREFIX = 'SS'  VALUE = '90' ).

  R_COLUMN = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'COLUMN'  PARENT = R_TABLE ).
  R_COLUMN->SET_ATTRIBUTE_NS( NAME = 'WIDTH'  PREFIX = 'SS'  VALUE = '140' ).

  R_COLUMN = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'COLUMN'  PARENT = R_TABLE ).
  R_COLUMN->SET_ATTRIBUTE_NS( NAME = 'WIDTH'  PREFIX = 'SS'  VALUE = '150' ).

  R_COLUMN = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'COLUMN'  PARENT = R_TABLE ).
  R_COLUMN->SET_ATTRIBUTE_NS( NAME = 'WIDTH'  PREFIX = 'SS'  VALUE = '90' ).

* BLANK ROW
  R_ROW = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'ROW'  PARENT = R_TABLE ).

* COLUMN HEADERS ROW
  R_ROW = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'ROW'  PARENT = R_TABLE ).
  R_ROW->SET_ATTRIBUTE_NS( NAME = 'AUTOFITHEIGHT'  PREFIX = 'SS'  VALUE = '1' ).

* SR. NO.
  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'HEADER' ).
  R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = 'SR. NO.'  PARENT = R_CELL ).
  R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS' VALUE = 'STRING' ).

* USER NAME
  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'HEADER' ).
  R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = 'USER NAME'  PARENT = R_CELL ).
  R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS' VALUE = 'STRING' ).

* FULL NAME
  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'HEADER' ).
  R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = 'FULL NAME'  PARENT = R_CELL ).
  R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS' VALUE = 'STRING' ).

* DEPARTMENT
  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'HEADER' ).
  R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = 'DEPARTMENT'  PARENT = R_CELL ).
  R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS' VALUE = 'STRING' ).

* LOGIN
  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'HEADER' ).
  CONCATENATE 'LOGIN - ' LV_DATE+6(2) '/' LV_DATE+4(2) '/' LV_DATE+0(4) INTO L_VALUE.
  R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = L_VALUE  PARENT = R_CELL ).
  R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS' VALUE = 'STRING' ).

* BLANK ROW AFTER COLUMN HEADERS
  R_ROW = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'ROW'  PARENT = R_TABLE ).
  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).

  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).

  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).

  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).

  R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
  R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).

* DATA TABLE
  LOOP AT IT_FINAL INTO WA_FINAL.

    R_ROW = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'ROW'  PARENT = R_TABLE ).

* SR. NO.
    R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
    R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).
    L_VALUE = SY-TABIX.
    CONDENSE L_VALUE NO-GAPS.
    R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = L_VALUE   PARENT = R_CELL ).           " DATA
    R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS'  VALUE = 'NUMBER' ).                               " CELL FORMAT

* USER NAME
    R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
    R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).
    L_VALUE = WA_FINAL-USER_ID.
    R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = L_VALUE   PARENT = R_CELL ).           " DATA
    R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS'  VALUE = 'STRING' ).                               " CELL FORMAT

* FULL NAME
    R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
    R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).
    L_VALUE = WA_FINAL-FULL_NAME.
    R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = L_VALUE   PARENT = R_CELL ).           " DATA
    R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS'  VALUE = 'STRING' ).                               " CELL FORMAT

* DEPARTMENT
    R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
    R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).
    L_VALUE = WA_FINAL-DEPT.
    R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = L_VALUE   PARENT = R_CELL ).           " DATA
    R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS'  VALUE = 'STRING' ).                               " CELL FORMAT

* LOGIN
    R_CELL = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'CELL'  PARENT = R_ROW ).
    R_CELL->SET_ATTRIBUTE_NS( NAME = 'STYLEID'  PREFIX = 'SS'  VALUE = 'DATA' ).
    L_VALUE = WA_FINAL-LOGIN.
    R_DATA = L_DOCUMENT->CREATE_SIMPLE_ELEMENT( NAME = 'DATA'  VALUE = L_VALUE   PARENT = R_CELL ).          " DATA
    R_DATA->SET_ATTRIBUTE_NS( NAME = 'TYPE'  PREFIX = 'SS'  VALUE = 'STRING' ).                              " CELL FORMAT

  ENDLOOP.

* CREATING A STREAM FACTORY
  L_STREAMFACTORY = L_IXML->CREATE_STREAM_FACTORY( ).

* CONNECT INTERNAL XML TABLE TO STREAM FACTORY
  L_OSTREAM = L_STREAMFACTORY->CREATE_OSTREAM_ITABLE( TABLE = L_XML_TABLE ).

* RENDERING THE DOCUMENT
  L_RENDERER = L_IXML->CREATE_RENDERER( OSTREAM  = L_OSTREAM  DOCUMENT = L_DOCUMENT ).
  L_RC = L_RENDERER->RENDER( ).

* SAVING THE XML DOCUMENT
  L_XML_SIZE = L_OSTREAM->GET_NUM_WRITTEN_RAW( ).

ENDFORM.                    " PROCESS_XML_DATA


兔宝
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
SAP ADM100-1.2之系统登录过程（ABAP）
willieyuan的博客
11-22 854
SAP登录过程介绍
SAP ABAP启动OUTLOOK发邮件.docx
01-27
最近公司业务部门要求用户操作SAP采购订单报表时，发送采购订单到供应商的邮箱，使用自己的Outlook邮箱帐号发送邮件，发送过的邮件需要在用户自己的发件箱中，而且用户在Outlook中设有签名，希望在发送邮件时自动启用签名。
ABAP向在线用户发送系统消息(自动刷新ALV)
12-10
ABAP向在线用户发送系统消息(自动刷新ALV)
ERP系统信息化资料:SAP专业文档资料ABAP用户指南.doc
09-29
ERP系统信息化资料:SAP专业文档资料ABAP用户指南.doc
ABAP用户指南
06-28
SAP ABAP用户指南。 ABAP/4 用户指南是 关于 ABAP/4 编程语言的 手册。其目 的在于 向新的 ABAP/4 程序员提供 从基本语言 组件到复杂 报表和事务 编码的全面 指导 向资深 ABAP/4 程序员提供 解决特殊问 题的参考方 案 为满足这些 需求，特提 供一个整体 概述并本指 南分成三个 部分，循序 渐进，逐步 深入 ABAP/4 的基本组件 如何编写 报表程序 如何编写 事务 ABAP/4 用户指南目 的不在替换 ABAP/4 关键字文档 。可以通过 如下方式调 用该文档 从“ABAP/4 编辑器：初 始屏幕”（ 事务 SE38） 中选择“实 用程序 -> ABAP/4 关键字文档 选择 ABAP/4 编辑器中的 “帮助” 将光标放 在 ABAP/4 编辑器中的 关键字上， 然后按下 F1 键 ABAP/4 用户指南的 真正目的在 于说明如何 使用以及为 何使用 ABAP/4 关键字。并 为此提供了 许多示例， 构成用户自 己测试程序 的基础。 要获取详细 信息，可以 进行以下某 种操作： 关于关键 字的详细信 息，请参阅 关键字文档 。 关于 ABAP/4 环境术语的 详细信息， 请从“ABAP/4 编辑器：初 始屏幕”（ 事务 SE38） 中选择“实 用程序 -> ABAP/4 关键字文档 ”。然后就 会出现与解 释文本相链 接的主题层 次。要找出 这些文本用 于哪些主题 ，请选择“ 查看 -> 标题和关键 字”。屏幕 右侧就会出 现一个名称 列表。对于 所有以 ABEN 而非 TITL 开头的名称 ，如果双击 树结构中的 主题，则会 出现文本屏 幕。 关于如何 提高 ABAP/4 任务性能的 技巧，请从 “ABAP/4 开发工作台 ”上选择事 务 SE30 或“测试 -> 运行时间分 析”，然后 单击“提示 和技巧”。
ABAP∕4 用户中文指南
10-17
ABAP/4用户指南是关于ABAP/4编程语言的手册。其目的在于： · 向新的ABAP/4程序员提供从基本语言组件到复杂报表和事务编码的全面指导 · 向资深ABAP/4程序员提供解决特殊问题的参考方案 为满足这些需求，特提供一个整体概述并本指南分成三个部分，循序渐进，逐步深入 · ABAP/4的基本组件 · 如何编写报表程序 · 如何编写事务 ABAP/4用户指南目的不在替换ABAP/4关键字文档。可以通过如下方式调用该文档 · 从“ABAP/4编辑器：初始屏幕”（事务SE38）中选择“实用程序->ABAP/4关键字文档 · 选择ABAP/4编辑器中的“帮助” · 将光标放在ABAP/4编辑器中的关键字上，然后按下F1键 ABAP/4用户指南的真正目的在于说明如何使用以及为何使用ABAP/4关键字。并为此提供了许多示例，构成用户自己测试程序的基础。 要获取详细信息，可以进行以下某种操作： · 关于关键字的详细信息，请参阅关键字文档。 · 关于ABAP/4环境术语的详细信息，请从“ABAP/4编辑器：初始屏幕”（事务SE38）中选择“实用程序->ABAP/4关键字文档”。然后就会出现与解释文本相链接的主题层次。要找出这些文本用于哪些主题，请选择“查看->标题和关键字”。屏幕右侧就会出现一个名称列表。对于所有以ABEN而非TITL开头的名称，如果双击树结构中的主题，则会出现文本屏幕。 · 关于如何提高ABAP/4任务性能的技巧，请从“ABAP/4开发工作台”上选择事务SE30或“测试->运行时间分析”，然后单击“提示和技巧”。
SAP UI5应用获取当前登录账号ID
qq_28872573的博客
05-13 868
封装了一个公共方法，方便在SAP UI5应用中获取当前登录ID。 以下是自己在项目中遇到的情况并逐步思维扩展的想法。 1. 通过在fioriLaunchpad磁贴中打开应用，获取当前登录ID可以直接sap.ushell.Container.getService("UserInfo").getId() 获取。 sap.ushell.Container.getService("UserInfo").getId() //另外sap.ushell.Container.getServi...
ABAP 通过用户名取用户名描述函数
matinal 當冬夜漸暖 。公众号：matinal
08-14 298
&--- 获取用户名。FIRSTNAME为名。LASTNAME为姓。
ABAP获取用户参数
cly_apple的专栏
11-08 948
【代码】ABAP获取用户参数。
ABAP如何显示当前登录用户
beyond911的专栏
05-24 2027
REPORT ztest_fullname. DATA:g_persnumber TYPE usr21-persnumber, g_name_first TYPE adrp-name_first, g_name_last TYPE adrp-name_last. SELECT SINGLE persnumber INTO g_persnumber FROM u...
SAP获取windows登录信息
SAP冲击波的专栏
03-27 909
我们windows登录后按Ctrl + Alt + Delete之后会出现登录信息：XXX 已登录为DOMAIN/USERNAME。登录日期  2009-3-23  8：00：00通过一下方法可以获取DOMAIN和USERNAME的数据：CALL METHOD cl_gui_frontend_services=>get_user_name CHANGING user_name = username
SAP ABAP WebService 使用手册及，外部调用不用传递账号密码的设置方式！！！一文给你说清！！！
全栈攻略
03-10 969
SAP ABAP 创建 Web Service 并使用，你网上搜不到的细节也有。
SAP MM 如何通过SAP User ID拿到User的基本信息？
喜欢打酱油的老鸟
07-27 3218
SAP MM 如何通过SAP User ID拿到User的基本信息？   笔者所在的D项目，有一个功能需求就是采购订单收货后，需要发送给一个邮件给到申请采购这些物料的业务部门的人，也就是要发邮件给采购订单对应的采购申请的creator。笔者在撰写功能说明书的时候，通过采购订单号找到采购申请号码，去采购申请表里找到了created by字段值，拿到了采购申请创建者的user id。此时，需要通过...
ABAP中如何获取登录电脑的帐号名字
少年休闲海
09-16 2385
<!-- span {font-family:"Courier New"; font-size:12pt; color:rgb(0,0,0); background:none repeat scroll 0% 0% rgb(255,255,255)} .L1S
获取sap登陆用户名的中文描述
a17708533326的博客
10-13 710
一、业务场景： 当通过MKPF-USNAM查找ADRP-NAME_LAST时，中间缺少一个表，即USR21.否则，MKPF-USNAM不能和ADRP-PERSNUMBER直接对等。 二、解决方法： 1 DATA:L_NAME_LAST LIKE ADRP-NAME_LAST, 2 L_NAME_FIRST LIKE ADRP-NAME_FIRST. 3...
SAP获取用户实际用户名
SAP Consultant - Improve myself everyday 每天进步一点
02-25 9589
FUNCTION ZGET_USERNAME. *"---------------------------------------------------------------------- *"*"Local interface: *"  IMPORTING *"     REFERENCE(I_UNAME) TYPE  SY-UNAME *"  EXPORTING *"
SAP ABAP 用程序获取用户的组织结构权限
matinal 當冬夜漸暖 。公众号：matinal
02-24 347
在日常维护中常常需要用户的组织结构层面的权限列表
SAP ABAP实现发送邮件功能 （oo）
feijibin的专栏
08-03 2746
文章转自 http://blog.csdn.net/lyb_yt/article/details/9495207   TRY. *    创建发送请求       l_send_request = cl_bcs=>create_persistent( ). *    设定发送内容       l_document = cl_document_bcs=>create_document
sap abap 邮件发送添加附件
最新发布
10-30
SAP ABAP是一种用于在SAP系统中进行开发和编程的编程语言。要在ABAP中发送带附件的邮件，可以通过使用SAP提供的功能模块来完成。 首先，在ABAP程序中，你需要调用`SO_DOCUMENT_SEND_API1`功能模块来发送邮件。该功能模块允许你设置邮件的发送者、接收者、主题、正文等信息。 然后，你需要使用`SCMS_XSTRING_TO_BINARY`函数将要附加的文件转换为二进制格式。这可以通过`GUI_UPLOAD`或`SO_DOCUMENT_INSERT_API1`来实现。 接下来，你需要使用`SO_DOCUMENT_INSERT_API1`功能模块来插入附件。你需要提供附件的二进制数据、文件名和文件类型等信息。 最后，你可以调用`SO_DOCUMENT_SEND_API1`功能模块来发送邮件。你需要设置邮件的发送者、接收者、主题、正文等信息，并调用`SO_DOCUMENT_SEND_API1`来发送邮件。 总结一下，要在SAP ABAP中发送带附件的邮件，你需要使用`SCMS_XSTRING_TO_BINARY`函数将附件转换为二进制格式，通过`SO_DOCUMENT_INSERT_API1`功能模块插入附件，最后使用`SO_DOCUMENT_SEND_API1`功能模块发送邮件。这样可以确保邮件发送成功并带有所需的附件。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值