topic Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1' in Application Development and Automation Discussions

regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:23:41 GMT

Hi gurus,

im using the fm 'SO_NEW_DOCUMENT_ATT_SEND_API1' for sending mail.

my problem is that im not able to get my mail on one id while in the same execution cycle im able to get the mail on other ID. but in the scst tcode the status of both the ids is sent. but yet im not able to get my mail in one id ever.

please help me out.

what would be the probable error

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:34:40 GMT

Hi,

As per my knowledge this will not send mail to your official mailid if you send it to your official mail like company id i faced this problem

i can recive mail to other mail id like gmail goolge and other

Regards,

siva chalsani

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:35:53 GMT

Hi,

Are you passing all the 2 receivers to the Tables Parameter RECEIVERS?

Do coding like this

DATA: lwa_receivers TYPE somlreci1,

lit_receivers TYPE TABLE OF somlreci1.

lwa_receivers-receiver = '<1st Maild id>'.

lwa_receivers-rec_type = 'U'.

APPEND lwa_receivers TO lit_receivers.

lwa_receivers-receiver = '<2nd Maild id>'.

lwa_receivers-rec_type = 'U'.

APPEND lwa_receivers TO lit_receivers.

Pass this internal table lit_receivers to thr TABLES PARAMETER RECEIVERS.

Reward Points if this helps,

Satish

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:39:08 GMT

Hi,

Refer

https://forums.sdn.sap.com/click.jspa?searchID=6874093&messageID=2972763

Regards

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:46:49 GMT

im not able to get the mail on my office id from this code but when i use the same module in another prog im able to get that mail on my mail id

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:48:47 GMT

HI siva ,

ys im sending it to my office id bt man the point is till last friday i was able to get it on that id bt now im not. on contrary im able to gat the mail by the same FM but from another prog on my office id .

where would be the posible error.

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 12:59:19 GMT

Hi,

This is with your mail server of company

this will not allow to send mails using your mail id

some thing it would be

i am not sure

But i think this would not be a big problem

Ask some one toexecute the prog in there system put your mail id in it

now you will get themail

Regards,

Siva chalasani.

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 13:26:35 GMT

siva ,

what i mean is im running another prog in that im able to get a mail on my office id bt not through the main prog im talking abt.

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 13:33:48 GMT

can you paste your piece of code

so that i can check it

both prog

Regards,

siva

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 13:41:12 GMT

my code is

REPORT YBACKGROUND .

************************initialization of data********************

tables: vbap, vbep.

TYPES: BEGIN OF ty_rep,

v_group(2) TYPE n, "Selection Flag (Grouping items)

vbeln LIKE vbak-vbeln, "Order Number

auart LIKE vbak-auart, "Order Type

erdat LIKE vbak-erdat, "Order Date

kunnr LIKE vbak-kunnr, "Sold-to

ekgrp LIKE marc-ekgrp, "Purchase group

posnr LIKE vbap-posnr, "Item Number

matnr LIKE vbap-matnr, "Material

kwmeng LIKE vbap-kwmeng, "Ordered Qty

lfimg LIKE lips-lfimg, "Delivered Qty

v_undeliv LIKE vbap-kwmeng, "Undelivered Qty

v_open LIKE vbap-kwmeng, "Open A001

v_pr_qty LIKE vbap-kwmeng, "Suggested PR Qty

Fields type char for display in table control -Begin

v_kwmeng_char(16) TYPE c, "Ordered Qty

v_lfimg_char(16) TYPE c, "Delivered Qty

v_undeliv_char(16) TYPE c, "Undelivered Qty

v_open_char(16) TYPE c, "Open A001

v_pr_qty_char(16) TYPE c, "Suggested PR Qty

Fields type char for display in table control -End

v_user_inp(7) TYPE n, "User Input Qty

v_number LIKE eban-banfn, "Purchase Requisition number

vrkme LIKE vbap-vrkme, "Currency/Quan

END OF ty_rep.

mail sending itab********************

