Attaching a document along with payment advice during F110

Question

Hi All,
when i run F110 all payments with payment mode 'T'(telegraphic) are mailed to the respective vendors and all payments with mode 'K'(Credit) are displayed in the spool(SP01).
Now the requirement is that the contract of the vendor(contract document is attached in the vendor master-FK02) should also me mailed along with the payment advice.
I created a Z-program(copied from RFFOEDI1) which downloads this contract document from vendor master onto the desktop and then uploads this and sends it to the customer.
However when i do this the mail request for the contract document is being generated(as can be seen in the send requests list (t-code SOSG) and the mail also gets triggered when i process it in SCOT), but no mail request is being generated for the payment advice  .
Also no spool for payment advices with payment mode 'K' is generated in SP01.
Any help is appreciated and will be rewared generously.
Thanks in advance.
Najam
I am attaching the part of code i have inserted -
REPORT RFFOEDI1.
INCLUDE ZDWNLD_ATTA. 
   F110ID-LAUFD   = ZW_LAUFD.
   F110ID-LAUFI   = ZW_LAUFI.
   F110ID-OBJKT   = KON_PARAM.
PERFORM  F_MAIL_CONTRACT.
  INSERT T012D-EDIPN INTO HEADER.
AT SELECTION-SCREEN ON PAR_WFOR.
  IF PAR_WFOR NE SPACE.
    SET CURSOR FIELD 'PAR_WFOR'.
    CALL FUNCTION 'FORM_CHECK'
      EXPORTING
        I_PZFOR = PAR_WFOR.
  ENDIF.
FORM F_MAIL_CONTRACT .
   F110ID-LAUFD   = ZW_LAUFD.
   F110ID-LAUFI   = ZW_LAUFI.
   F110ID-OBJKT   = KON_PARAM.
  IMPORT SLKTAB FROM DATABASE RFDT(FB) ID F110ID.
  READ TABLE SLKTAB INDEX 1.
  IF SY-SUBRC = 0.
    W_LIFNR = SLKTAB-VONKT.
  ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = W_LIFNR
IMPORTING
   OUTPUT        = W_LIFNR .
*Get vendor Email Address
SELECT SINGLE * FROM LFA1 WHERE LIFNR = W_LIFNR.
IF SY-SUBRC = 0.
  SELECT SINGLE * FROM ADR6 WHERE ADDRNUMBER = LFA1-ADRNR.
ENDIF.
W_RECIPIENT = ADR6-SMTP_ADDR.
PERFORM DOWNLOAD_ATT USING W_LIFNR.
PERFORM UPLOAD_ATT_SEND_MAIL USING W_RECIPIENT LTP_FILENAME .
ENDFORM.                    " F_MAIL_CONTRACT
FORM DOWNLOAD_ATT  USING    P_W_LIFNR.
SO_INSTI = P_W_LIFNR.
SELECT * FROM SRGBTBREL INTO TABLE TA_SRGBTBREL
  WHERE INSTID_A =  SO_INSTI
    AND TYPEID_A = SO_TYPID
    AND CATID_A  = SO_CATID.
IF SY-SUBRC EQ 0.
   SORT TA_SRGBTBREL BY INSTID_A TYPEID_A CATID_A.
   DELETE ADJACENT DUPLICATES FROM TA_SRGBTBREL
     COMPARING INSTID_A TYPEID_A CATID_A.
   LOOP AT TA_SRGBTBREL INTO WA_SRGBTBREL.
     PERFORM PROCESS_ATTACHMENTS
     USING  WA_SRGBTBREL-INSTID_A
            WA_SRGBTBREL-TYPEID_A
            WA_SRGBTBREL-CATID_A.
   ENDLOOP.
ENDIF.
ENDFORM.                    " download_att
FORM UPLOAD_ATT_SEND_MAIL  USING    P_W_RECIPIENT
                                    P_LTP_FILENAME.
RECEIVER = P_W_RECIPIENT.
PERFORM ML_CUSTOMIZE USING 'Tst' 'Contract'.
PERFORM ML_ADDRECP USING RECEIVER 'U'.
PERFORM UPL.
PERFORM DOCONV TABLES I_ITAB OBJBIN.
PERFORM ML_PREPARE USING 'X' EXTENSION NAME.
PERFORM ML_DOSEND.
FORM ML_CUSTOMIZE  USING    OBJNAME
                            OBJDESC.
