Automatic Mail generation
Hi all,
IF the Difference between the Purchase requisition date and system date is 10days then i need to send a mail automatically to the mail ID of the Purchase requisition(PR) creator (EBAN-ERNAM) with the details of the Purchase requisition number , Purchase requisition item number and also with thes ome message like (ex:-Your PR will be deleted in the next two days)
I have to do a Report only not a work flow
This Program is an Batch program and will be scheduled every day Morning
Please suggest me how to solve this and if possible please give me the Sample program
Thansk & Regards
Ajay
FORM sub_send_mail USING p_string1 TYPE string
p_string2 TYPE string
p_string3 TYPE string.
DATA : l_i_objtxt TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0,
"Contents
l_wa_objtxt TYPE solisti1,
l_wa_doc_chng type sodocchgi1 , "Attributes of Mail
l_i_objpack TYPE STANDARD TABLE OF sopcklsti1 INITIAL SIZE 0,
"Packing list
l_wa_objpack TYPE sopcklsti1,
l_i_reclist TYPE STANDARD TABLE OF somlreci1 INITIAL SIZE 0,
"Receivers list
l_wa_reclist TYPE somlreci1 ,
l_tab_lines LIKE sy-tabix. "No. of lines
CONCATENATE p_string1 p_string2
INTO l_wa_doc_chng-obj_descr SEPARATED BY space.
IF p_string3 IS NOT INITIAL.
CONCATENATE l_wa_doc_chng-obj_descr p_string3
INTO l_wa_doc_chng-obj_descr SEPARATED BY space.
ENDIF.
l_wa_objtxt-line = l_wa_doc_chng-obj_descr.
APPEND l_wa_objtxt TO l_i_objtxt.
CLEAR l_wa_objtxt .
l_tab_lines = LINES( l_i_objtxt ) .
READ TABLE l_i_objtxt INTO l_wa_objtxt INDEX l_tab_lines.
IF sy-subrc = 0.
l_wa_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 +
STRLEN( l_wa_objtxt ).
ENDIF.
Creating the entry for the compressed document
CLEAR l_wa_objpack-transf_bin.
l_wa_objpack-head_start = 1.
l_wa_objpack-head_num = 0.
l_wa_objpack-body_start = 1.
l_wa_objpack-body_num = l_tab_lines.
l_wa_objpack-doc_type = 'RAW'.
APPEND l_wa_objpack TO l_i_objpack.
CLEAR l_wa_objpack .
CALL FUNCTION 'EFG_GEN_GET_USER_EMAIL'
EXPORTING
i_uname = sy-uname
IMPORTING
E_EMAIL_ADDRESS = l_wa_reclist-receiver.
l_wa_reclist-rec_type = 'U'.
APPEND l_wa_reclist TO l_i_reclist.
CLEAR l_wa_reclist .
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = l_wa_doc_chng
put_in_outbox = c_check
commit_work = c_check
TABLES
packing_list = l_i_objpack
contents_txt = l_i_objtxt
receivers = l_i_reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
OTHERS = 99.
IF sy-subrc <> 0 .
write: 'Notification not send'.
ENDIF.
Reward point if helpful
Similar Messages
-
Problem in Automatic mail generation after shipment creation in vt01
Hi All,
In VT01 Automatic mail generation to customer whenver a new shipment is created & in from address user mail adderess is mentioned but in my requirements i have to mention different mail id in user mail address.
how can i do this?
please give me ur suggestions.
ThanxHi...
When user close the shipment ,then he gets a mail on his id automatically generated from sap system.
he want this mail should come to the mail id of his colleague.
Pls reply asap.
Thanx
Vj -
FUNCTION MODULE FOR AUTOMATIC MAIL GENERATION
Hello,
I want to generate an automatic mail of a scheduled report on everyday basis.
the output spool req of scheduled report in generated n saved inside the system.
Could you please help me in generating automatic mail through that saved spool request?
Regards,
Krutikahi,
use:
DATA: lv_filesize TYPE i,
lv_buffer TYPE string,
lv_attachment TYPE i,
lv_testo TYPE i.
DATA: li_pdfdata TYPE STANDARD TABLE OF tline,
li_mess_att TYPE STANDARD TABLE OF solisti1,
li_mtab_pdf TYPE STANDARD TABLE OF tline,
li_objpack TYPE STANDARD TABLE OF sopcklsti1,
li_objtxt TYPE STANDARD TABLE OF solisti1,
li_objbin TYPE STANDARD TABLE OF solisti1,
li_reclist TYPE STANDARD TABLE OF somlreci1,
li_objhead TYPE soli_tab.
DATA: lwa_pdfdata TYPE tline,
lwa_objpack TYPE sopcklsti1,
lwa_mess_att TYPE solisti1,
lwa_objtxt TYPE solisti1,
lwa_objbin TYPE solisti1,
lwa_reclist TYPE somlreci1,
lwa_doc_chng TYPE sodocchgi1.
CONSTANTS: lc_u TYPE char1 VALUE 'U',
lc_0 TYPE char1 VALUE '0',
lc_1 TYPE char1 VALUE '1',
lc_pdf TYPE char3 VALUE 'PDF',
lc_raw TYPE char3 VALUE 'RAW',
lc_ordform TYPE char15 VALUE 'ZORDCONFIRM_01',
lc_attachment TYPE char10 VALUE 'ATTACHMENT'.
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = lc_pdf
max_linewidth = 132
IMPORTING
bin_filesize = lv_filesize
TABLES
otf = pv_otfdata
lines = li_pdfdata
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT li_pdfdata INTO lwa_pdfdata.
TRANSLATE lwa_pdfdata USING ' ~'.
CONCATENATE lv_buffer lwa_pdfdata INTO lv_buffer.
CLEAR lwa_pdfdata.
ENDLOOP.
TRANSLATE lv_buffer USING '~ '.
DO.
lwa_mess_att = lv_buffer.
APPEND lwa_mess_att TO li_mess_att.
CLEAR lwa_mess_att.
SHIFT lv_buffer LEFT BY 255 PLACES.
IF lv_buffer IS INITIAL.
EXIT.
ENDIF.
ENDDO.
Object with PDF.
REFRESH li_objbin.
li_objbin[] = li_mess_att[].
DESCRIBE TABLE li_objbin LINES lv_attachment.
Object with main text of the mail.
lwa_objtxt = space.
APPEND lwa_objtxt TO li_objtxt.
CLEAR lwa_objtxt.
DESCRIBE TABLE li_objtxt LINES lv_testo.
Create the document which is to be sent
lwa_doc_chng-obj_name = text-008.
lwa_doc_chng-obj_descr = text-008.
lwa_doc_chng-sensitivty = lc_0.
lwa_doc_chng-obj_prio = lc_1.
lwa_doc_chng-doc_size = lv_testo * 225.
Pack to main body.
CLEAR lwa_objpack-transf_bin.
header
lwa_objpack-head_start = 1.
The document needs no header (head_num = 0)
lwa_objpack-head_num = 0.
body
lwa_objpack-body_start = 1.
lwa_objpack-body_num = lv_testo.
lwa_objpack-doc_type = lc_raw.
APPEND lwa_objpack TO li_objpack.
CLEAR lwa_objpack.
Create the attachment.
Fill the fields of the packing_list for the attachment:
lwa_objpack-transf_bin = gc_x .
header
lwa_objpack-head_start = 1.
lwa_objpack-head_num = 1.
body
lwa_objpack-body_start = 1.
lwa_objpack-body_num = lv_attachment.
lwa_objpack-doc_type = lc_pdf.
lwa_objpack-obj_name = lc_attachment.
lwa_objpack-obj_descr = text-008.
lwa_objpack-doc_size = lv_attachment * 255.
APPEND lwa_objpack TO li_objpack.
CLEAR lwa_objpack.
lwa_reclist-receiver = pv_emailid.
lwa_reclist-rec_type = lc_u.
lwa_reclist-notif_del = gc_x.
lwa_reclist-notif_ndel = gc_x.
APPEND lwa_reclist TO li_reclist.
IF li_reclist IS NOT INITIAL.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = lwa_doc_chng
put_in_outbox = gc_x
TABLES
packing_list = li_objpack
object_header = li_objhead
contents_bin = li_objbin
contents_txt = li_objtxt
receivers = li_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 'I' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF. -
P.O automatic mail genration pdf to word/text.
Hi everyone,
this is regarding the automatic mail generation in smartforms. Its like when you process the smartforms the mails are automatically shooted to the address maintained for eg usually to the vendors. So what I need is incase I proces my smartforms the mail shouldnt be in the pdf format but in normal text format.
I dont want to take that pdf convert to word/text by external sofware and attch it to the mail. I want it to be automatic.
Plz suggest the possible ways of doing it. Thanks to all in advance.
Rgds,
Anuc.*& Report ZCS_IRN
report zpo_spool no standard page heading line-size 260.
Table Declaration *******************************
tables : zptreg,zpoinb,dd07t,nase.
Data Declaration ********************************
type-pools: slis.
data : report_id like sy-repid.
data : ws_title type lvc_title value 'Reprint PT Inbound Register'.
data : i_layout type slis_layout_alv.
data : i_fieldcat type slis_t_fieldcat_alv.
data : lf_fm_name type rs38l_fnam.
data : ls_control_param type ssfctrlop.
data : ls_composer_param type ssfcompop.
data : ls_recipient type swotobjid.
data : ls_sender type swotobjid.
data : control_parameters type ssfctrlop.
data : output_options type ssfcompop.
Internal Table Declaration *******************************
data: begin of itab occurs 0,
chk,
indno type zptreg-indno,
dtype type zptreg-dtype,
ernam type zptreg-ernam,
erzet type zptreg-erzet,
aedat type zptreg-aedat,
traid type zptreg-traid,
traty type zptreg-traty,
vehnum type zptreg-vehnum,
bolnr type zptreg-bolnr,
lrdat type zptreg-lrdat,
lrdelv type zptreg-lrdelv,
lrtime type zptreg-lrtime,
datia type zptreg-datia,
uhria type zptreg-uhria,
lifnr type zptreg-lifnr,
werks type zptreg-werks,
anzpk type zptreg-anzpk,
btgew type zptreg-btgew,
gewei type zptreg-gewei,
ntgew type zptreg-ntgew,
idtxt type zptreg-idtxt,
waybl type zptreg-waybl,
dpack type zptreg-dpack,
ebeln type zpoinb-ebeln,
vbeln type zpoinb-vbeln,
menge type eket-menge,
wemng type eket-wemng,
wemng1 type eket-wemng,
chaln type zptreg-chaln,
paymt type zptreg-paymt,
zchquan type zptreg-zchquan,
rdesc(60) type c,
trdesc(60) type c,
tydesc(60) type c,
pdesc(60) type c,
name1 type lfa1-name1,
end of itab.
data : itab1 like itab occurs 0 with header line.
data : itab2 like itab occurs 0 with header line.
data: begin of ieket occurs 0,
ebeln type eket-ebeln,
ebelp type eket-ebelp,
menge type eket-menge,
wemng type eket-wemng,
end of ieket.
data : ieket1 like ieket occurs 0 with header line.
data : ieket2 like ieket occurs 0 with header line.
data : flag type c.
Selection Screen *******************************
selection-screen : begin of block b1 with frame title text-001.
select-options : x_indno for zptreg-indno matchcode object zindnohelp2.
select-options : x_aedat for zptreg-aedat.
select-options : x_werks for zptreg-werks .
select-options : x_lrdat for zptreg-lrdat.
select-options : x_lifnr for zptreg-lifnr no intervals no-extension.
select-options : x_ebeln for zpoinb-ebeln no intervals no-extension.
select-options : x_bolnr for zptreg-bolnr no intervals no-extension.
select-options : x_traid for zptreg-traid no intervals no-extension.
selection-screen : end of block b1.
Start of Selection *****************************
start-of-selection.
set pf-status 'STATUS'.
perform get_data.
perform display_data.
*& Form get_data
form get_data .
select * from zptreg into corresponding fields of table itab1
where indno in x_indno
and aedat in x_aedat
and werks in x_werks
and lrdat in x_lrdat
and lifnr in x_lifnr
and bolnr in x_bolnr
and traid in x_traid.
if sy-subrc ne 0.
message i001(zmsg).
stop.
endif.
select * from zpoinb into corresponding fields of table itab
for all entries in itab1
where indno = itab1-indno
and ebeln in x_ebeln.
if sy-subrc ne 0.
message i001(zmsg).
stop.
endif.
loop at itab.
at new indno.
flag = 1.
endat.
if flag = 1.
read table itab1 with key indno = itab-indno.
move itab1-traid to itab-traid.
move itab1-lifnr to itab-lifnr.
move itab1-traty to itab-traty.
move itab1-bolnr to itab-bolnr.
move itab1-traid to itab-traid.
move itab1-werks to itab-werks.
move itab1-vehnum to itab-vehnum.
move itab1-lifnr to itab-lifnr.
move itab1-btgew to itab-btgew.
move itab1-gewei to itab-gewei.
move itab1-ntgew to itab-ntgew.
move itab1-idtxt to itab-idtxt.
move itab1-waybl to itab-waybl.
move itab1-anzpk to itab-anzpk.
move itab1-aedat to itab-aedat.
move itab1-dpack to itab-dpack.
move itab1-erzet to itab-erzet.
move itab1-ernam to itab-ernam.
move itab1-zchquan to itab-zchquan.
move itab1-paymt to itab-paymt.
move itab1-chaln to itab-chaln.
move itab1-lrdat to itab-lrdat.
move itab1-lrdelv to itab-lrdelv.
move itab1-lrtime to itab-lrtime.
move itab1-datia to itab-datia.
move itab1-uhria to itab-uhria.
clear flag.
endif.
modify itab.
endloop.
delete itab where indno not in x_indno.
select * from eket into corresponding fields of table ieket for all entries in itab
where ebeln = itab-ebeln.
loop at ieket.
move ieket-ebeln to ieket1-ebeln.
move ieket-menge to ieket1-menge.
collect ieket1.
endloop.
loop at ieket.
move ieket-ebeln to ieket2-ebeln.
move ieket-wemng to ieket2-wemng.
collect ieket2.
endloop.
loop at itab.
read table ieket1 with key ebeln = itab-ebeln.
move ieket1-menge to itab-menge.
read table ieket2 with key ebeln = itab-ebeln.
move ieket2-wemng to itab-wemng.
itab-wemng1 = itab-menge - itab-wemng.
select ddtext from dd07t into itab-rdesc where domvalue_l = itab-idtxt and domname = 'ZIDTXT'.
endselect.
select ddtext from dd07t into itab-trdesc where domvalue_l = itab-traid and domname = 'ZTRAID'.
endselect.
select ddtext from dd07t into itab-tydesc where domvalue_l = itab-traty and domname = 'ZTRATY'.
endselect.
select ddtext from dd07t into itab-pdesc where domvalue_l = itab-paymt and domname = 'ZPAYMT'.
endselect.
select name1 from lfa1 into itab-name1 where lifnr = itab-lifnr.
endselect.
modify itab.
clear itab.
endloop.
if itab[] is initial.
message i001(zmsg).
stop.
endif.
endform. " get_data
*& Form display_data
form display_data .
report_id = sy-repid.
perform f1000_layout_init changing i_layout.
perform f2000_fieldcat_init changing i_fieldcat.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
i_callback_program = report_id
i_callback_pf_status_set = 'STATUS'
i_callback_user_command = 'USER_COMMAND'
I_STRUCTURE_NAME =
is_layout = i_layout
it_fieldcat = i_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
i_default = 'X'
i_save = 'A'
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = itab
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
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. " display_data
*& Form f1000_layout_init
form f1000_layout_init using i_layout type slis_layout_alv.
clear i_layout.
i_layout-colwidth_optimize = 'X'.
i_layout-edit = ''.
i_layout-box_fieldname = 'CHK'.
endform. " F1000_Layout_Init
*& Form f2000_fieldcat_init
form f2000_fieldcat_init changing i_fieldcat type slis_t_fieldcat_alv.
data: line_fieldcat type slis_fieldcat_alv.
clear line_fieldcat.
line_fieldcat-fieldname = 'CHK'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_l = 'Checkbox'.
line_fieldcat-checkbox = 'X'. " Display this field as a checkbox
line_fieldcat-outputlen = '8'.
line_fieldcat-edit = 'X'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'INDNO'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' PT Register No '.
line_fieldcat-outputlen = '15'.
line_fieldcat-hotspot = 'X' .
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'AEDAT'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Creation Date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'TRDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Transporter Name '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'TYDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Transport Type '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'VEHNUM'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Vehicle Number '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'BOLNR'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' L .R Number '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'NAME1'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Vendor / Supplier'.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'WERKS'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Site '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'EBELN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Purchasing Document '.
line_fieldcat-outputlen = '15'.
line_fieldcat-hotspot = 'X' .
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'WEMNG1'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Still To Be Delivered '.
line_fieldcat-outputlen = '20'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'VBELN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Sales Document '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ANZPK'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'No.of Packages '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'DPACK'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Damaged Packages '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'BTGEW'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Total Weight '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'GEWEI'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Weight Unit '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'NTGEW'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Net Weight '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'RDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Remarks '.
line_fieldcat-outputlen = '60'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'WAYBL'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Weigh Bill Number '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ERNAM'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Created By '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ERZET'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Created At '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'LRDAT'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'L.R Date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'LRDELV'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'L.R Delivery Date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'LRTIME'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'L.R Time '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'DATIA'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_l = 'Appointments: From date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'UHRIA'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_l = 'Appointments: Time from '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'CHALN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Challan No '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'PDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Payment method '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ZCHQUAN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Challan Quantity '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
endform. "f2000_fieldcat_init
*& Form user_command
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.
data: wa_job_output_info type ssfcrescl.
data wa_spoolids type tsfspoolid.
data wa_spoolnum type rspoid.
data: objpack like sopcklsti1 occurs 2 with header line,
objhead1 like solisti1 occurs 1 with header line,
objbin like solisti1 occurs 10 with header line,
objtxt like solisti1 occurs 10 with header line,
reclist like somlreci1 occurs 5 with header line,
doc_chng like sodocchgi1,
tab_lines like sy-tabix.
data : wa_itab like itab.
data : line type c.
case r_ucomm.
when 'SAVE'.
clear line.
refresh itab2.
read table itab index rs_selfield-tabindex.
loop at itab where chk ne space.
move-corresponding itab to itab2.
collect itab2.
endloop.
describe table itab2 lines line.
if line ge 2.
message 'Please Select Only Document for Print Output ' type 'E'.
endif.
set parameter id : 'ZIN' field itab-indno.
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZPTREG_NEW'
importing
fm_name = lf_fm_name.
if sy-subrc <> 0.
endif.
control_parameters-no_dialog = 'X'.
control_parameters-preview = 'X'.
output_options-tddest = 'LOCL'.
output_options-tdcopies = '2'.
call function lf_fm_name
exporting
control_parameters = ls_control_param
output_options = ls_composer_param
mail_recipient = ls_recipient
mail_sender = ls_sender
user_settings = 'X'
p_indno = itab-indno
importing
DOCUMENT_OUTPUT_INFO =
job_output_info = wa_job_output_info
JOB_OUTPUT_OPTIONS =
exceptions
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
others = 5.
if sy-subrc <> 0.
endif.
move wa_job_output_info-spoolids[] to wa_spoolids[].
read table wa_spoolids into wa_spoolnum index 1.
if sy-subrc = 0.
data :id like tsp01-rqident.
move wa_spoolnum to id.
endif. .
*loop at wa_spoolids INTO wa_spoolnum .
write : id.
*endloop.
data i_soli like soli occurs 0 with header line.
call function 'RSPO_RETURN_SPOOLJOB'
exporting
rqident = id
desired_type = 'OTF'
tables
buffer = i_soli
exceptions
no_such_job = 1
job_contains_no_data = 2
selection_empty = 3
no_permission = 4
can_not_access = 5
read_error = 6
type_no_match = 7
others = 8.
data content_bin type solix_tab.
data objhead type soli_tab.
data i_soli_tab type soli_tab.
data boolean type sx_boolean.
data length type so_obj_len.
loop at i_soli.
append i_soli to i_soli_tab[].
endloop.
call function 'SX_OBJECT_CONVERT_OTF_RAW'
exporting
format_src = 'OTF'
format_dst = 'RAW'
changing
transfer_bin = boolean
content_txt = i_soli_tab
content_bin = content_bin
objhead = objhead
len = length
exceptions
err_conv_failed = 1
others = 2.
endcase.
*describe table objbin lines tab_lines.
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = '100'. "tab_lines.
* objpack-doc_type = c_asc.
objpack-doc_type = 'DOC'.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = 'ATTACH'. "p_attach.
"Name of Attachment
objpack-doc_size = tab_lines * 255.
append objpack..
reclist-receiver = '[email protected]'.
reclist-rec_type = 'U'.
append reclist.
objbin[] = i_soli_tab[].
call function 'SO_RAW_TO_RTF'
tables
objcont_old = objbin
objcont_new = objbin
exceptions
others = 0.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
exporting
document_data = doc_chng
put_in_outbox = 'X'
commit_work = 'X'
tables
packing_list = objpack
object_header = objhead1
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
exceptions
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
others = 99.
endform. "user_command
Message was edited by:
anu c -
P.O auto mail generation pdf to word
Hi everyone,
this is regarding the automatic mail generation in smartforms. Its like when you process the smartforms the mails are automatically shooted to the address maintained for eg usually to the vendors. So what I need is incase I proces my smartforms the mail shouldnt be in the pdf format but in normal text format.
I dont want to take that pdf convert to word/text by external sofware and attch it to the mail. I want it to be automatic.
Plz suggest the possible ways of doing it. Thanks to all in advance.
Rgds,
Anuc.*& Report ZCS_IRN
report zpo_spool no standard page heading line-size 260.
Table Declaration *******************************
tables : zptreg,zpoinb,dd07t,nase.
Data Declaration ********************************
type-pools: slis.
data : report_id like sy-repid.
data : ws_title type lvc_title value 'Reprint PT Inbound Register'.
data : i_layout type slis_layout_alv.
data : i_fieldcat type slis_t_fieldcat_alv.
data : lf_fm_name type rs38l_fnam.
data : ls_control_param type ssfctrlop.
data : ls_composer_param type ssfcompop.
data : ls_recipient type swotobjid.
data : ls_sender type swotobjid.
data : control_parameters type ssfctrlop.
data : output_options type ssfcompop.
Internal Table Declaration *******************************
data: begin of itab occurs 0,
chk,
indno type zptreg-indno,
dtype type zptreg-dtype,
ernam type zptreg-ernam,
erzet type zptreg-erzet,
aedat type zptreg-aedat,
traid type zptreg-traid,
traty type zptreg-traty,
vehnum type zptreg-vehnum,
bolnr type zptreg-bolnr,
lrdat type zptreg-lrdat,
lrdelv type zptreg-lrdelv,
lrtime type zptreg-lrtime,
datia type zptreg-datia,
uhria type zptreg-uhria,
lifnr type zptreg-lifnr,
werks type zptreg-werks,
anzpk type zptreg-anzpk,
btgew type zptreg-btgew,
gewei type zptreg-gewei,
ntgew type zptreg-ntgew,
idtxt type zptreg-idtxt,
waybl type zptreg-waybl,
dpack type zptreg-dpack,
ebeln type zpoinb-ebeln,
vbeln type zpoinb-vbeln,
menge type eket-menge,
wemng type eket-wemng,
wemng1 type eket-wemng,
chaln type zptreg-chaln,
paymt type zptreg-paymt,
zchquan type zptreg-zchquan,
rdesc(60) type c,
trdesc(60) type c,
tydesc(60) type c,
pdesc(60) type c,
name1 type lfa1-name1,
end of itab.
data : itab1 like itab occurs 0 with header line.
data : itab2 like itab occurs 0 with header line.
data: begin of ieket occurs 0,
ebeln type eket-ebeln,
ebelp type eket-ebelp,
menge type eket-menge,
wemng type eket-wemng,
end of ieket.
data : ieket1 like ieket occurs 0 with header line.
data : ieket2 like ieket occurs 0 with header line.
data : flag type c.
Selection Screen *******************************
selection-screen : begin of block b1 with frame title text-001.
select-options : x_indno for zptreg-indno matchcode object zindnohelp2.
select-options : x_aedat for zptreg-aedat.
select-options : x_werks for zptreg-werks .
select-options : x_lrdat for zptreg-lrdat.
select-options : x_lifnr for zptreg-lifnr no intervals no-extension.
select-options : x_ebeln for zpoinb-ebeln no intervals no-extension.
select-options : x_bolnr for zptreg-bolnr no intervals no-extension.
select-options : x_traid for zptreg-traid no intervals no-extension.
selection-screen : end of block b1.
Start of Selection *****************************
start-of-selection.
set pf-status 'STATUS'.
perform get_data.
perform display_data.
*& Form get_data
form get_data .
select * from zptreg into corresponding fields of table itab1
where indno in x_indno
and aedat in x_aedat
and werks in x_werks
and lrdat in x_lrdat
and lifnr in x_lifnr
and bolnr in x_bolnr
and traid in x_traid.
if sy-subrc ne 0.
message i001(zmsg).
stop.
endif.
select * from zpoinb into corresponding fields of table itab
for all entries in itab1
where indno = itab1-indno
and ebeln in x_ebeln.
if sy-subrc ne 0.
message i001(zmsg).
stop.
endif.
loop at itab.
at new indno.
flag = 1.
endat.
if flag = 1.
read table itab1 with key indno = itab-indno.
move itab1-traid to itab-traid.
move itab1-lifnr to itab-lifnr.
move itab1-traty to itab-traty.
move itab1-bolnr to itab-bolnr.
move itab1-traid to itab-traid.
move itab1-werks to itab-werks.
move itab1-vehnum to itab-vehnum.
move itab1-lifnr to itab-lifnr.
move itab1-btgew to itab-btgew.
move itab1-gewei to itab-gewei.
move itab1-ntgew to itab-ntgew.
move itab1-idtxt to itab-idtxt.
move itab1-waybl to itab-waybl.
move itab1-anzpk to itab-anzpk.
move itab1-aedat to itab-aedat.
move itab1-dpack to itab-dpack.
move itab1-erzet to itab-erzet.
move itab1-ernam to itab-ernam.
move itab1-zchquan to itab-zchquan.
move itab1-paymt to itab-paymt.
move itab1-chaln to itab-chaln.
move itab1-lrdat to itab-lrdat.
move itab1-lrdelv to itab-lrdelv.
move itab1-lrtime to itab-lrtime.
move itab1-datia to itab-datia.
move itab1-uhria to itab-uhria.
clear flag.
endif.
modify itab.
endloop.
delete itab where indno not in x_indno.
select * from eket into corresponding fields of table ieket for all entries in itab
where ebeln = itab-ebeln.
loop at ieket.
move ieket-ebeln to ieket1-ebeln.
move ieket-menge to ieket1-menge.
collect ieket1.
endloop.
loop at ieket.
move ieket-ebeln to ieket2-ebeln.
move ieket-wemng to ieket2-wemng.
collect ieket2.
endloop.
loop at itab.
read table ieket1 with key ebeln = itab-ebeln.
move ieket1-menge to itab-menge.
read table ieket2 with key ebeln = itab-ebeln.
move ieket2-wemng to itab-wemng.
itab-wemng1 = itab-menge - itab-wemng.
select ddtext from dd07t into itab-rdesc where domvalue_l = itab-idtxt and domname = 'ZIDTXT'.
endselect.
select ddtext from dd07t into itab-trdesc where domvalue_l = itab-traid and domname = 'ZTRAID'.
endselect.
select ddtext from dd07t into itab-tydesc where domvalue_l = itab-traty and domname = 'ZTRATY'.
endselect.
select ddtext from dd07t into itab-pdesc where domvalue_l = itab-paymt and domname = 'ZPAYMT'.
endselect.
select name1 from lfa1 into itab-name1 where lifnr = itab-lifnr.
endselect.
modify itab.
clear itab.
endloop.
if itab[] is initial.
message i001(zmsg).
stop.
endif.
endform. " get_data
*& Form display_data
form display_data .
report_id = sy-repid.
perform f1000_layout_init changing i_layout.
perform f2000_fieldcat_init changing i_fieldcat.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
i_callback_program = report_id
i_callback_pf_status_set = 'STATUS'
i_callback_user_command = 'USER_COMMAND'
I_STRUCTURE_NAME =
is_layout = i_layout
it_fieldcat = i_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
i_default = 'X'
i_save = 'A'
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = itab
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
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. " display_data
*& Form f1000_layout_init
form f1000_layout_init using i_layout type slis_layout_alv.
clear i_layout.
i_layout-colwidth_optimize = 'X'.
i_layout-edit = ''.
i_layout-box_fieldname = 'CHK'.
endform. " F1000_Layout_Init
*& Form f2000_fieldcat_init
form f2000_fieldcat_init changing i_fieldcat type slis_t_fieldcat_alv.
data: line_fieldcat type slis_fieldcat_alv.
clear line_fieldcat.
line_fieldcat-fieldname = 'CHK'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_l = 'Checkbox'.
line_fieldcat-checkbox = 'X'. " Display this field as a checkbox
line_fieldcat-outputlen = '8'.
line_fieldcat-edit = 'X'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'INDNO'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' PT Register No '.
line_fieldcat-outputlen = '15'.
line_fieldcat-hotspot = 'X' .
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'AEDAT'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Creation Date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'TRDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Transporter Name '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'TYDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Transport Type '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'VEHNUM'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Vehicle Number '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'BOLNR'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' L .R Number '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'NAME1'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Vendor / Supplier'.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'WERKS'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Site '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'EBELN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Purchasing Document '.
line_fieldcat-outputlen = '15'.
line_fieldcat-hotspot = 'X' .
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'WEMNG1'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Still To Be Delivered '.
line_fieldcat-outputlen = '20'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'VBELN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Sales Document '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ANZPK'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'No.of Packages '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'DPACK'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Damaged Packages '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'BTGEW'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Total Weight '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'GEWEI'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Weight Unit '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'NTGEW'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = ' Net Weight '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'RDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Remarks '.
line_fieldcat-outputlen = '60'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'WAYBL'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Weigh Bill Number '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ERNAM'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Created By '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ERZET'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Created At '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'LRDAT'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'L.R Date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'LRDELV'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'L.R Delivery Date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'LRTIME'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'L.R Time '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'DATIA'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_l = 'Appointments: From date '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'UHRIA'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_l = 'Appointments: Time from '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'CHALN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Challan No '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'PDESC'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Payment method '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
clear line_fieldcat.
line_fieldcat-fieldname = 'ZCHQUAN'.
line_fieldcat-tabname = 'ITAB'.
line_fieldcat-seltext_m = 'Challan Quantity '.
line_fieldcat-outputlen = '15'.
append line_fieldcat to i_fieldcat.
endform. "f2000_fieldcat_init
*& Form user_command
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.
data: wa_job_output_info type ssfcrescl.
data wa_spoolids type tsfspoolid.
data wa_spoolnum type rspoid.
data: objpack like sopcklsti1 occurs 2 with header line,
objhead1 like solisti1 occurs 1 with header line,
objbin like solisti1 occurs 10 with header line,
objtxt like solisti1 occurs 10 with header line,
reclist like somlreci1 occurs 5 with header line,
doc_chng like sodocchgi1,
tab_lines like sy-tabix.
data : wa_itab like itab.
data : line type c.
case r_ucomm.
when 'SAVE'.
clear line.
refresh itab2.
read table itab index rs_selfield-tabindex.
loop at itab where chk ne space.
move-corresponding itab to itab2.
collect itab2.
endloop.
describe table itab2 lines line.
if line ge 2.
message 'Please Select Only Document for Print Output ' type 'E'.
endif.
set parameter id : 'ZIN' field itab-indno.
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZPTREG_NEW'
importing
fm_name = lf_fm_name.
if sy-subrc <> 0.
endif.
control_parameters-no_dialog = 'X'.
control_parameters-preview = 'X'.
output_options-tddest = 'LOCL'.
output_options-tdcopies = '2'.
call function lf_fm_name
exporting
control_parameters = ls_control_param
output_options = ls_composer_param
mail_recipient = ls_recipient
mail_sender = ls_sender
user_settings = 'X'
p_indno = itab-indno
importing
DOCUMENT_OUTPUT_INFO =
job_output_info = wa_job_output_info
JOB_OUTPUT_OPTIONS =
exceptions
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
others = 5.
if sy-subrc <> 0.
endif.
move wa_job_output_info-spoolids[] to wa_spoolids[].
read table wa_spoolids into wa_spoolnum index 1.
if sy-subrc = 0.
data :id like tsp01-rqident.
move wa_spoolnum to id.
endif. .
*loop at wa_spoolids INTO wa_spoolnum .
write : id.
*endloop.
data i_soli like soli occurs 0 with header line.
call function 'RSPO_RETURN_SPOOLJOB'
exporting
rqident = id
desired_type = 'OTF'
tables
buffer = i_soli
exceptions
no_such_job = 1
job_contains_no_data = 2
selection_empty = 3
no_permission = 4
can_not_access = 5
read_error = 6
type_no_match = 7
others = 8.
data content_bin type solix_tab.
data objhead type soli_tab.
data i_soli_tab type soli_tab.
data boolean type sx_boolean.
data length type so_obj_len.
loop at i_soli.
append i_soli to i_soli_tab[].
endloop.
call function 'SX_OBJECT_CONVERT_OTF_RAW'
exporting
format_src = 'OTF'
format_dst = 'RAW'
changing
transfer_bin = boolean
content_txt = i_soli_tab
content_bin = content_bin
objhead = objhead
len = length
exceptions
err_conv_failed = 1
others = 2.
endcase.
*describe table objbin lines tab_lines.
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = '100'. "tab_lines.
* objpack-doc_type = c_asc.
objpack-doc_type = 'DOC'.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = 'ATTACH'. "p_attach.
"Name of Attachment
objpack-doc_size = tab_lines * 255.
append objpack..
reclist-receiver = '[email protected]'.
reclist-rec_type = 'U'.
append reclist.
objbin[] = i_soli_tab[].
call function 'SO_RAW_TO_RTF'
tables
objcont_old = objbin
objcont_new = objbin
exceptions
others = 0.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
exporting
document_data = doc_chng
put_in_outbox = 'X'
commit_work = 'X'
tables
packing_list = objpack
object_header = objhead1
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
exceptions
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
others = 99.
endform. "user_command
Message was edited by:
anu c -
Automatic Mail not getting generated through background job
Hi Experts,
We have set up a job variant with spool recipients. We are getting the automatic mail if the job is getting finished successfully. But we are not getting the automatic mail if the job is in cancelled status. Earlier we used to get the mail even if the job is in cancelled status. We are not sure if there is any setting which would restrict the automatic mail based on the job status.
Appreciate your help in this regard.
Thanks and Regards,
Ranjani.Hi,
Just for a work around, try checking the SAP user inbox for the user who has scheduled the background job.
I don't there is any seperate configuration in Spool List Recipient for the canceled jobs. We need to confirm that the email ids provided in the Spool List recipient are correct and the background job creates a spool request even if it is canceled.
Also if possible try deleting the existing background job and create a new background job with the same parameters and valid email id's maintained in the Spool List recipient.
OR
Without deleting the existing background job, parallely create a new background job with the same parameters and valid email id's maintained in the Spool List recipient. If it works then delete the old background job.
Thanks
Harish -
Output--- automatic mail is not firing to sold to party.
Dear Gurus,
My client requirement is to sent mail to sold party when saving a sales order.
For this I creted a new output type with following assignments
In General data tab:acess sequence assigned and Access to conditions is checked
In Default values tab: Dispatch time(send immadiately), transmission medium(External send), partner function(Sp
),Communication strategy(CS01) assigned.
In Time tab: no information given
In Storage system tab :Storage mode(print and archive),Document type(SDOORDER) info given.
In Print tab: print parameters(sales org) assigned.
In mail tab: nothing assigned.
In sort order tab:nothing assigned
In mail title and texts: En and DE languages are assigned.
in processing routines: program and form routine is assgned.
in partner functions: External send+ SP is maintained.
and in condtion record maintained in VV11 tcode with details
Partner function and in communication assigned printer and selected check box print immadiately and release after out.
But automatic mail is not firing when saving the sales order, but in change sales order in menu bar selected sales document and issue output to and selected print then mail is firing to the sold to party, pls tell me where i had done the mistake.
Rgrads,
kishore.
Edited by: kishore gopala on Sep 13, 2008 1:42 PMCheck whether you have maintained the email address in the customer master of Sold to party in the General Data>Address Tab> Under Communication Area??
In the SCOT Transaction, check under SMTP (SMTP Mail Server)-->under INT (Internet) --> an '*' asterisk has been maintained or not.
Check the status of the email output in the Sales Order, is it showing with a green traffic light???
If it is showing with a green traffic light you can manually see the status of the mail mesages in Transaction SOST.(by executing, by putting the Sender Id)
If they have not gone you will be able to see them queued up there.
Select the individual messages and press execute button. By doing this email outputs will be released.
Hope this helps you.
Caution: One word of caution is that SCOT is a very critical transaction. And if you are working on a live server, do not play with it as it controls the entire SAPconnect Administration Nodes.
Hope this helps.
Regards,
Vivek -
Automatic PO generation while doing MIGO
Hi,
Please guide me the details configuration and data maintain steps to enable automatic po generation at the time of doing MIGO with the movement type .
Thanks in Advance,
Regards,
SoumenSettins
a) Define and asing standard purchasing Organization at the Enterprice structure configuration
Note: You can use the same normal purchasing organization you use for procurement as a standard.
b) Activate automatic PO indicator for movement type 101 in coustomizig
materials management - inventory management - goods receipt - create purchase order automatically
c) Define purchasig document type
materiales management - purchasing - define default values for puchasing document type
d) Infor record for the standard purchasing organization and the vendor mater record.
Note: You can use the same normal purchasing organization you use for procurement as a standard.
e)The material has to be valuated
And when you use de MIGO use movement type 101 as an non ordered item.
regards,
MC -
How to send automatic mail and put attache file on batch file ?
how to send automatic mail and put attache file on batch file ?
START MAILTO:[email protected]?SUBJECT=PHONE%CALL^&BODY=TestingHi,
Do you want to use a batch file to create new email message (including recipients, subject and email body) with attachments? If so, I'd recommend you post your question in the Scripting Guys forum for further assistance:
https://social.technet.microsoft.com/Forums/scriptcenter/en-US/home?forum=ITCG
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
Please feel free to let me know if I've misunderstood something.
Regards,
Steve Fan
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.
Please remember to mark the replies as answers if they help, and unmark the answers if they provide no help. If you have feedback for TechNet Support, contact
[email protected] -
ICloud : automatic mail forward doesn't work
Hi,
I've setup an automatic mail forwarding through icloud.com mail application, in preferences.
At first, it worked.
A few days later it doesn't.
I've tryed to disable, enable, re-type the destination email address (gmail), nothing works : mails won't be forwarded, but they get deleted (I checked the option, this one works).
I've contacted Apple Support Express Lane, who reset my preferences on the server (it changed nothing to the preferences I see) : there is no result on this one either.
When I forward an email manually to the same gmail address : it works.
Any of you having the same issue ?Update. It appears that auto forwarding works except for emails sent from a gmail account associated with the "forward to" address. If I send from my comcast account it works, but if I send from my gmail account, using the gmail or comcast address, it doesn't. On the plus side, mail sent from other gmail accounts apeears to work. So other than for testing purposes, this may not be a big deal.
-
How to automate the generation of SCB Indicator while raising Invoices?
Hi Team,
According to our client requirements we are using different SCB Indicators(for Foreign vendors) in order to segregate the payments for diff. services. Can we automate this SCB Indicator while raising the invoices ? Else is there any other way to achieve this requirement.
We are using different sources to raise the invoices automatically like self billing process, other middleware i.e. from Non-SAP system etc.,
If we are raising invoices manually via MIRO / FB60 then we are giving the suitable SCB indicator according to the relevant service. Can we automate the generation of SCB Indicator while raising the invoices automatically ?
Please provide your valuable suggestions!
Thanks & Regards,
Lakshmi SHi Vinod,
Thanks alot for your help in this regard
Requesting you to please clarify here which BADI is the relevant one.PFB the screenshot for your easy reference.Because we found nearly 4 BADIs related to this scenario.Please through some light here once.
Thanks in Advance!
Regards,
Lakshmi S -
Hi all,
Reg: Automatic mail has to sent to the vendor.
After the vendor code is created at that time itself the mail has to send to the Mail ID which is specified in the vendor master with the code and general details.
Regards
gvrHere are your options in 46C.
1. Put code in EXIT_SAPMF02K_001 to send email. You have the address handle as an input parameter. Refer to this thread on reading addresses stored in memory. http://www.sapfans.com/forums/viewtopic.php?t=281525&highlight=memory
2. Schedule a periodic job to look for change pointers for vendor object KRED.
3. Workflow: Not possible with standard object LFA1 because this object does not have a CREATED event. -
SolMan automatic mail notification.
Dear All,
i had config all necessary settings for ticketing system through our solution manager .
then i had config SCOt and then through PPF adm i had maintain action for message creater SLFN0002.
and make a condition for In Process.
So when ever i am saving any support message at In Process status then automatically mail generated for key user.
but problem is that
Mail only generated for those support message which had been generated only in SolMan system.
i do not know why so ?
obviously key user will create message from another server , what they are doing from production server and at SolMan support team getting those ticket/message but when SolMan admin is changing support message status from new to In Process then in action tab no action happen related to mail.....
while if for testing purpose i create any message from SolMan only then after changing message status i getting action related to mail in action tab.
Can any one tell why it is going on...
Regards
DikDear Vadim Shmarin
Can you check that the message creater (SLFN0002) is filled correctly if you create message from the satellite system
dear how can i check it out....
as i am checking under transaction data tab
then
Description MATERIALS 16.09.2009 15:49:38
test
test
System Data MATERIALS 16.09.2009 15:49:38
SY-DBSYS................ ORACLE 10.2.0.2.0
SY-HOST................. sapserver
SY-OPSYS................ Windows NT 5.2
SY-SYSID................ MRD
SY-MANDT................ 100
SY-UNAME................ MATERIALS
SY-DATUM................ 20090916
SY-UZEIT................ 153055
SY-ZONLO................ INDIA
as per above information MATERIALS a key user and end user at our devlopment server and through that id i had created message and processing accordingly....
guide me....
Edited by: dik on Sep 18, 2009 8:31 AM -
Automatic invoice generation for service contract
Hello,
I want to create the automatic invoicce generation for service contract based on the order.
whenever i raise service contract order system should create the invoice automatically.
could please let me know the settings?Hi JP Reddy
You can schedule VF04/VF06 for your requirement, such that VF06 will run every 15/30 minutes and will generate billing document for your contracts automatically.
Else go for Z extension development which will assign as output type to your contract and once triggered it will create invoice.
try and revert -
Automatic number generation using the function module
Hai Everyone,
I have the doubt in automatic number generation.
i find the function module. the function module is
report 123.
*DATA: RC LIKE INRI-RETURNCODE,
NUMBER(10) TYPE C.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING OBJECT = 'HUGO'
NR_RANGE_NR = '01'
IMPORTING RETURNCODE = RC
NUMBER = NUMBER.
CASE RC.
WHEN ' '.
everything o.k.
WHEN '1'.
the assigned number lies in the critical area.
WHEN '2'.
this was the last number, next time the first number
will be assigned
ENDCASE.
write:/ number.
in that function module what i want to give the Exporting Object 'HOGO'. where i want to define the number range. what is meant by 'HOGO'.
If any one faced the same problem plz help me.
Thanks and regards,
P.Naganjana ReddyHai Chandrasekhar,
in that what i have to give. Plz help me in this.
Subobject data element
To-year flag
Number length domain
No interval rolling
Number range transaction
Warning %
Main memory buffering
Group table
Subobject field in group table
Fld NoRangeElement
Fields int./ext. no.range no.
Fld. NoRangeNo
Display element text
Thasnks and regards,
P.Naganjana reddy
Maybe you are looking for
-
How to Include previous Month/Year in Transformation
Hi, From Source System (DB Table;DB Connect) Location_ID,EMP_ID,AMOUNT There is no date field avaliable in the source system. The Data load to BW will me Monthly frequency...I,e:Data will be loaded once in a Months on 1st of every month. My requirmen
-
Can i have multiple paper sizes in one pages document?
Is there any way to configure a pages document with 2 different page sizes? I want to create a 4 page annual report (for online viewing only) where pages 2-3 are shown on a single horizontal 11 x 17 page, but cover and back are 8.5 x 11 vertical.
-
Complex XML DataGrid Population
Hey Flexers, Bit of a forum lurker here. Got a problem I'm hoping someone can help me out with. Here is the deal. I've got a DataGrid with a few columns, and an XML File. The XML I think is the most pertinent to the converstation, so I'll explain tha
-
For example, I cannot drag and drop photos from Photos to the processing program. Nor can I save them directly from the processing program to Photos, it is not an option. I have to save it as a jpeg in finder, then open "other" and select Photos. Is
-
Hi Gurus We have an issue whereby batch jobs are being scheduled during the day which when run have a negative impact on system resources. Our Basis team has identified the following work processes: UCP_00_DIA_W0-4