data: begin of ierr_mail_tab occurs 0,

zzdatetime(14) type c,

kunnr(14) type c,

kunwe(14) type c,
bukrs(8) type c,

vkorg(11) type c,

vtweg(13) type c,

vbeln(12) type c,

matnr(18) type c,

wmengc(9) type c,

werks(6) type c,

cycle_count(12) type c,

message(220) type c,

end of ierr_mail_tab.

data: date like vbap-erdat, date1 like vbap-erdat,

date2 like vbap-erdat.

data: flag type n value '0', count type n value '0'.

data: inp_qty like vbap-kwmeng.

DATA: t_repc TYPE TABLE OF ty_rep WITH HEADER LINE.

data: t_rep_mail type table of ty_rep with header line.

data: itab type table of vbap with header line.

**************data for bapi change*************

data: sales_doc_num like BAPIVBELN-VBELN,

sim_flag like BAPIFLAG-BAPIFLAG,

order_head_ch like BAPISDH1,

order_head_chx like BAPISDH1X,

order_item_schdl like BAPISCHDL occurs 0 with header line,

order_item_schdlx like BAPISCHDLX occurs 0 with header line,

order_ch_ret like BAPIRET2 occurs 0 with header line,

order_item_in_rej like bapisditm occurs 0 with header line,

order_item_in_rejx like bapisditmx occurs 0 with header line.

*data: schd_linex type table of schd_linex with header line.

***********************data for the bapi_create****************

**********data to be taken from the selection screen***********

data: p_purch type bstkd.

data: p_date type bstdk.

data: p_auart TYPE auart.

data: p_vkorg TYPE vkorg.

data: p_vtweg TYPE vtweg.

data: p_spart TYPE vtweg.

*******************data from the t_repc***********************

data: p_sold TYPE kunnr.

data: p_ship TYPE kunnr.

*ITEM

data: p_matnr TYPE matnr.

data: p_menge TYPE kwmeng.

data: p_plant TYPE werks_d ."check these data

data: p_itcat TYPE pstyv. "check these data..

DATA DECLARATIONS.

DATA: v_vbeln LIKE vbak-vbeln.

DATA: header LIKE bapisdhead1.

DATA: headerx LIKE bapisdhead1x.

DATA: item LIKE bapisditem OCCURS 0 WITH HEADER LINE.

DATA: itemx LIKE bapisditemx OCCURS 0 WITH HEADER LINE.

DATA: partner LIKE bapipartnr OCCURS 0 WITH HEADER LINE.

DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA: lt_schedules_inx TYPE STANDARD TABLE OF bapischdlx

WITH HEADER LINE.

DATA: lt_schedules_in TYPE STANDARD TABLE OF bapischdl

WITH HEADER LINE.

***************end of the data for the bapi_create********************

start-of-selection.

IMPORT t_repc FROM MEMORY ID 'ABCD1'.

perform delete.

TABLES INDX.

DATA: INDXKEY LIKE INDX-SRTFD VALUE 'KEYVALUE1'.

WRITE : / 'BEFORE IMPORT'.

IMPORT t_repc = t_repc FROM DATABASE INDX(ST) ID INDXKEY.

WRITE : / 'AFTER IMPORT'.

LOOP AT t_repc.

WRITE: / t_repc-vbeln .

ENDLOOP.

perform order_change.

end-of-selection.

----

FORM delete *

----

........ *

----

*form delete.

delete t_repc where v_user_inp eq 0.

select etenr from vbep into schd_linex where etenr =

*endform.

&----

*& Form bapi

&----

text

----

--> p1 text
<-- p2 text

----

FORM order_change.

date = sy-datum+0(4).

date1 = sy-datum+4(2).

date2 = sy-datum+6(2).

concatenate date2 date1 date into date separated by '.'.

write: 'madhvi5'.

loop at t_repc.

*t_repc-v_user_inp = 33.

sales_doc_num = t_repc-vbeln.

order_head_chx-UPDATEFLAG = 'U'.

