MIRO、MIR7、MIR4注释替代文本增强 - 林泽星

更新时间：2023-10-23 10:05:01 阅读量：综合文库文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

1. 在SAPLMR1M的LMR1MF1F中将要取数据的抛出(MIRO)

2. 在FUNCTION MODULE ‘MRM_INVOICE_PARK’中将要取的数据抛出（MIR7、MIR4）

3. 在GGB1中配置替代增强(在过账时执行该增强)

代码：

1. *获取注释长文本中的实际采购发票号码抛出内存内存号 ‘SGTXT_TEXT’

DATA L_TEXT(50). \存放用户在注释长文本框中输入的实际采购发票号码

FIELD-SYMBOLS LIKE LINE OF RBKPV-TNOTE.

LOOP AT RBKPV-TNOTE ASSIGNING .

CONCATENATE L_TEXT -TDLINE INTO L_TEXT. ENDLOOP.

IF L_TEXT IS NOT INITIAL.

SET PARAMETER ID 'SGTXT_TEXT' FIELD L_TEXT. \将注释中的文本抛出内存

ENDIF.

2. *获取注释长文本中的实际采购发票号码抛出内存内存号 ‘SGTXT_TEXT’ MIR7 MIR4中获取

* IF SY-UNAME = 'HANDLZX'.

IF I_EDITOR IS NOT INITIAL. \文本框非空 DATA: tab_text TYPE text132 OCCURS 10, tab_text_wa TYPE text132, L_TEXT(50).

CALL METHOD i_editor->get_text_as_r3table IMPORTING table = tab_text. LOOP AT tab_text INTO tab_text_wa. CHECK NOT tab_text_wa IS INITIAL.

CONCATENATE L_TEXT tab_text_wa INTO L_TEXT. ENDLOOP.

IF L_TEXT IS NOT INITIAL.

SET PARAMETER ID 'SGTXT_TEXT' FIELD L_TEXT. \将注释中的文本抛出内存

ENDIF. ENDIF. * ENDIF.

3. GET PARAMETER ID 'SGTXT_TEXT' FIELD BSEG-SGTXT. \从屏幕6000 MODULKE fcode_6000 的增强中抛出的长文本获取长文本数据 FREE MEMORY ID 'SGTXT_TEXT'.

BY SSICFLINZEXING

上海汉得林泽星 QQ:71879702

相关文章：

正在阅读：