Send POs in pdf format to vendors

Hi,
how can I send POs to vendors in pdf format by e-mail ?
Best regards

Hello,
This is supported with stanadrad output control . You can do this using your sapscript or smartform. Just see if your output type has a processing routine & smartform defined for medium "5" external send . It can be the same print program and routine you use for printing .
Now create a condition record for output medium "5" .
Also make sure that email is maintained in Vendor Master
or check below links.
Send PO PDF to vendor and ALSO to others
Convert PO into PDF format and send by an email to vendor
Regards
Mahesh Naik.

Similar Messages

Sending PO as PDF attachment to Vendor

Hi Gurus
I have requirement where, when PO is saved , a PDF attachment should be sent to Vendor email. Your help is appreciated.
Regards,
Gajanan

Hi,
Goto NACE .
u2022 Select EF and click on OUTPUT TYPES.
u2022 Then select Output Type NEU and click on processing routines .
u2022 In that you have to add a new entry - medium 5 .
u2022 Then you need to assign a program, form routine and form.
u2022 You can use the standard program i.e. SAPFM06P, FORM routine is always ENTRY_NEU and standard MEDRUCK.
u2022 Then in PARTNER FUNCTION you need to add a new entry : medium - 5 and function - VN .
u2022 For subject of the mail goto Mail Title and Texts. In title give PO No. &EKKO-EBELN& .
u2022 Under General data -> Replacement of text symbols give programm as SAPMM06E and Form Routine as TEXT_SYMBOL_REPLACE .
u2022 Now the subject will be PO No. 1800004202.
u2022 You need to maintain your email id in tcode SU01 and also the vendor's email id.
u2022 Now while creating a new purchase order , change the medium to External Send .
u2022 Then goto Communication Method and select CS01 . ALSO make sure that the Cover Page Text has value PO No. &EKKO-EBELN& .
u2022 Goto tcode ME9F .
u2022 Execute.
u2022 Select the checkbox and click on Output Message.
u2022 You will get a message MAII 00000000000123 generated.
also check,
go to MN04
here give the condition as NEU
choose key combination as Purchasing Output Determination: Document Type
select doc type and partner function as VN vendor mediuam as 5 external send
select communication here strategy give as CS01
For subject of the mail go to Mail Title and Texts. In title give PO No. &EKKO-EBELN&
Also if you want to convert PO in PDF format :
Get spool request in SP01
Then go to SE38. Program name: RSTXPDF4 Execute.
Give the spool number & execute.
PDF will be created for PO.
Utsav

Send email in pdf format

i have a function which returns purchase orders list.
in my program i want my program sends the purchase order document through email in pdf format when i select an order from the list.
how can i do that.

This reference program might help:
http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm

Sending mail in PDF format in background

Hi,
I am running a program in backgorund.
After the completion, I am convertin gthe spool into PDF format and sending it to mail.
In SAP 4.6 B it was working.
But now in SAP 4.7 the mail is not working.
Regular mails are going from SAP.
What could be the reason?.
Regards
Elini.P

Dear Paul,
Here is the code for sending mail through ABAP converting Spool in PDF in background.
if sy-batch eq 'X'.
 perform get_job_details.
 perform obtain_spool_id.
 perform convert_spool_to_pdf.
 perform process_email.
 if p_delspl eq 'X'.
 perform delete_spool.
 endif.
 if sy-sysid = c_dev.
 wait up to 5 seconds.
 submit rsconn01 with mode = 'INT'
 with output = 'X'
 and return.
 endif.
else.
 skip.
 write:/ 'Program must be executed in background in-order for spool',
 'request to be created.'.
endif.
*& Form GET_JOB_DETAILS
 text
--> p1 text
<-- p2 text
form get_job_details.
Get current job details
call function 'GET_JOB_RUNTIME_INFO'
 importing
 eventid = gd_eventid
 eventparm = gd_eventparm
 external_program_active = gd_external_program_active
 jobcount = gd_jobcount
 jobname = gd_jobname
 stepcount = gd_stepcount
 exceptions
 no_runtime_info = 1
 others = 2.
endform. " GET_JOB_DETAILS
*& Form OBTAIN_SPOOL_ID
 text
--> p1 text
<-- p2 text
form obtain_spool_id.
check not ( gd_jobname is initial ).
check not ( gd_jobcount is initial ).
select * from tbtcp into table it_tbtcp
where jobname = gd_jobname
 and jobcount = gd_jobcount
 and stepcount = gd_stepcount
 and listident <> '0000000000'
 order by jobname
 jobcount
 stepcount.
read table it_tbtcp into wa_tbtcp index 1.
if sy-subrc = 0.
 message s004(zdd) with gd_spool_nr.
 gd_spool_nr = wa_tbtcp-listident.
 message s004(zdd) with gd_spool_nr.
else.
 message s005(zdd).
endif.
endform. " OBTAIN_SPOOL_ID
*& Form CONVERT_SPOOL_TO_PDF
 text
--> p1 text
<-- p2 text
form convert_spool_to_pdf.
call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
 exporting
 src_spoolid = gd_spool_nr
 no_dialog = c_no
 dst_device = c_device
 importing
 pdf_bytecount = gd_bytecount
 tables
 pdf = it_pdf_output
 exceptions
 err_no_abap_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_destdevice = 5
 user_cancelled = 6
 err_spoolerror = 7
 err_temseerror = 8
 err_btcjob_open_failed = 9
 err_btcjob_submit_failed = 10
 err_btcjob_close_failed = 11
 others = 12.
check sy-subrc = 0.
Transfer the 132-long strings to 255-long strings
loop at it_pdf_output.
 translate it_pdf_output using ' ~'.
 concatenate gd_buffer it_pdf_output into gd_buffer.
endloop.
translate gd_buffer using '~ '.
do.
 it_mess_att = gd_buffer.
 append it_mess_att.
 shift gd_buffer left by 255 places.
 if gd_buffer is initial.
 exit.
 endif.
enddo.
endform. " CONVERT_SPOOL_TO_PDF
*& Form PROCESS_EMAIL
 text
--> p1 text
<-- p2 text
form process_email.
describe table it_mess_att lines gd_recsize.
check gd_recsize > 0.
perform send_email using p_email1.
endform. " PROCESS_EMAIL
*& Form SEND_EMAIL
 text
 -->P_P_EMAIL1 text
form send_email using p_email.
check not ( p_email is initial ).
refresh it_mess_bod.
Default subject matter
gd_subject = 'Subject'.
gd_attachment_desc = 'Attachname'.
CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.
it_mess_bod = 'SCGL - Purchase Order in 050'.
append it_mess_bod.
it_mess_bod = 'Success or Error messages'.
append it_mess_bod.
If no sender specified - default blank
if p_sender eq space.
 gd_sender_type = space.
else.
 gd_sender_type = 'INT'.
endif.
Add the recipients email address
open dataset file for input in text mode.
if sy-subrc = 0.
 do.
 read dataset file into itab_receivers.
 if sy-subrc = 0.
 append itab_receivers.
 else.
 exit.
 endif.
 enddo.
endif.
close dataset file.
loop at itab_receivers.
 clear: p_email.
 p_email = itab_receivers-receiver.
Send file by email as .xls speadsheet
 perform send_file_as_email_attachment
 tables it_mess_bod
 it_mess_att
 using p_email
 'SCGL Purchase Order IN 050'
 'PDF'
 gd_attachment_name
 gd_attachment_desc
 p_sender
 gd_sender_type
 changing gd_error
 gd_reciever.
endloop.
endform. " SEND_EMAIL
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
 text
 -->P_IT_MESS_BOD text
 -->P_IT_MESS_ATT text
 -->P_P_EMAIL text
 -->P_1572 text
 -->P_1573 text
 -->P_GD_ATTACHMENT_NAME text
 -->P_GD_ATTACHMENT_DESC text
 -->P_P_SENDER text
 -->P_GD_SENDER_TYPE text
 <--P_GD_ERROR text
 <--P_GD_RECIEVER text
form send_file_as_email_attachment tables it_message
 it_attach
 using p_email
 p_mtitle
 p_format
 p_filename
 p_attdescription
 p_sender_address
 p_sender_addres_type
 changing p_error
 p_reciever.
