采购订单头

2020-09-07 00:53发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家您好,

通过功能模块SAVE_TEXT更新PO标头文本时遇到问题。

通过功能模块保存的文本应附加在新行中已经存在的先前文本。

当前,我首先通过READ_TEXT读取现有文本并将其保存到内部表中,并通过SAVE_TEXT将相同的文本与新文本附加在一起,但是新文本不是从新行开始,而是继续与上一个文本继续


wa_head-tdobject ='EKKO'。
wa_head-tdname = im_ekko-ebeln。
wa_head-tdid ='F02'。
wa_head-tdspras ='E'。

CALL FUNCTION'READ_TEXT'
导出
客户端= SY-MANDT
ID = WA_HEAD-TDID
语言= WA_HEAD-TDSPRAS
名称= 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。

调用函数'SAVE_TEXT'
导出
客户端= sy-mandt
标头= wa_head
savemode_direct ='X'

行= it_lines
异常
id = 1
语言= 2
名称= 3
对象= 4
其他= 5。

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家您好,

通过功能模块SAVE_TEXT更新PO标头文本时遇到问题。

通过功能模块保存的文本应附加在新行中已经存在的先前文本。

当前,我首先通过READ_TEXT读取现有文本并将其保存到内部表中,并通过SAVE_TEXT将相同的文本与新文本附加在一起,但是新文本不是从新行开始,而是继续与上一个文本继续


wa_head-tdobject ='EKKO'。
wa_head-tdname = im_ekko-ebeln。
wa_head-tdid ='F02'。
wa_head-tdspras ='E'。

CALL FUNCTION'READ_TEXT'
导出
客户端= SY-MANDT
ID = WA_HEAD-TDID
语言= WA_HEAD-TDSPRAS
名称= 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。

调用函数'SAVE_TEXT'
导出
客户端= sy-mandt
标头= wa_head
savemode_direct ='X'

行= it_lines
异常
id = 1
语言= 2
名称= 3
对象= 4
其他= 5。

付费偷看设置
发送
5条回答
昵称总是被占用
1楼-- · 2020-09-07 01:15

你好,卡利安,

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

它从新行创建文本。

致谢

普拉萨德大师。

渐行渐远_HoldOn
2楼-- · 2020-09-07 01:20
 跨度 {
 字体家族:" 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。


       万一。


 
nice_wp
3楼-- · 2020-09-07 00:54

请尝试以下代码。

 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

灬番茄
4楼-- · 2020-09-07 01:10

嗨,穆罕默德M,

感谢您的帮助,它确实有效:)

当学会了学习
5楼-- · 2020-09-07 00:57

嗨,大师,

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

此致

加利安

一周热门 更多>