Viewing purchase order sapscript
Hai all,
I have make some changes in the MEDRUCK sapcript for purchase order as per client requirement and now I want to see the print preview of my customised sapscript and i have created a purchase order with this output type for print out.
Could any one of you you say how this print out can be seen. Is ME9F is enough to see the print output or whether I have to do something else to see the output.
Thanks in advance,
S.Jenibalet.
Hi Jenibalet,
Goto to the Tcode NACE and assign the the Print program and layout set which you have created.
And then you follow the usual procedure you can get the output of your new Medruck layout.Let me know if you face any further issues.
Regards,
Dinesh
Similar Messages
-
Error message while viewing Purchase order summary
Hi all,
we are in 11.5.10.2 , we are getting error message while viewing purchase order "Currency formatting cannot be performed without a currency code".
is it beacuse of currency not popluated in Purchase order?
Verified metalink note - 960504.1
Thanks
KiranHi Kiran,
Verified metalink and other areas but could not get any appropriate solution.
I tried to reproduce the issue in various available environments...but no luck!
My guess would be the datafix/BUG that you have referred in the MOS note 960504.1
Please check with your DBA for this patch in test instance.
Thanks
-Arif. -
Pass values to OAF search page (View Purchase Order History)
I need to call a OAF page from a PO Approval Notification. I need to call page View Purchase Order History (func:ICX_PO_REVISIONS).
I am able to create the URL (using function FND_RUN_FUNCTION.get_run_function_url) and when I click on the link it opens the page fine, but it’s a page that contains simple search region and I need to populate the Operating Unit and PO Number fields (I can easily get from the PO) of the search fields, this will allow the user to just click the go button.
Is it possible using the function FND_RUN_FUNCTION.get_run_function_url and passing parameters (field values) or setting the URL to JSP:/OA_HTML/OA.jsp?OAFunc=ICX_PO_REVISIONS&akRegionApplicationId=177&addBreadCrumb=Y&CorePO=Y and then passing the parameters?
How would you achieve this if possible, call the page and populate the search field values? It does not seem to work, I have been able to pass paramaters to an OAF page that does not contain a simple search region to return results.
Function paramaters:
FND_RUN_FUNCTION.get_run_function_url (
p_function_id => 3101,
p_resp_appl_id => 201,
p_resp_id => 50598, -- MS Purcahsing Superuser
p_security_group_id => 0,
p_parameters => 'PoNum=' || l_document_id || '&' || 'retainAM=Y' || '&' || 'addBreadCrumb=Y',
p_override_agent => NULL,
p_org_id => 101,
p_lang_code => NULL,
p_encryptParameters => FALSE);
Thanks,
ShaunWhat I found is there are 2 variables SiteName and SiteName1, if you use SiteName1 then it shows proper value as a site description. I replaced SiteName with SiteName1 and it works. This might help to all who are like me and trying Tutorial example.
I am not sure how many may have tried OAF - Tutorial examples. They are really complicated and not easy and in most cases they are not coming out in first try but if you really try then it will give lot of understanding. -
Unable to view purchase orders in SNC for the supplier
Hi folks,
iam facing the problem of unable to view purchase orders in the supplier portal for my supplier.
ECC 6.0, PI 7.0, SCM 5.0 are the systems being used.
scenario is like :
for plant 1000, purchase order is created on vendor 1100 and idoc sent to PI successfully
also in PI in the integration builder i find messages saying successfully sent to SCM system
SLG1 transaction in SCM says message received successfully, (in the log i can see the plant, supplier, order no and order details)
when i try to login to supplier view with supplier login, iam unable to view the orders,
please let me know if iam missing any thing in this regard.
cheers.Hi Kiran
Could you check queues
smq1 and smq2 ????
Does your xml posted successfully in SNC(SXI_MONITOR)... Can you open the payload document
inbound message-payloads-maindocument
Check thoroughly whether any error information ????
Check whether commit of xml is proper, or else refresh PI cache
For your internet user and the xml rfc user(user who is pushing the data into SNC), check whether any update errors are available in so01(inbox)
It could be a temporary problem, deactivate activate your supplier service in SICF. Could be problem with binding issue
Just to make sure data is sitting in SNC
Check this table
/1OM/ORDR7MP3100
Give your po number in field order no
If you find, then it is problem with binding...If you dont find, then the xml update process has issue
Kindly let us know the results
Best Regards
Vinod
Best Regards
Vinod -
Unable to view Purchase order in Receiving Transactions
I am unable to view Purchase Orders in OPM (Recieving transactions- when i query up my Receipt transactions)
I want to be able to View the PO by going to Tools -> View Purchase OrdersHi,
I believe you are missing a sub-menu which facilitates to open the purchase order on the the responsibility menu you are working with. This is the cause for the issue I guess.
Please refer the below note:
Receiving Transactions Summary - View Accounting - Function Not Available To This Responsibility (Doc ID 865884.1)
Note: In the above note, when trying tools > View accounting in the same form the user get the same issue. Similarly as solution proposed by the note, adding the missing sub menu to the menu will allow you to view the purchase order.
Please add the purchase order view sub menu on the responsibility menu you are working with and check if the issue is solved.
Please try this in your test Server and migrate the solution to the PROD.
Hope this helps!
Best Regards -
View "Purchase Order Text" in Material Master
Hi,
I need replicated text of view "Purchase Order Text" in ECC to Material Master in SRM.
Or When We create a shopping cart in the way in which the text replicated "Purchase Order Text" from the the Material Master(ECC).
Regards
AngieFor Purchase Order text in Material Master:
use this code for Purchase Order text,
DATA: l_lsize(3) TYPE n VALUE '132'.
DATA: lwa_tline TYPE tline,
lwa_thead TYPE thead,
lwa_valid TYPE ty_input(flat file data),
lwa_temp TYPE ty_input.
DATA: lit_tline TYPE STANDARD TABLE OF tline.
lwa_thead-tdobject = 'MATERIAL'.
lwa_thead-tdid = 'BEST'.
lwa_thead-tdspras = 'E'.
lwa_thead-tdlinesize = l_lsize.
LOOP AT pu_it_valid INTO lwa_valid.
lwa_temp = lwa_valid.
AT NEW matnr.
CLEAR: lwa_thead-tdname,
lwa_tline-tdformat.
lwa_thead-tdname = lwa_temp-matnr.
ENDAT.
IF lwa_tline-tdformat IS INITIAL.
lwa_tline-tdformat = ' \ '.
ELSE.
lwa_tline-tdformat = '='.
ENDIF.
CLEAR lwa_tline-tdline.
lwa_tline-tdline = lwa_valid-text_line.
APPEND lwa_tline TO lit_tline.
AT END OF matnr.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
client = sy-mandt
header = lwa_thead
insert = c_x
savemode_direct = c_x
TABLES
lines = lit_tline
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc = 0.
REFRESH lit_tline.
ENDIF.
ENDAT.
CLEAR: lwa_temp,
lwa_valid.
ENDLOOP. -
"In FBL5N unable to view purchase order number and the sales order number"
Hi,
Below mentioned is the problem we are facing,
In the Customer Line Item Display (FBL5N) it is vital for us to be able to view the customer's purchase order number as well as the sales order number for each billing document listed by customer.
We need to be able to extract this information for each customer and import to an excel spread sheet for analysis, specifically for our larger customers that have over 500 plus lines.
Kindly advise how to go about the same.
Regards
HarishDear,
Please also check note 152335. There, you will find a more detailed
explanation of the issue.
The only way to see some information regarding related PO-es in a Vendor
line items is a workaround. For example, it is possible to create
a substitution in order to fill in one of not currently used fields
like Reference, Text, etc.
I hope this helps You.
mauri -
How to view purchase order output
Hi all,,
am an ABAPer..
i have an issue with the purchase order...
But before that, how to view the output of the purchase order..
from transaction me23n..
please let me know the procedure..
thanks in adv..You can get the output from ME23n. You need to go in Change Mode (=ME22n) for the output. If it is SRM PO then you need to go the section of 'Process Purchase Order' and there you can generate the output. 'Process Purchase Order' will be available with the role of Operational Purchaser or Strategic Purchaser role.
Reward points for helpfull answers.
Regards, Satya -
T. Code to view Purchase Order and posted Accounting Document
Hi,
Is there any single SAP standard T.Code from which I can get Accounting Document(posted) and its Purchase Order No.
Dont sent any Table name plz.
Regards,
Vivek KumarRun Standard Reports with Scope of List : ALLES
ME2M Material Wise report
ME2N PO Number wise Report
ME2L Vendor Wise report
You can also Check MB51 / MR51 Reports.
Regards,
Ashok -
How to view purchase orders by posting date.
Hi,
I am trying to review what purchase orders were received in 2007 but were created in 2006, it appears that it has to have the delivery line in the purchase order set to 2007, rather than using the posting date.
Can anyone suggest any other reports than ME2LHi,
There is one way that might work but it all depends on whether you use internal numbering for your POs? (most people do).
Just find out the largest PO number raised in 2006 (from EKKO in SE16N or similar.
Then use MB51 to look at all 101 postings for 2007. When you get the list, click on the "detail list" icon (the one that looks like a spreadsheet with the first column in blue.
Then when the detail list is displayed clcik on Settings > display variant > current and add in the PO number to the display. Then you can filter out all of the POs with a number less than the first PO number used this year.
Viola, you have your list !
Steve B -
Text Printing in Purchase Order SapScript
Hi Abapers,
I am chaniging an existing SapScript that was not working properly. Client wants to print "Item Text" in output which is of 3 to 4 page. where as there is only one line item in PO. Also there is "Header Text" of 1 page. Client wants to display all line items then "Item Text" should displayed. and at last the "eader Text". The Format is Like as Follows:-
PO No. 12.12.2006
Vendor Name
Country
S.No. Mat. Desc. Qty. ...............and so on..........
1 abc 11 .....................
Item Text starts from here........................
Problem is here
This text is of 3 page (say).
So text starts from here and est of text goes to next page.
Only 4 Lines are printed properly and rest of lines are not printed.
I also checked in debuging mode.
so attachibng the code for reference kindly go through this.
Header Text Starts from here
Total amt. in words......
*******************************8Code**************************************
IF &NEXTPAGE& EQ 0
PROTECT
PERFORM READ_TEXTS IN PROGRAM ZPERFORMS_ZMEDRUCK1
USING &EKKO-EBELN&
CHANGING &WRK_IT1&
CHANGING &WRK_IT2&
CHANGING &WRK_IT3&
CHANGING &WRK_IT4&
CHANGING &WRK_IT5&
CHANGING &WRK_IT6&
CHANGING &WRK_IT7&
CHANGING &WRK_IT8&
CHANGING &WRK_IT9&
CHANGING &WRK_IT10&
CHANGING &WRK_IT11&
CHANGING &WRK_IT12&
ENDPERFORM
PROTECT
IF &WRK_IT1& NE ' '
<S>&WRK_IT1&</>
ENDIF
IF &WRK_IT2& NE ' '
<S>&WRK_IT2&</>
and so on..............
then i also go to the Calling program.
FORM READ_TEXTSLO1 TABLES IN_TAB200 STRUCTURE ITCSY
OUT_TAB200 STRUCTURE ITCSY.
READ TABLE IN_TAB200 INDEX 1.
EBELN1 = IN_TAB200-VALUE.
READ TABLE IN_TAB200 INDEX 2.
EBELP = IN_TAB200-VALUE.
CONCATENATE EBELN1 EBELP INTO OBJNAME.
CLEAR WRK_IT1.
CLEAR WRK_IT2.
CLEAR WRK_IT3.
CLEAR WRK_IT4.
CLEAR WRK_IT5.
CLEAR WRK_IT6.
CLEAR WRK_IT7.
CLEAR WRK_IT8.
CLEAR WRK_IT9.
CLEAR WRK_IT10.
CLEAR WRK_IT11.
CLEAR WRK_IT12.
CLEAR WRK_IT13.
CLEAR WRK_IT14.
CLEAR WRK_IT15.
CLEAR WRK_IT16.
CLEAR WRK_IT17.
CLEAR WRK_IT18.
CLEAR WRK_IT19.
CLEAR WRK_IT20.
CLEAR WRK_IT21.
CLEAR WRK_IT22.
CLEAR WRK_IT23.
CLEAR WRK_IT24.
CLEAR WRK_IT25.
CLEAR WRK_IT26.
CLEAR WRK_IT27.
CLEAR WRK_IT28.
CLEAR WRK_IT29.
CLEAR WRK_IT30.
CLEAR WRK_IT31.
CLEAR WRK_IT32.
CLEAR WRK_IT33.
CLEAR WRK_IT34.
CLEAR WRK_IT35.
CLEAR WRK_IT36.
CLEAR WRK_IT37.
CLEAR WRK_IT38.
CLEAR WRK_IT39.
CLEAR WRK_IT40.
CLEAR WRK_IT41.
CLEAR WRK_IT42.
CLEAR WRK_IT43.
CLEAR WRK_IT44.
CLEAR WRK_IT45.
CLEAR WRK_IT46.
CLEAR WRK_IT47.
CLEAR WRK_IT48.
CLEAR WRK_IT49.
CLEAR WRK_IT50.
CLEAR WRK_IT51.
CLEAR WRK_IT52.
CLEAR WRK_IT53.
CLEAR WRK_IT54.
CLEAR WRK_IT55.
CLEAR WRK_IT56.
CLEAR WRK_IT57.
CLEAR WRK_IT58.
CLEAR WRK_IT59.
CLEAR WRK_IT60.
CLEAR WRK_IT61.
CLEAR WRK_IT62.
CLEAR WRK_IT63.
CLEAR WRK_IT64.
CLEAR WRK_IT65.
CLEAR WRK_IT66.
CLEAR WRK_IT67.
CLEAR WRK_IT68.
CLEAR WRK_IT69.
CLEAR WRK_IT70.
CLEAR WRK_IT71.
CLEAR WRK_IT72.
CLEAR WRK_IT73.
CLEAR WRK_IT74.
CLEAR WRK_IT75.
CLEAR WRK_IT76.
CLEAR WRK_IT77.
CLEAR WRK_IT78.
CLEAR WRK_IT79.
CLEAR WRK_IT80.
break abap7.
ITEM TEXT.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F01'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F01'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
delete it_line where tdline EQ ' '.
BREAK ABAP7.
DESCRIBE TABLE it_line LINES wrk_lines1.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
Y = STRLEN( WRK_TDLINE ).
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 100
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*break abap7.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT1 = OUT_LINE1.
WHEN 2 .
WRK_IT2 = OUT_LINE1.
WHEN 3 .
WRK_IT3 = OUT_LINE1.
WHEN 4 .
WRK_IT4 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT4 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it4 = out_line1. " Change Uncommented"
WRK_ITA = OUT_LINE1.
WRK_ITA4 = OUT_LINE2.
ELSE.
WRK_ITA = WRK_TDLINE.
ENDIF.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT1.
MODIFY OUT_TAB200 INDEX 1 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT2.
MODIFY OUT_TAB200 INDEX 2 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT3.
MODIFY OUT_TAB200 INDEX 3 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT4.
MODIFY OUT_TAB200 INDEX 4 TRANSPORTING VALUE.
ENDIF.
break abap7. """"""""""""""""""''
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F02'.
IF SY-SUBRC = 0.
break abap7. """"""""""""""""""''
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F02'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
DESCRIBE TABLE it_line LINES wrk_lines2.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT5 = OUT_LINE1.
WHEN 2 .
WRK_IT6 = OUT_LINE1.
WHEN 3 .
WRK_IT7 = OUT_LINE1.
WHEN 4 .
WRK_IT8 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT8 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it8 = out_line1.
WRK_ITB = OUT_LINE1.
WRK_ITB8 = OUT_LINE2.
ELSE.
WRK_ITB = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
MODIFY OUT_TAB200 INDEX 5 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT6.
MODIFY OUT_TAB200 INDEX 6 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT7.
MODIFY OUT_TAB200 INDEX 7 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT8.
MODIFY OUT_TAB200 INDEX 8 TRANSPORTING VALUE.
ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F03'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F03'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT9 = OUT_LINE1.
WHEN 2 .
WRK_IT10 = OUT_LINE1.
WHEN 3 .
WRK_IT11 = OUT_LINE1.
WHEN 4 .
WRK_IT12 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT12 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it12 = out_line1.
WRK_ITC = OUT_LINE1.
WRK_ITC12 = OUT_LINE2.
ELSE.
WRK_ITC = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT9.
MODIFY OUT_TAB200 INDEX 9 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT10.
MODIFY OUT_TAB200 INDEX 10 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT11.
MODIFY OUT_TAB200 INDEX 11 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT12.
MODIFY OUT_TAB200 INDEX 12 TRANSPORTING VALUE.
ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F04'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F04'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT13 = OUT_LINE1.
WHEN 2 .
WRK_IT14 = OUT_LINE1.
WHEN 3 .
WRK_IT15 = OUT_LINE1.
WHEN 4 .
WRK_IT16 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT16 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it16 = out_line1.
WRK_ITD = OUT_LINE1.
WRK_ITD16 = OUT_LINE2.
ELSE.
WRK_ITD = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT13.
MODIFY OUT_TAB200 INDEX 13 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT14.
MODIFY OUT_TAB200 INDEX 14 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT15.
MODIFY OUT_TAB200 INDEX 15 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT16.
MODIFY OUT_TAB200 INDEX 16 TRANSPORTING VALUE.
ENDIF.
ENDIF.
CLEAR IT_LINE.
REFRESH IT_LINE.
SELECT SINGLE TDNAME INTO WRK_TDNAME FROM STXH
WHERE TDOBJECT = 'EKPO'
AND TDNAME = OBJNAME
AND TDID EQ 'F05'.
IF SY-SUBRC = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F05'
LANGUAGE = 'E'
NAME = OBJNAME
OBJECT = 'EKPO'
TABLES
LINES = IT_LINE.
IF SY-SUBRC = 0.
LOOP AT IT_LINE.
CLEAR WRK_TABIX.
WRK_TABIX = SY-TABIX.
IF WRK_TDLINE EQ ' '.
WRK_TDLINE = IT_LINE-TDLINE.
ELSE.
CONCATENATE WRK_TDLINE IT_LINE-TDLINE INTO WRK_TDLINE.
ENDIF.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE WRK_TABIX.
WHEN 1 .
WRK_IT17 = OUT_LINE1.
WHEN 2 .
WRK_IT18 = OUT_LINE1.
WHEN 3 .
WRK_IT19 = OUT_LINE1.
WHEN 4 .
WRK_IT20 = OUT_LINE1.
ENDCASE.
IF OUT_LINE3 EQ ' '.
WRK_TDLINE = OUT_LINE2.
ELSE.
CONCATENATE OUT_LINE2 OUT_LINE3 INTO WRK_TDLINE
SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
IF WRK_IT20 NE ' '.
Y = STRLEN( WRK_TDLINE ).
IF Y GT 50.
CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = WRK_TDLINE
DELIMITER = ' '
OUTPUTLEN = 50
IMPORTING
OUT_LINE1 = OUT_LINE1
OUT_LINE2 = OUT_LINE2
OUT_LINE3 = OUT_LINE3
OUT_LINE3 =
TABLES
OUT_LINES =
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
wrk_it20 = out_line1.
WRK_ITE = OUT_LINE1.
WRK_ITE20 = OUT_LINE2.
ELSE.
WRK_IT20 = WRK_TDLINE.
ENDIF.
ENDIF.
CLEAR WRK_TDLINE.
CLEAR OUT_LINE1.
CLEAR OUT_LINE2.
CLEAR OUT_LINE3.
OUT_TAB200-VALUE = WRK_IT17.
MODIFY OUT_TAB200 INDEX 17 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT18.
MODIFY OUT_TAB200 INDEX 18 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT19.
MODIFY OUT_TAB200 INDEX 19 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_IT20.
MODIFY OUT_TAB200 INDEX 20 TRANSPORTING VALUE.
ENDIF.
ENDIF.
OUT_TAB200-VALUE = WRK_ITA.
MODIFY OUT_TAB200 INDEX 81 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITB.
MODIFY OUT_TAB200 INDEX 82 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITC.
MODIFY OUT_TAB200 INDEX 83 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITD.
MODIFY OUT_TAB200 INDEX 84 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITE.
MODIFY OUT_TAB200 INDEX 85 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITA4.
MODIFY OUT_TAB200 INDEX 86 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITB8.
MODIFY OUT_TAB200 INDEX 87 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITC12.
MODIFY OUT_TAB200 INDEX 88 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITD16.
MODIFY OUT_TAB200 INDEX 89 TRANSPORTING VALUE.
OUT_TAB200-VALUE = WRK_ITE20.
MODIFY OUT_TAB200 INDEX 90 TRANSPORTING VALUE.
CLEAR IT_LINE.
REFRESH IT_LINE.
ENDFORM. "read_textslo1
So kindly review this and let me know what should i do ?
Helpful answer rewarded.
Regards
RobinIt is very confusing to read your code. If possible please post it in
block formatted properly.
If I read it right, looks like you have your texts in PROTECT ENDPROTECT block. If that is the case, then your text will not be written in multiple pages because the PROTECT ENDPROTECT statements will try to fit all the text on one page.
Hope that helps.
Regards,
-Ramesh -
Purchase order sapscript version number
Hi friends,
I am customizing a medruck sapscript form. One of my requirements is to get the version number on the form when it is changed. Can you tell me what field gives the version number of the form? I tried with 'revno' field but no luck!
Thank you very much,
KrishenThanks Ferry. I think this example works for smartform.
Can you guys tell me what is the significance of field 'revno' ? I am guessing that SAP may provide some field for this purpose in sapscript. Is there any simpler way for this purpose?
Thank you very much again.
Message was edited by:
Krishen 81 -
Purchase Order SAPscript - Looping problem.
Dear Friends,
I am using a PO Z-form which is a copy of MEDRUCK and print program is Standard SAPLMEDRUCK Program.
I have got a Scenario something like this.
I have to display some classification details of material ( from material master ) in PO.
A material will have 2 or 3 Classes, Each class has got some details.
I have to loop for each class and display the details.
Since I am using Standard Print Program, I Can't Change that.
Is there any workaround method for the above requirement.
Regards,
Hari.Hi Hari,
There is not need to use that WRITE_FORM FM,
Instead write the PERFORM statement in the window where you need to display the classification values and after immediately give the variables which holds the classification values.
Example
/:PERFORM GET_COMCODE IN PROGRAM ZM_RFQ_REJECTION
/:USING &EKKO-BUKRS&
/:USING &EKKO-SPRAS&
/:CHANGING &SADR-NAME1&
/:CHANGING &SADR-NAME2&
/:CHANGING &SADR-NAME3&
/:CHANGING &SADR-PSTLZ&
/:CHANGING &SADR-NAME4&
/:ENDPERFORM
B &SADR-NAME1&,, &SADR-NAME2&,,&SADR-NAME3&,, &SADR-PSTLZ&,, &SADR-NAME4&
as in above example you pass the Material no in USING field and in CHANGING fields DEFINE variables for classification and pass
Regards
Bala Krishna -
Hi,
what are the purpose of Basic data text (view "Basic data 1"), Purchase order text (view "Purchase order text" ), from the menu Edit, Long Text, Create Text?
Best regardsBasic data text:
You can use this text as you like, for example, to store additional, general information on the material
If a text has not yet been maintained, the system creates a blank text in the logon language. If you want to create a text in another language, choose Create text and specify the language in the dialog box that appears. Then enter your text as required. For more word-processing functions, choose Editor to enter your text in SAPscript. For information on how to use SAPscript, see the SAP library documentation .
Purchase order text:
A purchase order text is a text describing the material in more detail. This text is subsequently copied to purchasing documents (such as purchase requisitions or purchase orders) automatically, where you can change it if necessary. It is valid for all organizational levels, not for a specific plant. You can enter a purchase order text in the material master record in as many languages as you like, though only one text is allowed per language -
The long text for purchase order text field in mm03
Hi,
Please provide me long text for purchase order field.in mm03 the view purchase order text having the long text for purchase order.this is enter when ever your creating the material.but we have table and field name for that and also how to handle this long text.please provide me urgently.
Thanks & Regards,
Radhakrishna.Hi,
A sample code for ur requirement.
TABLES : ekko, "Purchasing Document Header
ekpo, "Purchasing Document Item
thead. "SAPscript: Text Header
DATA: t_theads LIKE stxh OCCURS 0 WITH HEADER LINE.
DATA: t_tlines LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: v_ebeln_ebelp(15) TYPE c.
TYPES: BEGIN OF t_download,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
tdobject LIKE stxh-tdobject,
tdid LIKE stxh-tdid,
tdspras LIKE stxh-tdspras,
count(4) TYPE c,
tdformat LIKE tline-tdformat,
tdline LIKE tline-tdline,
END OF t_download.
TYPES: BEGIN OF t_header,
line1(20) TYPE c,
line2(20) TYPE c,
line3(20) TYPE c,
line4(10) TYPE c,
line5(10) TYPE c,
line6(10) TYPE c,
line7(10) TYPE c,
line8(10) TYPE c,
END OF t_header.
DATA: g_filename TYPE string.
DATA: gt_header TYPE STANDARD TABLE OF t_header.
DATA: gs_header TYPE t_header.
DATA: gt_download TYPE STANDARD TABLE OF t_download.
DATA: gs_download TYPE t_download,
gt_tlines LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: v_subrc TYPE subrc.
DATA: v_nb_lines TYPE i.
DATA: v_ok TYPE i.
DATA: v_ko TYPE i.
DATA: v_ow TYPE i.
DATA: p_fname TYPE string.
DATA: g_append.
SELECTION SCREEN *
SELECT-OPTIONS : s_ebeln FOR ekko-ebeln.
PARAMETERS:
p_filedn(132) TYPE c OBLIGATORY,
p_file(132) TYPE c OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_filedn.
PERFORM file_f4_get CHANGING p_filedn.
START-OF-SELECTION.
*Select all the purchase order corresponding to select criteria
CLEAR t_theads. REFRESH t_theads.
SELECT *
FROM ekko
WHERE ebeln IN s_ebeln.
*Select all the text for P.O. header
SELECT * FROM stxh
APPENDING TABLE t_theads
WHERE tdobject = 'EKKO'
AND tdname = ekko-ebeln.
*Select Item of each P.O.
SELECT *
FROM ekpo
WHERE ebeln = ekko-ebeln.
CONCATENATE ekpo-ebeln ekpo-ebelp
INTO v_ebeln_ebelp.
*Select the text for P.O. item.
SELECT * FROM stxh
APPENDING TABLE t_theads
WHERE tdobject = 'EKPO'
AND tdname = v_ebeln_ebelp.
ENDSELECT. "select ekpo
ENDSELECT. "select ekko
DESCRIBE TABLE t_theads LINES v_nb_lines.
LOOP AT t_theads.
Read the text from pool
CLEAR thead.
REFRESH t_tlines.
CALL FUNCTION 'READ_TEXT' "#EC *
EXPORTING
id = t_theads-tdid
language = t_theads-tdspras
name = t_theads-tdname
object = t_theads-tdobject
IMPORTING
header = thead
TABLES
lines = t_tlines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
MOVE-CORRESPONDING thead TO gs_download.
gs_download-ebeln = thead-tdname+0(10).
IF thead-tdobject = 'EKPO'.
gs_download-ebelp = thead-tdname+10(5).
ENDIF.
gs_download-count = 0.
LOOP AT gt_tlines.
gs_download-tdformat = gt_tlines-tdformat.
gs_download-tdline = gt_tlines-tdline.
gs_download-count = gs_download-count + 1.
APPEND gs_download TO gt_download.
ENDLOOP.
CLEAR gs_download.
ENDLOOP.
END-OF-SELECTION.
Hope this helps.
please reward points if useful.
Regards
rose
Maybe you are looking for
-
I accidently created two icloud accounts when setting it up on my iPad. When I opened Pages, the documents on my iPad were moved up to account1. I realized what I had done and then set up account2, which is the one I really need to work with for al
-
Windows xp keeps turning wireless zero config.off
I have a new Toshiba PC which was working well until I connected a purchased/used Ipod mini to it in order to restore it. Since then, this PC has been turning the Wireless Zero Config service off and not connecting to our Airport Extreme. If I restar
-
Failed emails saving in different location
Hey everyone, I have an issue with a client's Outlook. When he replies to an email from a sub folder and the email fails, a copy is not placed in sent items however there is one attached to the original email in the sub folder. 'When replying to a me
-
Dear Sirs/Madames, When rendering a film which is comprised completely of QuickTime Movies 960 x 540(Codec: Integer(Little Endian)Timecode, Apple Intermediate Codec), I'm finding that colour corrections to text are losing their saturation and strengt
-
Can not sign in to Verizon Cloud on iPad mini
I tried at least 10 times to sign in to Verizon Cloud via my iPad mini and i get the same error message consistently: After selecting what I want to backup I get a message: Something Went Wrong There was a problem when you signed in Please wait a mom