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.