*write: 'madhvi4'.

*to check the order quantity is same or not

if t_repc-v_user_inp eq t_repc-kwmeng.

**************to move the content of the imported*****

**********file in the mail internal table formail issue*******

move-corresponding t_repc to t_rep_mail.

order_item_in_rej-ITM_NUMBER = t_repc-posnr.

order_item_in_rej-REASON_REJ = 'Z4'.

append order_item_in_rej.

order_item_in_rejx-ITM_NUMBER = t_repc-posnr.

order_item_in_rejx-REASON_REJ = 'X'.

order_item_in_rejx-UPDATEFLAG = 'U'.

append order_item_in_rejx.

endif.

*to check if the order quantity is less

if t_repc-v_user_inp < t_repc-kwmeng.

inp_qty = t_repc-kwmeng - t_repc-v_user_inp.

order_item_in_rej-ITM_NUMBER = t_repc-posnr.
append order_item_in_rej.
clear order_item_in_rej.

order_item_in_rejx-ITM_NUMBER = t_repc-posnr.
order_item_in_rejx-UPDATEFLAG = 'U'.
append order_item_in_rejx.
clear order_item_in_rejx.

First Changing the existing sales Order Line item

order_item_schdl-ITM_NUMBER = t_repc-posnr.

order_item_schdl-req_qty = inp_qty.

order_item_schdl-SCHED_LINE = '1'.

append order_item_schdl.

clear order_item_schdl.

order_item_schdlx-ITM_NUMBER = t_repc-posnr.

order_item_schdlx-req_qty = 'X'.

order_item_schdlx-SCHED_LINE = '1'.

order_item_schdlx-UPDATEFLAG = 'U'.

append order_item_schdlx.

clear order_item_schdlx.

Creating a new line item with User Input Qty and rejecting it

order_item_in_rej-MATERIAL = t_repc-matnr.

order_item_in_rej-REASON_REJ = 'Z4'.

append order_item_in_rej.

clear order_item_in_rej.

order_item_in_rejx-MATERIAL = 'X'.

order_item_in_rejx-REASON_REJ = 'X'.

order_item_in_rejx-UPDATEFLAG = 'I'.

append order_item_in_rejx.

clear order_item_in_rejx.

order_item_schdl-req_qty = t_repc-v_user_inp.

order_item_schdl-SCHED_LINE = '1'.

append order_item_schdl.

clear order_item_schdl.

order_item_schdlx-req_qty = 'X'.

order_item_schdlx-SCHED_LINE = '1'.

order_item_schdlx-UPDATEFLAG = 'I'.

append order_item_schdlx.

clear order_item_schdlx.

flag = 1.

*write: 'madhvi1'.

*perform bapi_create using t_repc.

*write: 'madhvi3'.

endif.

*write: 'madhvi3'.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
SALESDOCUMENT = sales_doc_num
ORDER_HEADER_IN = order_head_ch
ORDER_HEADER_INX = order_head_chx

SIMULATION = sim_flag
BEHAVE_WHEN_ERROR = ' '
INT_NUMBER_ASSIGNMENT = ' '
LOGIC_SWITCH =
NO_STATUS_BUF_INIT = ' '

TABLES
RETURN = order_ch_ret
ORDER_ITEM_IN = order_item_in_rej
ORDER_ITEM_INX = order_item_in_rejx

PARTNERS =
PARTNERCHANGES =
PARTNERADDRESSES =
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =

SCHEDULE_LINES = order_item_schdl
SCHEDULE_LINESX = order_item_schdlx

ORDER_TEXT =
ORDER_KEYS =
CONDITIONS_IN =
CONDITIONS_INX =
EXTENSIONIN =

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING
WAIT =
IMPORTING
RETURN =

**************querry to select the line from the data****************

***************base table where the old order is reject***************

if flag eq 1. "if the line item is created and blocked

select * from vbap into itab where vbeln = t_repc-vbeln

and abgru = 'Z4' and erdat = sy-datum.

