 hier mal ein schnipsel aus meinem FUBA :
   hier mal ein schnipsel aus meinem FUBA :
Code: Alles auswählen.
data: ot_listobject_sheet like abaplist occurs 0 with header line.
  refresh ot_listobject_sheet.
  CALL FUNCTION 'LIST_FREE_MEMORY'
  submit RPTEDT00
         with pnptimra     = 'X'                "laufender Monat
         with PNPXABKR     = 'C1'
         with pnppabrp     = pabrp
         with pnppabrj     = pabrj
         with PNPPERNR-LOW = pernr              "Personalnummer
         with FORM-NR      = 'ZT02'             "Formular
         with RUECKRE      = 'X'
         with MIT-FEHL     = 'X'
         with ZL-AUSG      = 'X'
         with SW_HIDE      = ' '
         with STATIST      = ' '
         with SW_COLOR     = 'X'
         exporting list to memory
         and return.
  CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      LISTOBJECT       = ot_listobject_sheet
    EXCEPTIONS
      NOT_FOUND        = 1
      OTHERS           = 2.
 call function 'WWW_HTML_FROM_LISTOBJECT'
      tables
           html          =  html
           listobject    =  ot_listobject_sheet.
*           listicons     =  icontab.
Knirpsi hat geschrieben:...
Der Funktionsbaustein ist mir bereits bekannt. Jedoch besteht die Anforderung, diese Lösung zu umgehen und anstatt dessen über das SAP Memory zu gehen.
Ist das umsetzbar?
Code: Alles auswählen.
RP-PROVIDE-FROM-LAST P0105 '0010' PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND = '1'.Code: Alles auswählen.
    CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
      EXPORTING
        document_data                    = 
*       PUT_IN_OUTBOX                    = ' '
*       SENDER_ADDRESS                   = SY-UNAME
*       SENDER_ADDRESS_TYPE              = 'B'
*        COMMIT_WORK                      = ' '
*       IP_ENCRYPT                       =
*       IP_SIGN                          =
*     IMPORTING
*       SENT_TO_ALL                      =
*       NEW_OBJECT_ID                    =
*       SENDER_ID                        =
      tables
        packing_list                     =
*       OBJECT_HEADER                    =
*       CONTENTS_BIN                     =
*       CONTENTS_TXT                     =
*       CONTENTS_HEX                     =
*       OBJECT_PARA                      =
*       OBJECT_PARB                      =
        receivers                        =
*     EXCEPTIONS
*       TOO_MANY_RECEIVERS               = 1
*       DOCUMENT_NOT_SENT                = 2
*       DOCUMENT_TYPE_NOT_EXIST          = 3
*       OPERATION_NO_AUTHORIZATION       = 4
*       PARAMETER_ERROR                  = 5
*       X_ERROR                          = 6
*       ENQUEUE_ERROR                    = 7
*       OTHERS                           = 8
              .
    IF sy-subrc <> 0.
      "### Erfolgreiche Personalnummern in Protokoll wegschreiben
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.