Apr 19, 2007 at 09:03 AM
problem with the text editor (Very urgent please help me).
Hi All,
I have two coloums in my ALV grid 1 for contract and
2. for nomination
if i click on the any of the contract 1st FM is called and a pop up screen is displayed which was designed in the dialog programing. I am using text editor in this in which the user can enter free text and press on save. if the user clicks on save using FM SAVE_TEXT we are saving this text on an particular tdname.
same functionality with the 2nd function module also, but the difference is saving in another tdname.
my problem is when i go to the contract screen and read text from the particular tdname for the first time i am getting teh correct value into teh editor but when i go to the nomination screen i am getting the values of the contract read_text.
i have used the class <b>cl_gui_textedit</b> in which i am using teh objects set_text_as_stream,
i have used the object CALL METHOD cl_gui_cfw=>flush also but my problem is not solved.
i am attaching the code for this also please check it.
event PAI
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_5000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_5000 INPUT.
DATA:wv_tdname_nom LIKE thead-tdname,
wv_tdid_nom LIKE thead-tdid,
wv_tdobject_nom LIKE thead-tdobject.
IF wv_subrc EQ 0.
MOVE wv_okcode TO wv_save_ok.
CLEAR wv_okcode.
CASE wv_save_ok.
WHEN 'SAVE'.
IF wv_aktyp EQ 'V'
OR wv_aktyp EQ 'H'.
PERFORM save_text
USING wo_editor3
CHANGING wv_change_text.
PERFORM save_create_text USING wv_langu
wv_tdname
wv_tdid
wv_tdobject.
PERFORM free_text_control
USING wo_editor3
wo_textedit_custom_container3.
IF wv_flag = 1.
*Update VBAK
UPDATE vbak
SET zzgrupp_cm = wv_zzgrupp_cm
zzguarfrom = wv_zzguarfrom
zzguarto = wv_zzguarto
zzguarref = wv_zzguarref
zzguarresp = wv_zzguarresp
WHERE vbeln = wv_vbeln.
* D3BK9A3VD2 Start of Insertion
IF sy-subrc = 0.
COMMIT WORK.
ELSE.
ROLLBACK WORK.
ENDIF.
* D3BK9A3VD2 End of Insertion
ELSE.
*Update only OIJNOMI
UPDATE oijnomi
SET zzgrupp_cm = wv_zzgrupp_cm
zzguarfrom = wv_zzguarfrom
zzguarto = wv_zzguarto
zzguarref = wv_zzguarref
zzguarresp = wv_zzguarresp
WHERE nomtk = wv_nomtk
AND nomit = wv_nomit.
* D3BK9A3VD2 Start of Insertion
IF sy-subrc = 0.
COMMIT WORK.
ELSE.
ROLLBACK WORK.
ENDIF.
* D3BK9A3VD2 End of Insertion
ENDIF.
LEAVE TO SCREEN 0.
ENDIF.
WHEN 'CANCEL'.
wt_tlinetab[] = wt_tlinetab_old[].
LEAVE TO SCREEN 0.
WHEN 'ENTER'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDIF.
ENDMODULE. " USER_COMMAND_5000 INPUT
*&---------------------------------------------------------------------*
*& Module check INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE check INPUT.
MOVE wv_okcode TO wv_save_ok.
IF wv_save_ok NE 'CANCEL'.
*Check Risk category
IF wv_zzgrupp_cm IS INITIAL.
IF wv_ctlpc = '04' OR wv_ctlpc = '05' .
MESSAGE e002(zsd) WITH text-002.
ENDIF.
*Check guarantee type
ELSE.
SELECT SINGLE grupp
INTO wv_temp
FROM t691b
WHERE grupp = wv_zzgrupp_cm
AND kkber = wv_bukrs.
IF sy-subrc NE 0.
SELECT grupp UP TO 1 ROWS INTO wv_temp FROM t691b
WHERE grupp = wv_zzgrupp_cm.
ENDSELECT.
IF sy-subrc NE 0.
MESSAGE e002(zsd) WITH text-003.
ENDIF.
ENDIF.
ENDIF.
IF wv_zzgrupp_cm IS INITIAL AND ( wv_zzguarfrom = '00000000' OR
wv_zzguarto = '00000000' OR wv_zzguarref IS INITIAL ).
MESSAGE e002(zsd) WITH text-001.
ENDIF.
IF NOT wv_zzgrupp_cm IS INITIAL AND ( wv_zzguarfrom = '00000000' OR
wv_zzguarto = '00000000' OR wv_zzguarref IS INITIAL ).
MESSAGE e002(zsd) WITH text-004.
ENDIF.
ENDIF.
ENDMODULE. " check INPUT
*&---------------------------------------------------------------------*
*& Module INIT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE init OUTPUT.
CLEAR wv_lib_id.
SELECT SINGLE bname name1 name2
INTO (wv_zzguarresp , wv_name1 , wv_name2)
FROM zv_usr03
WHERE bname = wv_zzguarresp.
IF sy-subrc = 0.
CONCATENATE wv_name1 wv_name2 INTO wv_lib_id SEPARATED BY space.
ELSE.
SELECT SINGLE bname name1 name2
INTO (wv_zzguarresp , wv_name1 , wv_name2)
FROM zv_usr03
WHERE bname = sy-uname.
IF sy-subrc = 0.
CONCATENATE wv_name1 wv_name2 INTO wv_lib_id SEPARATED BY space.
ENDIF.
ENDIF.
CASE wv_flag.
*Init Contract
WHEN '1' .
LOOP AT SCREEN.
IF screen-name = 'W_SITYP' OR screen-name = 'WV_SITYP'
OR screen-name = 'W_UOM' OR screen-name = 'WV_UOM'
OR screen-name = 'W_LOCID' OR screen-name = 'WV_LOCID'
OR screen-name = 'W_DATE' OR screen-name = 'WV_DATE'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
CLEAR wv_lib_guarantee.
SELECT SINGLE gtext INTO wv_lib_guarantee FROM t691c
WHERE spras = sy-langu
AND grupp = wv_zzgrupp_cm
AND kkber = wv_bukrs.
IF sy-subrc NE 0.
SELECT gtext UP TO 1 ROWS
INTO wv_lib_guarantee FROM t691c
WHERE spras = sy-langu
AND grupp = wv_zzgrupp_cm.
ENDSELECT.
ENDIF.
*Display Comments for contract
WHEN '2'.
LOOP AT SCREEN.
IF screen-name = 'W_SITYP' OR screen-name = 'WV_SITYP'
OR screen-name = 'W_UOM' OR screen-name = 'WV_UOM'
OR screen-name = 'W_LOCID' OR screen-name = 'WV_LOCID'
OR screen-name = 'W_DATE' OR screen-name = 'WV_DATE'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = 'WV_ZZGRUPP_CM' OR screen-name = 'WV_ZZGUARFROM'
OR screen-name = 'WV_ZZGUARTO' OR screen-name = 'WV_ZZGUARREF'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
*Init Nomination
WHEN '0'.
LOOP AT SCREEN.
IF screen-name = 'W_CONTRACT_NUMBER' OR screen-name = 'WV_VBELN'
OR screen-name = 'W_CONTRACT_TYPE' OR screen-name = 'WV_AUART'
OR screen-name = 'W_PAID' OR screen-name = 'WV_KUNNR'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
SELECT SINGLE sityp locid unit_i idate
INTO (wv_sityp , wv_locid , wv_uom , wv_date)
FROM oijnomi
WHERE nomtk = wv_nomtk
AND nomit = wv_nomit.
*Display Comments for nomination
WHEN '3'.
LOOP AT SCREEN.
IF screen-name = 'WV_ZZGRUPP_CM' OR screen-name = 'WV_ZZGUARFROM'
OR screen-name = 'WV_ZZGUARTO' OR screen-name = 'WV_ZZGUARREF'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = 'W_CONTRACT_NUMBER' OR screen-name = 'WV_VBELN'
OR screen-name = 'W_CONTRACT_TYPE' OR screen-name = 'WV_AUART'
OR screen-name = 'W_PAID' OR screen-name = 'WV_KUNNR'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDCASE.
ENDMODULE. " INIT OUTPUT
* D3BK9A3VD2 Start of Insertion
*&---------------------------------------------------------------------*
*& Module check_gaurantee INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE check_gaurantee INPUT.
* IF NOT wv_okcode = 'CANCEL'.
* AUTHORITY-CHECK OBJECT 'ZSDGUARNOM'
* ID 'ACTVT' FIELD '02'
* ID 'WV_CREDITGA' FIELD wv_creditga.
* IF sy-subrc NE 0.
* MESSAGE e002(zsd) WITH 'Authorisation missing'.
* ENDIF.
* ENDIF.
IF wv_okcode = 'F001' AND wv_creditga = 'X'.
MOVE: wv_zzgrupp_cm1 TO wv_zzgrupp_cm,
wv_zzguarfrom1 TO wv_zzguarfrom,
wv_zzguarto1 TO wv_zzguarto,
wv_zzguarref1 TO wv_zzguarref,
wv_locid1 TO wv_locid,
wv_uom1 TO wv_uom,
wv_date1 TO wv_date,
wv_sityp1 TO wv_sityp.
ELSEIF wv_okcode = 'F001' AND wv_creditr = 'X'.
MOVE: wv_zzgrupp_cm TO wv_zzgrupp_cm1,
wv_zzguarfrom TO wv_zzguarfrom1,
wv_zzguarto TO wv_zzguarto1,
wv_zzguarref TO wv_zzguarref1,
wv_locid TO wv_locid1,
wv_uom TO wv_uom1,
wv_date TO wv_date1,
wv_sityp TO wv_sityp1.
CLEAR: wv_zzgrupp_cm,
wv_zzguarfrom,
wv_zzguarto,
wv_zzguarref,
wv_locid,
wv_uom,
wv_date,
wv_sityp.
ENDIF.
ENDMODULE. " check_gaurantee INPUT
Event PBO
*&---------------------------------------------------------------------*
*& Module text_control_5000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE text_control_5000 OUTPUT.
CLEAR: wv_subrc ,
ws_thead_new.
IF wo_editor3 IS INITIAL.
* create control container
CREATE OBJECT wo_textedit_custom_container3
EXPORTING
container_name = 'TEXTEDITOR2'
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5.
MOVE sy-subrc TO wv_subrc.
IF wv_subrc NE 0.
RAISE others .
ENDIF.
IF wv_subrc EQ 0.
wv_mycontainer2 = 'TEXTEDITOR2'.
* create calls constructor, which initializes, creats and links
* TextEdit Control
CREATE OBJECT wo_editor3
EXPORTING
parent = wo_textedit_custom_container3
wordwrap_mode =
cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = wc_line_length
wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
CALL METHOD wo_editor3->set_toolbar_mode
EXPORTING
toolbar_mode = wo_editor3->true.
CALL METHOD wo_editor3->set_statusbar_mode
EXPORTING
statusbar_mode = wo_editor3->true.
ENDIF.
ENDIF.
ENDMODULE. " text_control_5000 OUTPUT
*&---------------------------------------------------------------------*
*& Module init_screen_5000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE init_screen_5000 OUTPUT.
IF wv_subrc EQ 0.
IF wv_aktyp EQ 'A'.
CALL METHOD wo_editor3->set_readonly_mode
EXPORTING
readonly_mode = wo_editor3->true
EXCEPTIONS
error_cntl_call_method = 1
invalid_parameter = 2
OTHERS = 3.
MOVE sy-subrc TO wv_subrc .
IF wv_subrc NE 0.
RAISE others .
ENDIF.
ELSE.
CALL METHOD wo_editor3->set_readonly_mode
EXPORTING
readonly_mode = wo_editor3->false
EXCEPTIONS
error_cntl_call_method = 1
invalid_parameter = 2
OTHERS = 3.
MOVE sy-subrc TO wv_subrc .
IF wv_subrc NE 0.
RAISE others .
ENDIF.
ENDIF.
ENDIF.
ENDMODULE. " init_screen_5000 OUTPUT
*&---------------------------------------------------------------------*
*& Module read_text_5000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE read_text_5000 OUTPUT.
IF wv_subrc EQ 0.
REFRESH: wt_mytable,
wt_tinlinetab,
wt_tlinetab.
CALL METHOD wo_editor3->empty_undo_buffer.
CLEAR wv_thead.
CALL FUNCTION 'READ_TEXT_INLINE'
EXPORTING
id = wv_tdid
inline_count = 1
language = wv_langu
name = wv_tdname
object = wv_tdobject
IMPORTING
header = wv_thead
TABLES
inlines = wt_tinlinetab
lines = wt_tlinetab
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
OTHERS = 7.
MOVE sy-subrc TO wv_subrc.
* D3BK9A3VD2 Start of Insertion
IF wv_subrc = 0.
IF wv_creditr = 'X'.
READ TABLE wt_tlinetab INDEX 1.
IF NOT wt_tlinetab-tdline(15) = 'Credit Released'.
MOVE: '*' TO wt_tlinetab-tdformat,
'Credit Released by AUTHORIZED AUTHORITY' TO
wt_tlinetab-tdline.
INSERT wt_tlinetab INDEX 1.
ENDIF.
ELSEIF wv_creditga = 'X'.
READ TABLE wt_tlinetab INDEX 1.
IF NOT wt_tlinetab-tdline = 'Credit Guarantee'.
MOVE: '*' TO wt_tlinetab-tdformat,
'Credit Guarantee' TO wt_tlinetab-tdline.
INSERT wt_tlinetab INDEX 1.
ENDIF.
ENDIF.
ENDIF.
* D3BK9A3VD2 End of Insertion
CASE wv_subrc .
WHEN 0. wt_tlinetab_old[] = wt_tlinetab[].
WHEN 1. RAISE id .
WHEN 2. RAISE language .
WHEN 3. RAISE name .
WHEN 4. CLEAR wv_subrc.
WHEN 5. RAISE object .
WHEN 6. RAISE reference_check .
WHEN 5. RAISE others .
ENDCASE.
IF wv_subrc EQ 0.
CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'
TABLES
itf_text = wt_tlinetab
text_stream = wt_mytable.
CALL METHOD wo_editor3->set_text_as_stream
EXPORTING
text = wt_mytable
EXCEPTIONS
error_dp = 1
error_dp_create = 2
OTHERS = 3.
MOVE sy-subrc TO wv_subrc.
IF wv_subrc NE 0.
RAISE others .
ENDIF.
ENDIF.
ENDIF.
ENDMODULE. " read_text_5000 OUTPUT