长文本保存和编辑.doc

*&-*&ReportZHANGT_SAVE_TEXT*&*&-*&*&*&-*REPORTzhangt_save_text.INCLUDEzsave_text_top.INCLUDEzsave_text_pbo.INCLUDEzsave_text_pai.START-OF-SELECTION.SETSCREEN0100.*&-*&包含ZSAVE_TEXT_TOP*&-*-表申明-*-表申明-*-内表/结构/工作区-*存联通卡描述的内表DATA:gt_textTYPETABLEOFchar256.DATA:gs_textTYPEchar256.*文本保存DATA:headerTYPEthead.DATA:linesTYPETABLEOFtlineWITHHEADERLINE.DATA:lines_oldTYPETABLEOFtlineWITHHEADERLINE.*-内表/结构/工作区-*-变量-*套餐类别DATA:ztclbTYPEchar2.*套餐类别文本DATA:ztclb_tTYPEchar40.DATA:gv_messageTYPEchar30.*CONTAINER相关DATA:gv_text_containerTYPEREFTOcl_gui_custom_container,gv_text_editorTYPEREFTOcl_gui_textedit.*读取文本关键字DATA:tdobnameTYPEtdobname.*-变量-*&-*&包含ZSAVE_TEXT_PBO*&-*&-*&ModuleSTATUS_0100OUTPUT*&-*text*-*MODULEstatus_0100OUTPUT.SETPF-STATUSSTATUS_0100.*SETTITLEBARxxx.*为套餐文本赋值*SELECTSINGLEztclb_tINTOztclb_t*FROMzt1520*WHEREztclb=ztclb.IFgv_text_containerISINITIAL.CREATEOBJECTgv_text_containerEXPORTINGcontainer_name=ALV_DESC.CREATEOBJECTgv_text_editorEXPORTINGparent=gv_text_containerwordwrap_mode=1wordwrap_to_linebreak_mode=cl_gui_textedit=true.gv_text_editor-set_toolbar_mode(1).gv_text_editor-set_statusbar_mode().gv_text_editor-set_readonly_mode(readonly_mode=0).ENDIF.*添加默认文本联通卡套餐描述：*add_text联通卡套餐描述:.CALLMETHODgv_text_editor-set_text_as_r3tableEXPORTINGtable=gt_textEXCEPTIONSOTHERS=1.ENDMODULE.STATUS_0100OUTPUT*&-*&包含ZSAVE_TEXT_PAI*&-*&-*&ModuleUSER_COMMAND_0100INPUT*&-*text*-*MODULEuser_command_0100INPUT.CASEsy-ucomm.WHENBACKOREXITORCANCEL.LEAVEPROGRAM.WHENSAVE.CLEARlines.REFRESHlines.lines-tdformat=*.CALLMETHODgv_text_editor-get_text_as_r3tableIMPORTINGtable=gt_textEXCEPTIONSOTHERS=1.LOOPATgt_textINTOgs_text.CONCATENATElines-tdlinegs_textINTOlines-tdline.APPENDlines.CLEARgs_text.ENDLOOP.header-tdobject=ZUNIT.header-tdname=ztclb.header-tdid=Z001.header-tdspras=1.CALLFUNCTIONSAVE_TEXTEXPORTINGheader=headersavemode_direct=XTABLESlines=linesEXCEPTIONSid=1language=2name=3object=4OTHERS=5.IFsy-subrc=0.MESSAGEs398(00)WITH文本保存成功!.EXIT.ELSE.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.WHENREAD.CLEARtdobname.REFRESHlines_old.tdobname=ztclb.CALLFUNCTIONREAD_TEXTEXPORTINGid=Z001language=1name=tdobnameobject=ZUNITTABLESlines=lines_oldEXCEPTIONSid=1language=2name=3not_found=4object=5reference_check=6wrong_access_to_archive=7OTHERS=8.IFsy-subrc=0.CLEARgs_text.REFRESHgt_text.LOOPATlines_old.CONCATENATEgs_textlines_old-tdlineINTOgs_text.ENDLOOP.APPENDgs_textTOgt_text.ELSE.CLEARgv_message.CON