endselect.

append itab.

*if itab-erdat eq sy-datum.

write: 'ji'.

*endif.

move-corresponding t_repc to t_rep_mail.

t_rep_mail-posnr = itab-posnr.

modify t_rep_mail index sy-tabix transporting posnr.

append t_rep_mail.

endif.

endloop.

perform mail_send using t_rep_mail.

ENDFORM." bapi

&----

*& Form mail_send

&----

text

----

--> p1 text
<-- p2 text

----

FORM mail_send using rep_mail like t_rep_mail.

data: ierr_tab like YME1SD131 occurs 0 with header line.

data: begin of ierr_mail_tab occurs 0,

zzdatetime(14) type c,

kunnr(14) type c,

auart(8) type c,

posnr(10) type c,

ekgrp(5) type c,

userid(10) type c,

vbeln(12) type c,

matnr(18) type c,

user_inp(12) type c,

message(220) type c,

end of ierr_mail_tab.

CLEAR ierr_mail_tab.

ierr_mail_tab-vbeln = rep_mail-vbeln.

ierr_mail_tab-userid = sy-uname.

ierr_mail_tab-zzdatetime = sy-datum.

ierr_mail_tab-posnr = rep_mail-posnr.

ierr_mail_tab-kunnr = rep_mail-kunnr.

ierr_mail_tab-matnr = rep_mail-matnr.

ierr_mail_tab-message = 'channel 2 order rejected'.

ierr_mail_tab-auart = rep_mail-auart.

ierr_mail_tab-ekgrp = rep_mail-ekgrp.

ierr_mail_tab-user_inp = rep_mail-v_user_inp.

DATA: zeroes(1) TYPE c VALUE '0'.

DATA : tab_lines(3) TYPE n.

DATA : email_id(30) TYPE c.

data: email_idc(30) type c.

data: P_FILE LIKE FILENAME-FILEEXTERN.

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,

objbin1 LIKE solisti1 OCCURS 10 WITH HEADER LINE,

objhex LIKE solix OCCURS 10 WITH HEADER LINE,

reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.

DATA: subject(100) TYPE c.

DATA : att_type LIKE soodk-objtp.

DATA: count TYPE i.

data: ernam like vbak-ernam.

TRANSLATE ierr_mail_tab-message TO UPPER CASE.

SHIFT ierr_mail_tab-matnr LEFT DELETING LEADING zeroes.

append ierr_mail_tab.

docdata-obj_name = text-n22."cool.

CONCATENATE docdata-obj_name

ierr_mail_tab-vbeln

INTO docdata-obj_descr.

count = 0.

LOOP AT ierr_mail_tab.

count = count + 1.

INSERT ierr_mail_tab INTO objbin INDEX count.

APPEND objbin.

ENDLOOP.

objtxt = ' '. " NEW-LINE

APPEND objtxt.

objtxt = text-n12. "Hi,

APPEND objtxt.

objtxt = text-n04.

*Thank you for using the SAP Dealer Communication System

APPEND objtxt.

objtxt = ' '.

APPEND objtxt.

objpack-head_start = 1.

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 = 'RAW'.

APPEND objpack.

att_type = 'RAW'.

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 = 'ORDER LOG'.

APPEND objpack.

**********to find the email id**************

*to get the user number who has created the order

SELECT SINGLE ernam FROM vbak INTO ernam WHERE

vbeln = rep_mail-vbeln.

email_idc = 'madhvi.pandey@gmail.com'.

IF sy-subrc <> 0.

write: 'not send email'.

else.

*to get the email of the person who has generated the vbeln

select single email

from zusuarios

into email_id

where uname = ernam.

CONDENSE email_id.

Condense email_idc.

IF NOT email_id IS INITIAL.

reclist-receiver = email_id.

reclist-PROXY_ID = email_idc.

reclist-rec_type = 'U'.

APPEND reclist.

endif.

IF NOT email_idc IS INITIAL.

reclist-receiver = email_idc.