ld_email = p_email.
ld_mtitle = p_mtitle.
ld_format = p_format.
ld_attdescription = p_attdescription.
ld_attfilename = p_filename.
ld_sender_address = p_sender_address.
ld_sender_address_type = p_sender_addres_type.
Fill the document data.
w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle .
w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
clear w_doc_data.
read table it_attach index w_cnt.
w_doc_data-doc_size =
( w_cnt - 1 ) * 255 + strlen( it_attach ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle.
w_doc_data-sensitivty = 'F'.
clear t_attachment.
refresh t_attachment.
t_attachment[] = it_attach[].
Describe the body of the message
clear t_packing_list.
refresh t_packing_list.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
describe table it_message lines t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
append t_packing_list.
Create attachment notification
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num = 1.
t_packing_list-body_start = 1.
describe table t_attachment lines t_packing_list-body_num.
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = ld_attdescription.
t_packing_list-obj_name = ld_attfilename.
t_packing_list-doc_size = t_packing_list-body_num * 255.
append t_packing_list.
Add the recipients email address
clear t_receivers.
refresh t_receivers.
t_receivers-receiver = ld_email.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'.
t_receivers-notif_ndel = 'X'.
append t_receivers.
call function 'SO_DOCUMENT_SEND_API1'
 exporting
 document_data = w_doc_data
 put_in_outbox = 'X'
 sender_address = ld_sender_address
 sender_address_type = ld_sender_address_type
 commit_work = 'X'
 importing
 sent_to_all = w_sent_all
 tables
 packing_list = t_packing_list
 contents_bin = t_attachment
 contents_txt = it_message
 receivers = t_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.
Populate zerror return code
ld_error = sy-subrc.
Populate zreceiver return code
loop at t_receivers.
 ld_receiver = t_receivers-retrn_code.
endloop.
endform. " SEND_FILE_AS_EMAIL_ATTACHMENT
*& Form DELETE_SPOOL
 text
--> p1 text
<-- p2 text
form delete_spool.
data: ld_spool_nr type tsp01_sp0r-rqid_char.
ld_spool_nr = gd_spool_nr.
check p_delspl <> c_no.
call function 'RSPO_R_RDELETE_SPOOLREQ'
 exporting
 spoolid = ld_spool_nr.
endform. " DELETE_SPOOL

PDF format PO send to Vendor

Hi,
Once we created ME21N or released the PO from ME29N, system should sent a mail with attachment of PO in PDF format to Vendor,
1) If vendor did not get the mail or attachment, then Buyer should get the mail,
2) if Buyer get the mail. he will process the mail once again , send the email to vendor with attachment.
3)How we come to know about the vendor has successfully received the mail with attachment of pdf format PO.?
How we proceed this development and how to get?

Hi,
Check Sap note 191470
Goto NACE .
u2022 Select EF and click on OUTPUT TYPES.
u2022 Then select Output Type NEU and click on processing routines .
u2022 In that you have to add a new entry - medium 5 .
u2022 Then you need to assign a program, form routine and form.
u2022 You can use the standard program i.e. SAPFM06P, FORM routine is always ENTRY_NEU and standard MEDRUCK.
u2022 Then in PARTNER FUNCTION you need to add a new entry : medium - 5 and function - VN .
u2022 For subject of the mail goto Mail Title and Texts. In title give PO No. &EKKO-EBELN& .
u2022 Under General data -> Replacement of text symbols give programm as SAPMM06E and Form Routine as TEXT_SYMBOL_REPLACE .
u2022 Now the subject will be PO No. 1800004202.
u2022 You need to maintain your email id in tcode SU01 and also the vendor's email id.
u2022 Now while creating a new purchase order , change the medium to External Send .
u2022 Then goto Communication Method and select CS01 . ALSO make sure that the Cover Page Text has value PO No. &EKKO-EBELN& .
u2022 Goto tcode ME9F .
u2022 Execute.
u2022 Select the checkbox and click on Output Message.
u2022 You will get a message MAII 00000000000123 generated.
also check,
go to MN04
here give the condition as NEU
choose key combination as Purchasing Output Determination: Document Type
select doc type and partner function as VN vendor mediuam as 5 external send
select communication here strategy give as CS01
For subject of the mail go to Mail Title and Texts. In title give PO No. &EKKO-EBELN&
Also if you want to convert PO in PDF format :
Get spool request in SP01
Then go to SE38. Program name: RSTXPDF4 Execute.
Give the spool number & execute.
PDF will be created for PO.

To send output as email in PDF format

I am using Function module so_new_document_att_send_api1 to send my report output as Email.
Please tell me how to send it in PDF format.

1) FIRST GENERATE SPOOL REQUEST for ur output THEN DOWNLOAD this spool request to a PDF file via REPORT PROGRAM - RSTXPDFT4 .
2) then use this program to send this PDf via mail (also see ur SCOT setttings) -
*& Report ZGILL_SENDMAIL_PDF *
REPORT ZGILL_SENDMAIL_PDF .
INCLUDE ZGILL_INCMAIL. "SEE BELOW FOR INCLUDE PROGRAM CODE.
DATA
DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.
DATA : file_name TYPE string.
data : path like PCFILE-PATH.
data : extension(5) type c.
data : name(100) type c.
SELECTION SCREEN
PARAMETERS : receiver TYPE somlreci1-receiver lower case DEFAULT '[email protected]'.
PARAMETERS : p_file LIKE rlgrap-filename
OBLIGATORY DEFAULT 'C:\TEMP\SALARY_SLIP1.PDF'.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CLEAR p_file.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = p_file.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM ml_customize USING 'Tst' 'Testing'.
PERFORM ml_addrecp USING receiver 'U'.
PERFORM upl.
PERFORM doconv TABLES itab objbin.
PERFORM ml_prepare USING 'X' extension name.
PERFORM ml_dosend.
SUBMIT rsconn01
WITH mode EQ 'INT'
AND RETURN.
FORM
FORM upl.
file_name = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file_name
filetype = 'BIN'
TABLES
data_tab = 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
CHECK_DOS_FORMAT =
IMPORTING
DRIVE =
EXTENSION = extension
NAME = name
NAME_WITH_EXT =
PATH =
EXCEPTIONS
INVALID_DRIVE = 1
INVALID_EXTENSION = 2
INVALID_NAME = 3
INVALID_PATH = 4
OTHERS = 5
ENDFORM. "upl
*********************iNCLUDE pROGRAM********************************************
*& Include ZGILL_INCMAIL *
Data
DATA: docdata LIKE sodocchgi1,
objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objhex LIKE solix OCCURS 10 WITH HEADER LINE,
reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA: tab_lines TYPE i,
doc_size TYPE i,
att_type LIKE soodk-objtp.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
FORM
FORM ml_customize USING objname objdesc.
Clear Variables
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.
Set Variables
docdata-obj_name = objname.
docdata-obj_descr = objdesc.
ENDFORM. "ml_customize
FORM
FORM ml_addrecp USING preceiver prec_type.
CLEAR reclist.
reclist-receiver = preceiver.
reclist-rec_type = prec_type.
APPEND reclist.
ENDFORM. "ml_customize
FORM
FORM ml_addtxt USING ptxt.
CLEAR objtxt.
objtxt = ptxt.
APPEND objtxt.
ENDFORM. "ml_customize
FORM
FORM ml_prepare USING bypassmemory whatatt_type whatname.
IF bypassmemory = ''.
Fetch List From Memory
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = listobject
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'LIST_FROM_MEMORY'.
ENDIF.
CALL FUNCTION 'TABLE_COMPRESS'
IMPORTING
COMPRESSED_SIZE =
TABLES
in = listobject
out = objbin
EXCEPTIONS
OTHERS = 1
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'TABLE_COMPRESS'.
ENDIF.
ENDIF.
Header Data
Already Done Thru FM
Main Text
Already Done Thru FM
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.
Receiver List
Already done thru fm
ENDFORM. "ml_prepare
FORM
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
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
CONTENTS_HEX = objhex
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 ID 'SO' TYPE 'S' NUMBER '023'
WITH docdata-obj_name.
ENDIF.
ENDFORM. "ml_customize
FORM
FORM ml_spooltopdf USING whatspoolid.
DATA : pdf LIKE tline OCCURS 0 WITH HEADER LINE.
Call Function
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = whatspoolid
TABLES
pdf = pdf
EXCEPTIONS
err_no_otf_spooljob = 1
OTHERS = 12.
Convert
PERFORM doconv TABLES pdf objbin.
ENDFORM. "ml_spooltopdf
FORM
FORM doconv TABLES
mypdf STRUCTURE tline
outbin STRUCTURE solisti1.
Data
DATA : pos TYPE i.
DATA : len TYPE i.
Loop And Put Data
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
**********************INCLUDE END********************************

Send remittance advice by email to vendors

When automatic payment (F110) run is done to make payment to vendors,it generates a PAYEXT IDOC to be send to bank for payments.
Print output program is RFFOEDI1
Remittance advice standard SAP script is F110_IN_AVIS.
What are the ways to send email in PDF format? DO we need to write a code or is there ay facility like message control?

you need to use available FM's to convert the data into PDF and send as attachment via email..

Send form like pdf

