SAP ME2L添加抬头文本含税单价和含税金额增强字段

原创

已于 2024-03-05 15:41:47 修改 · 1.2k 阅读

12 ·

CC 4.0 BY-SA版权

文章标签：

#windows

于 2024-03-05 15:14:23 首次发布

第一步：给增强结构新增增强字段，se11输入结构名称
MEREP_OUTTAB_PURCHDOC
点击附加结构
点击新建扩展
定义需要扩展的字段，这里新增抬头文本、含税单价和含税金额3字段，不能使用内置类型，否则ALV无法显示名称。
这里嫌麻烦，单价和金额也定义成了字符类型
第二布：se38进入程序LMEREPI02，进入之后点查找按钮，查找方法BUILD_BASE_LIST
双击方法
第三步：在方法的开头，创建隐式增强
在这里插入图片描述
第四步：3字段的逻辑代码

IF SY-TCODE EQ 'ME2N' OR SY-TCODE EQ 'ME2L' OR SY-TCODE EQ 'ME2M'.
DATA tline       TYPE TABLE OF tline.
DATA:LS_tline LIKE LINE OF tline.
DATA tdname      TYPE tdobname .
DATA:lv_TDLINE TYPE tdline.
DATA:lv_kbetr TYPE VFPRC_ELEMENT_AMOUNT.
re_outtab_purchdoc-ZZBANFN = im_ekpo-BANFN.
re_outtab_purchdoc-ZZBNFPO = im_ekpo-BNFPO.
CLEAR:tline,tdname.
tdname = im_ekpo-EBELN.

CALL FUNCTION 'READ_TEXT'
  EXPORTING
*   CLIENT                  = SY-MANDT
    id                      = 'F01'        "系统暂时没有配置，后续更改
    language                = '1'
    name                    = tdname
    object                  = 'EKKO'
*   ARCHIVE_HANDLE          = 0
*   LOCAL_CAT               = ' '
*   IMPORTING
*   HEADER                  =
*   OLD_LINE_COUNTER        =
  TABLES
    lines                   = tline
  EXCEPTIONS
    id                      = 1
    language                = 2
    name                    = 3
    not_found               = 4
    object                  = 5
    reference_check         = 6
    wrong_access_to_archive = 7
    OTHERS                  = 8.
IF tline[] IS NOT INITIAL.
  READ TABLE tline INTO LS_tline INDEX 1.
  IF sy-subrc = 0.
    lv_TDLINE = LS_tline-tdline.
  ENDIF.
  re_outtab_purchdoc-ZBKTXT = lv_TDLINE.
ENDIF.
*****新增含税单价和含税金额字段
CLEAR:lv_kbetr.
if im_ekpo-schpr <> 'X'.
  SELECT SINGLE kbetr INTO lv_kbetr FROM prcd_elements WHERE knumv = im_ekko-knumv
                                                                     AND   kposn = im_ekpo-ebelp
                                                                     AND   kschl = 'PB00'.
if lv_kbetr is INITIAL.
  SELECT SINGLE kbetr INTO lv_kbetr FROM prcd_elements WHERE knumv = im_ekko-knumv
                                                                       AND   kposn = im_ekpo-ebelp
                                                                       AND   kschl = 'PBXX'.
endif.
endif.

if im_ekpo-peinh <> 0.
  lv_kbetr = lv_kbetr / im_ekpo-peinh.
endif.

re_outtab_purchdoc-ZHSDJ = lv_kbetr.
re_outtab_purchdoc-ZHSJE = lv_kbetr * im_ekpo-menge.


ENDIF.

欢迎使用Markdown编辑器

你好！这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

新的改变

我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：

全新的界面设计 ，将会带来全新的写作体验；
在创作中心设置你喜爱的代码高亮样式，Markdown 将代码片显示选择的高亮样式 进行展示；
增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示；
全新的 KaTeX数学公式 语法；
增加了支持甘特图的mermaid语法¹ 功能；
增加了 多屏幕编辑 Markdown文章功能；
增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；
增加了 检查列表 功能。

功能快捷键

撤销：Ctrl/Command + Z
重做：Ctrl/Command + Y
加粗：Ctrl/Command + B
斜体：Ctrl/Command + I
标题：Ctrl/Command + Shift + H
无序列表：Ctrl/Command + Shift + U
有序列表：Ctrl/Command + Shift + O
检查列表：Ctrl/Command + Shift + C
插入代码：Ctrl/Command + Shift + K
插入链接：Ctrl/Command + Shift + L
插入图片：Ctrl/Command + Shift + G
查找：Ctrl/Command + F
替换：Ctrl/Command + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。
输入2次#，并按下space后，将生成2级标题。
以此类推，我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

~~删除文本~~

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: link.

图片: Alt

带尺寸的图片:

居中的图片: Alt

居中并且带尺寸的图片:

当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。

如何插入一段漂亮的代码片

去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block
var foo = 'bar';

生成一个适合你的列表

项目
- 项目
  - 项目

项目1
项目2
项目3

计划任务
完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	`'Isn't this fun?'`	‘Isn’t this fun?’
Quotes	`"Isn't this fun?"`	“Isn’t this fun?”
Dashes	`-- is en-dash, --- is em-dash`	– is en-dash, — is em-dash