reclist-PROXY_ID = email_idc.

reclist-rec_type = 'U'.

reclist-copy = 'X'.

APPEND reclist.

ENDIF.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = docdata

put_in_outbox = 'X'

IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =

TABLES

packing_list = objpack

object_header = objhead

contents_bin = objbin

contents_txt = objtxt

CONTENTS_HEX =
OBJECT_PARA =
OBJECT_PARB =

receivers = reclist

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

OTHERS = 8

IF sy-subrc <> 0.

write: 'email_id not configured for the person'.

endif.

WAIT UP TO 2 SECONDS.

SUBMIT rsconn01 WITH mode = 'INT'

WITH output = ' '

AND RETURN.

endif.

****************************************************************

upload the file in the application server****************

****************************************************************

p_file = '/TEMPO/dealers/AE/recibidos/ymvp'.

OPEN DATASET p_file FOR OUTPUT IN TEXT MODE.

LOOP AT objbin.

TRANSFER objbin TO p_file.

ENDLOOP.

CLOSE DATASET p_file.

ENDFORM."mail_send.

**&----

*& Form bapi_create

&----

text

----

--> p1 text
<-- p2 text

----

FORM bapi_create using t_repc_create like t_repc.

fro creating new order number by bapi*****************

**************select query for purchase order.****************

data: w_len type i.

data: string1(3) type c, string11(2) type c.

data: t_len type i.

data: integer type i.

data: req type banfn.

data: z_table like yme1sd134 occurs 0 with header line.

***********internal table for the spool purpose***************

write: 'madhvi2'.

SELECT bstkd

bstdk

FROM vbkd

INTO (p_purch, p_date)

WHERE vbeln = t_repc_create-vbeln .

ENDSELECT.

SELECT *

FROM yme1sd134

INTO z_table

WHERE vbeln = t_repc_create-vbeln .

ENDSELECT.

append z_table.

SELECT vkorg

vtweg

spart

FROM vbak

INTO (p_vkorg, p_vtweg, p_spart)

WHERE vbeln = t_repc_create-vbeln.

ENDSELECT.

SELECT werks

pstyv

FROM vbap

INTO (p_plant, p_itcat)

WHERE vbeln = t_repc_create-vbeln AND

posnr = t_repc_create-posnr.

ENDSELECT.

p_purch = z_table-bstkd.

w_len = STRLEN( p_Purch ).

t_len = w_len - 6.

string1 = P_purch+t_len(3).

if the ch4 po is already inserted then check the last digit

*"to check if the z_table has same vbeln

if z_table-vbeln = t_repc_create-vbeln.

IF string1 = 'ch4'.

t_len = w_len - 2.

MOVE P_purch+t_len(2) TO string11.

integer = string11.

if integer eq 999.

exit.

endif.

integer = integer + 1.

string11 = integer.

if integer <= 9.

concatenate '0' string11 into string11.

endif.

move string11 to p_purch+t_len(2).

ENDIF.

endif."if the the z_table condition

if string1 <> 'ch4'.

data: str(7) type c.

str = '/ch4-01'.

concatenate p_purch str into p_purch.

endif.

HEADER DATA

header-doc_type = 'YMV4'.

headerx-doc_type = 'X'.

header-sales_org = p_vkorg.

headerx-sales_org = 'X'.

header-distr_chan = p_vtweg.

headerx-distr_chan = 'X'.

header-division = p_spart.

headerx-division = 'X'.

header-PURCH_NO_C = p_purch.

headerx-PURCH_NO_C = 'X'.

header-PURCH_DATE = p_date.

headerx-PURCH_DATE = 'X'.

headerx-updateflag = 'I'.

PARTNER DATA

partner-partn_role = 'AG'.

partner-partn_numb = t_repc_create-kunnr.

APPEND partner.

partner-partn_role = 'WE'.

partner-partn_numb = t_repc_create-kunnr.

APPEND partner.

ITEM DATA

itemx-updateflag = 'I'.

item-itm_number = '000010'.

