SAP采购订单行项目中的免费字段取值逻辑

ag • 2022.05.01 21:13 • 文章 • 阅读 120

when ekpo-REPOS is “Blank” i.e. PO Item is Free / else if ekpo-REPOS has value “X” then is not free (paid).

本文作者: GavinDong

版权属于: GavinDong博客

文章链接: https://www.gavindong.com/11442.html

如果使用过程中遇到问题，可 **点击此处** 交流沟通。

ag普通用户

0 0

文章

辅助Homebrew的两大利器Cakebrew & LaunchRocket

在Mac下面安装软件的时候，比较方便的方式是使用Homebrew。不过Homebrew是命令行方式，用起来不是那么的友好，所以就有了图形化的Cakebrew。 Cakebrew 网…

ag
2018.06.23
1.7K000
文章

Message AW607 with AuC settlement to other receivers

解决方法： OBA5 原因：Function is not allowed or not recommended by business management practices …

ag
2018.01.08
3.0K200

文章

abap实现交货单中显示销售价格，销售订单取价格

abap取销售订单价格

TABLES: NAST,  
        TNAPR, 
        LIKP,
        KNA1,
        ADR2,
        VBAK,
        KONV. 

DATA LV_KNUMV TYPE VBAK-KNUMV.
  SELECT * FROM LIPS INTO CORRESPONDING FIELDS OF TABLE LT_LIPS WHERE VBELN = VBELN.
如果交货类型LIKP－LFART是NLCC，取LIPS－VGBEL，LIPS－VGPOS，根据这两个值取EKPO－NETPR
*否则，根据交货单取订单VBAP-CMPRE
    IF LW_LIKP-LFART = 'NLCC'.
      SELECT SINGLE * FROM EKPO INTO CORRESPONDING FIELDS OF LW_EKPO WHERE EBELN = LS_LIPS-VGBEL AND  EBELP = LS_LIPS-VGPOS.
      IF SY-SUBRC = 0.
        IF LW_LIPS-WERKS = 'HK00'.
          LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH.
        ELSEIF LW_LIPS-WERKS = '1100'.
          LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .
          LS_ITEM-NETPR = LW_EKPO-NETPR.
          LS_ITEM-PEINH = LW_EKPO-PEINH.
          "ls_item-WAERS = lw_ekpo-WAERS.
        ELSEIF LW_LIPS-WERKS = '1200'.
          LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .
          LS_ITEM-NETPR = LW_EKPO-NETPR.
          LS_ITEM-PEINH = LW_EKPO-PEINH.
          "ls_item-WAERS = lw_ekpo-WAERS.
        ENDIF.
      ENDIF.
    ELSE.
      SELECT SINGLE * FROM VBAP INTO CORRESPONDING FIELDS OF LW_VBAP WHERE VBELN = LS_LIPS-VGBEL AND  POSNR = LS_LIPS-VGPOS.
      IF SY-SUBRC = 0.
        IF LW_VBAP-CMPRE NE 0.
          LS_ITEM-CMPRE = LW_VBAP-CMPRE. "普通销售订单.
        ELSE.
          "寄售补货订单在VBAP中是没有价格、信贷额字段的值的，需要根据SO单独去取条件表.
          "vbak-knumv = konv-knumv.
          "function:KONV_ARRAY_READ.
          CLEAR:LV_KNUMV,LS_ITEM-CMPRE.
          SELECT SINGLE KNUMV INTO LV_KNUMV FROM VBAK WHERE VBELN = LS_LIPS-VGBEL.
          SELECT SINGLE KBETR INTO LS_ITEM-CMPRE FROM KONV WHERE KNUMV = LV_KNUMV AND  KPOSN = LS_LIPS-VGPOS.
        ENDIF.
      ENDIF.
    ENDIF.

TABLES: NAST,

TNAPR,

LIKP,

KNA1,

ADR2,

VBAK,

KONV.

DATA LV_KNUMV TYPE VBAK-KNUMV.

SELECT * FROM LIPS INTO CORRESPONDING FIELDS OF TABLE LT_LIPS WHERE VBELN = VBELN.

