Confirmation long text deletion
Operation 010 is confirmed by the user with confirmation text (long text )which is incorrect ,now without reversing/cancelling the confirmation need to delete this confirmation text /long tex.t IW43 displayPM order confirmation screen.Need to know how it can be done any suggestion.
Hi,
it is not possible to delete and change the long textof confirmation through standard without any custom development. You will have to reverse the confirmation and re-enter the confirmation.That would be the easiest way to do this.
Regards
Narasimhan
Similar Messages
-
Service master Long Text Deletion
Hi All,
In AC02 when i am trying to delete the long text maintained for service master using the "Delete long text", system is giving error TD600: Text XXXXX( Service Numbaer) ID LTXT language EN not found".
We are using ECC 6.0. Any idea why this is happening?
PRegards,
PrashantHi Ramakrishna,
Thanks for the reply.
I have checked the settings and both the settings are maintained for both texts. But the problem persists. If you have ecc 6.0 available, can you check if you are getting the same error.
Prashant -
Update Time confirmation and Long text of Work Order in single FM or BAPI
Hi,
I would like to know, which standard FM or BAPI will update the longtext along with the confirmation text while doing the time confirmation of a work order.
I have tried with standard BAPI BAPI_ALM_CONF_CREATE for updating the time confirmation. This is updating the time and confirmation text properly but not the long text. I would like to know how can I update the long text while doing the time confirmation. Is there any other standard FM/BAPI will update both?
Thanks in Advance,
Mohan.There is no standard SAP enhancement we can use for this purpose.
We have developed another program to maintian the long text in production order.
This call can be closed.
Cheers,
Qiang -
Delta DTP cannot currently be deleted (see long text)
I deleted all the requests..actually there is no data in the write DSO and I have not loaded the cube...I want to delete the DTP and create a new one.
Delta DTP cannot currently be deleted (see long text)
Message no. RSBK037
Diagnosis
You want to delete a delta DTP that has been successfully used to load requests from the source into the target. If you delete the DTP, you will also delete the information on the source data that was successfully transferred. As a result the source data would be transferred again, if you create a new delta DTP that links the same source with the same target.
System Response
The system terminated the delete operation.
Procedure
You have two options:
1. Delete all the requests loaded with this DTP from the target and then delete the DTP.
2. Do not delete the DTP and continue to load deltas using this DTP.That depends is your prod system open to create Infopackages & DTP if so you can do that..but this may require a change in the Process Chain as well to change the DTP if at all a process chain exists for the same.
-
Populate long text in the 'Confirm. text' of the confirmation data
In our requirement, we are able to create an order confirmation using RFC 'BAPI_ALM_CONF_CREATE' (plant maintenence) but we are not finding anyway to populate the long text OF 'Confirm. text' of the the confirmation(transaction IW41). Please suggest how to populate Long text. in 'Confirm. text' using any RFC or thrugh 'BAPI_ALM_CONF_CREATE' .
Edited by: Rohit Kumar on Oct 7, 2008 3:25 PMV_OBJ = SY-MANDT.
SELECT SINGLE RUECK RMZHL INTO (V_RUECK, V_RMZHL) FROM AFRU WHERE AUFNR EQ Order_No AND GRUND = 'WORK'.
CONCATENATE V_OBJ V_RUECK V_RMZHL INTO V_OBJ.
l_header-tdobject = 'AUFK'.
l_header-tdname = V_OBJ.
l_header-tdid = 'RMEL'.
l_header-tdspras = 'EN'.
if strlen( TEXT ) GT 40.
update AFRU set TXTSP ='E' WHERE AUFNR EQ Order_No.
endif.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = l_header
INSERT = 'X'
SAVEMODE_DIRECT = 'X'
TABLES
LINES = t_textlines.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
name = V_OBJ
savemode_direct = 'X'.
CLEAR : V_RUECK, V_RMZHL, V_OBJ , L_HEADER.
Here, t_textlines is a long text( set of lines in th elong text) -
Hello
We are using SRM7 Extended classic scenario.
We don't use shopping carts, rather create POs directly in SRM which will be transferred to ECC as per the standard.
Error:
I am getting an error "Error while saving Long Texts" during my PO creation. I get this message in a small pop-up screen. As soon as i click ok or close the pop up screen it kicks me out of the PO creation screen back into the main SRM screen.
When:
During the PO Creation
Any specific situation:
Yes, only for Material POs
This is happening when I am creating the PO with a Material code. I can create free text PO without any issues.
This is a standard message and the message number is 022.
Thaks for the help guys.Hi,
To confirm can you check commeting "getOADBTransaction().commit();" gives any error message?
If yes then you can try the following option:
Have you checked whether the "/" is changed to "\" in the dbc file?
In the following two entries the slash has to be made as shown below:
APPS_JDBC_URL=jdbc\:oracle\:thin\:@(DESCRIPTION\=(ADDRESS_LIST\=(LOAD_BALANCE\=YES)(FAILOVER\=YES)(ADDRESS\=(PROTOCOL\=tcp)(HOST\=10.100.503.6)(PORT\=1521)))(CONNECT_DATA\=(SERVICE_NAME\=VIS)))
JDBC\:processEscapes=true
Thanks and Regards,
Lacman -
Download to excel - long text in single row using gui_download
Hi Experts,
I want to download the long text (read_text) (500-600 characters) to excel in single row. the column width should be 60.
i am using the gui_download FM as in my report i m using one gui_download for header data and 2nd one for details using APPEND . Can u suggest me the solutions for the same. Can i use word wrap option and if yes , then how to use it?
For eg.
Customer Satisfaction
There are no escalations / adverse feedback from the customer
Customer uses him/her for benchmarking others
Regular status update to customer
Proactively understands future needs of customer
Increases customer's confidence so that there is an increase in quality / quantity of work
This whole text should appear as single row.
Thanks,
Edited by: Khushi p on Nov 12, 2010 10:44 AMI tried alot to put this in a legible format by usingcode...code but still it is not putting the code in a correct format.May be some mentor will put it in a good format so that you can understand.Below is a wraper progrm which meets your objective.
REPORT ZSCRATCHPAD.
TABLES:EKPO.
TYPE-POOLS:slis.
TYPES : BEGIN OF ty_ekpo,
ebeln TYPE ekko-ebeln,
ebelp TYPE ekpo-ebelp,
txz01 TYPE ekpo-txz01,
matnr TYPE ekpo-matnr,
werks TYPE ekpo-werks,
loekz TYPE ekpo-loekz,
oic_ptrip TYPE ekpo-oic_ptrip,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
umrez TYPE ekpo-umrez,
umren TYPE ekpo-umren,
text TYPE string,
END OF ty_ekpo.
TYPES : BEGIN OF ty_text ,
tdformat TYPE tline-tdformat,
tdline TYPE tline-tdline,
END OF ty_text.
data: g_t_ekpo TYPE STANDARD TABLE OF ty_ekpo WITH HEADER LINE,
g_repid TYPE sy-repid,
g_ebeln(15),
l_fieldname1 LIKE ibipparms-path,
l_fieldname2 TYPE string,
g_objectid LIKE cdhdr-objectid,
g_t_text TYPE STANDARD TABLE OF ty_text WITH HEADER LINE,
g_t_text1 TYPE STANDARD TABLE OF ty_text WITH HEADER LINE.
data:g_fieldcat type slis_t_fieldcat_alv with header line,
g_events type slis_t_event,
wa_events like line of g_events,
g_listheader type slis_t_listheader,
walistheader like line of g_listheader,
g_layout type slis_layout_alv,
g_top type slis_formname,
g_sort type slis_t_sortinfo_alv with header line,
g_sort1 type slis_sortinfo_alv,
g_printparams type slis_print_alv,
g_variant type disvariant,
g_title type lvc_title,
g_excluding type slis_t_extab,
g_grid TYPE REF TO cl_gui_alv_grid.
field-symbols: <fs> type lvc_title.
SELECT-OPTIONS:P_EBELN FOR EKPO-EBELN NO INTERVALS.
PARAMETERS:p_r1 radiobutton group grp1,
p_r2 radiobutton group grp1.
SELECT ebeln
ebelp
txz01
matnr
werks
loekz
oic_ptrip
menge
meins
umrez
umren
INTO TABLE g_t_ekpo
FROM ekpo
WHERE ebeln IN p_ebeln
AND loekz NE 'L'.
IF sy-subrc <> 0.
CLEAR g_t_ekpo.
ENDIF.
define m_fieldcat.
g_fieldcat-fieldname = &1.
g_fieldcat-col_pos = &2.
g_fieldcat-seltext_l = &3.
g_fieldcat-do_sum = &4.
g_fieldcat-outputlen = &5.
g_fieldcat-checkbox = &6.
append g_fieldcat to g_fieldcat.
clear g_fieldcat.
end-of-definition.
if p_r1 = 'X'.
PERFORM summary_display.
else.
perform download.
endif.
FORM summary_display .
concatenate 'Test' ' ' into g_title separated by space.
assign g_title to <fs>.
g_repid = sy-repid.
m_fieldcat 'EBELN' '' 'EBELN' '' 10 ''.
m_fieldcat 'EBELP' '' 'EBELP' '' 05 ''.
m_fieldcat 'TXZ01' '' 'TXZ01' '' 40 ''.
m_fieldcat 'MATNR' '' 'MATNR' '' 10 ''.
m_fieldcat 'WERKS' '' 'WERKS' '' 04 ''.
m_fieldcat 'LOEKZ' '' 'LOEKZ' '' 01 ''.
m_fieldcat 'OIC_PTRIP' '' 'OIC_PTRIP' '' 16 ''.
m_fieldcat 'MENGE' '' 'MENGE' '' 13 ''.
m_fieldcat 'MEINS' '' 'MEINS' '' 03 ''.
m_fieldcat 'UMREZ' '' 'UMREZ' '' 05 ''.
m_fieldcat 'UMREN' '' 'UMREN' '' 05 ''.
g_layout-zebra = 'X'.
g_layout-colwidth_optimize = 'X'.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = g_repid
* i_callback_pf_status_set = 'SET_PF_STATUS'
is_layout = g_layout
i_callback_user_command = 'LIST1'
i_grid_title = <fs>
* i_callback_top_of_page = ' '
it_fieldcat = g_fieldcat[]
* it_excluding = g_excluding
i_save = 'A'
* is_variant = ITVARIANT
it_events = g_events[]
* is_print = ITPRINTPARAMS
* it_sort = itsort[]
tables
t_outtab = g_t_EKPO[]
exceptions
program_error = 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.
clear:g_fieldcat.
refresh:g_fieldcat.
ENDFORM. " summary_display
form list1 using r_ucomm like sy-ucomm rs_selfield type slis_selfield.
case r_ucomm.
when '&IC1'.
REFRESH g_t_text.
if rs_selfield-fieldname = 'EBELN'.
READ TABLE g_t_ekpo INDEX rs_selfield-tabindex.
CONCATENATE g_t_ekpo-ebeln g_t_ekpo-ebelp INTO g_ebeln. "CRQ94538-Capture text
SHIFT g_ebeln LEFT DELETING LEADING space.
PERFORM read_text USING g_ebeln g_t_text[].
IF g_t_text[] IS NOT INITIAL.
PERFORM pop_up_with_table .
ENDIF.
endif.
when 'OTHERS'.
leave to screen 0.
endcase.
endform. "list1
FORM read_text USING p_ebeln p_t_itab LIKE g_t_text1[].
PERFORM fill_readtext USING p_ebeln 'EKPO' 'F01' p_t_itab.
ENDFORM. " f0008_read_text
FORM fill_readtext USING p_vbeln
p_object
p_textid
pt_itab LIKE g_t_text[] .
DATA: ls_itab LIKE LINE OF g_t_text,
l_header LIKE thead,
l_tdname LIKE thead-tdname.
CLEAR pt_itab.
REFRESH pt_itab.
MOVE p_vbeln TO l_tdname.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = p_textid
language = sy-langu
name = l_tdname
object = p_object
IMPORTING
header = l_header
TABLES
lines = pt_itab
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
endform. "fill_readtext
FORM pop_up_with_table .
CALL FUNCTION 'POPUP_WITH_TABLE'
EXPORTING
endpos_col = 82
endpos_row = 20
startpos_col = 10
startpos_row = 10
titletext = ' '
TABLES
valuetab = g_t_text
EXCEPTIONS
break_off = 1
OTHERS = 2.
IF sy-subrc NE 0.
CLEAR g_t_text.
ENDIF.
ENDFORM. " f4000_pop_up_with_table
FORM download .
if g_t_ekpo[] is not initial.
loop at g_t_ekpo.
* concatenate text-001 g_t_ekpo-matnr into g_t_ekpo-matnr.
PERFORM convert_table_to_string.
modify g_t_ekpo.
clear g_t_ekpo.
endloop.
endif.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = 'C:/KKVT/TEST.XLS'
filetype = 'ASC'
write_field_separator = 'X'
TABLES
data_tab = g_t_ekpo
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
message: 'file downloaded' type 'S'.
ENDIF.
ENDFORM. " download
FORM convert_table_to_string .
DATA: str TYPE string,
len TYPE i,
tot_len TYPE i.
FIELD-SYMBOLS <fs1> TYPE ANY.
IF g_t_ekpo-ebeln IS NOT INITIAL.
CONCATENATE g_t_ekpo-ebeln g_t_ekpo-ebelp INTO g_ebeln. "CRQ94538-Capture text
SHIFT g_ebeln LEFT DELETING LEADING space.
PERFORM read_text USING g_ebeln g_t_text[].
IF g_t_text[] IS NOT INITIAL.
CLEAR: len,
tot_len,
str.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE g_t_text TO <fs1>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
DESCRIBE FIELD <fs1> LENGTH len IN CHARACTER MODE.
ADD len TO tot_len.
ENDDO.
CALL FUNCTION 'CONVERT_TABLE_TO_STRING'
EXPORTING
i_tabline_length = tot_len
IMPORTING
e_string = str
TABLES
it_table = g_t_text[].
IF sy-subrc = 0.
g_t_ekpo-text = str.
ENDIF.
ELSE.
CLEAR: g_t_ekpo-text,
tot_len,
len,
str. .
ENDIF.
ENDIF.
ENDFORM. " convert_table_to_string
Edited by: Kiran K on Nov 18, 2010 5:21 AM -
Hi,
When i tried to create the delivery through BDC getting a message as "Order Can not be delivered (see long text)". Same message i am displaying in my ALV output also.Is there any FM to link to that long text documentation?
Please let me know,If any body have idea on this.
Regards,
Skumar.Hi
SAVE_TEXT writes a text module back to the text file or the text memory, depending on the storage mode of the corresponding text object.
You can use this module either to change existing texts or to create new texts. If you know for sure that the text is new, use the parameter INSERT to indicate this. The system then does not have to read the text first, which improves the performance of the function module.
If the lines table passed with the function module is empty, the system deletes the text from the text file.
http://help.sap.com/saphelp_40b/helpdata/en/d6/0db8ef494511d182b70000e829fbfe/content.htm
Assuming your falt file will have the asset number and text.
DATA: BEGIN OF ITAB1 OCCURS 0,
NUMBER(12),
TEXT(132),
END OF ITAB1.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
WRITE_FIELD_SEPARATOR = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = ITAB1
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC <> 0.
ENDIF.
DATA: HEADER LIKE THEAD.
DATA: LINES TYPE STANDARD TABLE OF TLINE WITH HEADER LINE.
LOOP AT ITAB1.
AT NEW NUMBER.
HEADER-TDOBJECT = <OBJECT>.
HEADER-TDID = <ID>.
HEADER-NAME = <NAME>.
ENDAT.
move itab1-text to lines-tdline.
append lines.
AT END OF NUMBER.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
HEADER = HEADER
* INSERT = ' '
SAVEMODE_DIRECT = 'X'
TABLES
LINES = LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
* text update succesful
ENDIF.
clear lines.
refresh lines.
ENDAT.
<b>Reward if usefull</b> -
Need to find table/field behind "Item long text" field in Notes tab in FB70
Hello,
To print a custom FI invoice, I need to access the data entered in the "Item long text" field of the Notes tab in FB70. To test, I used 5000 characters in that field to make sure it stood out from the rest of the data. F1 help does nothing on that field, and even running an SQL trace (ST05) doesn't show the text in that field being entered into any table. I tried F1 on a nearby field and got a structure instead of a table, so I investigated the structure through SE11 but found no character field with such a large capacity. How else can I find where that field is stored?Thanks! It took a while, but with your help and a few other pages I managed to piece together an answer.
Vinod helpfully explained that the text name is a concatenation of various fields, but didn't specify how to find the line item ID. If you go to table STXH (as hinted by Brad and confirmed [here|http://fuller.mit.edu/SAPWebDocs/LongComment.html]) and search for texts created today (or whenever you were testing), you'll see the text name ends in '001' after GJAHR, so the line item ID is '001' regardless of how many line items you enter in the invoice.
Armed with that info, you can call READ_TEXT and loop through the results to concatenate the contents of each TDLINE field. (FB70 automatically breaks the user-entered text into different lines even if the user didn't press Enter, and each line gets its own record in the results.)
Thanks again,
Pedro -
Upload Task List Operation long Text using SAVE_TEXT-Urgent
Hi ,
I am trying to create Task List Operation Long text using the function module ..
SAVE_TEXT .I am passing the following keys
Text Name 300ATEST057 0000000900000009
Language EN
Text ID PLPO Long Text
Text Object ROUTING Texts for task list types
But the long texts are not getting updated in the Task lists operations .
Can anyone please suggest whether SAVE_TEXT will work for Operation long Texts or not Are we missing something
.This is pretty urgent requirement .Award points are assured.
Regards
Samhi,
use function module create text
check the sample code
DATA: BEGIN OF itab OCCURS 0,
asnum LIKE asmd-asnum, " Service No
text(5000) TYPE c, " Long Text
END OF itab.
*DATA: itab1 LIKE itab OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab1 OCCURS 0,
asnum LIKE asmd-asnum, " Service No
sequ type i, " Text Sequence
text(5000) TYPE c, " Long Text
END OF itab1.
To create Long Text lines for CREATE_TEXT function module
DATA:BEGIN OF dt_lines OCCURS 0.
INCLUDE STRUCTURE tline. " Long Text
DATA:END OF dt_lines.
Variable declarations for CREATE_TEXT function module
DATA : dl_name TYPE thead-tdname, " Object Name
dl_lan TYPE thead-tdspras. " Language
Constants
Object ID for Long Text of Service Master
CONSTANTS:c_best TYPE thead-tdid VALUE 'LTXT',
c_material TYPE thead-tdobject VALUE 'ASMD'. " Object
for file splitting.
DATA: start TYPE i,
len TYPE i VALUE 92,
totlen TYPE i,
n TYPE i.
PARAMETERS p_file LIKE rlgrap-filename."input file
At selection-screen on Value Request for file Name
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
Get the F4 Values for the File
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
IMPORTING
file_name = p_file.
Start Of Selection
START-OF-SELECTION.
*To Upload Flat file
CALL FUNCTION 'UPLOAD'
EXPORTING
filename = p_file
filetype = 'DAT'
TABLES
data_tab = itab
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
OTHERS = 7.
LOOP AT itab.
itab1-asnum = itab-asnum.
CLEAR: totlen,n, start.
totlen = STRLEN( itab-text ).
n = totlen / len.
n = n + 1.
DO n TIMES.
itab1-text = itab-text+start(len).
itab1-sequ = sy-index.
start = start + len.
APPEND itab1.
ENDDO.
ENDLOOP.
delete itab1 where text is initial.
SORT itab1 BY asnum sequ.
LOOP AT itab1.
dt_lines-tdformat = '*'.
dt_lines-tdline = itab1-text.
APPEND dt_lines.
Call the Function Module to Create Text
AT END OF asnum.
dl_lan = sy-langu.
WRITE : / itab-asnum.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = itab1-asnum
IMPORTING
output = itab1-asnum.
MOVE itab1-asnum TO dl_name.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
fid = c_best
flanguage = dl_lan
fname = dl_name
fobject = c_material
save_direct = 'X'
fformat = '*'
TABLES
flines = dt_lines
EXCEPTIONS
no_init = 1
no_save = 2
OTHERS = 3.
IF sy-subrc <> 0.
WRITE:/ 'Long Text Creation failed for Service No'(001),
itab1-asnum.
ELSE.
WRITE:/ 'Long Text Created Successfully for Service No'(002),
itab1-asnum.
ENDIF.
REFRESH dt_lines.
ENDAT.
ENDLOOP.
in text file give first field records in capitals
regards
siva -
Long text in table control lines
If i put long text buttons on the table control coulum, when the line is deleted from the table, the text for tha line are permenantly deleted before the screen is saved in the user command. how do i correct the problem ?
regards
RendaniUse the FM for text delete when u press save button and not at table control delete command.
physically delete the line from table control and put it in internal table which can be used for deletion purpose at time of actual deletion... -
Hi,
Iam trying to display alv list with one internal table(itab1).
I have another itab2 which is having very long text and which is appended as 4 lines.
Now i want to combine this itab2 into itab1 to dispaly long text.
Can any one explain me how to append this data.Here is the code.
My object is to put long text in the ALV list.Iam using QM02 transaction to get the data.
REPORT YQM_NOTIFICATION MESSAGE-ID ZM NO STANDARD PAGE HEADING
LINE-SIZE 255.
TYPE-POOLS: SLIS.
TABLES: QPCT,
QPGT,
QMEL,
QMMA,
IHPA.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
ITAB_EXTAB TYPE SLIS_T_EXTAB.
DATA: IT_FIELD TYPE SLIS_T_FIELDCAT_ALV,
W_LAYOUT TYPE SLIS_LAYOUT_ALV,
IT_EXCLU TYPE SLIS_T_EXTAB,
GS_EXTAB TYPE SLIS_EXTAB.
DATA : F_TDOBJECT LIKE THEAD-TDOBJECT,
F_TDNAME LIKE THEAD-TDNAME,
F_TDID LIKE THEAD-TDID,
ITAB_LINES LIKE tline OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF ITAB OCCURS 10,
DESC(72) TYPE C,
END OF ITAB.
DATA: BEGIN OF T_HDR OCCURS 0,
GROUP LIKE QPGT-CODEGRUPPE,
CODE LIKE QPCT-CODE,
TEXT LIKE QPCT-KURZTEXT,
NAME LIKE QPGT-KURZTEXT,
END OF T_HDR.
DATA: BEGIN OF T_DET OCCURS 0,
SNO TYPE I,
QMNUM LIKE QMEL-QMNUM, " NOTIFICATION NUMBER(REF NO)
REFNUM LIKE QMEL-REFNUM, " CONTRACT NO
PARNR LIKE IHPA-PARNR,
QMTXT LIKE QMEL-QMTXT,
QMGRP LIKE QMEL-QMGRP,
QMCOD LIKE QMEL-QMCOD,
OBJNR LIKE QMEL-OBJNR,
DESC(72),
END OF T_DET.
DATA: SNO TYPE I.
DATA: V_REPID TYPE SY-REPID.
SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_QMNUM FOR QMEL-QMNUM,
S_QMART FOR QMEL-QMART,
S_QMDAT FOR QMEL-QMDAT.
SELECTION-SCREEN END OF BLOCK A1.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM 2000_GET_MAIN.
PERFORM DISPLAY_ALV.
END-OF-SELECTION.
*& FORM DISPLAY_ALV
TEXT
FORM DISPLAY_ALV.
PERFORM FIELD_CAT USING FIELDCAT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
IT_FIELDCAT = FIELDCAT
IT_EXCLUDING = ITAB_EXTAB
TABLES
T_OUTTAB = T_DET
EXCEPTIONS
PROGRAM_ERROR = 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.
ENDFORM. "DISPLAY_ALV
*& FORM FIELD_CAT
TEXT
-->P_FIELDCAT TEXT
FORM FIELD_CAT USING P_FIELDCAT.
FIELD CATELOG FOR ALV DISPLAY.
DATA: I_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
I_FIELDCAT-FIELDNAME = 'SNO'.
I_FIELDCAT-TABNAME = 'T_DET'.
I_FIELDCAT-NO_OUT = ' '.
I_FIELDCAT-SELTEXT_L = 'S.NO'.
I_FIELDCAT-OUTPUTLEN = 4.
APPEND I_FIELDCAT TO FIELDCAT.
I_FIELDCAT-FIELDNAME = 'QMNUM'.
I_FIELDCAT-TABNAME = 'T_DET'.
I_FIELDCAT-NO_OUT = ' '.
I_FIELDCAT-SELTEXT_L = 'REF.NO'.
I_FIELDCAT-OUTPUTLEN = 18.
APPEND I_FIELDCAT TO FIELDCAT.
I_FIELDCAT-FIELDNAME = 'REFNUM'.
I_FIELDCAT-TABNAME = 'T_DET'.
I_FIELDCAT-NO_OUT = ' '.
I_FIELDCAT-SELTEXT_L = 'CONTRACT NO'.
I_FIELDCAT-OUTPUTLEN = 18.
APPEND I_FIELDCAT TO FIELDCAT.
I_FIELDCAT-FIELDNAME = 'PARNR'.
I_FIELDCAT-TABNAME = 'T_DET'.
I_FIELDCAT-NO_OUT = ' '.
I_FIELDCAT-SELTEXT_L = 'A-DIV'.
I_FIELDCAT-OUTPUTLEN = 10.
APPEND I_FIELDCAT TO FIELDCAT.
I_FIELDCAT-FIELDNAME = 'QMTXT'.
I_FIELDCAT-TABNAME = 'T_DET'.
I_FIELDCAT-NO_OUT = ' '.
I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'.
I_FIELDCAT-OUTPUTLEN = 25.
APPEND I_FIELDCAT TO FIELDCAT.
I_FIELDCAT-FIELDNAME = 'DESC'.
I_FIELDCAT-TABNAME = 'T_DET'.
I_FIELDCAT-NO_OUT = ' '.
I_FIELDCAT-SELTEXT_L = 'DEFECT'.
I_FIELDCAT-OUTPUTLEN = 100.
APPEND I_FIELDCAT TO FIELDCAT.
ENDFORM. "FIED_CAT
*& FORM GET_DATA
TEXT
FORM GET_DATA.
*TO GET HEADER
SELECT CODEGRUPPE CODE KURZTEXT FROM QPCT INTO TABLE T_HDR.
LOOP AT T_HDR.
SELECT SINGLE * FROM QPGT WHERE CODEGRUPPE = T_HDR-GROUP.
IF SY-SUBRC = 0.
T_HDR-NAME = QPGT-KURZTEXT.
MODIFY T_HDR.
CLEAR T_HDR.
ENDIF.
ENDLOOP.
*TO GET DETAILS
SELECT QMNUM REFNUM QMDAT QMTXT OBJNR QMGRP QMCOD FROM QMEL
INTO CORRESPONDING FIELDS OF TABLE T_DET
WHERE QMNUM IN S_QMNUM AND
QMART IN S_QMART AND
QMDAT IN S_QMDAT.
LOOP AT T_DET.
SELECT SINGLE * FROM IHPA WHERE OBJNR = T_DET-OBJNR.
IF SY-SUBRC = 0.
T_DET-PARNR = IHPA-PARNR.
MODIFY T_DET.
CLEAR T_DET.
ENDIF.
ENDLOOP.
LOOP AT T_DET.
DELETE T_HDR WHERE GROUP NE T_DET-QMGRP.
ENDLOOP.
LOOP AT T_DET.
SNO = SNO + 1.
T_DET-SNO = SNO.
MODIFY T_DET.
CLEAR T_DET.
ENDLOOP.
CLEAR : ITAB.
REFRESH : ITAB.
LOOP AT T_DET.
F_TDID = 'LTQM'.
F_TDNAME = T_DET-QMNUM.
F_TDOBJECT = 'QMEL'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = F_TDID
LANGUAGE = SY-LANGU
NAME = F_TDNAME
OBJECT = F_TDOBJECT
TABLES
LINES = ITAB_LINES.
DESCRIBE TABLE ITAB_LINES LINES SY-TFILL.
IF SY-TFILL > 0.
LOOP AT ITAB_LINES.
ITAB-DESC = ITAB_LINES-TDLINE.
<b>APPEND ITAB</b>. "itab2
CLEAR ITAB.
ENDLOOP.
ENDIF.
ENDLOOP.
<b>LOOP AT ITAB.</b>
T_DET-DESC = ITAB-DESC.
MODIFY T_DET.
CLEAR T_DET. "itab1
<b>ENDLOOP.</b>
ENDFORM. "GET_DATA<b></b><b></b><b></b>
points guaranteed
cheers
kakiHi again,
1. I don't think it is directly possible in alv.
2. bcos Notification is a simple field
3. But Description ?
This is fetched into an INTERNAL Table
having many rows.
3. One option is :
The internal table which uare displaying
in alv (lets say ITAB)
Populate it with some home-grown logic.
4. lets say u have 3 Notifications
each having Descriptions of 5 lines.
ie 3 x 5 = 15 lines
5. So loop thru all descriptions
and populate both fields one by one.
itab should something like this -
make the notification field blank
for lines starting from 2 (for each notification)
6. NOT001 line1
line2
lin3
line4
NOT002 line 1
line 2
line 3
line 4
NOT0003 line1
line2
etc etc.
I hope it helps.
Regards,
Amit M. -
how do i get a shift report out of the PLM (plant maintenance) module that includes the following:
Work Order Number
Person Responsible
Time and date
Equipment
Hours Confirmed
Goods Movement
Long Text Description of what was done to correct the problem.
IW40 displays all the necessary fields that we are looking for with the exception of the long text description.
Thank you
NikhilHi ,
I found an enhacement spot ES_RIAUFK10 - ECC6.0 ,EHP3 ,SE18 for IW40 programme , check the possibility to add a field via this one ..
For longtext u need to read from STXH Table using FM READ_TEXT
regrds
pushpa -
Problem in loading the long text in bdc.
Hai Friends,
I am uploading the material master using bdc, Here i need to upload the long text field. so am using the separate report for upload the long text field using the create_text function module. but the problem is the long text field only accepting 132 charactors. but i need to upload the 500 charactors. what i want to do now ?
Regards ,
Sathis Kumar RHi Sathis,
What u do is that while recording the text part in bdc , click on the first delete button, and then create button and after that double click on the editor or click on the text-editor change button, a window will get opened , then click go-to menu -> change editor.
there u can use loop the text table and wirte it according .
eg
PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TP_DELETE'. "first delete
PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TP_CREATE'. " then create
PERFORM bdc_field USING 'LV70T-SPRAS'
sy-langu.
PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TP_DETAIL'. "if not double click then click on change button after the delete button and then click on the change-editor menu .
PERFORM bdc_field USING 'LV70T-SPRAS'
sy-langu.
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RSTXT-TXLINE(02)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TXVB'.
PERFORM bdc_field USING 'RSTXT-TXPARGRAPH(02)'
PERFORM bdc_field USING 'RSTXT-TXPARGRAPH(03)'
PERFORM bdc_field USING 'RSTXT-TXLINE(02)'
wa_itab-htext1.
PERFORM bdc_field USING 'RSTXT-TXLINE(03)'
wa_itab-htext2.
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RSTXT-TXLINE(02)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=TXBA'.
PERFORM bdc_dynpro USING 'SAPMV45A' '4002'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/EBACK'.
regards,
Santosh Thorat -
Problem in Saving long texts from IC Webclient
Hi,
I have a little problem with BP long text transfert.
In IC Webclient, I identify a account and I create a long text (for exemple a Accounting Note).
I can find this text in CRM (t-code BP->long text) but, it is not transfert to ECC (XD03->Extra->text).
If I create a accounting note directly in CRM, it is transfert to ECC !!
The transaction PITX is customized in ECC.
I work with CRM5.0 and ECC6.
What I missed ?
GaétanHi Gaétan,
Maybe the BDOC BUPA_MAIN responsible to export the change to ECC is not being created when you make the change in IC Webclient.
Can you confirm it in SMW01? Try to make a change in a partner long text in IC webclient, and check if the bdoc was sent to R3.
Then try it in BP t-code, and check it again.
If this is the problem, maybe you should contact OSS suport.
Kind regards,
Garcia
Maybe you are looking for
-
(Windows 8) All partitions are messed up. Can't load recovery.
I have an HP pavillian G6 that I have totally messed up. It came with windows 8, and I had no intention of removing or dual booting it. I wanted to partition the C drive to chop off 10 gigs for a seperate partition for Outlook files. I used EASEUS
-
Java + MS Excel + MS Outlook
How can we use Java to access contents in an excel file and convert the info into a message and mail this through MS Outlook? Plz reply to [email protected]
-
Can't get rid of subscription to aperture discussion
I have no subscriptions in my account but since I posted a question I receive constantly e-mails...what can I do? I told apple to d/c subscription and it shows it did but i constantly am getting new emails. ERIC W you helped someone else so can you p
-
Thought on Netgear WNR854T Gigabit N Router
Hi, Curious on the user experience with the Netgear Gigabit Wireless N router. I'm leaning towards this router and I would like to know what you think about it.
-
I have an external drive with quicktime clips on it. I could not use the log and transfer tool to bring these in I kept getting an error message stating "Clips contain unsupported media or has an invalid directory structure. Please choose a folder wh