Logo not printing properly in Invoice converted to PDF and emailed

Question

Hello,
I am having a problem with a programming issue and have searched lots of forums but have found no solutions.  We are on 4.7 and are not likely to upgrade any time soon.  Therefore, I don't think any of the newer solutions are gonna work for me.  I believe that I'm stuck using a couple of function modules to get t he job done.  I am attempting to modify our Invoice Print program (uses SAPscript, not SmartForms) to have the output converted into a PDF file and then attached to an email that is then sent to the customer.  Everything is working fine except for the company logo.  It has been uploaded via SE78.  It is a 24-bit bitmap file.  I have played around with the DPI to have it appear correctly on the form.  I added a FM GUI_DOWNLOAD step to verify that it is saved to my hard drive correctly.  The PDF file saved t o my hard drive appears normally in Adobe Acrobat and Adobe Reader.  So the problem occurs sometime after that.  I have a routine wherein I convert is from 132 to 255 bytes.  I then use FM SO_DOCUMENT_SEND_API1 to send it.  When I swap the customer's email address to my own personal external emal address, the resultant email has an attached PDF file but the company logo is garbage. The top portion of the logo looks good and then at some point in the lower portion is appears as squiggly lines.  This is not acceptable, of course.  I have included the relevent code below:
DATA: ITAB_OTFDATA   TYPE TABLE OF ITCOO WITH HEADER LINE.
DATA: ITAB_PDFDATA   TYPE TABLE OF TLINE WITH HEADER LINE.
DATA: ITAB_DOCTAB_ARCHIVE TYPE STANDARD TABLE OF DOCS.
DATA: ITAB_OBJPACK   LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE.
DATA: ITAB_RECORD    LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE.
DATA: ITAB_OBJTXT    LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE.
DATA: ITAB_OBJBIN    LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE.
DATA: ITAB_RECLIST   LIKE SOMLRECI1  OCCURS 0 WITH HEADER LINE.
DATA: BINFILESIZE    TYPE I,
      G_LINES_TXT    TYPE I,
      G_LINES_BIN    TYPE I,
      DOCDATA        TYPE SODOCCHGI1,
      WA_RESULT      TYPE ITCPP,
      WA_BUFFER      TYPE STRING,
      WA_OBJHEAD     TYPE SOLI_TAB,
      G_INVOICE(10)  TYPE C.
CLEAR: BINFILESIZE.
  CALL FUNCTION 'CONVERT_OTF_2_PDF'
    EXPORTING
      USE_OTF_MC_CMD               = 'X'
*     ARCHIVE_INDEX                =
    IMPORTING
      BIN_FILESIZE                 = BINFILESIZE
    TABLES
      OTF                          = ITAB_OTFDATA
      DOCTAB_ARCHIVE               = ITAB_DOCTAB_ARCHIVE
      LINES                        = ITAB_PDFDATA
    EXCEPTIONS
      ERR_CONV_NOT_POSSIBLE        = 1
      ERR_OTF_MC_NOENDMARKER       = 2
      OTHERS                       = 3
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                        = 'C:\TEMP\TEST.PDF'
      FILETYPE                        = 'BIN'
    tables
      data_tab                        = ITAB_PDFDATA.
  IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*-- Convert PDF from 132 to 255
  LOOP AT ITAB_PDFDATA.
*   Replacing space by ~
    TRANSLATE ITAB_PDFDATA USING ' ~'.
    CONCATENATE WA_BUFFER ITAB_PDFDATA INTO WA_BUFFER.
  ENDLOOP.
* Replacing ~ by space
  TRANSLATE WA_BUFFER USING '~ '.
  DO.
    ITAB_RECORD = WA_BUFFER.
*   Appending 155 characters as a record
    APPEND ITAB_RECORD.
    SHIFT WA_BUFFER LEFT BY 255 PLACES.
    IF WA_BUFFER IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
  REFRESH: ITAB_RECLIST,
           ITAB_OBJTXT,
           ITAB_OBJBIN,
           ITAB_OBJPACK.
  CLEAR: WA_OBJHEAD.
  ITAB_OBJBIN[] = ITAB_RECORD[].
  G_INVOICE = VBRK-VBELN.
  SHIFT G_INVOICE LEFT DELETING LEADING '0'.