如果交货类型LIKP－LFART是NLCC，取LIPS－VGBEL，LIPS－VGPOS，根据这两个值取EKPO－NETPR

*否则，根据交货单取订单VBAP-CMPRE

IF LW_LIKP-LFART = 'NLCC'.

SELECT SINGLE * FROM EKPO INTO CORRESPONDING FIELDS OF LW_EKPO WHERE EBELN = LS_LIPS-VGBEL AND EBELP = LS_LIPS-VGPOS.

IF SY-SUBRC = 0.

IF LW_LIPS-WERKS = 'HK00'.

LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH.

ELSEIF LW_LIPS-WERKS = '1100'.

LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .

LS_ITEM-NETPR = LW_EKPO-NETPR.

LS_ITEM-PEINH = LW_EKPO-PEINH.

"ls_item-WAERS = lw_ekpo-WAERS.

ELSEIF LW_LIPS-WERKS = '1200'.

LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .

LS_ITEM-NETPR = LW_EKPO-NETPR.

LS_ITEM-PEINH = LW_EKPO-PEINH.

"ls_item-WAERS = lw_ekpo-WAERS.

ENDIF.

ELSE.

SELECT SINGLE * FROM VBAP INTO CORRESPONDING FIELDS OF LW_VBAP WHERE VBELN = LS_LIPS-VGBEL AND POSNR = LS_LIPS-VGPOS.

IF SY-SUBRC = 0.

IF LW_VBAP-CMPRE NE 0.

LS_ITEM-CMPRE = LW_VBAP-CMPRE. "普通销售订单.

ELSE.

"寄售补货订单在VBAP中是没有价格、信贷额字段的值的，需要根据SO单独去取条件表.

"vbak-knumv = konv-knumv.

"function:KONV_ARRAY_READ.

CLEAR:LV_KNUMV,LS_ITEM-CMPRE.

SELECT SINGLE KNUMV INTO LV_KNUMV FROM VBAK WHERE VBELN = LS_LIPS-VGBEL.

SELECT SINGLE KBETR INTO LS_ITEM-CMPRE FROM KONV WHERE KNUMV = LV_KNUMV AND KPOSN = LS_LIPS-VGPOS.

ENDIF.

2017.05.19

2.6K010

文章

SAP创建成本中心和利润中心标准层次

在SAP中，需要先创建好成本中心和利润中心的“根”目录，即标准层次，然后才能在这个标准层次（目录）下维护下级层次和对应的主数据。首先，需要执行OKKS设置一个默认的控制范围，后续…

ag
2021.01.08
3.5K020
文章

学习八步骤

1.确立目标2.拆分任务3.搜集知识资源4.分配自身资源5.勤学6.建立知识体系7.好问8.分享复述

ag
2020.05.15
1.3K000
文章

SAP HANA 2 – The Next Generation Platform Optimized for Innovation

Continuing the innovation on providing effective Data Management Solution, SAP is releasin…

ag
2018.03.01
1.1K000
文章

SAP ABAP HANA 7.5新语法练习视频

Youtube上分析的ABAP 7.5新语法练习视频，如果还不熟悉可以跟着练习一遍，新语法能大大精简代码量、提高开发效率。涉及到如下新特性： SAP ABAP HANA 7.51…

ag
2021.06.02
842020
文章

python数据分析实用小抄

1. python数据分析基础 2. numpy 3. Scikit-Learn 4. Bokeh 5. Scipy 6. Pandas 转载于：http://www.jiansh…

ag
2018.07.16
1.3K000
文章

/usr/sap/DVEBMGS00满了怎么处理

参考：Note 16513 – File system is full – what do I do?1. stat.DAT — 性能统计文…

ag
2017.05.17
1.2K000
文章

ABAP基础随笔

abap一般可执行程序用report，交互式程序（只能用事物代码执行的）用program。 abap消息类管理：se91 REPORT ztest02 MESSAGE-ID zhq…

ag
2017.08.18
1.8K100

发表评论

登录后才能评论

SAP采购订单行项目中的免费字段取值逻辑

相关文章

发表评论