‎2007 Jun 29 8:47 AM
Hi
I'm facing a problem for a loop condition. Actually my requirement is to send an mail before two days to a user so for that it have to check the number of documents and it should send the data for that particular person with all document numbers
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
endselect.
if int_bseg-belnr = int_bkpf-belnr.
read table int_bseg .
loop at int_bseg.
int_bseg-belnr = int_bkpf-belnr.
it_message1 = lv_formatdate1.
append int_bseg.
endloop.
endif.
<b>By using this code i'm getting the document number of last document but i want to get the details of all document numbers. Actually problem is the statement is not executed i mean after reading loop condition it is directly skipping to the next statement</b>
i have tried all possible conditions of loop as follows
loop at int_bseg into it_message.Regards
Pavan
Message was edited by:
Pavan praveen
‎2007 Jun 29 8:52 AM
Hi Pavan
Sorry i wan not able to understand your issue completely , could you please illustarate a bit more.
One more observation , why have you used the statemnt
<b>read table int_bseg .</b>
Before the loop endloop.
Regards
Arun
‎2007 Jun 29 8:59 AM
Hi Arun
Actually my main problem is the loop condition is not executed. I mean it was not reading also. The system is reading upto loop condition and it is not entering into the loop. I have used this Read statement because i thought that atleast through this statement it may read the int_bseg internal table where we are having the value of belnr( document number ) for which i have to keep loop on it
regards
Pavan
‎2007 Jun 29 9:09 AM
Hi Pavan ,
Could you plese tell me what exactly you want to acheive the piece of code you have pasted.
What i understand is thet it will get the last records because of select -endselect and do rest of processing with this record , all other records which match the condition mentioned in select statement will be lost.
Regards,
Arun
‎2007 Jun 29 9:12 AM
Yes Arun you are right it is fetching the data of only last records but it is not fetching the whole data eventhough i applied a loop
Regards
Pavan
‎2007 Jun 29 8:52 AM
HI,
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
<b>append int_BKPF.</b>
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
endselect.
Regards,
Sesh
‎2007 Jun 29 8:56 AM
read table int_bseg with key feilds -
primary keys
thnkx
bhanu
‎2007 Jun 29 8:57 AM
Hi,
R u trying for this
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
loop at int_bseg where belnr = int_bkpf-belnr.
it_message1 = lv_formatdate1.
append int_bseg.
endloop.
endselect.
Regards,
Sesh
‎2007 Jun 29 9:01 AM
Yes you are right i'm trying for that only. Yesterday i have posted regarding the same issue but i havnt got good reply so i'm asking today again
Regards
Pavan
‎2007 Jun 29 9:06 AM
Hi,
Now your problem is solved or not?
Just let me know the requirement if its not solved yet, will update the code as per your need.
Regards,
Sesh
‎2007 Jun 29 9:08 AM
No My problem is not yet solved for that only i'm seeking you ABAPers help
and coming to the coding
*&---------------------------------------------------------------------*
*& Report ZTESTMAIL *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZMATURITY .
tables: bseg.
*parameters: p_email type somlreci1-receiver default
*'pavan@gujaratpetro.com'.
Data: p_email(25) type c value 'pavan@gujaratpetro.com'.
data: it_message type standard table of solisti1 initial size 0
with header line.
data: it_message1 type standard table of solisti1 initial size 0
with header line.
data: it_attach type standard table of solisti1 initial size 0
with header line.
data: text(150).
data: t_packing_list like sopcklsti1 occurs 0 with header line,
t_contents like solisti1 occurs 0 with header line,
t_receivers like somlreci1 occurs 0 with header line,
t_attachment like solisti1 occurs 0 with header line,
t_object_header like solisti1 occurs 0 with header line,
w_cnt type i,
w_sent_all(1) type c,
w_doc_data like sodocchgi1,
gd_error type sy-subrc,
gd_reciever type sy-subrc.
start-of-selection.
data: lv_date type sy-datum.
data: lv_date1 type sy-datum.
data: lv_formatdate(10) type c.
data: lv_formatdate1(10) type c.
data: var1(4) type c,
var2(2) type c,
var3(2) type c.
data: begin of int_bseg occurs 0,
BELNR LIKE BSEG-BELNR,
ZUONR LIKE BSEG-ZUONR,
end of int_bseg.
data: begin of int_bkpf occurs 0,
BELNR LIKE BKPF-BELNR,
BUKRS LIKE BKPF-BUKRS,
GJAHR LIKE BKPF-GJAHR,
BUDAT LIKE BKPF-BUDAT,
end of int_BKPF.
data: 2days_out type sy-datum.
2days_out = sy-datum + 2.
lv_date = 2days_out.
var1 = lv_date+(4).
var2 = lv_date+4(2).
var3 = lv_date+6(2).
concatenate var3 var2 var1 into lv_formatdate separated by '.'.
data: var4(4) type c,
var5(2) type c,
var6(2) type c.
select zuonr belnr from bseg into
corresponding fields of int_bseg
where bukrs = 'GSEG' and
ZUONR = lv_formatdate.
endselect.
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
append int_BKPF.
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
endselect.
if int_bseg-belnr = int_bkpf-belnr.
read table int_bseg .
loop at int_bseg into it_message.
int_bseg-belnr = int_bkpf-belnr.
it_message1 = lv_formatdate1.
append int_bseg.
endloop.
endif.
perform populate_email_message_body.
** Send file by email as .xls speadsheet
perform send_file_as_email_attachment
tables it_message
it_attach
using p_email
'Assignment Date after 2 days'
'XLS'
'filename'
' '
' '
' '
changing gd_error
gd_reciever.
* Instructs mail send program for SAPCONNECT to send email(rsconn01)
perform initiate_mail_execute_program.
*endif.
end-of-selection.
*&---------------------------------------------------------------------
*
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
*&---------------------------------------------------------------------
*
* Send email
*----------------------------------------------------------------------
*
form send_file_as_email_attachment tables pit_message
pit_attach
using p_email
p_mtitle
p_format
p_filename
p_attdescription
p_sender_address
p_sender_addres_type
changing p_error
p_reciever.
data: ld_error type sy-subrc,
ld_reciever type sy-subrc,
ld_mtitle like sodocchgi1-obj_descr,
ld_email like somlreci1-receiver,
ld_format type so_obj_tp ,
ld_attdescription type so_obj_nam ,
ld_attfilename type so_obj_des ,
ld_sender_address like soextreci1-receiver,
ld_sender_address_type like soextreci1-adr_typ,
ld_receiver like sy-subrc.
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[] = pit_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.
* 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
object_header = t_object_header
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 INITIATE_MAIL_EXECUTE_PROGRAM
*&---------------------------------------------------------------------
*
* Instructs mail send program for SAPCONNECT to send email.
*----------------------------------------------------------------------
*
form initiate_mail_execute_program.
wait up to 2 seconds.
if gd_error eq 0.
submit rsconn01 with mode = 'INT'
with output = 'X'
and return.
endif.
endform. " INITIATE_MAIL_EXECUTE_PROGRAM
*&---------------------------------------------------------------------
*
*& Form POPULATE_EMAIL_MESSAGE_BODY
*&---------------------------------------------------------------------
*
* Populate message body text
*----------------------------------------------------------------------
*
form populate_email_message_body.
refresh it_message.
refresh it_message1.
it_message = int_bseg-belnr.
it_message1 = lv_formatdate1.
* it_message = 'Assignment Date is coming After 2 Days'.
concatenate 'Doc. No : 'it_message
'Posting Date : ' it_message1
'Assignment Date is coming After 2Days' into
it_message separated by space.
append it_message.
* append it_message1.
* clear it_message.
* clear it_message1.
endform. " POPULATE_EMAIL_MESSAGE_BODYRegards
Pavan
‎2007 Jun 29 9:10 AM
By running this code i'm getting everything fine but the only prob is it is not selecting more number of documents it is just sending a mail of last document number
Regards
Pavan
‎2007 Jun 29 9:16 AM
HI,
Use this code instead:
select zuonr belnr from bseg into
corresponding fields of table int_bseg
where bukrs = 'GSEG' and
ZUONR = lv_formatdate.
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of table int_BKPF
FOR ALL ENTRIES IN int_bseg
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
loop at int_bkpf.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
endloop.
Regards,
Sesh
‎2007 Jun 29 9:18 AM
Hiii..,
select zuonr belnr from bseg into
corresponding fields of int_bseg
where bukrs = 'GSEG' and
ZUONR = lv_formatdate.
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
if sy-subrc eq 0.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
append int_BKPF.
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
int_bseg-belnr = int_bkpf-belnr.
it_message1 = lv_formatdate1.
append int_bseg.
endif.
endselect.
endselect.
<b> perform populate_email_message_body.</b>
regards,
sai ramesh
Message was edited by:
Sai ramesh
‎2007 Jun 29 9:25 AM
Hi sai & sesh
Sorry i have tried with both of your code but its not working. Plz any more suggestions
Regards
Pavan
‎2007 Jun 29 9:30 AM
Hi Pavan ,
I have made some modification in the code and commented it. But was not abel to check as the system i am working on does not have any test data .
please check it at your end and revert back, if it works dont forget to assign points.
Before pasting my code , please take a back up of you code , becuase in case it does not work , you can revert back.
Pelase do rememeber i ahve not been able to test it at my end so pleas do take the backup.
here is the code.
tables: bseg.
*parameters: p_email type somlreci1-receiver default
*'pavan@gujaratpetro.com'.
Data: p_email(25) type c value 'pavan@gujaratpetro.com'.
data: it_message type standard table of solisti1 initial size 0
with header line.
data: it_message1 type standard table of solisti1 initial size 0
with header line.
data: it_attach type standard table of solisti1 initial size 0
with header line.
data: text(150).
data: t_packing_list like sopcklsti1 occurs 0 with header line,
t_contents like solisti1 occurs 0 with header line,
t_receivers like somlreci1 occurs 0 with header line,
t_attachment like solisti1 occurs 0 with header line,
t_object_header like solisti1 occurs 0 with header line,
w_cnt type i,
w_sent_all(1) type c,
w_doc_data like sodocchgi1,
gd_error type sy-subrc,
gd_reciever type sy-subrc.
start-of-selection.
data: lv_date type sy-datum.
data: lv_date1 type sy-datum.
data: lv_formatdate(10) type c.
data: lv_formatdate1(10) type c.
data: var1(4) type c,
var2(2) type c,
var3(2) type c.
data: begin of int_bseg occurs 0,
BELNR LIKE BSEG-BELNR,
ZUONR LIKE BSEG-ZUONR,
end of int_bseg.
data: begin of int_bkpf occurs 0,
BELNR LIKE BKPF-BELNR,
BUKRS LIKE BKPF-BUKRS,
GJAHR LIKE BKPF-GJAHR,
BUDAT LIKE BKPF-BUDAT,
end of int_BKPF.
data: 2days_out type sy-datum.
2days_out = sy-datum + 2.
lv_date = 2days_out.
var1 = lv_date+0(4).
var2 = lv_date+4(2).
var3 = lv_date+6(2).
concatenate var3 var2 var1 into lv_formatdate separated by '.'.
data: var4(4) type c,
var5(2) type c,
var6(2) type c.
select zuonr belnr from bseg into " See modification
corresponding fields of table int_bseg
where bukrs = 'GSEG' and
ZUONR = lv_formatdate.
select BUDAT BELNR GJAHR BUKRS from BKPF into " See modification
corresponding fields of table int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
* "Code modified
loop at int_bkpf .
loop at int_bseg into it_message where belnr = int_bkpf-belnr.
int_bseg-belnr = int_bkpf-belnr.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
it_message1 = lv_formatdate1.
append int_bseg.
endloop.
endloop.
*#end of modification
perform populate_email_message_body.
** Send file by email as .xls speadsheet
perform send_file_as_email_attachment
tables it_message
it_attach
using p_email
'Assignment Date after 2 days'
'XLS'
'filename'
' '
' '
' '
changing gd_error
gd_reciever.
* Instructs mail send program for SAPCONNECT to send email(rsconn01)
perform initiate_mail_execute_program.
*endif.
end-of-selection.
*&---------------------------------------------------------------------
*
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
*&---------------------------------------------------------------------
*
* Send email
*----------------------------------------------------------------------
*
form send_file_as_email_attachment tables pit_message
pit_attach
using p_email
p_mtitle
p_format
p_filename
p_attdescription
p_sender_address
p_sender_addres_type
changing p_error
p_reciever.
data: ld_error type sy-subrc,
ld_reciever type sy-subrc,
ld_mtitle like sodocchgi1-obj_descr,
ld_email like somlreci1-receiver,
ld_format type so_obj_tp ,
ld_attdescription type so_obj_nam ,
ld_attfilename type so_obj_des ,
ld_sender_address like soextreci1-receiver,
ld_sender_address_type like soextreci1-adr_typ,
ld_receiver like sy-subrc.
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[] = pit_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.
* 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
object_header = t_object_header
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 INITIATE_MAIL_EXECUTE_PROGRAM
*&---------------------------------------------------------------------
*
* Instructs mail send program for SAPCONNECT to send email.
*----------------------------------------------------------------------
*
form initiate_mail_execute_program.
wait up to 2 seconds.
if gd_error eq 0.
submit rsconn01 with mode = 'INT'
with output = 'X'
and return.
endif.
endform. " INITIATE_MAIL_EXECUTE_PROGRAM
*&---------------------------------------------------------------------
*
*& Form POPULATE_EMAIL_MESSAGE_BODY
*&---------------------------------------------------------------------
*
* Populate message body text
*----------------------------------------------------------------------
*
form populate_email_message_body.
refresh it_message.
refresh it_message1.
it_message = int_bseg-belnr.
it_message1 = lv_formatdate1.
* it_message = 'Assignment Date is coming After 2 Days'.
concatenate 'Doc. No : 'it_message
'Posting Date : ' it_message1
'Assignment Date is coming After 2Days' into
it_message separated by space.
append it_message.
* append it_message1.
* clear it_message.
* clear it_message1.
endform. " POPULATE_EMAIL_MESSAGE_BODY
Reagrds,
Arun
‎2007 Jun 29 9:38 AM
Hi Arun & Sai
By performing your code i have got the following error message
<b>
Cannot be sent: Assignment Date after 2 days
Status received for this document:
Assignment Date after 2 days
Sent by:
GSPCABAP
Status for Recipient pavan@gujaratpetro.com:
Internal error: CL_SMTP_RESPONSE ESMTP error code is not known. 554 554 Mail from GSPCABAP@gujaratpetronet.com rejecte</b>
Regards
Pavan
‎2007 Jun 29 9:47 AM
HI..,
Try this.............
select zuonr belnr from bseg into
corresponding fields of int_bseg
where bukrs = 'GSEG' and
<b>ZUONR = lv_date. "<<===== Here it should be in the internal format.</b>
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
if sy-subrc eq 0.
lv_date1 = int_bkpf-budat.
var4 = lv_date1+(4).
var5 = lv_date1+4(2).
var6 = lv_date1+6(2).
append int_BKPF.
concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.
int_bseg-belnr = int_bkpf-belnr.
it_message1 = lv_formatdate1.
append int_bseg.
endif.
endselect.
endselect.
perform populate_email_message_body.
‎2007 Jun 29 9:58 AM
Hi pavan,
Problem is there in ur select stmts.
1. select zuonr belnr from bseg into
corresponding fields of int_bseg
where bukrs = 'GSEG' and
ZUONR = lv_formatdate.
endselect.
Instead of above write:
select zuonr belnr from bseg into
<b>corresponding fields of table int_bseg</b>
where bukrs = 'GSEG' and
ZUONR = lv_formatdate.
2. select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of int_BKPF
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
Instead of above write:
select BUDAT BELNR GJAHR BUKRS from BKPF into
corresponding fields of table int_BKPF
<b>FOR ALL ENTRIES IN int_bseg</b>
where bukrs = 'GSEG' and
BELNR = INT_BSEG-BELNR.
Regards,
Preethi.
‎2007 Jun 29 10:06 AM
Hi,
Try this,
loop at int_bseg.
read table int_bseg .
if sy-subrc = 0.
int_bseg-belnr = int_bkpf-belnr.
it_message1 = lv_formatdate1.
endif.
append int_bseg.
endloop.
regards,
Shivakumar Kanti.
‎2007 Jun 29 1:09 PM
‎2007 Dec 18 11:40 AM
‎2008 Mar 17 10:57 AM
Hi Pavan
Could please share with us how did you resolve the issue. Even we are getting this error message.
Appreciate your help.
Thank you,
Swaroop
‎2008 Mar 21 1:32 PM