Problems when trying to send a smartform through fax

Question

Hi,
Im currently confronting a problem when sending smartforms through fax to multiple recipients.
This is the scenario Im working on:
The client needs to be able to send a document, could be a PO or invoices, to diferent recipients at the same time. So far in case of purchase orders, we have been able to find the respective faxes and emails for each of the partner functions.
Functionality for email is working as desired but when sending faxes I have problems.
Reviewing the output through SOST I get all my receipients which are email and faxes. Emails are fine since it creates a PDF attachment with the order and all of its details.
For fax I get the same even though the paramenters are set for fax.
Here is my code if you could please help me here on this one.
SELECT lifn2 FROM EkPA into l_ekpa-lifn2
             WHERE EBELN = a_EBELN.
    APPEND l_EKPA.
  ENDSELECT.
  SELECT adrnr
    FROM lfa1
    INTO itab-q_adrnr
    FOR ALL ENTRIES IN l_ekpa WHERE lifnr = l_ekpa-lifn2.
    APPEND itab.
  ENDSELECT.
*& End of partner address
*& Selection of Address or Fax number from ADR3 & ADR6 according to ADRNR
*& Nato
  IF sy-subrc EQ 0.
    loop at itab.
      SELECT SINGLE smtp_addr INTO (itab-q_mail)
   from adr6 where addrnumber = itab-q_adrnr and flg_nouse eq space.
      IF itab-q_mail ne Space.
        Move 'U' to itab-q_typ2(1).
        Move 'X' to itab-q_express(1).
      Move 'EXT' to itab-XOBJT.
      ENdIF.
   SELECT SINGLE FAXNR_LONG INTO (itab-q_fax)
      SELECT SINGLE country FAX_NUMBER INTO (itab-q_cty, itab-q_fax )
   from adr3 where addrnumber = itab-q_adrnr and flg_nouse eq space.
      If itab-q_fax ne space.
        Move 'F' to itab-q_typ(1).
        Move 'TELEFAX' to itab-q_com.
      Endif.
      Modify itab.
    endloop.
*&  END of ITAB
    CLEAR : DOC_CHNG.
    REFRESH LINES.
    IF NAST-NACHA eq '7'.
* Fill both the fax & email Receiver lists
      clear:   reclist, reclist2.
      refresh: reclist, reclist2.
*& loop table itab to update receipient list in table Reclist
*& Nato
      loop at itab.
        IF not itab-q_typ is initial.
         concatenate itab-q_cty itab-q_fax into reclist2-RECNAM separated by space. "FAX NUMBER
          move itab-q_fax to reclist2-receiver. "FAX NUMBER
*&>>>>>>>>>>>>>>>>>>>new entry for testing nato 080206<<<<<<<<<<<&
          move itab-q_cty to RECLIST2-COUNTRY.        "Country Code
          move itab-q_fax to Reclist2-FAX.            "Fax number
*&>>>>>>>>>>>>>>ENd of entry<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<&
          move itab-q_typ to REClist2-REC_TYPE.  "Communication type for fax
      move itab-q_EXPRESS to Express.        "comment for testing
          move itab-q_com to REClist2-COM_TYPE.
          Move 'X' to reclist2-NOTIF_DEL.
         Move 'TELEFAX' to reclist2-SNDART.    "TYPE OF DEVICE
          Move a_ebeln to sood-OBJDES.              "new addition for testing nato
          append Reclist2.
        endif.
        IF not itab-q_typ2 is initial.
          move itab-q_mail to REclist-receiver.  "SMT ADDRESS
          move itab-q_typ2 to REClist-REC_TYPE.
          move itab-q_EXPRESS to REClist-express.
          move 'X' to reclist-TO_ANSWER.
          Move a_ebeln to sood-OBJDES.              "new addition for testing nato
      move itab-q_com to REClist-COM_TYPE.   "comment for testing only
          append Reclist.
        Endif.
        move reclist-receiver to address.
      endLoop.
*& END OF RECipient
    ENDIF.
    DOC_CHNG-OBJ_DESCR  = nast-objky.
  ELSE.
    IF RECLIST IS INITIAL.
     LOOP AT reclist INTO RECIPIENT .        " This logic might get commented or deleted. Nato 08/01/06
     ENDLOOP.
    ENDIF.
    DOC_CHNG-OBJ_DESCR  = L_TITLE.
  ENDIF.
  IF RECLIST[] IS INITIAL.
    MESSAGE E573(VE) RAISING RECEIVER_NOT_FOUND.
  ENDIF.
*& New entry to determine path according to communication
*& type
*& If comm type eq U follow convert_otf
*& then Read text, finaly send API
*& If comm type eq F follow path to "Convert OTF & FAX
*& Nato 080106
  REFRESH : HOTFDATA, LT_SOLIX, OBJBIN.
  LOOP AT JOB_OUTPUT_INFO-OTFDATA INTO HOTFDATA.
    APPEND HOTFDATA.
  ENDLOOP.
