你好，卡利安，

对于新的文本行，请使用WA_LINE-TDFORMAT ='/'。

它从新行创建文本。

致谢

普拉萨德大师。

 跨度 {
 字体家族：" Courier New"；
 字体大小：10pt；
 颜色：#000000;
 背景：#FFFFFF;
 }
 .L0S32 {
 颜色：#3399FF;
 }
 .L0S52 {
 颜色：#0000FF;
 }
 .L0S55 {
 颜色：#800080;
 }
 .L0S70 {
 颜色：#808080;
 }



   数据：IT_LINES TLINE类型表，

          WA_LINES TYPE TLINE，

          IT_LINE TYPE TLINE TABLE，

          WA_LINE TYPE TLINE。



   数据：CH_TEXT（72）C型，

         IT_TEXT，如CH_TEXT，

         VTEXT类型TVZBT-VTEXT。


 跨度 {
 字体家族：" Courier New"；
 字体大小：10pt；
 颜色：#000000;
 背景：#FFFFFF;
 }
 .L0S31 {
 字体样式：斜体；
 颜色：#808080;
 }
 .L0S32 {
 颜色：#3399FF;
 }
 .L0S33 {
 颜色：#4DA619;
 }
 .L0S52 {
 颜色：#0000FF;
 }
 .L0S55 {
 颜色：#800080;
 }
 .L0S70 {
 颜色：#808080;
 }



       通话功能" CATSXT_SIMPLE_TEXT_EDITOR"

         出口

           IM_TITLE ='输入文字'

         改变

           CH_TEXT = IT_TEXT。



       如果IT_TEXT不是INITIAL。

         WA_HEAD-TDOBJECT ='EKKO'。

         WA_HEAD-TDNAME = IM_X_EKKO-EBELN。

         WA_HEAD-TDID ='F02'。

         WA_HEAD-TDSPRAS ='E'。



         通话功能" READ_TEXT"

           出口

             客户= SY-MANDT

             ID = WA_HEAD-TDID

             语言= WA_HEAD-TDSPRAS

             NAME = WA_HEAD-TDNAME

             对象= WA_HEAD-TDOBJECT

           桌子

             线= IT_LINE

           例外情况

             ID = 1

             语言= 2

             名称= 3

             NOT_FOUND = 4

             对象= 5

             REFERENCE_CHECK = 6

             WRONG_ACCESS_TO_ARCHIVE = 7

             其他= 8。



         IT_LINES [] = IT_LINE。



         将"拒绝者：" APRNAME连接到以空格分隔的WA_LINES-TDLINE。

         将WA_LINES附加到IT_LINES。

         清除：WA_LINES，APRNAME。



         在IT_TEXT处进入CH_TEXT。

           WA_LINES-TDLINE = CH_TEXT。

           将WA_LINES附加到IT_LINES。

           清除：WA_LINES。

         结局。



         通话功能" SAVE_TEXT"

           出口

             客户= SY-MANDT

             HEADER = WA_HEAD

             SAVEMODE_DIRECT ='X'

           桌子

             线= IT_LINES

           例外情况

             ID = 1

             语言= 2

             名称= 3

             对象= 4

             其他= 5。


       万一。


 
 

请尝试以下代码。

 WA_LINES-tdformat ='/'。
 CONCATENATE'拒绝者：'APRNAME插入WA_LINES-TDLINE，以空格分隔。
将WA_LINES附加到IT_LINES。  br>循环到IT_TEXT到CH_TEXT。
如果sy-tabix =1。
 WA_LINES-tdformat ='*'。
否则。
 WA_LINES-tdformat ='/'。
 endif。  
 WA_LINES-TDLINE = CH_TEXT。
将WA_LINES附加到IT_LINES。
清除：WA_LINES。
 ENDLOOP。

此致

穆罕默德M

嗨，穆罕默德M，

感谢您的帮助，它确实有效：）

嗨，大师，

感谢您的回复，但没有添加'/'无效。

此致

加利安