Hi,
I have form and I need to send form in PDF format to specific mail ...
in the start user must select check box :
when user select 1 check box option subject mail is Name 1 + address2 ....
when user select 2 check box option subject mail is Name 2 + address2....
My problems (sorry I'm beginner), is button for send form in the PDF format ...
I create one button for each subform like (click event) :
--------------- subform1 -----------------
var oDoc = event.target;
oDoc.mailDoc(
bUI: true,
cTo: "[email protected]",
cSubject: form1.page1.subform1.Name1.rawValue + " " + form1.page1.subform1.address1.rawValue
------------------ subform2 -----------
var oDoc = event.target;
oDoc.mailDoc(
bUI: true,
cTo: "[email protected]",
cSubject: form1.page1.subform2.Name2.rawValue + " " + form1.page1.subform2.address2.rawValue
But that work only for option 1.
When select on then check box option 2 and press button - don't work.
Can i set one button for all form (and where put it) , where mail subject will be value from actual subform , and format form="pdf" ?
Thanks ...

I have solution :
in each subform create a Button (Object -> Field -> Control type -> Regular) with click event :
var vSubject;
var vCC="";
var vBody="";
var vEmail="[email protected]";
// Create subject from subform field :
vSubject = first_name.rawValue + " " + last_name.rawValue + " - born : " + born_date.rawValue ;
event.target.submitForm({cURL:"mailto: "+ vEmail +"?subject=" + vSubject +"&body=" + vBody + vCC,cSubmitAs:"PDF",cCharset:"utf-8"});

BEx Broadcast - Not able to send email as PDF attachment

Hi All,
We have BI 7.0 and EP 7.0 of SP12.
From BEx broadcasting we couldnt able to send email in PDF format, but other format like HTML, Link, MHTML can able to send
It gives error like
Error:java.lang.ArrayIndexOutOfBoundsException
Error occured during the processing of framework class CL_RSRC_PRODUCER_PRECALC, type, PROD
Pls give me some input on this regard
Thanks
Karthik

Prerequisites - You selected Broadcast to Printer as the distribution type when you created the broadcast setting.
http://help.sap.com/saphelp_nw2004s/helpdata/en/13/f76f422f91c153e10000000a1550b0/content.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/bf/220c40ac368f5ce10000000a155106/content.htm
Configuration - Broadcasting
http://help.sap.com/saphelp_nw2004s/helpdata/en/84/30984076b84063e10000000a1550b0/content.htm
https://forums.sdn.sap.com/click.jspa?searchID=4204837&messageID=2091321
https://forums.sdn.sap.com/click.jspa?searchID=4204809&messageID=2816847
Some Insights-
The PDF printing can be done from a BEx Web Application, BEx Web Analyzer, or BEx Report Designer. There are no current plans to make this available in the BEx Analyzer.
From the BEx Analyzer, you can use the "launch in web" functionality to then initiate print to PDF.
Hope it Helps
Chetan
@CP..

PO output sending to vendor via email by PDF Format

Hi All,
Business needs to send the PO output in PDF Format to multiple vendor contact via email. They also needs soem text in the body of the mail.
Is it possible to config via standard SAP or we need to develop a customed program?
Suppose If it is possible via standard SAP can some one post the detailed steps.
Thanks in Advance
Regards
Karthick

External Send - Sending PO by email
In order to send PO, your Basis team must configure the system first so that external email can be send out from SAP. If it is not configured, no settings you do on MM will work.
1. You must maintain email address in vendor master data.
2. The same applies to your user master data. For the output type for default values, a communication strategy needs
to be maintained in the Customizing that supports the e-mail. You can find the definition of the communication strategy in the
Customizing via the following path:
(SPRO -> IMG -> SAP Web Application Server -> Basic Services -> Message Control -> Define Communication Strategy).
As a default, communication strategy CS01 is delivered. This already contains the necessary entry for the external communication. Bear in mind that without a suitable communication strategy it is not possible to communicate with a partner via Medium 5 (external sending).
3. Use the standard SAP environment (program 'SAPFM06P', FORM routine 'ENTRY_NEU' and form 'MEDRUCK') as the processing routines.
4. In the condition records for the output type (for example, Transaction MN04), use medium '5' (External send).
5. You can use Transaction SCOT to trigger the output manually. The prerequisite for a correct sending is that the node is set correctly. This is not described here, but it must have already been carried out.
6. To be able to display, for example, the e-mail in Outlook, enter PDF as the format in the node

Convert PO into PDF format and send by an email to vendor

We are using SAP version ECC 5.0. We want to convert SAP PO into PDF format and attached it in an email and send it to vendor. Please give me some tips to achieve this?
Thanks in advance!
Mrudula

Hi!
The way to achieve your goal depends on how you get PO printed - by sapscript, smartform or abap list.
As have been mentioned you can create spool request and process it. But for sapscript and smartform you can proceed without spool request - just get back OTF data from corresponding FM and convert it to PDF.
In case of smartform:
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZFORMNAME'
IMPORTING
fm_name = v_form_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
w_ctrlop-getotf = 'X'.
w_ctrlop-no_dialog = 'X'.
w_compop-tdnoprev = 'X'.
CALL FUNCTION v_form_name
EXPORTING
control_parameters = w_ctrlop
output_options = w_compop
user_settings = 'X'
IMPORTING
job_output_info = w_return
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
i_otf[] = w_return-otfdata[].
In case of sapscript:
options-tdgetotf = 'X'.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
options = options
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT =
RDI_RESULT =
TABLES
otfdata = i_otf
EXCEPTIONS
unopened = 1
bad_pageformat_for_print = 2
send_error = 3
spool_error = 4
OTHERS = 5.
Then convert to PDF
DATA:
pdf LIKE tline OCCURS 100 WITH HEADER LINE,
v_len_in LIKE sood-objlen.
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
   format                      = 'PDF'
   max_linewidth               = 132
ARCHIVE_INDEX               = ' '
IMPORTING
   bin_filesize                = v_len_in
    TABLES
      otf                         = i_otf
      lines                       = pdf
   EXCEPTIONS
     err_max_linewidth           = 1
     err_format                  = 2
     err_conv_not_possible       = 3
     OTHERS                      = 4
Then send as attachment as Max proposed.
Regards,
Maxim.

Error while sending PO output through mail in PDF format - Urgent

Dear friends,
Developed program to send sapscript output through mail in pdf format, the program running properly, even function module SO_NEW_DOCUMENT_ATT_SEND_API1 returning sy-subrc 0. But the external mail is not going to user lying in SAP outbox with message "Wait for communications service" . SCOT is properly configured, tested mails sending through SAP office.
Find below the source code:
REPORT zmm_porder_gm
 NO STANDARD PAGE HEADING.
TABLES: ekko, ekpa, t161t, t052, komv, j_1imocomp, t001, esll.
Internal Tables
DATA : txt LIKE tline-tdline, "HEADER LINE
 your_ref LIKE ekko-ihrez, "your ref
 our_ref LIKE ekko-unsez, "our ref
 mcompname LIKE t001-butxt,
 itemname LIKE ekpo-txz01,
 del_text LIKE tline-tdline, "delivery text
 mat_po_text LIKE tline-tdline. "material po text
DATA: g_ind TYPE i.
DATA: it_esll LIKE esll OCCURS 0 WITH HEADER LINE.
DATA: sub_packno LIKE esll-sub_packno.
DATA : po_flag(1) TYPE c.
DATA : it_erev LIKE erev OCCURS 0 WITH HEADER LINE.
DATA : nmebeln LIKE thead-tdname,
 obj LIKE thead-tdname.
DATA : tline LIKE tline OCCURS 0 WITH HEADER LINE. "HEADER TEXT
DATA : it_ekko LIKE ekko OCCURS 0 WITH HEADER LINE.
DATA : it_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE.
DATA : it_zmm_porder LIKE zmm_porder OCCURS 0 WITH HEADER LINE.
DATA : it_konv LIKE konv OCCURS 0 WITH HEADER LINE.
DATA : it_konv_ftr LIKE konv OCCURS 0 WITH HEADER LINE.
DATA : it_konv_rate LIKE konv OCCURS 0 WITH HEADER LINE.
DATA : it_komv_tax LIKE komv OCCURS 0 WITH HEADER LINE. " For Tax Calculation
DATA : it_zmm_house_bank LIKE zmm_house_bank OCCURS 0 WITH HEADER LINE.
*DATA : mrate TYPE konv-kbetr VALUE 0, mrate1(15). rmoved by ganes and added following logic
DATA : mrate TYPE p VALUE 0 DECIMALS 2, mrate1(15).
DATA : mrate_gm TYPE p DECIMALS 2.
DATA : BEGIN OF it_konv1 OCCURS 0,
 knumv LIKE konv-knumv,
 kschl LIKE konv-kschl,
END OF it_konv1.
DATA : BEGIN OF it_t052u OCCURS 0.
 INCLUDE STRUCTURE t052u.
DATA : END OF it_t052u.
DATA : mpay_terms LIKE t052u-text1.
DATA : mwaers LIKE konv-waers.
DATA : BEGIN OF xt052 OCCURS 0.
 INCLUDE STRUCTURE t052.
DATA : END OF xt052.
DATA : it_t16ct LIKE t16ct OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF ztext OCCURS 0.
 INCLUDE STRUCTURE ttext.
DATA : END OF ztext.
DATA : it_t001 LIKE t001 OCCURS 0 WITH HEADER LINE.
DATA : mtext(15) TYPE c.
DATA : it_adrc LIKE adrc OCCURS 0 WITH HEADER LINE.
DATA : it_adrc_ven LIKE adrc OCCURS 0 WITH HEADER LINE.
DATA : it_adrc_plt LIKE adrc OCCURS 0 WITH HEADER LINE.
DATA : it_makt LIKE makt OCCURS 0 WITH HEADER LINE.
DATA : it_eket LIKE eket OCCURS 0 WITH HEADER LINE. " Schedulling
DATA : it_eikp LIKE eikp OCCURS 0 WITH HEADER LINE. " Export
DATA : it_t001w LIKE t001w OCCURS 0 WITH HEADER LINE.
DATA : it_t685t LIKE t685t OCCURS 0 WITH HEADER LINE.
DATA : it_t618t LIKE t618t OCCURS 0 WITH HEADER LINE.
DATA : it_t685t_ftr LIKE t685t OCCURS 0 WITH HEADER LINE.
DATA : it_lfa1 LIKE lfa1 OCCURS 0 WITH HEADER LINE.
DATA : it_bapi_mltx_ga LIKE bapi_mltx_ga OCCURS 0 WITH HEADER LINE. "Material long text
DATA : mfirst TYPE i VALUE 0,
 mpay_flag(1) TYPE c VALUE 'X',
 mwerks LIKE t001w-werks,
 msr TYPE i VALUE 0,
 l_rate TYPE p DECIMALS 2 VALUE 0,
 l_amt TYPE p DECIMALS 2 VALUE 0,
 mflag(1) TYPE c,
 mlctr TYPE i VALUE 0,
 mfamt TYPE p DECIMALS 2 VALUE 0,
 mcfamt(15) TYPE c,
 mfword(100) TYPE c,
 mkschl LIKE konv-kschl,
 mchgamt TYPE p DECIMALS 2 VALUE 0,
 mkbetr TYPE p DECIMALS 2 VALUE 0,
 mkwert TYPE p DECIMALS 2 VALUE 0.
DATA : j_1iexcd TYPE j_1imocomp-j_1iexcd,
 j_1icstno TYPE j_1imocomp-j_1icstno,
 j_1ilstno TYPE j_1imocomp-j_1ilstno.
DATA : mjmop_r TYPE p DECIMALS 2 VALUE 0,
 mjmoq_r TYPE p DECIMALS 2 VALUE 0,
 mjecs_r TYPE p DECIMALS 2 VALUE 0,
 mjvcs_r TYPE p DECIMALS 2 VALUE 0,
 mjvrd_r TYPE p DECIMALS 2 VALUE 0,
 mjsep_r TYPE p DECIMALS 2 VALUE 0.
DATA : mjmop_a TYPE p DECIMALS 2 VALUE 0,
 mjmoq_a TYPE p DECIMALS 2 VALUE 0,
 mjecs_a TYPE p DECIMALS 2 VALUE 0,
 mjvcs_a TYPE p DECIMALS 2 VALUE 0,
 mjvrd_a TYPE p DECIMALS 2 VALUE 0,
 mjsep_a TYPE p DECIMALS 2 VALUE 0.
DATA : mtitle LIKE t161t-batxt.
DATA : no_ammend(10),request_by(50),ver_txt(100),ver_reason(100),stext(200).
begin of Email data declarations**************
DATA: BEGIN OF otf OCCURS 0.
 INCLUDE STRUCTURE itcoo .
DATA: END OF otf.
DATA: itcpo LIKE itcpo.
DATA: itcpp LIKE itcpp.
DATA: it_docs TYPE STANDARD TABLE OF docs,
 v_bin_filesize TYPE i,
 it_lines TYPE STANDARD TABLE OF tline,
 wa_lines TYPE tline.
DATA : i_pdf LIKE tline OCCURS 1000 WITH HEADER LINE,
v_pdf_bytecount TYPE i,
v_pdf_spoolid TYPE tsp01-rqident,
v_otf_pagecount TYPE i,
v_btc_jobname TYPE tbtcjob-jobname,
v_btc_jobcount TYPE tbtcjob-jobcount.
DATA: objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE.
DATA: objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
DATA: vafilename(100) VALUE 'po_output.pdf'.
DATA: jobdata TYPE sxjobdata.
DATA arc_params TYPE arc_params.
DATA print_params TYPE pri_params.
DATA g_send_prog TYPE syrepid VALUE 'ZVF03_TEST_PROG'.
DATA immediate TYPE btcchar1.
DATA: i_jobname TYPE tbtcp-jobname,
i_jobcount TYPE tbtcp-jobcount,
i_jobstepcount TYPE tbtcp-stepcount.
DATA recipient_obj LIKE swotobjid.
CONSTANTS: sx_true TYPE sx_boolean VALUE 'X'.
TABLES: tbtcp.
end of Email data declarations**************
SELECTION-SCREEN : BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : mebeln FOR ekko-ebeln OBLIGATORY . " 75
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
SELECTION-SCREEN COMMENT (20) text-b01.
PARAMETERS: b1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : END OF BLOCK block1.
SELECTION-SCREEN: BEGIN OF SCREEN 200 TITLE text-001 AS WINDOW.
PARAMETERS : p_email TYPE ad_smtpadr. "E-Mail Address
SELECTION-SCREEN: END OF SCREEN 200.
INITIALIZATION.
SET PF-STATUS 'ZMMPORD_STAT'.
AT SELECTION-SCREEN.
CASE sy-ucomm.
 WHEN 'EMAIL'.
 PERFORM zemail.
 WHEN '&IC1'.
 PERFORM load_data.
 PERFORM process.
 IF NOT p_email IS INITIAL.
 PERFORM send_mail.
 ENDIF.
ENDCASE.
*START-OF-SELECTION.
PERFORM load_data.
PERFORM process.
FORM load_data .
DATA : gindex LIKE sy-tabix.
SELECT * FROM t16ct INTO TABLE it_t16ct WHERE spras = 'EN'.
SELECT * FROM ekko INTO TABLE it_ekko WHERE ebeln IN mebeln.
IF sy-subrc EQ 0.
 SELECT * FROM erev INTO CORRESPONDING FIELDS OF TABLE it_erev FOR ALL ENTRIES IN it_ekko
 WHERE edokn = it_ekko-ebeln AND rscod <> '' .
 SORT it_erev BY edokn revno DESCENDING.
 LOOP AT it_ekko.
 IF NOT ( it_ekko-frgke EQ 'O' OR it_ekko-frgke EQ '0' ) .
 MESSAGE e000(zsd) WITH 'Purchase Order is not Realeased'.
 ENDIF.
 ENDLOOP.
 SELECT * FROM ekpo INTO TABLE it_ekpo WHERE ebeln IN mebeln.
 IF sy-subrc EQ 0.
 SELECT * INTO TABLE it_makt
 FROM makt
 FOR ALL ENTRIES IN it_ekpo
 WHERE matnr EQ it_ekpo-matnr.
 SELECT * INTO TABLE it_lfa1
 FROM lfa1
 FOR ALL ENTRIES IN it_ekko
 WHERE lifnr EQ it_ekko-lifnr.
 ENDIF.
 SELECT *
 INTO TABLE it_t052u
 FROM t052u
 FOR ALL ENTRIES IN it_ekko
 WHERE zterm EQ it_ekko-zterm
 AND spras EQ 'EN'.
 IF sy-subrc EQ 0.
 SORT it_t052u BY zterm.
 ENDIF.
 SELECT * FROM eket INTO TABLE it_eket WHERE ebeln IN mebeln.
 IF sy-subrc EQ 0.
 SORT it_eket BY ebeln ebelp.
 ENDIF.
 SELECT *
 INTO TABLE it_eikp
 FROM eikp
 FOR ALL ENTRIES IN it_ekko
 WHERE exnum EQ it_ekko-exnum.
 IF sy-subrc EQ 0.
 SORT it_eikp BY exnum.
 SELECT *
 INTO TABLE it_t618t
 FROM t618t
 FOR ALL ENTRIES IN it_eikp
 WHERE expvz EQ it_eikp-expvz
 AND spras EQ 'E'
 AND land1 EQ 'IN'.
 IF sy-subrc EQ 0.
 SORT it_t618t BY expvz.
 ENDIF.
 ENDIF.
 REFRESH : it_zmm_porder.
 CLEAR : it_zmm_porder.
 SELECT * INTO TABLE it_zmm_porder
 FROM zmm_porder
 WHERE flag EQ 'L'.
 IF sy-subrc EQ 0.
 SORT it_zmm_porder BY kschl.
 ENDIF.
 SELECT * FROM konv INTO TABLE it_konv
 FOR ALL ENTRIES IN it_ekko
 WHERE knumv = it_ekko-knumv
 AND kwert NE 0.
 LOOP AT it_konv.
 gindex = sy-tabix.
 READ TABLE it_zmm_porder WITH KEY kschl = it_konv-kschl BINARY SEARCH.
 IF sy-subrc NE 0.
 DELETE it_konv INDEX gindex.
 ENDIF.
 ENDLOOP.
 IF sy-subrc EQ 0.
 SORT it_konv BY knumv kherk kschl.
 ENDIF.
 REFRESH : it_zmm_porder.
 CLEAR : it_zmm_porder.
 SELECT * INTO TABLE it_zmm_porder
 FROM zmm_porder
 WHERE flag EQ 'F'.
 IF sy-subrc EQ 0.
 SORT it_zmm_porder BY kschl.
 ENDIF.
 SELECT * INTO TABLE IT_KONV_FTR FROM KONV
 FOR ALL ENTRIES IN IT_EKKO
 WHERE KNUMV = IT_EKKO-KNUMV
 AND ( KSCHL = 'ZIN1'
 OR KSCHL = 'ZIN2'
 OR KSCHL = 'ZINS'
 OR KSCHL = 'ZPF1'
 OR KSCHL = 'ZPF2'
 OR KSCHL = 'ZPF3'
 OR KSCHL = 'ZPKG'
 OR KSCHL = 'ZPKF'
 OR KSCHL = 'FRA1'
 OR KSCHL = 'FRB1'
 OR KSCHL = 'FRC1'
 OR KSCHL = 'FRD1'
 OR KSCHL = 'FRD2'
 OR KSCHL = 'FRD3'
 OR KSCHL = 'FRD4'
 OR KSCHL = 'FRD5'
*****Added one condition type below ZFBC as on 05.06.2007 :Rajiv as per mail of Sadiq via mathew sir(RTDK906646)
 OR KSCHL = 'ZFBC' )
 AND KWERT NE 0
 AND KPOSN GT '000000'.
 AND ( KRECH = 'B' " RTDK906167
 OR KRECH = 'A' ).
 SELECT * INTO TABLE it_konv_ftr FROM konv
 FOR ALL ENTRIES IN it_ekko
 WHERE knumv = it_ekko-knumv
 AND kwert NE 0
 AND kposn GT '000000'.
 LOOP AT it_konv_ftr.
 gindex = sy-tabix.
 READ TABLE it_zmm_porder WITH KEY kschl = it_konv_ftr-kschl BINARY SEARCH.
 IF sy-subrc NE 0.
 DELETE it_konv_ftr INDEX gindex.
 ENDIF.
 ENDLOOP.
 IF it_konv_ftr[] IS NOT INITIAL.
 SORT it_konv_ftr BY knumv kschl.
 ENDIF.
 SELECT KNUMV KSCHL INTO CORRESPONDING FIELDS OF TABLE IT_KONV1 FROM KONV
 FOR ALL ENTRIES IN IT_EKKO
 WHERE KNUMV = IT_EKKO-KNUMV
 and kherk = 'D'
 AND ( KSCHL = 'ZIN1'
 OR KSCHL = 'ZIN2'
 OR KSCHL = 'ZINS'
 OR KSCHL = 'ZPF1'
 OR KSCHL = 'ZPF2'
 OR KSCHL = 'ZPF3'
 OR KSCHL = 'ZPKG'
 OR KSCHL = 'ZPKF'
 OR KSCHL = 'FRA1'
 OR KSCHL = 'FRB1'
 OR KSCHL = 'FRC1'
 OR KSCHL = 'FRD1'
 OR KSCHL = 'FRD2'
 OR KSCHL = 'FRD3'
 OR KSCHL = 'FRD4'
 OR KSCHL = 'FRD5'
*****Added one condition type below ZFBC as on 05.06.2007 :Rajiv as per mail of Sadiq via mathew sir(RTDK906646)
 OR KSCHL = 'ZFBC' )
 AND KWERT NE 0.
 AND ( KRECH = 'B' RTDK906167
 OR KRECH = 'A' ).
 SELECT knumv kschl INTO CORRESPONDING FIELDS OF TABLE it_konv1 FROM konv
 FOR ALL ENTRIES IN it_ekko
 WHERE knumv = it_ekko-knumv
 AND kwert NE 0.
 DELETE ADJACENT DUPLICATES FROM it_konv1 COMPARING knumv kschl.
 LOOP AT it_konv1.
 gindex = sy-tabix.
 READ TABLE it_zmm_porder WITH KEY kschl = it_konv1-kschl BINARY SEARCH.
 IF sy-subrc NE 0.
 DELETE it_konv1 INDEX gindex.
 ENDIF.
 ENDLOOP.
 IF sy-subrc EQ 0.
 SORT it_konv1 BY knumv kschl.
 ENDIF.
 SELECT * INTO TABLE it_t685t
 FROM t685t
 FOR ALL ENTRIES IN it_konv
 WHERE kschl EQ it_konv-kschl
 AND kappl EQ it_konv-kappl
 AND spras EQ 'E'.
 SELECT * INTO TABLE it_t685t_ftr
 FROM t685t
 FOR ALL ENTRIES IN it_konv_ftr
 WHERE kschl EQ it_konv_ftr-kschl
 AND kappl EQ it_konv_ftr-kappl
 AND spras EQ 'E'.
 it_t685t_ftr-kschl = 'JVCS'.
 it_t685t_ftr-vtext = 'IN CST in vat'.
 APPEND it_t685t_ftr.
 SELECT * INTO TABLE it_zmm_house_bank
 FROM zmm_house_bank
 WHERE ebeln IN mebeln.
ELSE.
 MESSAGE e899(mm) WITH 'Data not found for selection criteria...'.
ENDIF.
ENDFORM. " Load_data
FORM process .
DATA : mctr TYPE i VALUE 1.
DATA : gindex LIKE sy-tabix.
DATA : mline(75) TYPE c.
DATA : mlifn2 LIKE ekpa-lifn2.
DATA : mv_name LIKE lfa1-name1,
 madrnr LIKE lfa1-adrnr.
CLEAR itcpo.
itcpo-tdgetotf = 'X'.
CALL FUNCTION 'OPEN_FORM'
 EXPORTING
 form = 'ZMM_PORDER'
 language = sy-langu
 OPTIONS = itcpo
 dialog = ' '
 EXCEPTIONS
 OTHERS = 1.
LOOP AT it_ekko.
 CALL FUNCTION 'START_FORM'
 EXPORTING
 form = 'ZMM_PORDER'.
 SELECT SINGLE *
 FROM t001
 INTO it_t001
 WHERE bukrs EQ it_ekko-bukrs.
 mcompname = it_t001-butxt.
 TRANSLATE mcompname TO UPPER CASE.
 Document Type
 SELECT SINGLE batxt
 INTO mtitle
 FROM t161t
 WHERE bstyp EQ 'F'
 AND spras EQ 'E'
 AND bsart EQ it_ekko-bsart.
 REFRESH it_adrc.
 SELECT SINGLE werks
 INTO mwerks
 FROM ekpo
 WHERE ebeln EQ it_ekko-ebeln.
 SELECT SINGLE *
 INTO it_t001w
 FROM t001w
 WHERE werks EQ mwerks.
 REFRESH it_adrc.
 SELECT SINGLE *
 INTO it_adrc_plt
 FROM adrc
 WHERE addrnumber EQ it_t001w-adrnr.
 REFRESH : xt052.
 mfamt = 0.
 msr = 0.
in 500c this statement failed.
 SELECT SINGLE * FROM T052 INTO XT052 WHERE ZTERM = IT_EKKO-ZTERM.
 CALL FUNCTION 'FI_TEXT_ZTERM'
 EXPORTING
 I_T052 = XT052
 TABLES
 T_ZTEXT = ZTEXT.
 As per Preeti... Shipment address should be shown on top as purchase order company address. 27.04.
 PERFORM writeform USING 'PLANT' 'PLANT'.
 SELECT SINGLE name1 adrnr
 INTO (mv_name,madrnr)
 FROM lfa1
 WHERE lifnr EQ it_ekko-lifnr.
 REFRESH it_adrc[].
 CLEAR it_adrc[].
 FREE it_adrc[].
 SELECT SINGLE *
 INTO it_adrc_ven
 FROM adrc
 WHERE addrnumber EQ madrnr.
 READ TABLE it_lfa1 WITH KEY lifnr = it_ekko-lifnr.
 PERFORM writeform USING 'VENDOR' 'VENDOR'.
 Shipment
 SELECT SINGLE werks
 INTO mwerks
 FROM ekpo
 WHERE ebeln EQ it_ekko-ebeln.
 up to 1 rows.
 SELECT SINGLE *
 INTO it_t001w
 FROM t001w
 WHERE werks EQ mwerks.
 SELECT SINGLE j_1iexcd j_1icstno j_1ilstno
 INTO (j_1iexcd,j_1icstno,j_1ilstno)
 FROM j_1imocomp
 WHERE werks = mwerks.
 REFRESH it_adrc.
 SELECT SINGLE *
 INTO it_adrc
 FROM adrc
 WHERE addrnumber EQ it_t001w-adrnr.
 PERFORM writeform USING 'SHIPMNT' 'SHIPMNT'.
 READ TABLE it_eikp WITH KEY exnum = it_ekko-exnum.
 IF sy-subrc EQ 0.
 READ TABLE it_t618t WITH KEY expvz = it_eikp-expvz.
 ENDIF.
 your_ref = it_ekko-ihrez.
 our_ref = it_ekko-unsez.
 READ TABLE it_erev WITH KEY edokn = it_ekko-ebeln.
 IF sy-subrc = 0.
 no_ammend = it_erev-revno.
 request_by = it_erev-crnam.
 ver_txt = it_erev-txz01.
 READ TABLE it_t16ct WITH KEY rscod = it_erev-rscod.
 IF sy-subrc = 0.
 ver_reason = it_t16ct-rstxt.
 ELSE.
 ver_reason = ''.
 ENDIF.
 ELSE.
 no_ammend = ''.
 request_by = ''.
 ver_txt = ''.
 ver_reason = ''.
 ENDIF.
 PERFORM writeform USING 'PO_INFO' 'PO_INFO'.
 IF it_zmm_house_bank[] IS NOT INITIAL.
 READ TABLE it_zmm_house_bank INDEX 1.
 PERFORM writeform USING 'BANKDTL' 'BANKDTL'.
 ENDIF.
 PERFORM writeform USING 'HDR_INFO' 'HDR_INFO'.
 PERFORM writeform USING 'BRK_TTL' 'MAIN'.
 msr = 1.
 mlctr = 1.
*added by ganesh to prevent deleted items to appear in print out
 LOOP AT IT_EKPO WHERE EBELN EQ IT_EKKO-EBELN.
 LOOP AT it_ekpo WHERE ebeln EQ it_ekko-ebeln AND loekz NE 'L'.
*end of change
 CLEAR: mrate, mrate1.
 SELECT * FROM konv INTO TABLE it_konv_rate
 WHERE knumv EQ it_ekko-knumv
 AND kposn EQ it_ekpo-ebelp
 AND ( kschl EQ 'PBXX' OR kschl EQ 'PB00' OR kschl EQ 'P001' ).
 LOOP AT it_konv_rate.
 IF it_konv_rate-kpein > 0. " added by ganesh as per sudhir 12.10.2007
 mrate_gm = it_konv_rate-kbetr / it_konv_rate-kpein.
 mrate = mrate + mrate_gm. " added by ganesh as per sudhir 12.10.2007
 ELSE.
 mrate = mrate + it_konv_rate-kbetr.
 ENDIF.
 IF it_konv_rate-waers IS NOT INITIAL.
 mwaers = it_konv_rate-waers.
 ENDIF.
 ENDLOOP.
 For Japanies Yen "RTDK906759
 IF it_ekko-waers = 'JPY'.
 mrate = mrate * 100.
 ENDIF.
 End for japanies Yen
 mrate1 = mrate.
 End rate
 mfirst = 0.
 MFAMT = MFAMT + ( IT_EKPO-NETPR * IT_EKPO-MENGE ).
 mfamt = mfamt + ( mrate * it_ekpo-menge ).
 PERFORM get_mat_long_text.
 DATA: lt_ctr TYPE i VALUE 0,lt_ctr1 TYPE i, lt_count TYPE i VALUE 0. " Long text counter
 DESCRIBE TABLE it_bapi_mltx_ga LINES lt_count.
 CLEAR it_bapi_mltx_ga.
*Added by Rajiv 10.05.2007 Read and if condition RTDK906165
 READ TABLE it_konv WITH KEY knumv = it_ekko-knumv
 kposn = it_ekpo-ebelp.
 mkbetr = 0.
 mkwert = 0.
 IF sy-subrc EQ 0.
 LOOP AT it_konv WHERE knumv EQ it_ekko-knumv
 AND kposn EQ it_ekpo-ebelp.
 IF it_konv-krech EQ 'A'.
 mkbetr = it_konv-kbetr / 10.
 ELSE.
 mkbetr = it_konv-kbetr.
 ENDIF.
 For Japanies Yen "RTDK906759
 IF it_ekko-waers = 'JPY'.
 mkbetr = mkbetr * 100.
 ENDIF.
 End for japaies Yen
 IF mkbetr LT '0'.
 mkbetr = mkbetr * ( -1 ).
 ENDIF.
 mkwert = it_konv-kwert.
 For Japanies Yen "RTDK906759
 IF it_ekko-waers = 'JPY'.
 mkwert = mkwert * 100.
 ENDIF.
 End for japaies Yen
 mfamt = mfamt + mkwert.
 IF mkwert LT '0'.
 mkwert = mkwert * ( -1 ).
 ENDIF.
 IF it_ekpo-matnr IS INITIAL.
 itemname = it_ekpo-txz01.
 ELSE.
 READ TABLE it_makt WITH KEY matnr = it_ekpo-matnr.
 itemname = it_makt-maktx.
 ENDIF.
 READ TABLE it_t685t WITH KEY kschl = it_konv-kschl BINARY SEARCH.
 READ TABLE it_eket WITH KEY ebeln = it_ekpo-ebeln
 ebelp = it_ekpo-ebelp BINARY SEARCH.
 IF mfirst EQ 0.
 PERFORM writeform USING 'BRK_INFO' 'MAIN'.
 mfirst = 1.
 ELSE.
 ADD 1 TO lt_ctr.
 CLEAR it_bapi_mltx_ga.
 READ TABLE it_bapi_mltx_ga INDEX lt_ctr. "For long text
 IF sy-subrc NE 0.
 CLEAR it_bapi_mltx_ga.
 ENDIF.
 PERFORM writeform USING 'BRK_INFO1' 'MAIN'.
 ENDIF.
 mlctr = mlctr + 1.
 ENDLOOP. " it_konv.
 ELSE.
 IF it_ekpo-matnr IS INITIAL.
 itemname = it_ekpo-txz01.
 ELSE.
 READ TABLE it_makt WITH KEY matnr = it_ekpo-matnr.
 itemname = it_makt-maktx.
 ENDIF.
 READ TABLE IT_T685T WITH KEY KSCHL = IT_KONV-KSCHL BINARY SEARCH.
 READ TABLE it_eket WITH KEY ebeln = it_ekpo-ebeln
 ebelp = it_ekpo-ebelp BINARY SEARCH.
 mfirst = 0.
 IF mfirst EQ 0.
 PERFORM writeform USING 'BRK_INFO' 'MAIN'.
 mfirst = 1.
 ELSE.
 ADD 1 TO lt_ctr.
 CLEAR it_bapi_mltx_ga.
 READ TABLE it_bapi_mltx_ga INDEX lt_ctr. "For long text
 IF sy-subrc NE 0.CLEAR it_bapi_mltx_ga.ENDIF.
 PERFORM writeform USING 'BRK_INFO1' 'MAIN'.
 ENDIF.
 ENDIF.
*Commented by rajiv 10.05.2007 used this code in above condition.
added by ganesh on 260407 to print record
 if it_konv is initial.
 READ TABLE IT_MAKT WITH KEY MATNR = IT_EKPO-MATNR.
 READ TABLE IT_T685T WITH KEY KSCHL = IT_KONV-KSCHL BINARY SEARCH.
 READ TABLE IT_EKET WITH KEY EBELN = IT_EKPO-EBELN
 EBELP = IT_EKPO-EBELP BINARY SEARCH.
 mFirst = 0.
 if mFirst eq 0.
 PERFORM WRITEFORM USING 'BRK_INFO' 'MAIN'.
 mFirst = 1.
 else.
 add 1 to lt_ctr.
 clear it_bapi_mltx_ga.
 read table IT_BAPI_MLTX_GA index lt_ctr. "For long text
 if sy-subrc ne 0.clear it_bapi_mltx_ga.endif.
 PERFORM WRITEFORM USING 'BRK_INFO1' 'MAIN'.
 Endif.
 endif.
end of change
 REFRESH it_komv_tax.
 PERFORM get_tax_cal USING it_ekpo-ebeln
 it_ekpo-ebelp.
 Changing it_komv_tax.
 REFRESH : it_zmm_porder.
 CLEAR : it_zmm_porder.
 SELECT * INTO TABLE it_zmm_porder
 FROM zmm_porder
 WHERE flag EQ 'T'.
 IF sy-subrc EQ 0.
 SORT it_zmm_porder BY kschl.
 ENDIF.
 LOOP AT it_komv_tax.
 gindex = sy-tabix.
 READ TABLE it_zmm_porder WITH KEY kschl = it_komv_tax-kschl BINARY SEARCH.
 IF sy-subrc NE 0.
 DELETE it_komv_tax INDEX gindex.
 ENDIF.
 ENDLOOP.
 LOOP AT it_komv_tax WHERE kwert IS NOT INITIAL.
 IF ( IT_KOMV_TAX-KSCHL EQ 'JMOP' OR
 IT_KOMV_TAX-KSCHL EQ 'JECS' OR
 IT_KOMV_TAX-KSCHL EQ 'JSEP' OR
 IT_KOMV_TAX-KSCHL EQ 'JMOQ' OR
 IT_KOMV_TAX-KSCHL EQ 'JVCS' OR
 IT_KOMV_TAX-KSCHL EQ 'JVRD' OR
 IT_KOMV_TAX-KSCHL EQ 'JMIP' OR
* IT_KOMV_TAX-KSCHL EQ 'JEIP' OR
 IT_KOMV_TAX-KSCHL EQ 'JSEI' OR
 IT_KOMV_TAX-KSCHL EQ 'JSRT' OR
 IT_KOMV_TAX-KSCHL EQ 'JEC3' OR
 IT_KOMV_TAX-KSCHL EQ 'JVRN' )
 AND IT_KOMV_TAX-KWERT IS NOT INITIAL.
 SELECT SINGLE vtext
 INTO mtext
 FROM t685t
 WHERE kschl EQ it_komv_tax-kschl
 AND spras EQ 'E'.
 l_rate = it_komv_tax-kbetr / 10.
 l_amt = it_komv_tax-kwert.
 For Japanies Yen "RTDK906759
 IF it_ekko-waers = 'JPY'.
 l_amt = l_amt * 100.
 ENDIF.
 End for japaies Yen
 ADD l_amt TO mfamt.
 IF lt_ctr LT lt_count. "Long text
 ADD 1 TO lt_ctr.
 READ TABLE it_bapi_mltx_ga INDEX lt_ctr.
 ELSE.
 CLEAR it_bapi_mltx_ga.
 ENDIF.
 IF l_rate EQ 0 OR l_amt EQ 0.
 l_rate = ''.
 l_amt = ''.
 ENDIF.
 PERFORM writeform USING 'TAX_LINE_ITEM' 'MAIN'.
 ENDIF.
 ENDLOOP.
 IF lt_ctr LT lt_count.
 DATA mbal_line TYPE i.
 mbal_line = ( lt_count - lt_ctr ).
 DO mbal_line TIMES.
 ADD 1 TO lt_ctr.
 READ TABLE it_bapi_mltx_ga INDEX lt_ctr.
 IF sy-subrc = 0.
 PERFORM writeform USING 'LTEXT' 'MAIN'.
 ENDIF.
 ENDDO.
 ENDIF.
 CONCATENATE it_ekko-ebeln it_ekpo-ebelp INTO nmebeln.
 REFRESH tline.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 id = 'F04'
 language = sy-langu
 name = nmebeln
 object = 'EKPO'
 TABLES
 lines = tline
 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.
 ENDIF.
 LOOP AT tline.
 IF tline-tdline IS NOT INITIAL.
 del_text = tline-tdline.
 ENDIF.
 CONDENSE del_text.
 ENDLOOP.
 CONCATENATE it_ekko-ebeln it_ekpo-ebelp INTO nmebeln.
 REFRESH tline.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 id = 'F03'
 language = sy-langu
 name = nmebeln
 object = 'EKPO'
 TABLES
 lines = tline
 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.
 refresh.
 CLEAR : po_flag, mat_po_text.
 LOOP AT tline.
 IF tline-tdline IS NOT INITIAL.
 MOVE tline-tdline TO mat_po_text.
 CONDENSE mat_po_text.
 PERFORM writeform USING 'MTRL_PO_TEXT' 'MAIN'.
 po_flag = 'X'.
 CLEAR : mat_po_text.
 ENDIF.
 ENDLOOP.
*Added lines below for Schedule delivery for line item on 09.05.2007:Rajiv
 CLEAR g_ind.
 READ TABLE it_eket WITH KEY ebeln = it_ekpo-ebeln
 ebelp = it_ekpo-ebelp BINARY SEARCH.
 g_ind = sy-tabix.
 LOOP AT it_eket FROM g_ind.
 IF it_eket-ebeln EQ it_ekpo-ebeln AND it_eket-ebelp = it_ekpo-ebelp.
 PERFORM writeform USING 'SCHEDULE' 'MAIN'.
 ELSE.
 EXIT.
 ENDIF.
 ENDLOOP.
*End Addition:Rajiv
 PERFORM writeform USING 'REQSLP' 'MAIN'.
 mlctr = mlctr + 1.
 msr = msr + 1.
 CLEAR: lt_ctr, lt_ctr1.
following lines added by ganesh to add service po details as per Mr. sadiq 21.08.2007
 IF it_ekpo-packno IS NOT INITIAL.
 CLEAR sub_packno.
 SELECT SINGLE sub_packno INTO sub_packno FROM esll WHERE packno = it_ekpo-packno.
 IF sub_packno IS NOT INITIAL.
 CLEAR it_esll.
 REFRESH it_esll.
 SELECT * FROM esll INTO CORRESPONDING FIELDS OF TABLE it_esll
 WHERE packno = sub_packno.
 IF sy-subrc = 0.
 PERFORM writeform USING 'SERVICE_PO_TEXT' 'MAIN'.
 ENDIF.
 LOOP AT it_esll.
 CONCATENATE sub_packno it_esll-introw INTO obj.
 CALL FUNCTION 'READ_TEXT' "4500002446 C300
 EXPORTING
 id = 'LTXT'
 language = sy-langu
 name = obj
 object = 'ESLL'
 TABLES
 lines = tline
 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.
 ENDIF.
 CLEAR stext.
 LOOP AT tline.
 CONCATENATE stext tline-tdline INTO stext SEPARATED BY space.
 ENDLOOP.
 FREE tline.
 CLEAR tline.
 REFRESH tline.
 PERFORM writeform USING 'SERVICE_PO' 'MAIN'.
 PERFORM writeform USING 'SERVICE_TEXT' 'MAIN'.
 ENDLOOP.
 ENDIF.
 ENDIF.
 end of change
 ENDLOOP. " it_ekpo.
 IF mlctr < 15.
 DO 5 TIMES.
 PERFORM writeform USING 'LINEFEED' 'MAIN'.
 ENDDO.
 ENDIF.
 added by ganesh for allding line before ECC No.
 IF it_ekko-bsart NE 'ZIM'. " IF EXPORT NO NEED TO PRINT ECC.
 PERFORM writeform USING 'LIN' 'MAIN'.
 PERFORM writeform USING 'WERKS_TAX_DETAIL' 'MAIN'.
 ENDIF.
 end of change
 MFLAG = 'Y'.
 PERFORM writeform USING 'TERMS_VAL' 'MAIN'.
 LOOP AT it_konv1 WHERE knumv EQ it_ekko-knumv.
 mkschl = it_konv1-kschl.
 mchgamt = 0.
 LOOP AT it_konv_ftr WHERE knumv EQ it_konv1-knumv
 AND kschl EQ mkschl.
 mchgamt = mchgamt + it_konv_ftr-kwert.
 ENDLOOP.
 For Japanies Yen "RTDK906759
 IF it_ekko-waers = 'JPY'.
 mchgamt = mchgamt * 100.
 ENDIF.
 End for japaies Yen
 mfamt = mfamt + mchgamt.
 IF mchgamt LT '0'.
 mchgamt = mchgamt * ( -1 ).
 ENDIF.
 READ TABLE it_t685t_ftr WITH KEY kschl = mkschl.
 PERFORM writeform USING 'TERMS_FTR_VAL' 'MAIN'.
 mlctr = mlctr + 1.
 ENDLOOP.
 mflag = 'T'.
 CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
 EXPORTING
 amt_in_num = mfamt
 IMPORTING
 amt_in_words = mfword
 EXCEPTIONS
 data_type_mismatch = 1
 OTHERS = 2.
 CONDENSE mebeln.
 nmebeln = it_ekko-ebeln.
 REFRESH tline.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 id = 'F01'
 language = sy-langu
 name = nmebeln
 object = 'EKKO'
 TABLES
 lines = tline
 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.
 ENDIF.
*---- CHANGED BY MATHEW BECAUSE THIS STATMENT WORKING FINE IN 300 BUT NOT IN 500C.
 LOOP AT ZTEXT.
 IF ZTEXT-TEXT1 IS NOT INITIAL.
 PERFORM WRITEFORM USING 'TERMS_COND_VAL_PAY' 'MAIN'.
 ENDIF.
 MPAY_FLAG = 'Y'.
 ENDLOOP.
 READ TABLE it_t052u WITH KEY zterm = it_ekko-zterm.
 LOOP AT it_t052u WHERE zterm EQ it_ekko-zterm.
 IF it_t052u-text1 IS NOT INITIAL.
 PERFORM writeform USING 'TERMS_COND_VAL_PAY' 'MAIN'.
 ENDIF.
 mpay_flag = 'Y'.
 ENDLOOP.
 PERFORM writeform USING 'TERMS_COND_VAL' 'MAIN'.
 LOOP AT tline.
 IF tline-tdline IS NOT INITIAL.
 PERFORM writeform USING 'TERMS_COND_VAL_HDR' 'MAIN'.
 ENDIF.
 CONDENSE txt.
 ENDLOOP.
 PERFORM writeform USING 'FTR' 'FTR_LIN3'.
 PERFORM writeform USING 'FTR_LIN1' 'FTR_LIN1'.
 CALL FUNCTION 'END_FORM'.
ENDLOOP. " It_ekko.
CALL FUNCTION 'CLOSE_FORM'
 IMPORTING
 RESULT = itcpp
RDI_RESULT =
 TABLES
 otfdata = otf
 EXCEPTIONS
 unopened = 1
 bad_pageformat_for_print = 2
 send_error = 3
 spool_error = 4
 codepage = 5
 OTHERS = 6.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " Process
*& Form WRITEFORM
 text
 -->P_0150 text
 -->P_0151 text
FORM writeform USING value(p_0150)
 value(p_0151).
CALL FUNCTION 'WRITE_FORM'

Hi
I think some basis related configuartions to be done
Try like this and inform me
A cyclic job runs, which processes the messages seen in the SOST queue.
Are you sure it's not the frequency of the cyclic job, rather than the
number of messages in the queue, that you are observing? In messages
that are queued and before the cyclic job runs, "wait for comm. service"
is the normal status.
If you mean that there are always 4 items queued in SOST regardless of
the cyclic send job, then I have no ideas. I would have thought there
was no way to do that.
when the send job runs it just never
picks them up & sends them, while it picks up many others. The send job
is somehow blind to these; no error message occurs. In this case, I
'delete' them from the queue (in SOST) and then 'undelete' (drop down
menu -> /Go to /Deleted Items) them and then re-queue them. THEN they
actually get picked up & sent when the next cyclic send job executes.
Regards
Pavan

Purchase Order print in PDF format directly to vendor

Hi Experts,
I have two requirements regarding PO print out to vendor. I am using release strategy for Purchase Order.
1. When the Purchase Order is fully approved, a mail should go to corrosponding vendor with PO print out in PDF format as an attachment.
2. When PO is cancelled (all PO lines are deleted) then mail should go to vendor that PO has been cancelled.
Please let me know the steps / procedure for these requirements.
regards,
Anand.

Anand,
Hi again!!
Are you planning to send an email to the vendor?
This is possible in many ways..
1. you could send a normal out put via EDI and the vendor can convert the xml file to PDF at his end
2. You could send it as a FAx and the vendor can still receive it as a PDF
3. You can email the vendor in a PDF format
I am sure you understand how an email is sent to the vendor.. You'd have to work with samrtforms to convert the O/p to PDF or convert the spool to PDF.

Sending PO in mail attachment with pdf format

Hello,
We are sending PO to vendor in a pdf attachment. The configuration is in place and as soon as the PO(ME22N) is saved the pdf mail is sent to vendor external mail address.
The requirement however is to add some text to this mail body ( in addition to the existing PDF attachment ).
The NACE config is using SAPFM06P program with entry_neu form and a custom sap script.
can somebody help as where is this mail functionality added in this standard program so that I may try to customize the same for the above requirement.
All I can see is 2 FM used in this ENTRY_NEU Form. Of which I guess ME_PRINT_PO is sending the mail ( I may be wrong here ) but where ?
I will be thankful for any kind of hint to help solve this issue.

In general you will have to do the following:
1) Set NAST-NACHA = 8 (Special function)
2) Before OPEN_FORM (maybe in In enhancement spot) if NAST-NACHA = 8, then set itcpo-tdgetotf = 'X' (to get OTF back from CLOSE_FORM!)
3) During CLOSE_FORM, if NAST-NACHA = '8', get OTF output from TABLES parameter OTFDATA
4) Convert this OTF output to PDF using following sample code:
data: I_PDF STRUCTURE TLINE occurs 0,
        I_OTF i_otf LIKE itcoo OCCURS 0.
    CALL FUNCTION 'CONVERT_OTF'
         EXPORTING
              format                = 'PDF'
              max_linewidth         = 134
         IMPORTING
              bin_filesize          = w_bytes
         TABLES
              otf                   = i_otf
              lines                 = i_pdf
         EXCEPTIONS
              err_max_linewidth     = 1
              err_format            = 2
              err_conv_not_possible = 3
              OTHERS                = 4.
