These are the requirements that I was given:
Knowns about our system (the preconditions for certainty that the described process will work):
Observations:
SAPLSBCOMSUT FUNCTION SBCOMS_SEND_REQUEST_CREATE
SAPLSOA2 FUNCTION SO_OBJECT_SEND
SAPLSTXBW FUNCTION SSFCONVERT_OTF_AND_MAIL
SAPLSTXBC FORM OTF_MAIL
SAPLSTXBC FORM OTF_RESOLVE
SAPLSTXBC FORM OTF_FINISH
SAPLSTXBC FUNCTION SSFCOMP_CLOSE
/1BCDWB/SAPLSF00000001 FUNCTION /1BCDWB/SF00000001
RLB_INVOICE FORM PROCESSING
RLB_INVOICE FORM ENTRY
RSNAST00 FORM PROGRAMM_AUFRUFEN
Solving the problem:
Things that you might want to think about further:
I will be glad to talk further to anyone about this solution.
Neal Wilhite
Addendums:
Addendum 1 for ldzierza
Code in FM sbcoms_send_request_create:
FUNCTION sbcoms_send_request_create.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Function Module SBCOMS_SEND_REQUEST_CREATE, Start A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1 Z_SBCOMS_SEND_REQ_CRT_START. "active version
*
include Z_SBCOMS_SEND_REQ_CRT_START.
*
ENDENHANCEMENT.
*$*$-End: (1)---------------------------------------------------------------------------------$*$*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(COPY_OBJECT) LIKE SONV-FLAG DEFAULT SPACE
*" VALUE(OUTBOX_FLAG) LIKE SOUD-OUTFL DEFAULT 'S'
*" VALUE(OWNER) LIKE SOUD-USRNAM DEFAULT SPACE
*" VALUE(ORIGINATOR) LIKE SOOS1-RECEXTNAM OPTIONAL
*" VALUE(ORIGINATOR_TYPE) LIKE SOOS1-RECESC OPTIONAL
...
So, a begin implicit enhancement here. I never put code directly into enhancements, I always put the code in an include.
So the include Z_SBCOMS_SEND_REQ_CRT_START follows:
*&---------------------------------------------------------------------*
*& Include Z_SBCOMS_SEND_REQ_CRT_START
*&---------------------------------------------------------------------*
TABLES: adr6.
DATA: t_inv LIKE vbrk-vbeln,
t_kunag LIKE vbrk-kunag,
t_adrnr LIKE adr6-addrnumber.
CLEAR receivers.
* REFRESH receivers.
MOVE sy-datum TO receivers-rcdat .
MOVE sy-uzeit TO receivers-rctim.
MOVE '1' TO receivers-sndpri.
MOVE 'X' TO receivers-sndex.
MOVE 'U-' TO receivers-recnam.
MOVE 'U' TO receivers-recesc.
MOVE 'INT' TO receivers-sndart.
MOVE '5' TO receivers-sortclass.
LOOP AT objhead.
IF objhead-line(12) = 'TDTITLE=Inv:'.
MOVE objhead-line+13(9) TO t_inv.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = t_inv
IMPORTING
OUTPUT = t_inv .
SELECT SINGLE kunag INTO t_kunag FROM vbrk
WHERE vbeln = t_inv.
IF sy-subrc IS INITIAL.
SELECT SINGLE adrnr INTO t_adrnr FROM kna1
WHERE kunnr = t_kunag.
IF sy-subrc IS INITIAL.
SELECT * FROM adr6 INTO adr6
WHERE addrnumber = t_adrnr
AND flgdefault = ' '
AND flg_nouse = ' '.
receivers-recextnam = adr6-SMTP_ADDR.
APPEND receivers.
ENDSELECT.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
6 | |
5 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 |