*& Prepare content to be converted to PDF format
*& nato
  CALL FUNCTION 'CONVERT_OTF'
       EXPORTING
            FORMAT                = 'PDF'
                MAX_LINEWIDTH         = 132
       IMPORTING
            BIN_FILESIZE          = DOC_SIZE
            BIN_FILE              = LD_BINFILE
       TABLES
            OTF                   = HOTFDATA
            LINES                 = HTLINE
       EXCEPTIONS
            ERR_MAX_LINEWIDTH     = 1
            ERR_FORMAT            = 2
            ERR_CONV_NOT_POSSIBLE = 3
            OTHERS                = 4.
*& new entry just for test today 080306
*&nato
*endif.
*&--end of entry--
  I = 0.
  N = XSTRLEN( LD_BINFILE ).
  WHILE I < N.
    LT_SOLIX-LINE = LD_BINFILE+I.
    APPEND LT_SOLIX.
    I = I + 255.
  ENDWHILE.
*& end of convertion pdf
  LOOP AT LT_SOLIX INTO WA_SOLIX.
    CLEAR WA_SOLI.
    ASSIGN WA_SOLI TO <PTR_HEX> CASTING.
    MOVE WA_SOLIX TO <PTR_HEX>.
    APPEND WA_SOLI TO OBJBIN.
  ENDLOOP.
*& Prepare send mail
  CLEAR : NAME, DOCNAME.
  REFRESH : OBJTXT, OBJPACK.
  CONCATENATE NAST-KAPPL NAST-KSCHL INTO NAME.
  CONDENSE NAME.
  IF NAST-NACHA NE '7'.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
  CLIENT                        = SY-MANDT
        ID                            = 'STAM'
        LANGUAGE                      = SY-LANGU
        NAME                          = NAME
        OBJECT                        = 'OCS'
  ARCHIVE_HANDLE                = 0
  LOCAL_CAT                     = ' '
IMPORTING
  HEADER                        =
      TABLES
        LINES                         = LINES
   EXCEPTIONS
     ID                            = 1
     LANGUAGE                      = 2
     NAME                          = 3
     NOT_FOUND                     = 4
     OBJECT                        = 5
     REFERENCE_CHECK               = 6
     WRONG_ACCESS_TO_ARCHIVE       = 7
     OTHERS                        = 8
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
  CONCATENATE NAST-OBJKY '.PDF' INTO DOCNAME .
  CONDENSE DOCNAME.
*endif.      "temp nato -080406
  if reclist-rec_type eq 'U'.
    DOC_CHNG-OBJ_NAME   = 'Delivery'.
    LOOP AT LINES.
      OBJTXT = LINES-TDLINE.
      APPEND OBJTXT.
    ENDLOOP.
    DESCRIBE TABLE OBJTXT LINES TAB_LINES.
    IF TAB_LINES > 0.
      READ TABLE OBJTXT INDEX TAB_LINES.
      DOC_CHNG-DOC_SIZE  = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
    ENDIF.
    CLEAR OBJPACK-TRANSF_BIN.
    OBJPACK-HEAD_START = 1.
    OBJPACK-HEAD_NUM   = 0.
    OBJPACK-BODY_START = 1.
    OBJPACK-BODY_NUM   = TAB_LINES.
    OBJPACK-DOC_TYPE   = 'RAW'.
    APPEND OBJPACK.
    DESCRIBE TABLE OBJBIN LINES TAB_LINES.
    OBJHEAD            = DOCNAME.
    APPEND OBJHEAD.
    OBJPACK-TRANSF_BIN = 'X'.
    OBJPACK-HEAD_START = 1.
    OBJPACK-HEAD_NUM   = 1.
    OBJPACK-BODY_START = 1.
    OBJPACK-BODY_NUM   = TAB_LINES.
    OBJPACK-DOC_TYPE   = 'PDF'.
    OBJPACK-OBJ_NAME   = 'Delivery'.
OBJPACK-OBJ_DESCR  = NAST-OBJKY.
    OBJPACK-OBJ_DESCR  = A_EBELN.
    OBJPACK-DOC_SIZE   = TAB_LINES * 255.
    APPEND OBJPACK.
    break nhernandez.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
         DOCUMENT_DATA                    = DOC_CHNG
    PUT_IN_OUTBOX                    = 'X'
  COMMIT_WORK                      = ' '
IMPORTING
  SENT_TO_ALL                      =
  NEW_OBJECT_ID                    =
      TABLES
       PACKING_LIST                     = OBJPACK
       OBJECT_HEADER                    = OBJHEAD
       CONTENTS_BIN                     =  OBJBIN
       CONTENTS_TXT                     =  OBJTXT
  CONTENTS_HEX                     =
  OBJECT_PARA                      =
  OBJECT_PARB                      =
        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 <> 0.
      MESSAGE E081(ZGLO) WITH SY-SUBRC RAISING MAIL_SENDING_ERROR.
    ENDIF.
  endif.
AM I missing something?

Answer 1

Hi Nat,
You can check this link which shows how to use the PRINT_TEXT for sending fax.
http://www.sap-img.com/abap/sending-fax-from-abap.htm
Also you can check these
Smartforms
Sending Smartforms through Fax
Sending SMARTFORM output to FAX gateway
How to fax a smartform?
/people/pavan.bayyapu/blog/2005/08/30/sending-html-email-from-sap-crmerp
ftp
Cheers
VJ