5) Send email with PDF attachment using the method(s) mentioned in one of these excellent blogs:
/people/thomas.jung3/blog/2004/09/07/sending-e-mail-from-abap--version-46d-and-lower--api-interface
/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface
or you can follow below procedure as well:
I suggest you make yourself very familiar with the SAP code that does this automatically. Once you understand the processing sequence SAP uses, it is much easier to add your customization and insert your enhancements. To debug it and step through the code, but a breakpoint in ENTRY_NEU, and process a PO. If you're sending your messages using a scheduled job, you'll hit the breakpoint when you process the message using RSNAST00. That's how I did it. I can tell you what I did to meet my requirements. You can change to meet your needs. It required a custom program, to use instead if ENTRY_NEU, and 3 enhancements to SAP code using the Enhancement Framework. You need to know how to use the framework. 1. configure your output type ZNE2 to to run a new program ZMRP_OUTCTRL, to run form routine ENTRY_ZNE2, to create form Z_PURCHASE_ORDER. 2. In ZMRP_OUTCTRL, call standard function modules, ME_READ_PO_FOR_PRINT and ME_PRINT_PO. 3. Drill down into ME_PRINT_PO to PREPARE_FORMULAR function module. Create new enhancement, and if NAST-KSCHL = ZNE2, then lookup the recipient's email address. Pass it as parameter to ADDR_GET_NEXT_COMM_TYPE. 4. Still in ME_PRINT_PO, PREPARE_FORMULAR, add another enhancement to set the value of itcpo-getotf to u2018Xu2019, to enable CLOSE_FORM to capture OTF data for PDF. Only set this OTF flag when the output is being run by RSNAST00, not when a user is simply previewing the printout. Sy-ucomm will be blank when RSNAST00 is running. 5. In ME_PRINT_PO, drill down to ENDE, and add an enhancement to check for NAST-KSCHL = ZNE2, and if so, call standard SAP function modules to END_FORM, START_FORM, WRITE_FORM, and END_FORM. Next call the function CLOSE_FORM, and set table parameter to capture the OTF_DATA as a table parameter OTF_DATA. 6. If OTF_DATA is found, then: If nast-kschl = 'ZNE2'. if NOT otf_data[] is initial. gs_OTF[] = otf_data[]. CALL FUNCTION 'CONVERT_OTF' EXPORTING format = 'PDF' IMPORTING bin_filesize = v_len_in TABLES otf = gs_otf lines = gt_pdf EXCEPTIONS err_max_linewidth = 1 err_format = 2 err_conv_not_possible = 3 OTHERS = 4. IF SY-SUBRC 0. p_retco = '1'. PERFORM protocol_update USING '303' 'OTF Conversion failed.' 'Output Message Cancelled.' space space. IF 1 = 2. MESSAGE S303(me) with 'OTF Conversion failed.'. ENDIF. EXIT. ENDIF. CALL FUNCTION 'QCE1_CONVERT' TABLES T_SOURCE_TAB = gt_pdf T_TARGET_TAB = outbin. IF SY-SUBRC 0. p_retco = '1'. PERFORM protocol_update USING '303' 'PDF Conversion failed.' 'Output Message Cancelled.' space space. IF 1 = 2. MESSAGE S303(me) with 'PDF Conversion failed.'. ENDIF. EXIT. ENDIF. *get email recipients (this is specific to my requirements) select single banfn ernam zuname1 into (lv_banfn, lv_ernam, lv_zuname ) from eban where ebeln = nast-objky. IF SY-SUBRC 0. p_retco = '1'. PERFORM protocol_update USING '303' 'Requisition Data not found.' 'Output Message Cancelled.' space space. IF 1 = 2. MESSAGE S303(me) with 'Requisition Data not found.'. ENDIF. EXIT. ENDIF. 8. Build your OBJPACK and OBJBIN parameters: describe table mail_content lines lin. read table mail_content index lin. mail_data-doc_size = ( lin - 1 ) * 255 + STRLEN( mail_content ). clear objpack-transf_bin. objpack-head_start = 1. objpack-head_num = 0. objpack-body_start = 1. objpack-body_num = lin. objpack-doc_type = 'TXT'. APPEND objpack. describe table outbin lines lin. read table outbin index lin. objpack-doc_size = ( lin - 1 ) * 255 + strlen( outbin ). objpack-transf_bin = 'X'. objpack-head_start = 1. objpack-head_num = 0. objpack-body_start = 1. objpack-body_num = lin. objpack-doc_type = 'PDF'. objpack-obj_name = 'ATTACHMENT'. objpack-obj_descr = l_descr. APPEND objpack. CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTING DOCUMENT_DATA = mail_data PUT_IN_OUTBOX = 'X' TABLES PACKING_LIST = objpack CONTENTS_BIN = outbin CONTENTS_TXT = mail_content RECEIVERS = 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. p_retco = '1'. PERFORM protocol_update USING '303' 'Send Email function failed.' 'Output Message Cancelled.' space space. IF 1 = 2. MESSAGE S303(me) with 'Send Email function failed.'. ENDIF. EXIT. ENDIF. 9. Call function CLOSE_FORM, and end enhancement
Edited by: Devireddy omkar on Aug 2, 2011 11:15 AM
Edited by: Devireddy omkar on Aug 2, 2011 11:17 AM

