Standard Text in Multiple Lang
Hi all,
I have a standard text in logon lang EN and iam using it in ascript and when i login in chinese and if print the output of script i need to see the standard text in chinese
1) do i need to recreate the standard text in chinese logon lang with language zh and same name
or
2) in the english logon language can i copy the english standard text to chinese lang
3) can we convert the standard text from en to chinese using se 63
Thanks
First create standard text using SO10 Transaction,enter standard text name ,language is Chinese.
You have to manually like copy and paste it.
You can login into SAP using logon is EN.
Now while calling the Standard text to Layout ,goto SE71 -> enter form name ,language chinese,now add your standard text here.
Otherway..
Goto SE71 -> form name -> enter langauge EN
Within standard text window ,keep the condition
/: IF SY-LANGU = 'EN'.
/: CALL STANDARD TEXT USING EN
/: ELSEIF SY-LANGU = 'CHINES'.
/: CALL STANDARD TEXT USING CHINESE
/: ENDIF.
Please use first method alway rather than using condition
Thanks
Seshu
Similar Messages
-
Printing Standard TEXT with multiple paragraphs in smartform
Hello all,
I have a requirement that, there is a very long standard text stored in a notification of an order in SAP ISU system. The text contains multiple paragraphs with indentations. I want to print this text directly into the smartform WITH SAME INDENTATION AND PARAGRAPH FORMATTING.
First i am reading the entire text using FM READ_TEXT.
My first problem is even if i read the text into a variable of type STRING , it just prints 255 characters of it.
And secondly if i try to printout it using LOOP AT node in smartforms, it prints the entire content but without any formatting .
Please let me know whether it is possible to print standard text in smartforms or not
Thanks
Nilesh PuranikHey ,
Well thanks for that but my replies got posted 2-3 times unknowingly, could'nt help it.
Coming to the problem, i guess you did not get my point when i say dynamic texts for each service order.
In my Report i am using LOOP AT ITAB ..where in itab i am storing a service order no i.e. ITAB-ORDER_NO
Now for every order there is standard text maintained in SO10 starting with order name
so my code goes like this.
LOOP AT ITAB.
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = 'LTXT'
LANGUAGE = 'E'
NAME = ITAB-order_no
OBJECT = 'QMSM'
TABLES
LINES = LINES .
CALL <SMART FORM Fm>
ENDLOOP.
Hence whatever Standard text maintained for that service order i want to display it as it is in the smartform with same paragraphs formatting and indentation.
IF i use a variable in smartform and pass the entire text after using READ_TEXT , it does not format the text and it just prints only 255 characters even if i define it of type STRING .
Hence i am stuck in this scenario.
Appreciate ur help though.
Thanks
Nilesh -
Urgent help in copying STANDARD Texts of various lang from 1 client to anot
Hi,
I have a require ment in which i have to copy all standard texts in chinese,thai language from one client to another.
Can any one please help me with this .
I don't have any idea on proceeding .Hi,
Use the Following Program
goto se38>RSTXSCRP>EXECUTE.
CHOOSE THE RADIOBUTTON Standard Text .
In the Object name type ur Textname(chinese one ).
choose the Mode as Export.
GIVE the Language as chinese Code.
EXECUTE.
Save to ur desktop.
Now logon to other client.
goto se38>RSTXSCRP>EXECUTE.
CHOOSE THE RADIOBUTTON Standard Text .
In the Object name type ur Textname(chinese one ).
choose the Mode as IMPORT.
GIVE the Language as Chinese Code.
EXECUTE.
Give the File name.
The text will get Imported.
Regards,
Morris Bond.
Reward Points if Helpful. -
Standard text transport multiple language
Hi All,
I have zstandardtext in 3 languages. i wanna tranport them. please suggest.Hi,
you can attach it to a TR by program RSTXTRAN and port it to respective system
Hope this helps you.
Best Regards, Murugesh AS -
Smart form Text module translation and Standard text
Hi i have a requirement in smartforms in which i need to create text modules and transtale into diffrent languages.
I have created text modules they are in my transport,
when i am translating through SE63 into target language it is not asking for any transport request , Can any one help me regarding how i can assign Transaltion thing to my transport.
Another thing is i require to use standard text, i am not much aware of it also as per my understanding i need to create it through SO10 Transaction , and i can use it in include text please correct me if i am wrong, i need this standart text also in two language but while creating standard text it is not asking transport request, and how i would convert standard text in diff lang and how can i assign to my transport.
Surely i would provide points for the valid reply.
Thanks in advance.Hi Gudia San,
To transport Standard text, use the standard Report Program <b>RSTXTRAN</b>, execute it, on the selection screen, enter your standard text name as
<b>Text key - name</b>, press F8, it will display a ouput list. Now press F5 key and it will ask for transport request number.
Regards,
Abdul.
P.S: Rewards points, if useful! -
Pls explain how to add standard text in sapscript & smartforms
Dear friends,
pls explain how to implement standard text into sap script and smartforms.
in how many we can do.
and what is diff between include text & text modules in smartforms.
how we can translate into multiple languages.
Regards
Jagadeeshwar.Bhi,
for the include text goto tcode so10.
for changing the smartform and scripts use there methods..
1. goto se63>translation->abap objects->other long texts->FS Forms and Styles---> for scripts use Forms
for smartforsm use SAPSmart form
for styles use Styles
2. goto se71->utilities->original language.---> source lang
(for scripts) target lang
to include the include text created in the tcode so10 in the smartforms go to general attributes of the text element--text type> include text...
regards,
venkat.
Edited by: venkat appikonda on Mar 22, 2008 11:56 AM -
How to use table in standard text
Hi,
I created one standard text using SO10 and I need to populate my internal table data values in the standard text. Below is the standard text i created.
XXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXX
&GV_ASSIGNMENT& &COSTCENTER& &ORGUNIT&
&GV_ASSIGNMENT& &COSTCENTER& &ORGUNIT&
&GV_ASSIGNMENT& &COSTCENTER& &ORGUNIT&
Thanks,
XXXXXXXXX
If an employee have multiple assignments, I have to send a mail to org unit head with the above format.
I created the above format in standard text (SO10). Now how to populate the values in the standard text.
Thanks,
RamHi Ram,
A standard text like this does not have the concept of looping through data (which is what you'll have to do if there you have a table of data).
What are you using to generate the mail? If is is comning from smartform or SAPscript you should use the form to define the layout and the loop, meaning you'll need to split your standard text into smaller texts.
Regards,
Nick -
Sapscript and Standard Text - Polish Characters not printing
Hi,
I have created an English Sapscript and translated it to Polish via transaction SE76.
Changing my PC Region and Language settings to Polish allowed me to enter Polish Characters into Hardcoded text in the Sapscript and Standard Text via s010.
I have two problems:
1) With my PC Region and Language settings set to Polish, when I create my sapscript output some of the polish characters that I have entered via SE76 and SO10 do not appear and are replaced by others e.g.
ę is dispalyed as ê
ć is displayed as æ
ń is displazed as #
2) I have a business requirement to be in England Logged with PC Region and Language set to English but to print a sapscript output in Polish. Is this possible.
We are currently on non unicode SAP system.
Please can anyone advise.
RegardsHello,
SAP discourages mixed code page or MDMP systems and with good reason. If there is any possibility of you upgrading to a Unicode system in the near future you should try to wait for it. Supporting multiple languages in Unicode is easy, in MDMP it can be quite tricky. And MDMP makes the move to Unicode more difficult.
That said, your BASIS team can enable Polish and you can print in Polish while your PC is set for English. The SAPScript/Form must be in Polish or using an INCLUDE that is LANGUAGE 'PL' to let SAP know which code page to use when printing.
Seriously, look at moving to Unicode, you need to do it eventually anyways.
Michael -
Hi,
Can you tell me how to use standard text in ADOBE forms,
and how to fetch A Customs Tariff Number or an HTS (Harmonized Tariff System)
from other system.Hi Oliver,
I believe you standard text is a table type of TDLINES.
On the form you would display it with a table of 1 column 1 row with repeat row ticked.
Have the like below code on the fomr ready event of your table.
for(var i =0; i<this.Row1.nodes.length;i++)
if(i == 1){
this.Row1.Cell1.font.fill.color.value = "255,0,0";
this.Row1.xx.font.fill.color.value = "255,0,0";
Note: in my example I had a table with one row names Row1 and 2 fields cell1 type textbox, & xx as text / label.
If its like you have it in a text box with multiple entries, we need to spli the value such that 1st row is displayed in a text box whose parameters are by defeult set to font red, and rest of them to this text area.
If your procedure is table the code sud work, else let me know how you get data and how do you display it on the screen.
Cheers,
Sai -
Can I color a line of "standard text" in adobe forms output?
Simple question: Can I color a line of "standard text" in adobe forms output?
My standard text (SO10) has multiple lines.
Can I make one of the lines red?
OllieHi Oliver,
I believe you standard text is a table type of TDLINES.
On the form you would display it with a table of 1 column 1 row with repeat row ticked.
Have the like below code on the fomr ready event of your table.
for(var i =0; i<this.Row1.nodes.length;i++)
if(i == 1){
this.Row1.Cell1.font.fill.color.value = "255,0,0";
this.Row1.xx.font.fill.color.value = "255,0,0";
Note: in my example I had a table with one row names Row1 and 2 fields cell1 type textbox, & xx as text / label.
If its like you have it in a text box with multiple entries, we need to spli the value such that 1st row is displayed in a text box whose parameters are by defeult set to font red, and rest of them to this text area.
If your procedure is table the code sud work, else let me know how you get data and how do you display it on the screen.
Cheers,
Sai -
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 -
Standard Text not getting refreshed.
Hi All,
I am working on a script where in I got to use a standard text. I am printing the text on script. And no error is coming. But when I print more than 1 invoice continuously I am getting the same standard text multiple times.
Can any one help me?
Thanks
KalyanHi Kalyan,
I hope you are not clearing the standard text before you populate it.
Please use below set of function modules.
data:
lt_text TYPE STANDARD TABLE OF tline,
ls_header LIKE thead,
ls_text TYPE tline.
CALL FUNCTION 'DELETE_TEXT'
EXPORTING
id = ls_header-tdid
language = ls_header-tdspras
name = ls_header-tdname
object = ls_header-tdobject
savemode_direct = 'X'
textmemory_only = 'X'
EXCEPTIONS
OTHERS = 2.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
savemode_direct = 'X'.
REFRESH lt_text.
or call a separate perform from the script after calling particular subroutine where you are populating the standard text....
/: PERFORM CLEAR_TEXT IN PROGRAM ZFIF_REPORT
/: USING ®UH-LAUFD&
/: CHANGING &GV_KEY&
/: ENDPERFORM
Form details...Call the perform from standard scrpt text load program SAPLSTXG....
FORM clear_text TABLES input_parm STRUCTURE itcsy
out_parm STRUCTURE itcsy.
CONSTANTS:
lc_name TYPE char30 VALUE 'TEXT_LINES'.
PERFORM mm_create_new(saplstxg) USING lc_name.
PERFORM init_text_buffer(saplstxg).
ENDFORM.
Thanks ... -
Standard text printing in sapscripts in EN & DE Language....
HI All,
My requirement was very simple....
I have some 6-7 Layouts......
i want to replace some hard coded text with some other text in those layout when the layout language is DE .the text will be in german...
for all remaining langauges of the layout i want the text to be displayed in EN.
can i use Standard Text or mormal hard coding will do aa....How....can any one help me out with sample coding or navigation....
Thanks
GaneshHi Kalandar,
The above solution was not working......I'll explain my problem clearly once again.
1. I have 6 layout to be changed in language DE
In the main window with tax text element i have some hard code in german language...that has to be replaced with some other sentence in german only(i have both the Sentences with me)
2. For the same 6 layouts to be changed in other languages(except DE)
same window ,same text element ,same hard code,but in English i have that to be replace with some other english sentence.
Simple to say in those 6 layouts if layout lang is DE then german sentence ,if lang other then DE...English sentence
Please check the possibility to use standard texts for this texts. Do u have to make any changes to program as well...
Plz help me out regarding this ...very important
Thanks
Ganesh -
Attaching same style in Standard text as well as adobe form
Hi Experts,
I have created 2 styles. One in se72 and second one in smatstyles.
But when i use 1st one in standard text, i can't see this style in adobe form to attach.
And 2nd one i can see it in adobe form but i can't see in standard text.
I want only 1 style to be used in both places.
Please help.
Thanks in advance.Hello,
You can achive this in two ways.
First - Go to the form interface and right click on the node create a text field in the form context.
In the properties tab on the right hand side of your form context you can specify Text Type.
Following Text type can be selected.
Include Text
Text Module
Dynamic Text.
As per your requirement select Include Text and then specify the NAME, LANG & TEXT ID for the text.
Once this is specified you can add this text field on the form layout.
NOTE: This normally works only if you maintain this text in the header or footer on the form but not at the line item level.
There are few issues when you try to print this text at the line item level.
To overcome this if your requirement is at the line item level follow second method mentioned below.
User READ_TEXT to read the standard text in your driver program. Then Pass the internal table returned with the text from this FM to another FM FORMAT_TEXTLINES.
This table is then used to map it on the adobe form. The second function module takes care of formatting.
Thanks -
Standard text printed only on one line
Hi experts,
I have a standard text in several lines:
Line 1
Line 2
Line 3
but in the pdf form it's printing in the same line:
Line 1 Line 2 Line 3...
Any suggestions ?
/KiehnHello!
1) When you say you have Standard text is several line that does not mean, that system have is in several lines.
I don't know if you are aware or not, but while SAP system always stores long texts in 70 (or about so) char segments the fact that they are printed on one or several lines is controlled solely by formatting column that precedes each line in TLINES table. So, does your text has line breaks or new paragraph marks before those lines?
2) If everything in above is correct, than maybe you have to check the format you use to transfer text from SAP to Adobe (in interface/context). Please, recheck what is stated [here at SAP Library|http://help.sap.com/saphelp_nw70/helpdata/en/04/ecfab99fc345f8826490df387aaf82/frameset.htm]. All this together with correct format for field (Rich text or Plain text) plus (as stated by poster above) "Allow multiple lines" and "Expand to Fit" (vertically) formatting should do the trick.
Regards,
Petr Perstnev
Maybe you are looking for
-
How do i delete a device from my apple id
how do i delete a device from my apple id?
-
Sales Area Data isnt replicating from CRM to ECC
Hi Gurus, We are replicating some BPs of certain groupings from CRM to ECC. We performed all steps relevant for this task mentioned in Best Practice u201CMaster Data Replication C03u201D. After performing the steps results are as follows: u2022 B
-
I have 2 MacBook Pros (OS X Ver 10.9.5). I work on both and transfer files and folders back and forth. I copy iweb from Application Support. Suddenly I was unable to open files in iweb on one of the Macs. After much back and forth I now have the file
-
New Adobe 11 will not open pdf files?
I access a file on the internet that is a pdf adobe then downloads it the download bar comes up it finishes but dosen't ever open I wait and wait nothing . then I find the link copy it open Adobe reader from my desktop click on file open and paste
-
Multiple output/action for ECS Purchase Order
Hi, We have a business scenario where; for a particular plant, the purchasing department would like a printed copy of the Purchase Order at the time the PO is issued via email to the supplier. I've tried setting up dual processing types (ie. Print&Ma