itemx-itm_number = 'X'.

item-material = t_repc_create-matnr.

itemx-material = 'X'.

item-plant = 'AE99'.

itemx-plant = 'X'.

item-target_qty = t_repc_create-v_user_inp.

itemx-target_qty = 'X'.

item-item_categ = 'TAS4'.

itemx-item_categ = 'X'.

APPEND item.

APPEND itemx.

Fill schedule lines

lt_schedules_in-itm_number = '000010'.

lt_schedules_in-sched_line = '0001'.

lt_schedules_in-req_qty = t_repc_create-v_user_inp.

APPEND lt_schedules_in.

Fill schedule line flags

lt_schedules_inx-itm_number = '000010'.

lt_schedules_inx-sched_line = '0001'.

lt_schedules_inx-updateflag = 'X'.

lt_schedules_inx-req_qty = 'X'.

APPEND lt_schedules_inx.

**************end of data entry for the bapi create******************

Call the BAPI

CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'

EXPORTING

sales_header_in = header

sales_header_inx = headerx

IMPORTING

salesdocument_ex = v_vbeln

TABLES

return = return

sales_items_in = item

sales_items_inx = itemx

sales_schedules_in = lt_schedules_in

sales_schedules_inx = lt_schedules_inx

sales_partners = partner.

Check the return table.

LOOP AT return WHERE type = 'E' OR type = 'A'.

EXIT.

ENDLOOP.

IF sy-subrc = 0.

WRITE: / 'Error in creating document'.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING
WAIT =
IMPORTING
RETURN =

ENDIF.

TABLES yme1sd134.

yme1sd134-vbeln = t_repc_create-vbeln.

yme1sd134-mandt = '100'.

*yme1sd134-matnr = t_repc_create-matnr.

yme1sd134-bstdk = p_date.

yme1sd134-bstkd = p_purch.

INSERT INTO yme1sd134 VALUES yme1sd134.

COMMIT WORK AND WAIT.

perform spool_print using v_vbeln t_repc.

ENDFORM. " bapi_create

&----

*& Form spool_print

&----

text

----

--> p1 text
<-- p2 text

----

FORM spool_print using v_vbelns

t_repc_create_spool STRUCTURE t_repc.

*internal table for the spool

*data: itab11 like vbep occurs 0 with header line.

data: begin of i_spool occurs 0,

vbeln1 type vbap-vbeln,

vbeln4 type vbap-vbeln,

p_req type vbep-banfn,

p_pur type vbkd-bstkd,

end of i_spool.

write: /0(71) sy-uline.

write: /1 sy-vline, 2(15) 'SalesOrder-Ch1', sy-vline , 19(15)

'SalesOrder-Ch4',

sy-vline, 37(15) 'Purch_order', sy-vline, 55(15)'purcu_req', sy-vline.

select single * from vbep into vbep

where vbeln = v_vbelns." and posnr = '000010' and ETENR = '0001' .

*v_vbelns

*select banfn

*from vbep

*into req

*where vbeln = v_vbeln and posnr = 10 and ETENR = 1 .

*endselect.

i_spool-vbeln1 = t_repc_create_spool-vbeln.

i_spool-vbeln4 = v_vbeln.

i_spool-p_pur = p_purch.

i_spool-p_req = vbep-banfn.

append i_spool.

loop at i_spool.

write: /0(71) sy-uline.

write: /1 sy-vline, 2 i_spool-vbeln1,18 sy-vline, i_spool-vbeln4,

35 sy-vline, i_spool-p_pur,

53 sy-vline, i_spool-p_req, 71 sy-vline.

write: /0(71) sy-uline.

endloop.

ENDFORM. " spool_print

this is my complete code.

Re: regarding 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Former Member — Thu, 22 Nov 2007 13:46:55 GMT

There might be 2 reasons.

1. Check whether you have maintained the entry with your mail id in ztable.

2. Or your Company mail server might be restricting the mail.

Reward Points if this helps,

Satish