CLEAR DOCDATA.
REFRESH OBJPACK.
CLEAR OBJPACK.
REFRESH OBJHEAD.
REFRESH OBJTXT.
CLEAR OBJTXT.
REFRESH OBJBIN.
CLEAR OBJBIN.
REFRESH OBJHEX.
CLEAR OBJHEX.
REFRESH RECLIST.
CLEAR RECLIST.
REFRESH LISTOBJECT.
CLEAR LISTOBJECT.
CLEAR TAB_LINES.
CLEAR DOC_SIZE.
CLEAR ATT_TYPE.
DOCDATA-OBJ_NAME = OBJNAME.
DOCDATA-OBJ_DESCR = OBJDESC.
ENDFORM.                    " ml_customize
FORM ML_ADDRECP  USING   PRECEIVER PREC_TYPE.
CLEAR RECLIST.
RECLIST-RECEIVER = PRECEIVER.
RECLIST-REC_TYPE = PREC_TYPE.
APPEND RECLIST.
ENDFORM.                    " ml_addrecp
FORM UPL .
FILE_NAME = LTP_FILENAME.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
  FILENAME = FILE_NAME
  FILETYPE = 'BIN'
TABLES
  DATA_TAB = I_ITAB
EXCEPTIONS
  FILE_OPEN_ERROR = 1
  FILE_READ_ERROR = 2
  NO_BATCH = 3
  GUI_REFUSE_FILETRANSFER = 4
  INVALID_TYPE = 5
  NO_AUTHORITY = 6
  UNKNOWN_ERROR = 7
  BAD_DATA_FORMAT = 8
  HEADER_NOT_ALLOWED = 9
  SEPARATOR_NOT_ALLOWED = 10
  HEADER_TOO_LONG = 11
  UNKNOWN_DP_ERROR = 12
  ACCESS_DENIED = 13
  DP_OUT_OF_MEMORY = 14
  DISK_FULL = 15
  DP_TIMEOUT = 16
  OTHERS = 17.
PATH = FILE_NAME.
CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'
EXPORTING
COMPLETE_FILENAME = PATH
IMPORTING
EXTENSION = EXTENSION
NAME = NAME
EXCEPTIONS
INVALID_DRIVE = 1
INVALID_EXTENSION = 2
INVALID_NAME = 3
INVALID_PATH = 4
OTHERS = 5.
ENDFORM.                    " upl
FORM DOCONV TABLES MYPDF STRUCTURE TLINE
                   OUTBIN STRUCTURE SOLISTI1.
DATA : POS TYPE I.
DATA : LEN TYPE I.
LOOP AT MYPDF.
POS = 255 - LEN.
IF POS > 134. "length of pdf_table
POS = 134.
ENDIF.
OUTBIN+LEN = MYPDF(POS).
LEN = LEN + POS.
IF LEN = 255. "length of out (contents_bin)
APPEND OUTBIN.
CLEAR: OUTBIN, LEN.
IF POS < 134.
OUTBIN = MYPDF+POS.
LEN = 134 - POS.
ENDIF.
ENDIF.
ENDLOOP.
IF LEN > 0.
APPEND OUTBIN.
ENDIF.
ENDFORM.                    " doconv
*&      Form  ml_prepare
      text
FORM ML_PREPARE USING BYPASSMEMORY WHATATT_TYPE WHATNAME.
IF BYPASSMEMORY = ''.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
LISTOBJECT = LISTOBJECT
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC EQ 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'LIST_FROM_MEMORY'.
ENDIF.
CALL FUNCTION 'TABLE_COMPRESS'
TABLES
IN = LISTOBJECT
OUT = OBJBIN
EXCEPTIONS
OTHERS = 1
IF SY-SUBRC EQ 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'TABLE_COMPRESS'.
ENDIF.
ENDIF.
*Packing Info For Text Data
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOCDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
CLEAR OBJPACK-TRANSF_BIN.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'TXT'.
APPEND OBJPACK.
*Packing Info Attachment
ATT_TYPE = WHATATT_TYPE..
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
READ TABLE OBJBIN INDEX TAB_LINES.
OBJPACK-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJBIN ).
OBJPACK-TRANSF_BIN = 'X'.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = ATT_TYPE.
OBJPACK-OBJ_NAME = 'ATTACHMENT'.
OBJPACK-OBJ_DESCR = WHATNAME.
APPEND OBJPACK.
ENDFORM.                    " ml_prepare
*&      Form  ml_dosend
      text
-->  p1        text
<--  p2        text
FORM ML_DOSEND .
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
  DOCUMENT_DATA = DOCDATA
  PUT_IN_OUTBOX = 'X'
  COMMIT_WORK = 'X' "used from rel. 6.10
TABLES
  PACKING_LIST = OBJPACK
  OBJECT_HEADER = OBJHEAD
  CONTENTS_BIN = OBJBIN
  CONTENTS_TXT = OBJTXT
  RECEIVERS = RECLIST
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 EQ 0.
*MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
*WITH DOCDATA-OBJ_NAME.
*ENDIF.
ENDFORM.                    " ml_dosend

Answer 1

Hi,
As far as I remember there are no direct ways in SAP do to that.
One suggestion. Create a custom program to send emails and save it with a variant in DME (the last Tab in F110). This is the same place where you maintain the details for sending out the EDI information.
Once you are done with F110, you can carry out the print functionality to execute the program to send out emails with the payment advice.
hope this helps.
Regards