Sending PO output in PDF format after PO release

Hi Friends,
I have one requirement from client.
Client wants the PO output to be converted to PDF format and sent to vendor while doing the PO elease through e-mail. Can anybody guide me how to convert the PO output into PDF and send to vendor through e-mail.
Thanks @ regards
Satya

Satya,
Goto NACE .
u2022 Select EF and click on OUTPUT TYPES.
u2022 Then select Output Type NEU and click on processing routines .
u2022 In that you have to add a new entry - medium 5 .
u2022 Then you need to assign a program, form routine and form.
u2022 You can use the standard program i.e. SAPFM06P, FORM routine is always ENTRY_NEU and standard MEDRUCK.
u2022 Then in PARTNER FUNCTION you need to add a new entry : medium - 5 and function - VN .
u2022 For subject of the mail goto Mail Title and Texts. In title give PO No. &EKKO-EBELN& .
u2022 Under General data -> Replacement of text symbols give programm as SAPMM06E and Form Routine as TEXT_SYMBOL_REPLACE .
u2022 Now the subject will be PO No. 1800004202.
u2022 You need to maintain your email id in tcode SU01 and also the vendor's email id.
u2022 Now while creating a new purchase order , change the medium to External Send .
u2022 Then goto Communication Method and select CS01 . ALSO make sure that the Cover Page Text has value PO No. &EKKO-EBELN& .
u2022 Goto tcode ME9F .
u2022 Execute.
u2022 Select the checkbox and click on Output Message.
u2022 You will get a message MAII 00000000000001 generated.
also check,
go to MN04
here give the condition as NEU
choose key combination as Purchasing Output Determination: Document Type
select doc type and partner function as VN vendor mediuam as 5 external send
select communication here strategy give as CS01
For subject of the mail go to Mail Title and Texts. In title give PO No. &EKKO-EBELN&
this may help U !

Send POs in pdf format to vendors

Similar Messages

Maybe you are looking for