Standard text in script
how to change standard text in script
Hi
Check the following links too,
http://help.sap.com/saphelp_nw04s/helpdata/en/f4/b49ea6453611d189710000e8322d00/content.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/3f/bd1edf1b9a421da8b84be03c86b301/content.htm
http://www.sappoint.com/abap/sscript.pdf#search=%22changing%20standard%20text%20(sapscript)%22
Please reward for the same.
Similar Messages
-
Using Standard text in scripts
Hi all,
I had a problem while printing standard texts in scripts.
I Know how to print standard text if we have to print it from the begining of window using
INCLUDE &T024E-TXADR& OBJECT TEXT ID ADRS LANGUAGE &EKKO-SPRAS& PAR
But my problem id i have print it after a hard coded text like
Delivery schedule: 'here i have to print the standard text'.
can any one please help me out how to solve the problem
Thanks & regards
sreehari pHi,
Here's one my brother taught me - you can actually trick the system to accommodate this requirement.
Ensure that you use 2 different paragraph formats in your INCLUDE statement, using the PARAGRAPH and NEW_PARAGRAPH clauses, ie.
INCLUDE &T024E-TXADR& OBJECT TEXT ID ADRS LANGUAGE &EKKO-SPRAS& PARAGRAPH P1 NEW-PARAGRAPH P2
Paragraph P2 (which will be used as the first line) should be created as having a Line Spacing value of 1 TW (1 twip) which is less than 1/1000th of an inch. Also, set the Left Margin value to an offset which brings the text to the right of the Delivery schedule literal.
Paragraph P1 (which will be used for all subsequent lines) should be set up as normal - ie. use the same paragraph format as that for displaying your "Delivery schedule:" literal. If you need the text to be indented in line with the first line, then copy your existing paragraph to a new paragraph but set the Left Margin value to the same as that in P2.
What this does is to output the first line of text indented by the margin after skipping 1 twip, giving the illusion that it's actually on the same line. Since subsequent lines are output with a normal (or normal/indented) paragraph, that just follows with normal spacing on subsequent lines.
Hope this makes sense.
Regards, Andy -
Location of standard text in scripts
hi,
where will be the standard text in script?
regards,
bbr.SO10 is the T-code.
You can call the FM Read_text.
you should pass the below values to FM
id =
language =
name =
object =
tables
lines =.
Regards,
Rajasekhar Reddy. -
Calling standard text to script
Hi,
I created standard text using so10. How can I call this text to my script program??
Is there any other way to acheive this??
Thanks,
RavindraHi Ravindra,
By using INCLUDE command you can insert the standard text in script editor.
please go throught the help command for include command and it will explain you in detail.
One more thing regarding that,when you have to transport your request to QA system, you have to include the standard text in your request otherwise your standard text will not be visible in the QA.
To include your standard text to your request in DEU, run program RSTXTRAN.
Regards,
Tarun -
Difference jb/w text symblosin script and standard text in scripts
hi to all
can u pols explain about the
difference b/w text symblos in script and standard text in scriptshi
Default paragraph Paragraph set to * in <b>standard text</b> maintenance
If no form has been assigned to a text, the system automatically assigns the form SYSTEM, which contains minimal definitions for text formatting. There are two ways of formatting texts using forms: Use the <b>standard text</b> maintenance to enter and print the text.
Any kind of text can be included in a form. If no object is specified, then TEXT will be used (<b>standard texts</b>).
<b>
Text Symbols</b>
Text symbols acquire their values as a result of explicit assignment. To interactively assign text symbols, in the text editor choose Include  Symbols  Text. This method is available for all text symbols belonging to a text module as well as those of the associated form. Values defined in this way are lost when the transaction is left. If you want to print the text module again, then you must enter the symbol values again. The purpose of the DEFINE command is to provide a means of making this value assignment a permanent part of the text, so that the values are available again when the text module is called again. This command can also be used to re-assign a new value to a text symbol half-way through the text. Syntax: /: DEFINE &symbol_name& = 'value'
/: DEFINE &subject& = 'Your letter of 7/3/95' The value assigned can have a maximal length of 60 characters. It may itself contain other symbols. A symbol contained within the value assigned to another symbol is not replaced with its own value at the point at which the DEFINE command is executed. Rather, this replacement is made when the symbol defined in the DEFINE command is called in the text.
/: DEFINE &symbol1& = 'mail' /: DEFINE &symbol2& = 'SAP&symbol1&' /: DEFINE &symbol1& = 'script' &symbol2& -> SAPscript If, however, the DEFINE command is written using the ':=' character rather than the '=' character, then any symbol contained within the value being assigned is replaced immediately with its current value. The assignment to the target symbol is made only after all symbols in the value string are replaced with their values. The total length of the value string may not exceed 80 characters. The target symbol must be a text symbol, as before.
/: DEFINE &symbol1& = 'mail' /: DEFINE &symbol2& := 'SAP&symbol1&' /: DEFINE &symbol1& = 'script' &symbol2& -> SAPmail
Inserting <b>Text Symbols</b>
Procedure
Inserting a Text Symbol
1. Choose Insert → Symbols → Text.
2. Place the cursor on the desired text symbol.
3. Choose Choose.
4. The system inserts the text symbol.
Editing the Value of a Text Symbol
1. Choose Insert → Symbols → Text.
2. Choose Edit value bearbeiten. The dialog window Value definition for symbol <text symbol> appears.
3. Enter the appropriate value definition.
4. Choose Continue. In the dialog window Text symbols the specified value appears after the name of the text symbol.
5. Choose Continue.
Deleting all Text Symbol Values
1. Choose Insert → Symbols → Text.
2. Choose Delete all values. The system deletes all defined values.
3. Choose Continue.
Using Formatting Options for Text Symbols
1. Choose Insert → Symbols → Text.
2. Choose Options. The dialog window Formatting options for <text symbol> appears.
3. Fill in the fields.
4. Choose Continue.
5. Choose Continue. The system executes the selected formatting option.
regards
ravish
<b>plz reward points if helpful</b> -
Dynamic STANDARD TEXT in scripts
Hi friends,
I have to include standard text in the script corresponding to the company code. For example if company code = 6100, I have to include standard text SD_6100, or else if 2000 I have to include SD_2000. Here I can use IF statement. But If company codes are 20 or 30 then it is difficult to write that many IF statements. And in future if they increased the company codes then we should write one more if statement.So is there any method to include the STANDARD TEXT dynamically.
Sathish Reddy.Hi satish ,
create the standard text in tcode SO10 .
now u can create this with respect to company code
/: case & - bukrs&
/: when '20'
text
/: when '30'
text for 30
/: endcase.
so by doing this u ll trigger the corresponding text for company code .
now to include the std text in your form
just call the standard text IN THAT WINDOW AS ...
/: INCLUDE Z_XXXXX OBJECT TEXT ID ST LANGUAGE EN
remarks,
Dynamically if u want to trigger the standard text u can go for IF end if logic as u stated or a case endcase..
there is no alternate .
regards,
VIjay
Message was edited by:
Vijay k -
Once we create standard text using SO10 transaction, how to use it in the script, I mean, where should we write??
Hi,
You will have to use a INCLUDE statement for the same.
/: INCLUDE 'Z..' OBJECT TEXT PARAMETER...
Take a look at this thread ...
Re: Query Regarding INCLUDE statement in SAP Script
Regards,
Ravi
Note : Please mark the helpful answers -
To transport STANDARD TEXT for script
Hello Experts,
Can any one give clarification
'Hou to transport STANDARD TEXT for a script'.
Regards,
KumarHi,
Use RSTXTRAN Standard Program..
Do Like this..
Goto se38 and enter program name as RSTXTRAN
and press F8..
and give Text-key Name as Standard Text Name
then Press F8..
And select Select check box.. and enter
and press on trsfr to corr button..
it asks transfee textxs to a correction..
press on yes button..
it will show request number or create your own request...
and after goto SE10 tcode and Transport it...
Message was edited by:
Vishnu Reddy -
Regarding printing of standard text in scripts
Hi every one,
I am Dinakar. I had a situation where i am printing the standard text for
Terms & Conditions.
my page is able to print only 15 terms pr page.
but my problem is that few line from the last (15th) terms & condition r missing
in the first page. from 16th terms & conditions r printing properly.but again from third page remaining terms and conditions r completely missing.
please help to complete this situation.
Thanks & Regards
Dinakar.Hi Dinakar,
Try to keep the statments you want to display in a single page use <i>PROTECT</i> and <i>ENDPROTECT</i>.
/: PROTECT
p1 standard text1
p2 standard text2
p13: standard text15
/: ENDPROTECT
Thanks,
Sreekanth
<i>*-- do not forget to reward if it helps you ;)</i> -
Requirment Urgent: How to format standard text in Script like two columns.
Hi,
I want to format the text in two columns like this.
1. This is the note. 5. This is the note.
2. This is the note. 6. This is the note.
3. This is the note. 7. This is the note.
4. This is the note. 8. This is the note.
I have to include a standard text and format like this.
Thanks in advance.Hi,
You have to create a paragraph format and create two tabs according to your column positions.
and write.
,,&column1& ,,&column2&
Regards,
Wasim Ahmed -
Problem in using standard text in SAP Script
Hi All,
I have to replace English text hardcoded in a script with standard texts (SO10) in Spanish. When I am including the standard text in script, it is displayed in different font and bigger size. I want to reduce the size and change the font of standard text. Is there any way to do that?
Thanks in advance
Radhika
<MOVED BY MODERATOR TO THE CORRECT FORUM>
Edited by: Alvaro Tejada Galindo on Jan 4, 2010 2:37 PMPlease check the links below , which might hel you..
Re: Setting font to standard text in sap script
How to change stranded text font in script
Regards
Satish Boguda -
How to convert a Word Document to SAP SCript standard text.
Hi team,
Does any one know how to convert a word document or text in Word format to standard text.
So that we can use that standard text in Script output.
This might be very useful if we need to convert a lot of text into standard text.Hi,
Create the name of the standard text you want in SO10.
When the editor is called up, select Text -> Upload and then browse for your file(s). Must be saved in RTF format in Word remember.
Cheers
Colin. -
hi to all abap Gurus
what is standard text in script ?how to use it > where do we use it ? we know that the use is reusability . how it is reusable . and it is used to support for multiple languages . pls tell in detail . pls dont give any link . points will bre rewarded defintilely for good answers . pls urgent. pls give som esample coding on this .Standard Text is nothing but Global Text.
Suppose you have to display footer/header info. whenever you create a s cript for ur org.your caompany details,logo etx. instead of writing them everytime, if you careta a global text u can include them wherevr u want.
Mainly we are using standard texts to avoid hardcoding in scripts or smartforms.
If you need to include the name of your company and address in the form you
just include a standard text in your form by include statement(script) and by
include text dropdown in forms. If in later part of time your company address
change you need to change the standard text not to touch the form. This is the
way standard text helps us.
in Tcode SO10, u create a text and give a name activate it.
Here is the sample code to send script through E mail..
*& Report ZRICHA_OTF_PDF
report zricha_otf_pdf
message-id zz.
CONSTANTS *
constants : c_x(1) type c value 'X', " For constant value
c_otf(3) type c value 'OTF', " For format
c_u(1) type c value 'U'. " Mail Option
VARIABLES *
data : v_rqident type tsp01-rqident, " For Spool Number
v_rqclient type tsp01-rqclient, " For Client
v_rqo1name type tsp01-rqo1name, " For Object name
v_spool type tsp01-rqident, " For Spool Number
v_spool1 type tsp01-rqident. " For Spool Number
FLAGS *
data : f_spool type c.
INTERNAL TABLES *
Internal table for sending mails
data: it_pdf like tline occurs 10 with header line,
it_xi_pdf like tline occurs 0 with header line,
it_html like solisti1 occurs 0 with header line,
it_xi_temp like bapiqcmime occurs 0 with header line,
it_xi_mime(255) type c occurs 0 with header line.
For sending mail
data: it_objpack like sopcklsti1 occurs 2 with header line.
Internal table for Single List with Column Length 255
data : it_objbin like solisti1 occurs 10 with header line.
Internal table for Single List with Column Length 255
data : it_objtxt like solisti1 occurs 10 with header line.
Internal table for Structure of the API Recipient List
data : it_reclist like somlreci1 occurs 5 with header line.
Structure of the API Recipient List
data: x_doc_chng like sodocchgi1.
Internal table for storing the variants
data : begin of it_variant1 occurs 0,
variant like varid-variant,
end of it_variant1.
Internal table to store variants for the programs
data: it_variant2 like it_variant1 occurs 0 with header line.
Internal table for storing the selected values
data it_return type ddshretval occurs 0 with header line.
Internal table for storing the mail-ids
data : begin of it_mailid occurs 0,
kokrs like csks-kokrs,
kostl like csks-kostl,
datbi like csks-datbi,
telx1 like csks-telx1,
end of it_mailid.
Internal table for storing the mail-ids
data : it_mailid1 like it_mailid occurs 0 with header line.
SELECTION SCREEN *
data : v_char type char50.
selection-screen begin of block b1 with frame title text-001.
select-options: s_email for v_char no intervals
lower case
no-display.
select-options: s_email1 for v_char no intervals
lower case
no-display.
selection-screen end of block b1.
selection-screen begin of block a1 with frame title text-028.
selection-screen begin of line.
parameters : p_c1 as checkbox.
selection-screen comment 3(66) text-026 for field p_c1.
selection-screen end of line.
parameters : p_set like tsp1d-papart matchcode object zh_tsp1d.
selection-screen skip 1.
parameters : p_vara1 type rs38m-selset.
selection-screen end of block a1.
selection-screen begin of block a2 with frame title text-029.
selection-screen begin of line.
parameters : p_c2 as checkbox.
selection-screen comment 3(56) text-027 for field p_c1.
selection-screen end of line.
parameters : p_set1 like tsp1d-papart matchcode object zh_tsp1d.
selection-screen skip 1.
parameters : p_vara2 type rs38m-selset.
selection-screen end of block a2.
AT SELECTION SCREEN ON VALUE REQUEST
at selection-screen on value-request for p_vara1.
For fetching the variants available for the program
perform fetch_variants.
at selection-screen on value-request for p_vara2.
For fetching the variants available for the program
perform fetch_variants1.
AT SELECTION SCREEN
at selection-screen.
For Validation
perform validation.
START OF SELECTION *
start-of-selection.
To get the output data and mail
perform fetch_data.
END OF SELECTION *
end-of-selection.
if f_spool = c_x.
message e000 with 'Spool Not Generated'(060).
endif.
*& Form fetch_data
To get the output data and mail
form fetch_data .
To send the output to spool
perform generate_spool.
endform. " fetch_data
*& Form generate_spool
To send the output to spool
form generate_spool .
data: l_params like pri_params,
l_days(1) type n value 2,
l_count(3) type n value 1,
l_valid type c,
l_valid1 type c,
l_params1 like pri_params.
data: l_device type usr01-spld.
*Get the printer name for the user
select single spld into l_device from usr01 where bname = sy-uname.
if l_device is initial.
l_device = 'LOCL'.
endif.
For report-1
if p_c1 = 'X'.
Setting the print parameters
call function 'GET_PRINT_PARAMETERS'
exporting
destination = l_device
copies = l_count
list_name = sy-uname
list_text = 'SUBMIT ... TO SAP-SPOOL'(008)
release = c_x
new_list_id = c_x
expiration = l_days
LINE_SIZE = 255
LINE_COUNT = 65
layout = p_set
sap_cover_page = space
cover_page = space
receiver = 'SAP*'(010)
department = 'System'(011)
no_dialog = c_x
importing
out_parameters = l_params
valid = l_valid.
if l_valid <> space.
clear v_spool.
Fetch the spool number b4 submit
perform fetch_recent_spool using v_spool.
Submitting the program to spool
submit rkaep000 to sap-spool
using selection-set p_vara1
spool parameters l_params
without spool dynpro
and return.
clear v_spool1.
Fetch the spool number after submit
perform fetch_recent_spool using v_spool1.
if v_spool = v_spool1.
f_spool = c_x.
if p_c2 is initial.
stop.
endif.
else.
Checking the format ( ABAP/OTF)
perform format_check tables s_email.
endif.
else.
message e000 with 'Problem in print settings'(003).
stop.
endif.
endif.
For Report-2
if p_c2 = 'X'.
Setting the print parameters
call function 'GET_PRINT_PARAMETERS'
exporting
destination = l_device
copies = l_count
list_name = sy-uname
list_text = 'SUBMIT ... TO SAP-SPOOL'(008)
release = c_x
new_list_id = c_x
expiration = l_days
LINE_SIZE = 200
LINE_COUNT = 65
layout = p_set1
sap_cover_page = space
cover_page = space
receiver = 'SAP*'(010)
department = 'System'(011)
no_dialog = c_x
importing
out_parameters = l_params1
valid = l_valid1.
if l_valid1 <> space.
clear v_spool.
Fetch the spool number b4 submit
perform fetch_recent_spool using v_spool.
Submitting the program to spool
submit gp3diehxy88snfj0391v7kf9ek7050 to sap-spool
using selection-set p_vara2
spool parameters l_params1
without spool dynpro
and return.
clear v_spool1.
Fetch the spool number after submit
perform fetch_recent_spool using v_spool1.
if v_spool = v_spool1.
message e000 with 'Spool Not Generated'(060).
stop.
endif.
Checking the format ( ABAP/OTF)
perform format_check tables s_email1.
else.
message e000 with 'Problem in print settings'(003).
stop.
endif.
endif.
endform. " generate_spool
*& Form fetch_recent_spool
Fetch the recent spool number generated
form fetch_recent_spool using p_v_spool type tsp01-rqident .
data: l_user like tsp01-rq2name.
clear : v_rqident,
v_rqclient,
v_rqo1name.
l_user = sy-uname.
Get latest Spool No
select single rqident
rqclient
rqo1name
into (v_rqident , v_rqclient , v_rqo1name)
from tsp01
where rqcretime = ( select max( rqcretime )
from tsp01
where rq2name eq l_user
and rqfinal eq '.' ).
if sy-subrc = 0 .
p_v_spool = v_rqident.
endif.
endform. " fetch_recent_spool
*& Form format_check
Checking the format ( ABAP/OTF)
form format_check tables p_s_email structure s_email.
data : l_objtype like rststype-type.
call function 'RSTS_GET_ATTRIBUTES'
exporting
authority = 'SP01'(019)
client = v_rqclient
name = v_rqo1name
part = 1
importing
objtype = l_objtype
exceptions
fb_error = 1
fb_rsts_other = 2
no_object = 3
no_permission = 4.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
if l_objtype(3) = c_otf.
Convert OTF Spool to PDF
perform convert_otf2pdf tables p_s_email.
else.
Convert ABAP Spool to PDF
perform convert_abap2pdf tables p_s_email.
endif.
endform. " format_check
*& Form convert_otf2pdf
Convert OTF Spool to PDF
form convert_otf2pdf tables p_p_s_email structure s_email .
clear it_pdf.
refresh it_pdf.
data : l_bytecount type i.
Fn. to get the PDF format
call function 'CONVERT_OTFSPOOLJOB_2_PDF'
exporting
src_spoolid = v_rqident
no_dialog = 'X'
importing
pdf_bytecount = l_bytecount
tables
pdf = it_pdf
exceptions
err_no_otf_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_dstdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11.
if sy-subrc = 0.
For page format
perform page_format tables p_p_s_email.
else.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " convert_otf2pdf
*& Form convert_abap2pdf
Convert ABAP Spool to PDF
form convert_abap2pdf tables p_p_s_email structure s_email.
clear it_pdf.
refresh it_pdf.
data : l_bytecount type i.
Fn. to convert to PDF format
call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
exporting
src_spoolid = v_rqident
no_dialog = 'X'
importing
pdf_bytecount = l_bytecount
tables
pdf = it_pdf
exceptions
err_no_abap_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_destdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11.
if sy-subrc = 0.
For page formatting
perform page_format tables p_p_s_email.
else.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " convert_abap2pdf
*& Form send_mail
For sending mail
form send_mail tables mail structure s_email .
Structures and internal tables for the send data
data: objpack like sopcklsti1 occurs 2 with header line,
objhead like solisti1 occurs 1 with header line,
objbin like solisti1 occurs 0 with header line,
objtxt like solisti1 occurs 10 with header line,
reclist like somlreci1 occurs 5 with header line.
data: doc_chng like sodocchgi1,
tab_lines like sy-tabix.
Data for the status output after sending
data: sent_to_all like sonv-flag.
clear: it_reclist, it_reclist[],
it_objtxt , it_objtxt[],
it_objpack, it_objpack[],
it_objbin , it_objbin[],x_doc_chng.
loop at it_html.
objbin-line = it_html-line.
append objbin.
clear objbin.
endloop.
Create the document which is to be sent
doc_chng-obj_name = 'List'(012).
doc_chng-obj_descr = 'Mail'(013).
Heading
objtxt-line = 'Mail with pdf attachment'(014).
append objtxt.
clear objtxt.
Size
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
Fill the fields of the packing_list for the main document:
clear objpack-transf_bin.
The document needs no header (head_num = 0)
objpack-head_start = 1.
objpack-head_num = 0.
Body
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'(015).
append objpack.
Create the attachment (the list itself)
describe table objbin lines tab_lines.
Fill the fields of the packing_list for the attachment:
objpack-transf_bin = 'X'.
Header
objpack-head_start = 1.
objpack-head_num = 0.
Body
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'PDF'(016).
objpack-obj_name = 'Attachment'(017).
objpack-obj_descr = 'Mail with pdf Attachment'(018).
objpack-doc_size = tab_lines * 255.
append objpack.
*-Fill the mail recipient list
loop at mail.
reclist-receiver = mail-low.
reclist-rec_type = c_u.
append reclist.
clear: reclist,
mail.
endloop.
*-Send the document by calling the SAPoffice API1 module for sending
*-documents with attachments
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
exporting
document_data = doc_chng
put_in_outbox = c_x
commit_work = c_x
importing
sent_to_all = sent_to_all
tables
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
exceptions
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
others = 99.
case sy-subrc .
when 0.
message i000 with 'Mail has been sent successfully'(006).
when others.
message e000 with 'Problem in sending the mail'(023).
endcase.
endform. " send_mail
*& Form page_format
For page foramtting
form page_format tables email structure s_email .
data : l_lines type i,
l_temp(500) type c,
l_offset type p,
l_lineslen(2) type p,
l_mimelen(2) type p,
l_tabix like sy-tabix.
clear : it_xi_pdf,
it_xi_temp.
refresh : it_xi_pdf,
it_xi_temp.
it_xi_pdf[] = it_pdf[].
Reformat the line to 255 characters wide (code from SAP)
clear: l_temp, l_offset, it_xi_temp.
describe table it_xi_pdf lines l_lines.
describe field it_xi_pdf length l_lineslen in character mode.
describe field it_xi_temp length l_mimelen in character mode.
loop at it_xi_pdf.
l_tabix = sy-tabix.
move it_xi_pdf to l_temp+l_offset.
if l_tabix = l_lines.
l_lineslen = strlen( it_xi_pdf ).
endif.
l_offset = l_offset + l_lineslen.
if l_offset ge l_mimelen.
clear it_xi_temp.
it_xi_temp = l_temp(l_mimelen).
append it_xi_temp.
shift l_temp by l_mimelen places.
l_offset = l_offset - l_mimelen.
endif.
if l_tabix = l_lines.
if l_offset gt 0.
clear it_xi_temp.
it_xi_temp = l_temp(l_offset).
append it_xi_temp.
endif.
endif.
endloop.
clear : it_xi_mime,
it_xi_mime[].
loop at it_xi_temp.
it_xi_mime(255) = it_xi_temp-line.
append it_xi_mime.
clear it_xi_mime.
endloop.
Final Data
clear : it_html,
it_html[].
it_html[] = it_xi_mime[].
For sending mail
perform send_mail tables email.
endform. " page_format
*& Form fetch_variants
For fetching the variants available for the program
form fetch_variants .
data : l_program like rs38m-programm value 'RKAEP000',
l_vara1 type dfies-fieldname value 'P_VARA1'.
clear : it_variant1,
it_variant1[].
Get variants
perform get_variants tables it_variant1
using l_program.
F4 Help
if not it_variant1[] is initial.
perform get_f4_help tables it_variant1
using l_vara1
changing p_vara1.
else.
message e000 with 'No variants available for report1'(054).
endif.
endform. " fetch_variants
*& Form validation
For Validation
form validation .
data : l_pro1 like rs38m-programm value 'RKAEP000',
l_pro2 like rs38m-programm value 'GP3DIEHXY88SNFJ0391V7KF9EK7050',
l_c1,
l_c2.
If both check-box are unchecked
if p_c1 is initial
and p_c2 is initial.
message e000 with 'Check any one check-box'(049).
endif.
If checked without varaint
if not p_c1 is initial and p_vara1 is initial.
message e000 with 'Please give any one of the variant for report1'(055).
endif.
If checked without varaint
if not p_c2 is initial and p_vara2 is initial.
message e000 with 'Please give any one of the variant for report2'(061).
endif.
Reading the variant and fetching the mail-ids
if p_c1 = c_x.
l_c1 = '1'.
clear : s_email,
s_email[].
perform read_variants tables it_mailid
s_email
using p_vara1
l_pro1
l_c1.
if s_email[] is initial.
message e000 with 'No Id available for given Cost report1'(066).
else.
sort s_email by low.
delete adjacent duplicates from s_email comparing low.
endif.
endif.
Reading the variant and fetching the mail-ids
if p_c2 = c_x.
clear : s_email1,
s_email1[].
l_c2 = '2'.
perform read_variants tables it_mailid1
s_email1
using p_vara2
l_pro2
l_c2.
if s_email1[] is initial.
message e000 with 'No Id available for given Cost report2'(067).
else.
sort s_email1 by low.
delete adjacent duplicates from s_email1 comparing low.
endif.
endif.
endform. " validation
*& Form GET_VARIANTS
Fetching Variants
form get_variants tables p_it_variant structure it_variant1
using p_v_program type rs38m-programm.
select variant
from varid
into table p_it_variant
where report = p_v_program.
endform. " GET_VARIANTS
*& Form GET_F4_HELP
text
form get_f4_help tables p_it_variant1 structure it_variant1
using p_l_vara1 like dfies-fieldname
changing p_p_vara like p_vara1.
Fn. for Pop-Up
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
exporting
retfield = p_l_vara1
value_org = 'S'
display = ' '
tables
value_tab = p_it_variant1
return_tab = it_return
exceptions
parameter_error = 1
no_values_found = 2
others = 3.
if sy-subrc = 0.
p_p_vara = it_return-fieldval.
else.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " GET_F4_HELP
*& Form FETCH_VARIANTS1
text
form fetch_variants1 .
data : v_program1 like rs38m-programm value 'GP3DIEHXY88SNFJ0391V7KF9EK7050',
l_vara2 type dfies-fieldname value 'P_VARA2'.
clear : it_variant2,
it_variant2[].
Get Variants
perform get_variants tables it_variant2
using v_program1.
F4 Help
if not it_variant2[] is initial.
perform get_f4_help tables it_variant2
using l_vara2
changing p_vara2.
else.
message e000 with 'No variants available for report2'(050).
endif.
endform. " FETCH_VARIANTS1
*& Form read_variants
Reading the variant and fetching the mail-ids
form read_variants tables p_it_mailid structure it_mailid
p_s_email structure s_email
using p_p_vara1 like p_vara1
p_l_pro1 like rs38m-programm
p_l_c1 type c.
data : l_temp(44),
it_valutab like rsparams occurs 0 with header line.
ranges : r_cocen for csks-kostl.
Function Module to get the variant contents
call function 'RS_VARIANT_CONTENTS'
exporting
report = p_l_pro1
variant = p_p_vara1
tables
valutab = it_valutab
exceptions
variant_non_existent = 1
variant_obsolete = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
clear : r_cocen,
r_cocen[].
loop at it_valutab where selname = 'KOSTL'
or selname = '_C-CCTR'.
Getting the range of cost centers
if it_valutab-option = 'BT'.
r_cocen-low = it_valutab-low.
For Conversion Routine
perform conversion using r_cocen-low.
r_cocen-high = it_valutab-high.
For Conversion Routine
perform conversion using r_cocen-high.
r_cocen-option = 'BT'.
r_cocen-sign = 'I'.
append r_cocen.
clear r_cocen.
endif.
Getting the single cost centers
if it_valutab-option = 'EQ'.
r_cocen-low = it_valutab-low.
For Conversion Routine
perform conversion using r_cocen-low.
r_cocen-option = 'EQ'.
r_cocen-sign = 'I'.
append r_cocen.
clear r_cocen.
endif.
endloop.
If no cost centers
if not r_cocen[] is initial.
select kokrs
kostl
datbi
telx1
from csks
into table p_it_mailid
where kostl in r_cocen.
if p_it_mailid[] is initial.
if p_l_c1 = '1'.
message e000 with 'No IDs available for report1'(059).
elseif p_l_c1 = '2'.
message e000 with 'No IDs available for report2'(062).
endif.
endif.
Deleting the blank entries
delete p_it_mailid where telx1 = space.
clear l_temp.
read table p_it_mailid index 1.
l_temp = p_it_mailid-telx1.
data : l_check.
loop at p_it_mailid where telx1 <> l_temp.
l_check = c_x.
endloop.
For checking the unique ids
if l_check = c_x.
if p_l_c1 = '1'.
message e000 with 'No unique mail-ids for report1'(058).
elseif p_l_c1 = '2'.
message e000 with 'No unique mail-ids for report2'(065).
endif.
endif.
Populating the IDs for the cost centers
loop at p_it_mailid.
set locale language sy-langu.
translate p_it_mailid-telx1 to lower case.
set locale language space .
concatenate p_it_mailid-telx1 '@allergan.com' into l_temp.
p_s_email-low = l_temp.
p_s_email-sign = 'I'.
p_s_email-option = 'EQ'.
append p_s_email.
clear p_s_email.
endloop.
else.
if p_l_c1 = '1'.
message e000 with 'No Cost Center Available for report1'(057).
elseif p_l_c1 = '2'.
message e000 with 'No Cost Center Available for report2'(063).
endif.
endif.
endform. " read_variants
*& Form CONVERSION
For Conversion Routine
form conversion using p_it_valutab_low type c.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
exporting
input = p_it_valutab_low
importing
output = p_it_valutab_low.
endform. " CONVERSION
chk this one to send script to pdf
http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm
plzz refer to this link..it will solve ur problem
Re: Sending a PDF document as an attachment
sending the mail with PDF attachment
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/62ae7fcd-0b01-0010-3e9d-a54f26944450
Regards
Sree -
Doubt in creating the transport request for "STANDARD TEXT""
HI ALL,
i used the standard text in scripts but i am getting the problem while creating the transport request for that,
i am not able to create the transport request for that,if anybody knows plzlet me know,
this is very urgent,
thanks and regards,
saikrishna.HI SURESH ,
THANKS FOR UR IMMEDIATE REPLY ,
i executed that report in that i have given
Name of Correction : ZREPST
Textkey-object:
Text key name:
Text key - ID: ST
Text key - language :EN
Here Textkey-object,Text key name
wat i have to ,give after that ,can i execute that ,
will it create the request.
plz let me know,now ur answer is very valueble ,because ,now i have to release everything,
plz let me know immediately,
thanks and regards,
saikrishna. -
What is the difference between Standard text and Text Symbols?
Hi,
1.Difference between Standard text and text symbol,?
2. Which we use Standard symbol?Text symbol
Text symbols are symbols representing text elements. In fact, a text symbol can be defined for every text elements. The reading of the form is easier in the SAPscript editor. The name of the text symbol must not exceed 32 characters and its value 60 characters. The value assignement can be done in two ways:
- Using the following command: "/: DEFINE &SYMBOL&='TEST_SYMBOLE'"
- Using a standard text symbol.
The text symbol value is temporary stored. When the print program finishes the execution, the text symbol does not exist anymore. The text symbol must have a value when it is declared.
Also check this link,
http://www.supinfo-projects.com/en/2005/forms_sapscript_en/5/
Standard text are good, if you are using them in more than one SAPScript, because you have to maintain them only once, and not in every SAPScript.
It is really good to write rarely changing texts into the SO10 standard texts (for example company name, and address).
standard text is not always used in scripts. when ever u want to display some data u need to use standard text so that the data gets displayed. Say, u have a large piece of document which needs to be printed at end of script... rather than writing the whole thing in script, we create standard text using SO10 and then use the name along with standard text in script.
Maybe you are looking for
-
How do I use a Tab key to maximize a frame?
How can I use a Tab key (vk_tab) pressed on the focused frame to actually maximize the frame... what action should it have attached to it? thanks!
-
How do I select all clips in a large project with out individually select each clip?
I have a large project with ~1000 clips (still jpgs). My question is how do I select all of the clips without individually selecting each clip?
-
I cant signed on the game center on my iphone.which is a japan lock how can i fix this?
i cant signed on the game center on my iphone.which is a japan lock how can i fix this?
-
Mystery Data and dual libraries.
My MBP is starting to run very slow. I am trying to make more space on the system drive and have found I have two libraries; one slightly larger than the other. One is under MAC HD (25G) and one is under Users (39G)(There is also one in System but th
-
I just purchase a photo shop and then realize it was for windows and not a mac. Here is the information from my purchase. The order was through my paypal from Valada Harp Adobe Photoshop Elements 13 & Adobe Premiere Elements 13 (Windows,English) 10