*-- Create Message Body Title and Document
  CLEAR: ITAB_OBJTXT-LINE.
  CONCATENATE 'Invoice'
             G_INVOICE
              'for Purchase Order'
              PO_NUM
              'is attached to this email.'
      INTO ITAB_OBJTXT-LINE SEPARATED BY SPACE.
  APPEND ITAB_OBJTXT.
  CLEAR: ITAB_OBJTXT-LINE.
  APPEND ITAB_OBJTXT.
  CLEAR: ITAB_OBJTXT-LINE.
  CONCATENATE 'Please see attached invoice.'
              'Thank you for your business!'
      INTO ITAB_OBJTXT-LINE SEPARATED BY SPACE.
  APPEND ITAB_OBJTXT.
  DESCRIBE TABLE ITAB_OBJTXT LINES G_LINES_TXT.
  READ TABLE ITAB_OBJTXT INDEX G_LINES_TXT.
  CONCATENATE 'Invoice' G_INVOICE
      INTO DOCDATA-OBJ_NAME SEPARATED BY SPACE.
  DOCDATA-EXPIRY_DAT = SY-DATUM + 10.
  CONCATENATE 'Invoice for P.O.'
               PO_NUM
               VBDKR-NAME1_WE
      INTO DOCDATA-OBJ_DESCR SEPARATED BY SPACE.
  DOCDATA-SENSITIVTY = 'F'.
  DOCDATA-DOC_SIZE = ( G_LINES_TXT - 1 ) * 255 + STRLEN( ITAB_OBJTXT ).
*-- Main Text
  CLEAR: ITAB_OBJPACK-TRANSF_BIN.
  ITAB_OBJPACK-HEAD_START = 1.
  ITAB_OBJPACK-HEAD_NUM = 0.
  ITAB_OBJPACK-BODY_START = 1.
  ITAB_OBJPACK-BODY_NUM = G_LINES_TXT.
  ITAB_OBJPACK-DOC_TYPE = 'RAW'.
  APPEND ITAB_OBJPACK.
*-- Attachment (pdf-Attachment)
  ITAB_OBJPACK-TRANSF_BIN = 'X'.
  ITAB_OBJPACK-HEAD_START = 1.
  ITAB_OBJPACK-HEAD_NUM = 0.
  ITAB_OBJPACK-BODY_START = 1.
  DESCRIBE TABLE ITAB_OBJBIN LINES G_LINES_BIN.
  READ TABLE ITAB_OBJBIN INDEX G_LINES_BIN.
  ITAB_OBJPACK-DOC_SIZE = ( G_LINES_BIN - 1 ) * 255 + STRLEN( ITAB_OBJBIN ).
  ITAB_OBJPACK-BODY_NUM = G_LINES_BIN.
  ITAB_OBJPACK-DOC_TYPE = 'PDF'.
  CONCATENATE 'Invoice' G_INVOICE
      INTO ITAB_OBJPACK-OBJ_NAME SEPARATED BY SPACE.
  CONCATENATE G_INVOICE '.pdf'
      INTO ITAB_OBJPACK-OBJ_DESCR.
  APPEND ITAB_OBJPACK.
*-- Create Table of email recipients
  CLEAR ITAB_RECLIST.
  ITAB_RECLIST-RECEIVER = KNB1-INTAD.
  ITAB_RECLIST-REC_TYPE = 'U'.
  ITAB_RECLIST-COM_TYPE = 'INT'.
  APPEND ITAB_RECLIST.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA                    = DOCDATA
      PUT_IN_OUTBOX                    = ' '
      SENDER_ADDRESS                   = 'arcredit @ companyname.com'  <-- modified to comply with forum rules
      SENDER_ADDRESS_TYPE              = 'SMTP'
      COMMIT_WORK                      = 'X'
*   IMPORTING
*     SENT_TO_ALL                      =
*     NEW_OBJECT_ID                    =
*     SENDER_ID                        =
    TABLES
      PACKING_LIST                     = ITAB_OBJPACK
      OBJECT_HEADER                    = WA_OBJHEAD
      CONTENTS_BIN                     = ITAB_OBJBIN
      CONTENTS_TXT                     = ITAB_OBJTXT
*     CONTENTS_HEX                     =
*     OBJECT_PARA                      =
*     OBJECT_PARB                      =
      RECEIVERS                        = ITAB_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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*-- Send the email immediately
  WAIT UP TO 3 SECONDS.
  SUBMIT RSCONN01 WITH MODE = 'INT'
                  WITH OUTPUT = 'X'
                  AND RETURN.
Thanks in advance for any and all advice.
Best Regards,
Nik von Ruden
Edited by: Nik Von Ruden on Nov 3, 2009 6:48 PM
Edited by: Nik Von Ruden on Nov 3, 2009 6:49 PM

Answer 1

Hi Friend ,
I hav gone through your code ...  I have one Question why you are  changing from 132 to 255.inside your program
if there is a purpose then , please can you change your company logo Image size accordingly  and uploaded it into SAP mime repository using se78.then your program let it convert from 132 to 255. definely you will see some change's in the Logo,then keep on adjusting you can acheive you result.
sometime the Image size also plays major role ,which we need to modify the sizes of image.
I am giving you an link which is already there  but still from myside  , just compare the code  .
Link: [http://www.scribd.com/doc/454814/SAPSCRIPT-to-PDF]
Regards,